Реферат Облік товарів у хлібному магазині

#39;);. sql.add (' and (Товар.Код_товара = Продажа.Код_товара) ');. sql.add ( 'GROUP BY Товар.Наіменованіе;');

ADOQuery1.Open;;. Unit3;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, DB, ADODB; = class (TForm): TDBGrid;: TGroupBox;: TEdit;: TButton;: TButton;: TButton;: TButton;: TGroupBox;: TEdit;: TButton;: TButton;: TButton;: TADOTable;: TDataSource;: TDBNavigator; Button7Click (Sender: TObject); Button6Click (Sender: TObject ); Button5Click (Sender: TObject); Button1Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm3; Unit1, Unit2;

{$ R *. dfm}

TForm3.Button7Click (Sender: TObject);. Show; Form3.Hide;; TForm3.Button6Click (Sender: TObject);. Show; Form3.Hide;; TForm3.Button5Click (Sender: TObject) ;. Locate ('найменування', Edit2.Text, []);; TForm3.Button1Click (Sender: TObject);. Filter: = Edit1.Text;. Filtered: = True;; TForm3.Button3Click (Sender: TObject); . IndexFieldNames: = 'найменування';. Filtered: = True;; TForm3.Button4Click (Sender: TObject);. IndexFieldNames: = 'ціна';. Filtered: = True;; TForm3.Button2Click (Sender: TObject);. Filtered : = False;;. Unit4;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, ADODB; = class (TForm): TEdit;: TEdit;: TEdit;: TLabel;: TEdit; : TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TButton;: TButton;: TADOTable; Button2Click (Sender: TObject); Button1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm4; Unit2;

{$ R *. dfm} TForm4.Button2Click (Sender: TObject);. Show; Form4.Hide;; TForm4.Button1Click (Sender:

. Unit5;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, ADODB; = class (TForm): TEdit;: TLabel;: TEdit;: TEdit;: TLabel; : TLabel;: TLabel;: TButton;: TButton;: TADOTable; Button2Click (Sender: TObject); Button1Click (Sender: TObject);

{Private declarations}

{Public declarations};

: TForm5; Unit2;

{$ R *. dfm} TForm5.Button2Click (Sender: TObject);. Show; Form5.Hide;; TForm5.Button1Click (Sender: Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Grids, DBGrids, DB, ADODB; = class (TForm): TDBGrid;: TGroupBox;: TEdit;: TLabel;: TButton;: TGroupBox;: TLabel ;: TEdit;: TLabel;: TEdit;: TButton;: TButton;: TADOQuery;: TDataSource;: TButton; Button3Click (Sender: TObject); Button4Click (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Se...