Реферат Облік товарів і послуг у фотосалоні

9;);. sql.add ('where Код_товара_услугі> 200');. Open;; TForm2.Button11Click (Sender: TObject);. close;. sql.Clear;. sql.add (' select count (Код_товара_услугі) As [Всего_товаров] ');. sql.add (' from Товари_і_услугі ');. sql.add (' where (Код_товара_услугі> 100) ');. sql.add (' and (Код_товара_услугі < 200) ');. Open;;. Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ADODB, DB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids; = class (TForm): TDBGrid; : TDataSource;: TDBNavigator;: TButton;: TButton;: TButton;: TGroupBox;: TLabel;: TEdit;: TButton;: TGroupBox;: TDBGrid;: TButton;: TButton;: TButton;: TADOConnection;: TADOTable;: TADOQuery ;: TDataSource; Button7Click (Sender: TObject); Button2Click (Sender: TObject); Button1Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); Button5Click (Sender: TObject); Button6Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm3; Unit1;

{$ R *. dfm} TForm3.Button7Click (Sender: TObject);. Show; Form3.Hide;; TForm3.Button2Click (Sender: TObject);. IndexFieldNames: = 'ПІБ';. Filtered: = True;; TForm3.Button1Click (Sender: TObject);. IndexFieldNames: = 'Посада';. Filtered: = True;; TForm3.Button4Click (Sender: TObject);. Locate ('ПІБ', Edit1.Text, []);; TForm3.Button5Click (Sender: TObject );. close;. sql.Clear; 1.sql.add ('select count (Код_сотрудніка) AS [Общее_количество_сотрудников]');

ADOQuery1.sql.add ('from Співробітники');

ADOQuery1.Open;; TForm3.Button6Click (Sender: TObject);. close;. sql.Clear; 1.sql.add ('select Посада, count (Код_сотрудніка) AS [колічество_сотрудніков]') ;

ADOQuery1.sql.add ('from Співробітники');

ADOQuery1.sql.add ('group by Посада');. Open;;. Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ComCtrls, DB, ADODB, Grids, DBGrids; = class (TForm): TDBGrid;: TADOQuery;: TDataSource;: TButton;: TGroupBox;: TLabel;: TEdit;: TEdit;: TButton;: TButton;: TButton;: TButton;: TButton; Button1Click (Sender: TObject); Button4Click (Sender: TObject); Button9Click (Sender: TObject); Button5Click (Sender: TObject); Button7Click (Sender: TObject); Button8Click (Sender: TObject); Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm4; Unit1;

{$ R *. dfm} TForm4.Button1Click (Sender: TObject);. close;. sql.Clear; 1.sql.add ('select Дата, Фамілія_кліента, Найменування, Кол_во_екземпляров, ПІБ' );

ADOQuery1.sql.add ('from Учет_товаров_і_услуг, Товари_і_услугі, Співробітники');

ADOQuery1.sql.add ('where ; p align="justify"> A...