Материал: Автоматизация работы аквапарка

TForm5.BitBtn3Click(Sender: TObject);.Next;;

TForm5.BitBtn4Click(Sender: TObject);.Last;;

TForm5.RadioGroup1Click(Sender: TObject);.ADOTable1.Filtered:=false;radiogroup1.ItemIndex of

:begin:='Обоснование льготы';.ADOTable1.Filtered:=true;;

:begin:='Процент скидки' ;.ADOTable1.Filtered:=true;;;;TForm5.ADOTable1FilterRecord(DataSet: TDataSet;Accept: Boolean);RadioGroup1.ItemIndex of

:Accept:=DataSet[po]=Edit1.Text;

:Accept:=DataSet[po]=Edit1.Text;;;TForm5.BitBtn5Click(Sender: TObject);.ADOTable1.Locate('Код клиента',Edit2.Text,[loCaseInsensitive,loPartialKey]);;

.

Unit6;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB, QuickRpt, QRCtrls, ExtCtrls;

= class(TForm): TQuickRep;: TQRBand;: TQRBand;: TQRSysData;: TQRSubDetail;: TADOTable;: TDataSource;: TQRShape;: TQRDBText;: TQRShape;: TQRShape;: TQRShape;: TQRShape;: TQRShape;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;: TQRBand;: TQRLabel;: TQRSysData;: TQRShape;: TQRShape;: TQRShape;: TQRShape;: TQRShape;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRShape;: TQRLabel;

{ Private declarations }

{ Public declarations };

: TForm6;

{$R *.dfm}

.

Unit7;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, QuickRpt, QRCtrls, ExtCtrls, DB, ADODB;

= class(TForm): TQuickRep;: TQRBand;: TQRBand;: TQRSysData;: TQRSubDetail;: TDataSource;: TADOTable;: TQRDBText;: TQRShape;: TQRBand;: TQRSysData;: TQRLabel;: TQRShape;: TQRShape;: TQRShape;: TQRShape;: TQRShape;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRShape;: TQRShape;: TQRShape;: TQRShape;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRShape;: TQRShape;: TQRLabel;: TQRLabel;: TQRShape;: TQRShape;: TQRShape;: TQRShape;: TQRShape;: TQRShape;: TQRShape;: TQRShape;: TQRShape;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;

{ Private declarations }

{ Public declarations };

: TForm7;

{$R *.dfm}

.

Unit8;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, Grids, DBGrids, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls,;

= class(TForm): TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TBitBtn;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;BitBtn1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm8;

Unit2;

{$R *.dfm}

TForm8.BitBtn1Click(Sender: TObject);ppp:integer;.ADOTable1.Last; //перемещ. курсор на последнюю позицию:=Form2.ADOTable1.RecNo+1;.ADOTable1.Insert;PPP=0 then ppp:=1;.ADOTable1.Insert;.ADOTable1.FieldByName('Код клиента').Value:=Edit1.Text;.ADOTable1.FieldByName('Фамилия').Value:=Edit2.Text;.ADOTable1.FieldByName('Имя').Value:=Edit3.Text;.ADOTable1.FieldByName('Отчество').Value:=Edit4.Text;.ADOTable1.FieldByName('Год рождения').Value:=Edit5.Text;.ADOTable1.FieldByName('Возраст').Value:=IntToStr(2014-StrToInt(Form8.Edit5.Text));.ADOTable1.Post;.Close;.Edit2.Text:='';.Edit3.Text:='';.Edit4.Text:='';.Edit5.Text:='';;

. unit Unit8;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, Grids, DBGrids, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls,;

= class(TForm): TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TBitBtn;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;BitBtn1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm8;

Unit2;

{$R *.dfm}

TForm8.BitBtn1Click(Sender: TObject);ppp:integer;.ADOTable1.Last; //перемещ. курсор на последнюю позицию:=Form2.ADOTable1.RecNo+1;.ADOTable1.Insert;PPP=0 then ppp:=1;.ADOTable1.Insert;.ADOTable1.FieldByName('Код клиента').Value:=Edit1.Text;.ADOTable1.FieldByName('Фамилия').Value:=Edit2.Text;.ADOTable1.FieldByName('Имя').Value:=Edit3.Text;.ADOTable1.FieldByName('Отчество').Value:=Edit4.Text;.ADOTable1.FieldByName('Год рождения').Value:=Edit5.Text;.ADOTable1.FieldByName('Возраст').Value:=IntToStr(2014-StrToInt(Form8.Edit5.Text));.ADOTable1.Post;.Close;.Edit2.Text:='';.Edit3.Text:='';.Edit4.Text:='';.Edit5.Text:='';;

.

Unit9;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB, QRCtrls, QuickRpt, ExtCtrls;

= class(TForm): TADOTable;: TDataSource;: TQuickRep;: TQRSubDetail;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;: TQRBand;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRSysData;: TQRLabel;: TQRLabel;

{ Private declarations }

{ Public declarations };

: TForm9;

{$R *.dfm}

.