Приложение. Листинг программного кода фрагмента информационной системы «Аптека»

unit Unit1;

interface

uses

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

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls,

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

type

Tapteka_form = class(TForm)

apteka_pages: TPageControl;

tovar_page: TTabSheet;

tovar_grid: TDBGrid;

tovar_navigator: TDBNavigator;

postav_page: TTabSheet;

postav_grid: TDBGrid;

postav_navigator: TDBNavigator;

personal_page: TTabSheet;

personal_grid: TDBGrid;

personal_navigator: TDBNavigator;

personal_DBEdit2: TDBEdit;

personal_DataSource: TDataSource;

apteka_ADOConnection: TADOConnection;

personal_ADOTable: TADOTable;

personal_DBEdit3: TDBEdit;

personal_DBEdit4: TDBEdit;

personal_DBEdit5: TDBEdit;

personal_DBEdit6: TDBEdit;

personal_DBEdit7: TDBEdit;

personal_DBEdit8: TDBEdit;

personal_DBEdit9: TDBEdit;

personal_DBEdit10: TDBEdit;

personal_Button1: TButton;

tovar_DataSource: TDataSource;

postav_DataSource: TDataSource;

tovar_ADOTable: TADOTable;

postav_ADOTable: TADOTable;

postav_DBEdit1: TDBEdit;

postav_DBMemo1: TDBMemo;

postav_DBEdit2: TDBEdit;

postav_DBEdit3: TDBEdit;

postav_Label2: TLabel;

postav_Label1: TLabel;

postav_DBEdit4: TDBEdit;

postav_Button1: TButton;

tovar_Label1: TLabel;

tovar_Label4: TLabel;

tovar_DBEdit2: TDBEdit;

tovar_DBEdit1: TDBEdit;

tovar_DBMemo1: TDBMemo;

tovar_DBMemo2: TDBMemo;

tovar_DBEdit3: TDBEdit;

tovar_DBEdit4: TDBEdit;

tovar_DBEdit5: TDBEdit;

tovar_Label3: TLabel;

tovar_Label2: TLabel;

tovar_Button1: TButton;

personal_Label1: TLabel;

personal_Label2: TLabel;

personal_Label3: TLabel;

Label4: TLabel;

personal_Label5: TLabel;

personal_Label6: TLabel;

personal_DBMemo1: TDBMemo;

personal_DBEdit1: TDBEdit;

procedure FormActivate(Sender: TObject);

procedure tovar_Button1Click(Sender: TObject);

procedure postav_Button1Click(Sender: TObject);

procedure personal_Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

apteka_form: Tapteka_form;

implementation

{$R *.dfm}

var i1,i2,i3:integer;

procedure Tapteka_form.FormActivate(Sender: TObject);

begin

i1:=0;

i2:=0;

i3:=0;

tovar_dbedit1.Enabled:=false;

tovar_dbedit2.Enabled:=false;

tovar_dbedit3.Enabled:=false;

tovar_dbedit4.Enabled:=false;

tovar_dbedit5.Enabled:=false;

tovar_dbmemo1.Enabled:=false;

tovar_dbmemo2.Enabled:=false;

postav_dbedit1.Enabled:=false;

postav_dbedit2.Enabled:=false;

postav_dbedit3.Enabled:=false;

postav_dbedit4.Enabled:=false;

postav_dbmemo1.Enabled:=false;

personal_dbedit1.Enabled:=false;

personal_dbedit2.Enabled:=false;

personal_dbedit3.Enabled:=false;

personal_dbedit4.Enabled:=false;

personal_dbedit5.Enabled:=false;

personal_dbedit6.Enabled:=false;

personal_dbedit7.Enabled:=false;

personal_dbedit8.Enabled:=false;

personal_dbedit9.Enabled:=false;

personal_dbedit10.Enabled:=false;

personal_dbmemo1.Enabled:=false;

end;

procedure Tapteka_form.personal_Button1Click(Sender: TObject);

begin

if i3=0

then

begin

personal_dbedit1.Enabled:=true;

personal_dbedit2.Enabled:=true;

personal_dbedit3.Enabled:=true;

personal_dbedit4.Enabled:=true;

personal_dbedit5.Enabled:=true;

personal_dbedit6.Enabled:=true;

personal_dbedit7.Enabled:=true;

personal_dbedit8.Enabled:=true;

personal_dbedit9.Enabled:=true;

personal_dbedit10.Enabled:=true;

personal_dbmemo1.Enabled:=true;

personal_button1.Caption:='Принять';

i3:=1;

end

else

begin

personal_dbedit1.Enabled:=false;

personal_dbedit2.Enabled:=false;

personal_dbedit3.Enabled:=false;

personal_dbedit4.Enabled:=false;

personal_dbedit5.Enabled:=false;

personal_dbedit6.Enabled:=false;

personal_dbedit7.Enabled:=false;

personal_dbedit8.Enabled:=false;

personal_dbedit9.Enabled:=false;

personal_dbedit10.Enabled:=false;

personal_dbmemo1.Enabled:=false;

personal_button1.Caption:='Редактировать';

i3:=0;

end;

end;

procedure Tapteka_form.postav_Button1Click(Sender: TObject);

begin

if i2=0

then

begin

postav_dbedit1.Enabled:=true;

postav_dbedit2.Enabled:=true;

postav_dbedit3.Enabled:=true;

postav_dbedit4.Enabled:=true;

postav_dbmemo1.Enabled:=true;

postav_button1.Caption:='Принять';

i2:=1;

end

else

begin

postav_dbedit1.Enabled:=false;

postav_dbedit2.Enabled:=false;

postav_dbedit3.Enabled:=false;

postav_dbedit4.Enabled:=false;

postav_dbmemo1.Enabled:=false;

postav_button1.Caption:='Редактировать';

i2:=0;

end;

end;

procedure Tapteka_form.tovar_Button1Click(Sender: TObject);

begin

if i1=0

then

begin

tovar_dbedit1.Enabled:=true;

tovar_dbedit2.Enabled:=true;

tovar_dbedit3.Enabled:=true;

tovar_dbedit4.Enabled:=true;

tovar_dbedit5.Enabled:=true;

tovar_dbmemo1.Enabled:=true;

tovar_dbmemo2.Enabled:=true;

tovar_button1.Caption:='Принять';

i1:=1;

end

else

begin

tovar_dbedit1.Enabled:=false;

tovar_dbedit2.Enabled:=false;

tovar_dbedit3.Enabled:=false;

tovar_dbedit4.Enabled:=false;

tovar_dbedit5.Enabled:=false;

tovar_dbmemo1.Enabled:=false;

tovar_dbmemo2.Enabled:=false;

tovar_button1.Caption:='Редактировать';

i1:=0;

end;

end;

end.

36