Бактериологическая лаборатория

Министерство образования  Российской Федерации

МЕЖДУНАРОДНЫЙ ИНСТИТУТ КОМПЬЮТЕРНЫХ ТЕХНОЛОГИЙ

Факультет информационных систем

Кафедра информатики  и вычислительной техники

 

 

КУРСОВОЙ ПРОЕКТ

По дисциплине: Базы данных.

Тема: “Бактериологическая лаборатория.”

 

 

 

 

Выполнил студент  ВМ-061                                 Д.О.Меренков

         Группа                 Подпись,                 дата                            инициалы, фамилия

Руководитель                                                                                С.Ю. Юшинин

Подпись,                  дата                           инициалы, фамилия

Защищена _________________ Оценка _______________________ 

               

2009 

Замечания руководителя

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Содержание

Замечания руководителя………………………………………………………2

Содержание…………………………………………………………………….3

Введение………………………………………………………………………..4

1. Постановка  задачи…………………………………………………………..5

2. Структура базы данных……………………………………….………….…6

2.1. ER-диаграмма………………………………………………………6

2.2. Таблицы используемые  для хранения данных……………………7

3.  Клиентское  приложение…………………………………………………..10

3.1. Запросы используемые  для доступа к полям…………………....10

3.2. Модуль программы………………………………………………..10

3.3. Интерфейс………………………………………………………….14

3.4. Редактор отчетов………………………………………..…………16

Вывод………………………………………………………………………..…17

Используемая  литература…………………………………………………….18

 

 

 

 

 

 

 

 

 

 

 

Введение.

На сегодняшний  день невозможно представить ни одной  отрасли, в которой не используются  информационные технологии. С каждым годом появляется все больше и больше программных продуктов, и чтобы отыскать среди этого разнообразия что-то действительно нужное, приходится тратить значительное количество времени. Кроме этого большинство программных продуктов является платными, и не по карману большинству пользователей. В нашей стране развитие информационных технологий является приоритетной задачей государства, только оно не сильно торопится её решать. В действительности можно наблюдать интересные вещи. Рассмотрим пример из медицинской области, так как этот проект  её напрямую затрагивает. Компьютеры стоят везде, вот только с автоматизацией не очень, наши медики предпочитают по старинке хранить информацию в толстых журналах, и перетаскивать их со стола на стол. Куда уж там до специализированных баз данных. Но хуже всего дело состоит с отчетами, особенно когда начальство поторапливает. Сидят люди в белых халатах с калькуляторами и листочками, а потом набирают полученные данные в текстовом редакторе.  Но в какой восторг они приходят, когда им показать, как ловко справляются со всем этим электронные таблицы Exсel! Объём данных, с которыми медикам приходится оперировать, огромен, так что остается их только пожалеть.

Данный курсовой проект поможет решить задачи автоматизации  нашим медицинским работникам.

 

 

 

 

 

 

 

 

 

 

1. Постановка задачи.

Целью данного курсового проектирования является совершенствование навыков проектирования и практического создания базы данных путем разработки базы данных и работающего с ней приложения. База данных разработанная в ходе курсового проекта реализована на сервере  Firebird версии 2.0. В комплект поставки сервера Firebird входит ряд утилит командной строки для создания, модификации и управлением баз данных. Однако в большинстве случаев с сервером удобней работать с использованием инструмента с графическим пользовательским интерфейсом. Одним из множества таких инструментов является IBExpert.  Для разработки клиентского приложения используется среда визуального программирования Borland Delphi.

Необходимо  реализовать базу данных, которая может:

1. Хранить информацию о человеке (больном), его дату рождения, место жительства,  когда и какие анализы от  него поступили, диагноз, из какого он отделения поступил.
2. Хранить информацию,  о сданных человеком(больным) анализах,  процессе исследования, полученном результате.

Клиентское  приложение должно:

1. Соединятся с базой данных.
2. Предоставлять возможность редактирования данных.
3. Предоставлять возможность построения отчетов.

 

 

 

 

 

 

 

 

 

2. Структура базы данных

Проект предназначен для применения в бактериологической лаборатории. Ниже представлена информация о структуре и взаимосвязях между таблицами используемых в базе.

2.1. ER- диаграмма

 

 

 

 

 

 

2.2. Таблицы используемые для хранения данных

1. BOLNIYE –предназначена для хранения данных о больных. Содержит поля:

2. CLASS_PREP - предназначена для хранения данных о препаратах. Содержит поля:

3. DIAGNOZY - предназначена для хранения данных о диагнозах. Содержит поля:

4. KULTURY - предназначена для хранения данных о культурах. Содержит поля:

 

 

5. KULT_PREP - предназначена для хранения данных о соответствующих друг другу культурах и препаратах . Содержит поля:

 

6. MATERIAL- предназначена для хранения данных о материале. Содержит поля:

7. OKIN - предназначена для хранения данных о поле. Содержит поля:

8. OTDELENIYA - предназначена для хранения данных о отделениях. Содержит поля:

9. PREPARATY - предназначена для хранения данных о препаратах. Содержит поля:

 

 

10.  SDANNIY_MATERIAL - предназначена для хранения данных о сданном материале. Содержит поля:

 

