Разработка модели распределенной реляционной базы данных предприятия

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    DataSource2: TDataSource;

    DBNavigator2: TDBNavigator;

    Query2: TQuery;

    Button5: TButton;

    Button6: TButton;

    Button7: TButton;

    TabSheet3: TTabSheet;

    Button12: TButton;

    Edit1: TEdit;

    Label1: TLabel;

    Edit2: TEdit;

    Label2: TLabel;

    Button8: TButton;

    Button9: TButton;

    DBNavigator3: TDBNavigator;

    DataSource1: TDataSource;

    Query1: TQuery;

    Query3: TQuery;

    DataSource3: TDataSource;

    DBGrid3: TDBGrid;

    DBGrid4: TDBGrid;

   DBGrid2: TDBGrid;

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button9Click(Sender: TObject);

    procedure Button12Click(Sender: TObject);

    procedure Edit1Change(Sender: TObject);

    procedure Edit2Change(Sender: TObject);

 

private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button2Click(Sender: TObject);     //открыть таблицу

begin         Сотрудники

          query1.open;

  pagecontrol1.Pages[1].TabVisible:=false;

  pagecontrol1.Pages[2].TabVisible:=false;

end;

 

procedure TForm5.Button3Click(Sender: TObject);   //обновить таблицу

begin         Пациенты

   if query2.Active=true then begin

  query2.Close;

  query2.Open;

 end;

end;

 

procedure TForm5.Button4Click(Sender: TObject);  //закрыть таблицу

begin         сотрудники

  query1.Close ;

  pagecontrol1.Pages[1].TabVisible:=true;

  pagecontrol1.Pages[2].TabVisible:=true;

end;

 

procedure TForm5.Button5Click(Sender: TObject); //открыть таблицу

begin         Пациенты

   query2.open;

  pagecontrol1.Pages[0].TabVisible:=false;

  pagecontrol1.Pages[2].TabVisible:=false;

end;

 

     

       procedure TForm5.Button6Click(Sender: TObject);  //закрыть таблицу

begin                     Пациенты  

  query2.Close ;

   pagecontrol1.Pages[0].TabVisible:=true;

   pagecontrol1.Pages[2].TabVisible:=true;

end;

 

procedure TForm5.Button8Click(Sender: TObject); //закрыть таблицу   begin         Отчеты

  query3.Close ;

   pagecontrol1.Pages[0].TabVisible :=true;

   pagecontrol1.Pages[1].TabVisible :=true;

end;

 

 

 

procedure TForm5.Button1Click(Sender: TObject);    //переход в главное

begin         меню

  query1.Close;

  query2.Close;

  query3.Close;

  close;

end;

 

procedure TForm5.Button9Click(Sender: TObject); //обновить таблицу

begin         Отчеты

  if query3.Active=true then begin

   query3.Close; query3.Open ;

  end;

 end;

 

procedure TForm5.Button12Click(Sender: TObject); //открыть таблицу

begin         Отчеты

  query3.open;

   pagecontrol1.Pages[0].TabVisible :=false;

   pagecontrol1.Pages[1].TabVisible :=false;

end;

 

procedure TForm5.Edit1Change(Sender: TObject); //поиск по фамилии

begin         сотрудника

  if edit1.Text='' then exit;

  if not query1.Active then exit;

  if not query1.Locate('FIO', edit1.Text , [loPartialKey, loCaseInsensitive])

   then application.MessageBox('Фамилия не найдена','Мед.учреждение',mb_ok);

  end;

 

procedure TForm5.Edit2Change(Sender: TObject); //поиск по фамилии   begin                                                сотрудника обслуживающего пациента

         if edit2.text='' then exit;

  if not query2.Active then exit;

  if not query2.Locate('FIO',edit2.Text,[loPartialKey,loCaseInsensitive])

   then application.MessageBox('Фамилия не найдена','Мед.учреждение',mb_ok);

 end;

     end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Литература

 

1. Избачков Ю.С., Петров В.Н. Информационные системы: Учебник для вузов. –2-е изд. – СПб.: Питер, 2005.
2. Гофман В.Э., Хомоненко А.Д. Работа с базами данных в Delphi. – СПб.: БХВ-Петербург, 2002.
3. Яхонтов В.Н. Базы данных. Учебно-методическое пособие. – Казань: Академия управления «ТИСБИ», 2004.
4. Яхонтов В.Н. Корпоративные информационные системы. Учебно-методическое пособие. – Казань: Академия управления «ТИСБИ», 2006.
5. Дейт К. Дж. Введение в системы баз данных. – К.; М.; СПб.: Издательский дом «Вильямс», 1999.
6. Фаронов В.В. Delphi 2005. Разработка приложений для баз данных Интернета. – СПб.: Питер, 2006
7. Дарахвелидзе П.Г., Марков Е.П. Разработка Web-служб средствами Delphi. – СПб.: БХВ-Петербург, 2003.