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

1; Unit3, Unit4, Unit6, Unit2;

{$ R *. dfm} TForm1.Button2Click (Sender: TObject);. Show; Form1.Hide;; TForm1.Button1Click (Sender: TObject);. Show; Form1.Hide;; TForm1 . Button3Click (Sender: TObject);. Show; Form1.Hide;; TForm1.Button4Click (Sender: TObject);. Close;; TForm1.Button5Click (Sender: TObject);. Show; Form1.Hide;;. Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB; = class (TForm): TADOConnection;: TADOTable;: TDataSource;: TDBGrid;: TDBNavigator;: TButton;: TButton;: TButton;: TGroupBox;: TLabel;: TEdit;: TButton;: TGroupBox;: TEdit;: TButton;: TButton;: TGroupBox;: TLabel;: TEdit;: TButton;: TGroupBox;: TDBGrid; : TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TADOQuery;: TDataSource; Button12Click (Sender: TObject); Button13Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject ); Button1Click (Sender: TObject); Button4Click (Sender: TObject); Button7Click (Sender: TObject); Button5Click (Sender: TObject); Button6Click (Sender: TObject); Button8Click (Sender: TObject); Button10Click (Sender: TObject) ; Button9Click (Sender: TObject); Button11Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm2; Unit1, Unit5;

{$ R *. dfm} TForm2.Button12Click (Sender: TObject);. Show; Form2.Hide;; TForm2.Button13Click (Sender: TObject);. Show; Form2.Hide;; TForm2 . Button2Click (Sender: TObject);. IndexFieldNames: = 'Найменування';. Filtered: = True;; TForm2.Button3Click (Sender: TObject);. IndexFieldNames: = 'Вартість';. Filtered: = True;; TForm2.Button1Click (Sender: TObject);. Locate ('Найменування', Edit1.Text, []);; TForm2.Button7Click (Sender: TObject);. Locate ('Код_товара_услугі', Edit3.Text, []);; TForm2.Button5Click (Sender: TObject);. Filter: = Edit2.Text;. Filtered: = True;; TForm2.Button6Click (Sender: TObject);. Filtered: = False;; TForm2.Button8Click (Sender: TObject);. close;. sql.Clear ; 1.sql.add ('select Код_товара_услугі, Найменування, вартість');

ADOQuery1.sql.add ('from Товари_і_услугі');

ADOQuery1.sql.add ('where Код_товара_услугі> 200');

ADOQuery1.Open;; TForm2.Button10Click (Sender: TObject);. close;. sql.Clear; 1.sql.add ('select Код_товара_услугі, Найменування, вартість');

ADOQuery1.sql.add ('from Товари_і_услугі');

ADOQuery1.sql.add ('where (Код_товара_услугі> 100)');

ADOQuery1.sql.add ('and (Код_товара_услугі <200)');

ADOQuery1.Open;; TForm2.Button9Click (Sender: TObject);. close;. sql.Clear;. sql.add ('select count (Код_товара_услугі) As [Всего_услуг]');. sql . add ('from Товари_і_услугі...