Реферат Розробка програмного комплексу ведення бази даних товарів ПРОДОВОЛЬЧИХ магазину

: TObject); BitBtn8Click (Sender: TObject); BitBtn7Click (Sender: TObject); BitBtn9Click (Sender: TObject); N5Click (Sender: TObject); N6Click (Sender: TObject); N7Click (Sender: TObject); N1Click (Sender: TObject); N2Click (Sender: TObject); N3Click (Sender: TObject); N8Click (Sender: TObject);

{Private declarations}

{Public declarations};

: TForm1;

Unit2, Unit3, Unit4, Unit6, Unit7, Unit5;

{$ R *. dfm}

TForm1. BitBtn1Click (Sender: TObject);. Show;;

TForm1. BitBtn2Click (Sender: TObject);

ADOQuery1. Close;. SQL. Clear;. SQL. Add («SELECT * From Baza1»);. Open;

end;

TForm1. BitBtn3Click (Sender: TObject);. Delete;;

TForm1. BitBtn4Click (Sender: TObject);. Show;;

TForm1. BitBtn5Click (Sender: TObject);. Show;;

TForm1. BitBtn6Click (Sender: TObject);. SQL. Clear;. SQL. Add («SELECT * FROM Baza1 WHERE Discount> 0»);. Active:=True; e: Exception do;;

TForm1. BitBtn8Click (Sender: TObject);. Show;;

TForm1. BitBtn7Click (Sender: TObject);;;

TForm1. BitBtn9Click (Sender: TObject);. Show;;

TForm1.N5Click (Sender: TObject);. ADOQuery1. Sort:=«Product_name»;;

TForm1.N6Click (Sender: TObject);. ADOQuery1. Sort:=«Commodity_price»;;

TForm1.N7Click (Sender: TObject);. ADOQuery1. Sort:=«Discount»;;

TForm1.N1Click (Sender: TObject);. Show;;

TForm1.N2Click (Sender: TObject);. Delete;;

TForm1.N3Click (Sender: TObject);. Show;;

TForm1.N8Click (Sender: TObject);. Show;;

.

Лістінг А.2 - код Form2

Unit2;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, DB, ADODB, jpeg, ExtCtrls;

=class (TForm): TBitBtn;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TADOQuery;: TImage;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TBitBtn; BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject); Edit3KeyPress (Sender: TObject; var Key: Char); Edit5KeyPress (Sender: TObject; var Key: Char); Edit7KeyPress (Sender: TObject; var Key: Char); FormCreate (Sender: TObject);

{Private declarations}

{Public declarations};

: TForm2;

Unit1;

{$ R *. dfm}

TForm2. BitBtn1Click (Sender: TObject);. AdoConnection1. BeginTrans;. Close;. Parameters. ParamByName («cod»). Value:=Edit1. Text;. Parameters. ParamByName («Produ»). Value:=Edit2. Text;. Parameters. ParamByName («Com»). Value:=Edit3. Text;. Parameters. ParamByName («Manu»). Value:=Edit4. Text;. Parameters. ParamByName («Shelf»). Value:=Edit5. Text;. Parameters. ParamByName («Dep»). Value:=Edit6. Text;. Parameters. ParamByName («Dis»). Value:=Edit7. Text;. ExecSQL; («Помилка»);. AdoConnection1. R...