ustify"> Основний текст програми;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, DB, Grids, DBGrids, ADODB;=class (TForm): TADOTable;: TADOConnection ;: TDBGrid;: TDataSource; DSDesigner: TAutoIncField; DSDesigner2: TWideStringField; DSDesigner3: TWideStringField; DSDesigner4: TDateTimeField; DSDesigner5: TWideStringField; DSDesigner6: TIntegerField;: TBitBtn;: TBitBtn;: TBitBtn;: TADOTable;: TADOConnection;: TDataSource;: TDBGrid;: TBitBtn;: TBitBtn;: TADOTable;: TADOConnection;: TDataSource;: TDBGrid; DSDesigner: TAutoIncField; DSDesigner2: TWideStringField;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn; DSDesigner : TAutoIncField; DSDesigner2: TWideStringField; DSDesigner3: TIntegerField;: TLabel;: TLabel;: TLabel; BitBtn3Click (Sender: TObject); BitBtn6Click (Sender: TObject); BitBtn5Click (Sender: TObject); BitBtn7Click (Sender: TObject); BitBtn9Click ( Sender: TObject); BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject); BitBtn8Click (Sender: TObject); BitBtn10Click (Sender: TObject); BitBtn11Click (Sender: TObject); BitBtn12Click (Sender: TObject); BitBtn4Click (Sender : TObject);
{Private declarations}
{Public declarations};: TForm1; Unit2, Unit4, Unit5, Unit6, Unit7, Unit3, Unit8, Unit10;
{$ R *. dfm} TForm1.BitBtn3Click (Sender: TObject);. Delete;; TForm1.BitBtn6Click (Sender: TObject);. QuickRep1.Preview;; TForm1.BitBtn5Click (Sender: TObject );. showmodal;; TForm1.BitBtn7Click (Sender: TObject);. showmodal;; TForm1.BitBtn9Click (Sender: TObject);. QuickRep1.Preview;; TForm1.BitBtn1Click (Sender: TObject);. ShowModal;; TForm1.BitBtn2Click (Sender: TObject);. showmodal;; TForm1.BitBtn8Click (Sender: TObject);. Delete;; TForm1.BitBtn10Click (Sender: TObject);. showmodal;; TForm1.BitBtn11Click (Sender: TObject);. showmodal;; TForm1 . BitBtn12Click (Sender: TObject);. Delete;; TForm1.BitBtn4Click (Sender: TObject);. close;;
