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

», # 8, # 13: Key:=chr (0);;;

TForm4.DBEdit7KeyPress (Sender: TObject; var Key: Char); Key of

«,», «.», «0» .. «9», # 8, # 13: Key:=chr (0);;;

TForm4. FormCreate (Sender: TObject);

;

.

Лістінг А.5 - код Form5

Unit5;

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

=class (TForm): TImage;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel; FormCreate (Sender: TObject);

{Private declarations}

{Public declarations};

: TForm5;

{$ R *. dfm}

TForm5. FormCreate (Sender: TObject);

;

.

Лістінг А.6 - код Form6

Unit6;

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

=class (TForm): TEdit;: TBitBtn;: TImage; Edit1Change (Sender: TObject); BitBtn1Click (Sender: TObject); FormCreate (Sender: TObject);

{Private declarations}

{Public declarations};

: TForm6;

Unit1;

{$ R *. dfm}

TForm6. Edit1Change (Sender: TObject);. ADOQuery1. Filtered:=false; (Edit1. Text <>" ") then.ADOQuery1. Filter:=« (Department_store LIKE" %" + Edit1. Text +" %«) »;. ADOQuery1. Filtered:=true;;; TForm6. BitBtn1Click (Sender: TObject);;;

TForm6. FormCreate (Sender: TObject);

end;

.

Лістінг А.7 - код Form7

Unit7;

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

=class (TForm): TRadioGroup;: TEdit;: TBitBtn;: TADOQuery;: TDataSource;: TDBGrid;: TBitBtn;: TImage; BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject) ; Edit1KeyPress (Sender: TObject; var Key: Char); FormCreate (Sender: TObject);

{Private declarations}

{Public declarations};

: TForm7;

Unit1;

{$ R *. dfm}

TForm7. BitBtn1Click (Sender: TObject); RadioGroup1. ItemIndex=0 then begin. Close;. SQL. Clear;. SQL. Add («SELECT * FROM Baza1 WHERE Commodity_price>: sum»);. Close;. Parameters. ParamByName («sum»). Value:=StrToFloat (Edit1. Text);. Open; («Помилка»);;;. Close;. SQL. Clear;. SQL. Add («SELECT * FROM Baza1 WHERE Commodity_price <: sum»);. Close;. Parameters. ParamByName («sum»). Value:=StrToFloat (Edit1. Text);. Open; («Помилка»);;

;

;;

TForm7. BitBtn2Click (Sender: TObject);;;

TForm7. Edit1KeyPress (Sender: TObject; var Key: Char); Key of

«,», «.», «0» .. «9», # 8, # 13: Key:=chr (0);...