Реферат Управління базою даних Sport Shoes NIKE

> # 8:;

# 13: Edit1.SetFocus; Key: = Chr (0);;; TForm5.Edit16KeyPress (Sender: TObject; var Key: Char); Key of

'0 '.. '9':;

# 8:;

# 13: Edit1.SetFocus; Key: = Chr (0);

end;;.

Шоста форма: Проводить вибірку даних по заданій умові

пользователя.Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, StdCtrls, jpeg, ExtCtrls, XPMan; = class (TForm): TGroupBox;: TGroupBox ;: TEdit;: TButton;: TButton;: TButton;: TRadioButton;: TRadioButton;: TRadioButton;: TRadioButton;: TRadioButton;: TRadioButton;: TXPManifest;: TDBGrid;: TImage; Button1Click (Sender: TObject); Button2Click (Sender : TObject); Button3Click (Sender: TObject); Edit1KeyPress (Sender: TObject; var Key: Char);

{Private declarations}

{Public declarations};: TForm6; Unit2, Unit3;

{$ R *. dfm} TForm6.Button1Click (Sender: TObject);, r: variant;

if radiobutton1.Checked then t: = 'Êîä_òîâàðà'; radiobutton4.Checked then t: = 'Öåíà_ó_å'; radiobutton5.Checked then t: = 'Öåíà_ðóá';;

if radiobutton9.Checked then r: = '='; radiobutton11.Checked then r: = '<'; radiobutton10.Checked then r: = '>'; DATAMODULE2.ADOTable2 do begin: = False;: = t + r + edit1.text;: = True; end;; TForm6.Button2Click (Sender: TObject);. Text: ='';. Visible: = False;. show;; TForm6.Button3Click ( Sender: do begin: = False;;; TForm6.Edit1KeyPress (Sender: TObject; var Key: Char); Key of

'0 '.. '9':;

# 8:;

# 13: Edit1.SetFocus; Key: = Chr (0);

end;; end.

Сьома форма: Форма В«Про програмуВ».

unit Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, jpeg, ExtCtrls, StdCtrls, XPMan; = class (TForm): TButton;: TXPManifest;: TImage;: TStaticText;: TStaticText;: TStaticText;: TStaticText;: TStaticText; Button1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm7; Unit3;

{$ R *. dfm} TForm7.Button1Click (Sender: TObject);. show;. Visible: = False;; end.

Восьма форма: Проводить редагування даних.

unit Unit8;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Mask, DBCtrls, jpeg, ExtCtrls; = class (TForm): TButton;: TButton;: TPanel ;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TImage; Button1Click (Sender: TObject); Button2Click (Sender : TObject);

{Private declarations}

{Public declarations};: TForm8; Unit...