DOQuery1.sql.add ('and
ADOQuery1.Open;; TForm4.Button4Click (Sender: TObject);: string;: = Edit1.text;: = '%' + d + '.' + Edit2.text;. close;. sql.Clear;. sql.add ('select *');. sql.add ('from Учет_товаров_і_услуг');. sql.add ('where (Дата Like''' + d +'' ')');. sql.add ('and (Код_товара_услугі> 200) ');. Open;; TForm4.Button9Click (Sender: TObject);. Show; Form4.Hide;;
TForm4.Button5Click (Sender: TObject);: string;: = Edit1.text;: = '%' + d + '.' + Edit2.text;. close;. sql.Clear;. sql.add (' select count (Дата) As [Всего_продаж] ');. sql.add (' from Учет_товаров_і_услуг ');. sql.add (' where (Дата Like'' '+ d +''') ');. Open;; TForm4 . Button7Click (Sender: TObject);: string;: = Edit1.text;: = '%' + d + '.' + Edit2.text;. close;. sql.Clear;. sql.add ('select Фамілія_кліента') ;. sql.add ('from Учет_товаров_і_услуг');. sql.add ('where (Дата Like''' + d +'' ')');. Open;; TForm4.Button8Click (Sender: TObject);: string; : = Edit1.text;: = '%' + d + '.' + Edit2.text;. close;. sql.Clear;. sql.add ('select Дата, Код_товара_услугі, sum (кол_во_екземпляров)');. sql. add ('from Учет_товаров_і_услуг');. sql.add ('where (Дата Like''' + d +'' ')');. sql.add ('and (Код_товара_услугі> 200)');. sql.add ('group by Код_товара_услугі');. Open;; TForm4.Button2Click (Sender: TObject);: string;: = Edit1.text;: = '%' + d + '.' + Edit2.text;. close;. sql . Clear;. sql.add ('select *');. sql.add ('from Учет_товаров_і_услуг');. sql.add ('where (Дата Like''' + d +'' ')');. sql. add ('and (Код_товара_услугі> 100)');. sql.add ('and (Код_товара_услугі <200)');. Open;;. Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, DB, ADODB; = class (TForm): TGroupBox;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TGroupBox;: TLabel;: TEdit;: TButton;: TGroupBox;: TLabel;: TLabel;: TEdit;: TEdit;: TButton;: TButton;: TADOQuery; Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button1Click (Sender: TObject); Button4Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm5; Unit2;
{$ R *. dfm} TForm5.Button2Click (Sender: TObject);. Show; Form5.Hide;; TForm5.Button3Click (Sender: TObject);. Close;. SQL.Clear;. sql.Add (' delete from Товари_і_услугі ');. sql.Add (' where Найменування ='' '+ edit1.Text +'''');. Open;; TForm5.Button1Click (Sender: TObject);. Close;. SQL.Clear;. SQL.add ('update Товари_і_услугі');. SQL.Add ('set Вартість =''' + Edit3.Text +'''');. SQL.Add ('where Найменування =&#...
