39;'' + Edit2.text +'' '');. Open;; TForm5.Button4Click (Sender: TObject);. Close;. SQL.Clear; 1.SQL.add ('Insert into Товари_і_услугі (Код_товара_услугі, Найменування, Опис, вартість)');
ADOQuery1.SQL.Add ('Values ​​(''' + Edit4.Text +'' ',''' + edit5.Text +'' ',''' + Edit6.Text +'' ',''' + Edit7 . Text +'' ')');. Open;;. Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, ADODB; = class (TForm): TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TButton;: TADOQuery; Button1Click (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm6; Unit1;
{$ R *. dfm} TForm6.Button1Click (Sender: TObject);. Close;. SQL.Clear; 1.SQL.add ('Insert into Учет_товаров_і_услуг (Дата, Фамілія_кліента, Код_товара_услугі, Кол_во_екземпляров, код_сотрудніка)') ;
ADOQuery1.SQL.Add ('Values TObject);. Show; Form6.Hide;;. br/>
