Файл: Разработка приложения справочной службы регистратуры поликлиники.pdf

Label1.Visible:=false;

Label5.Visible:=false;

Label6.Visible:=false;

end;

procedure TForm5.Button6Click(Sender: TObject);

begin

adotable1.active:=false;

adotable1.TableName:='номер_стеллажа';

adotable1.active:=true;

dbgrid1.hide;

dbgrid2.hide;

dbgrid3.Hide;

dbgrid4.Hide;

dbgrid5.Show;

dbgrid6.Hide;

Label5.Visible:=true;

Label2.Visible:=false;

Label3.Visible:=false;

Label4.Visible:=false;

Label1.Visible:=false;

Label6.Visible:=false;

end;

procedure TForm5.Button7Click(Sender: TObject);

begin

adotable1.active:=false;

adotable1.TableName:='номер_кабинета';

adotable1.active:=true;

dbgrid1.hide;

dbgrid2.hide;

dbgrid3.Hide;

dbgrid4.Hide;

dbgrid5.Hide;

dbgrid6.Show;

Label6.Visible:=true;

Label2.Visible:=false;

Label3.Visible:=false;

Label4.Visible:=false;

Label5.Visible:=false;

Label1.Visible:=false;

end;

end.

unit Unit7;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.jpeg, Vcl.ExtCtrls, Data.DB,

Data.Win.ADODB, Vcl.DBCtrls, Vcl.ComCtrls, Vcl.StdCtrls;

type

TForm7 = class(TForm)

Image1: TImage;

Label2: TLabel;

Label1: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Edit1: TEdit;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

ComboBox3: TComboBox;

DateTimePicker1: TDateTimePicker;

ComboBox4: TComboBox;

Button1: TButton;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

{$R *.dfm}

end.

unit Unit8;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.jpeg, Vcl.ExtCtrls, Data.DB,

Data.Win.ADODB, Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls;

type

TForm8 = class(TForm)

Image1: TImage;

DBGrid1: TDBGrid;

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

ADOTable1: TADOTable;

Button1: TButton;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

end.

unit Unit9;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.jpeg, Vcl.ExtCtrls,

Vcl.StdCtrls, Vcl.ComCtrls, Data.DB, Data.Win.ADODB, Vcl.Samples.Spin;

type

TForm9 = class(TForm)

Image1: TImage;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DateTimePicker1: TDateTimePicker;

Label5: TLabel;

ComboBox1: TComboBox;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Edit4: TEdit;

Edit5: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Edit10: TEdit;

Edit11: TEdit;

Edit12: TEdit;

Edit13: TEdit;

Button1: TButton;

Button2: TButton;

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

ADOTable1: TADOTable;

Edit6: TEdit;

Label11: TLabel;

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

{$R *.dfm}

uses Unit10;

procedure TForm9.Button2Click(Sender: TObject);

begin

Form10.Show;

end;

end.

unit Unit10;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,