11.  SREDY- предназначена для хранения данных о средах. Содержит поля:

12.  SRED_MAT- предназначена для хранения данных о соответствующих друг другу средах и материалах.  Содержит поля:

 

 

 

 

 

 

 

 

3. Клиентское приложение

Для соединения с базой данных и доступа к ее полям используются компоненты библиотеки Borland InterBase Express Components. Доступ осуществляется по средством запросов реализованных на языке sql. Так же в приложении используются и другие компоненты Delphi.

3.1. Запросы  используемые для доступа к полям

select *  from BOLNIYE

select * from SDANNIY_MATERIAL

select * from OKIN

select * from DIAGNOZY

select * from OTDELENIYA

select * from KULTURY

select * from SREDY

select * from MATERIA

select id_bolnoy, F||' '||i||' '||O FullName from bolniye

 

3.2. модуль программы

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, DB, Grids, DBGrids, IBCustomDataSet, IBTable, IBDatabase, ExtCtrls,

  DBCtrls, ComCtrls, Tabs, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl,

  IWControl, IWGrids, IWCompCalendar, StdCtrls, frxClass, frxIBXComponents,

  frxDesgn,about;

 

type

  TForm1 = class(TForm)

    DataSource1: TDataSource;

    IBTransaction1: TIBTransaction;

    IBDatabase1: TIBDatabase;

    DBGrid1: TDBGrid;

    IBDataSet1: TIBDataSet;

    IBDataSet2: TIBDataSet;

    DBNavigator1: TDBNavigator;

    IBDataSet3: TIBDataSet;

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    TabSheet3: TTabSheet;

    IBDataSet4: TIBDataSet;

    IBDataSet5: TIBDataSet;

    IBDataSet6: TIBDataSet;

    IBDataSet7: TIBDataSet;

    frxReport1: TfrxReport;

    Button1: TButton;

    frxIBXComponents1: TfrxIBXComponents;

    frxDesigner1: TfrxDesigner;

    IBDataSet8: TIBDataSet;

    IBDataSet8ID_BOLNOY: TIntegerField;

    IBDataSet8F: TIBStringField;

    IBDataSet8I: TIBStringField;

    IBDataSet8O: TIBStringField;

    IBDataSet8D_R: TDateField;

    IBDataSet8POL: TIntegerField;

    IBDataSet8D_ADRES: TIBStringField;

    IBDataSet8DIAGNOS: TIntegerField;

    IBDataSet8OTDELENIYE: TIntegerField;

    IBDataSet8Polstr: TStringField;

    IBDataSet8diag: TStringField;

    IBDataSet8otdel: TStringField;

    IBDataSet9: TIBDataSet;

    DBGrid2: TDBGrid;

    DBNavigator2: TDBNavigator;

    DataSource2: TDataSource;

    IBDataSet9ID_S_MATERIAL: TIntegerField;

    IBDataSet9BOLNOY: TIntegerField;

    IBDataSet9S_MATERIAL: TIntegerField;

    IBDataSet9ZABOR: TDateTimeField;

    IBDataSet9POSEV: TDateTimeField;

    IBDataSet9SREDA_POSEVA: TIntegerField;

    IBDataSet9VYDELENNAYA_KULTURA: TIntegerField;

    IBDataSet9RESULT: TDateTimeField;

    IBDataSet9Fullname: TStringField;

    IBDataSet9mat: TStringField;

    IBDataSet9sred: TStringField;

    IBDataSet9kult: TStringField;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

   { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

frxReport1.LoadFromFile('3.fr3');

frxReport1.DesignReport;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

If  Not Assigned(AboutBox) then

   AboutBox:=TAboutBox.Create(Self);

  AboutBox.ShowModal;

end;

end.

 

 

 

 

3.3 Интерфейс

 

 

 

 

 

 

Как видно из приведенных  выше рисунков, интерфейс состоит из рабочей области и меню навигации. Рабочая область позволяет пользователю осуществлять ввод и редактирование данных. Меню навигации позволяет дать пользователю возможность переключится в другую рабочую область в соответствии с решаемой задачей. Предоставляемый пользователю интерфейс интуитивно прост и понятен.

 

 

 

 

 

3.4  Редактор отчетов

В программе для построения отчетов использовался современный инструмент генерации отчетов - FastReport Studio. Для получения необходимых данных для отчета использовался следующий sql запрос:

Select name_material, name_kultura,count(*)

from  material , kultury

inner join sdanniy_material on (material.id_material=sdanniy_material.s_material)

and (kultury.id_kultura=sdanniy_material.vydelennaya_kultura)

group by   name_material, name_kultura

order by name_material

В результате выполнения запроса  получим набор данных который содержит  выделенные культуры из определенных анализов и их количество

Вывод.

В данном курсовом проекте  была реализована реляционная база данных, предназначенная для автоматизации хранения информации. В ходе проектирования была изучена предметная область с целью получения информации необходимой для реализации задуманного. В результате реализовано приложение, готовое послужить на благо и развитие нашей медицины. Версия данного продукта не является последней, в дальнейшем планируется развитие данного программного средства.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Используемая  литература

Мир InterBase samouchka.net

Фаронов В.В. - Delphi 2005 Разработка приложений для баз данных и интернета