Реферат Створення програмного продукту "Книжковий магазин"

er: TObject);

{Private declarations}

{Public declarations};: TForm5; Unit1, Unit2, Unit3, Unit4;

{$ R *. dfm} TForm5.Button1Click (Sender: TObject);;;. Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids; = class (TForm): TDBGrid;: TPanel;: TBitBtn;: TGroupBox ;: TButton;: TEdit;: TLabel;: TLabel; Button1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm6; Unit1, Unit2, Unit3;

{$ R *. dfm} TForm6.Button1Click (Sender: TObject); LookupResult: variant;: = dm.knigi.Lookup ('nazvanie', Edit1.Text, 'avtor; god_izdaniya') ; VarType (LookupResult) = varNull then ('У базі немає книги з назвою' + Edit1.Text) if VarType (LookupResult) = varEmpty then ('Пошук не було здійснено') if VarIsArray (LookupResult) then.Caption: = LookupResult [0 ];. Caption: = LookupResult [1];;;. Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls; = class (TForm): TPanel; : TDBGrid;: TBitBtn;

{Private declarations}

{Public declarations};: TForm7; Unit1, Unit2, Unit3;

{$ R *. dfm}. Unit8;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls; = class (TForm): TPanel;: TDBGrid;: TBitBtn;: TGroupBox;: TButton;: TButton;: TButton;: TButton;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender : TObject); Button5Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm8; Unit1, Unit2, Unit3, Unit4;

{$ R *. dfm} TForm8.Button1Click (Sender: TObject);. POKUPATELI.IndexFieldNames: = 'surname';; TForm8.Button2Click (Sender: TObject);. POKUPATELI.IndexFieldNames: = 'name';; TForm8.Button3Click (Sender: TObject);. POKUPATELI.IndexFieldNames: = 'otchestvo';; TForm8.Button4Click (Sender: TObject);. POKUPATELI.IndexFieldNames: = 'adres';; TForm8.Button5Click (Sender : TObject);. POKUPATELI.IndexFieldNames: = 'telefon';;. Unit9;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, RpCon, RpConDS, RpDefine, RpRave, StdCtrls, Buttons, Grids,, ExtCtrls ; = class (TForm): TPanel;: TDBGrid;: TBitBtn;: TButton;: TRvProject;: TRvDataSetConnection; Button1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm9; Unit1, Unit2, Unit3, Unit4;

{$ R *. dfm} TForm9.Button1Click (Sender: TObject);. ExecuteReport ('Report10');;. Unit10;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdC...