IBTable, frxClass; = class (TForm): TDataSource;: TDBGrid;: TMemo;: TGroupBox;: TProgressBar;: TTimer;: TButton;: TIBQuery;: TIBDatabase;: TIBDataSet;: TIBTransaction;: TComboBox;: TButton;: TButton ;: TButton;: TLabel;: TComboBox;: TLabel;: TButton;: TGroupBox;: TButton;: TButton;: TButton;: TGroupBox;: TButton;: TButton;: TButton;: TRadioGroup;: TEdit;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TGroupBox;: TButton;: TRadioGroup;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TRadioGroup;: TEdit;: TEdit;: TEdit;: TGroupBox; : TLabel;: TLabel;: TEdit;: TButton;: TDBGrid;: TGroupBox;: TButton;: TButton;: TButton;: TGroupBox;: TButton;: TButton;: TButton;: TButton;: TIBQuery;: TDataSource;: TIBDataSet ;: TIBTransaction;: TIBDatabase;: TMemo;: TButton;: TLabel;: TLabel;: TGroupBox;: TButton;: TButton;: TButton;: TButton;: TGroupBox;: TButton;: TLabel;: TEdit;: TButton; Button1Click (Sender: TObject); Timer1Timer (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); Button5Click (Sender: TObject); ComboBox1Change (Sender: TObject); ComboBox2Change ( Sender: TObject); Button6Click (Sender: TObject); Button7Click (Sender: TObject); Button8Click (Sender: TObject); RadioGroup1Click (Sender: TObject); Button9Click (Sender: TObject); Button10Click (Sender: TObject); Button11Click (Sender : TObject); Button12Click (Sender: TObject); RadioGroup2Click (Sender: TObject); Button13Click (Sender: TObject); RadioGroup3Click (Sender: TObject); Button14Click (Sender: TObject); Button19Click (Sender: TObject); Button20Click (Sender: TObject); Button21Click (Sender: TObject); Button18Click (Sender: TObject); Button17Click (Sender: TObject); Button16Click (Sender: TObject); Button22Click (Sender: TObject); Button15Click (Sender: TObject); Button23Click (Sender: TObject ); Button24Click (Sender: TObject); Button25Click (Sender: TObject); Button26Click (Sender: TObject); Button27Click (Sender: TObject); Button28Click (Sender: TObject);
{Private declarations};: TForm1;, Flag1: Boolean;: Boolean = false;: integer; Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
{$ R *. dfm} TForm1.Button1Click (Sender: TObject);// maini: integer;. MessageBox ('Клієнт по роботі з БД. Євген Лукін, І493', 'Про програму' );
end; TForm1.Timer1Timer (Sender: TObject);// filling TObject);// help (Handle, 'open',
'c: windows notepad.exe', 'help.txt', nil, _SHOWNORMAL);; TForm1.Button3Click (Sender: TObject); ComboBox1.Text = 'Дані:' then
begin.MessageBox ('Виберіть дані для додавання', 'Додавання даних');
exit; ComboBox1.Text = 'Інформація про магазин' then
begin.MessageBox ('У базі даних тільки один магазин', 'Магазин');
exit; ComboBox1.Text ...
