nder: TObject);
{Private declarations}
{Public declarations};: TForm6;
Unit2, Unit5;
{$ R *. dfm} TForm6.Button3Click (Sender: TObject);. Show; Form6.Hide;; TForm6.Button4Click (Sender: TObject);. close;. sql.Clear;. sql.add ('select *');. sql.add ('from Постачальники');. Open;; TForm6.Button1Click (Sender: TObject);. Close;. sql.Clear;. sql.Add ('delete from Постачальники ');. sql.Add (' where TObject);. Close;. SQL.Clear;
ADOQuery1.SQL.add ('Insert into Постачальники (Код_поставщіка, наіменованіе_організаціі)');
ADOQuery1.SQL.Add ('Values ​​(''' + edit2.Text +'' ',''' + Edit3.Text +'' ')');. Open;;. Unit7;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, jpeg, ExtCtrls, StdCtrls; = class (TForm): TLabel;: TLabel;: TLabel;: TLabel;: TLabel; : TLabel;: TImage;: TButton; Button1Click (Sender: TObject);
{Private declarations}
{Public declarations};
: TForm7; Unit1;
{$ R *. dfm} TForm7.Button1Click (Sender: TObject);. Show; Form7.Hide;
end;
end.
