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

ked THEN.ADOTable1.SORT: =' Ціна у е '; RADIOBUTTON4.Checked THEN.ADOTable1.SORT: =' Ціна руб '; RADIOBUTTON5.Checked THEN.ADOTable1.SORT: =' Гарантія '; RADIOBUTTON6.Checked THEN.ADOTable1.SORT: = 'Кількість';; TForm4.Button2Click (Sender: TObject);. show;. Visible: = False;;

end.

Четверта форма є вікном додавання даних до бази даних. Лістинг четвертої форми:

unit Unit4;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, jpeg, ExtCtrls, StdCtrls, XPMan; = class (TForm): TButton;: TButton;: TPanel;: TLabel; : TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TImage;: TImage; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Edit1KeyPress (Sender: TObject; var Key: Char); Edit4KeyPress (Sender: TObject; var Key: Char); Edit5KeyPress (Sender: TObject; var Key: Char); Edit7KeyPress (Sender: TObject; var Key: Char) ; Edit8KeyPress (Sender: TObject; var Key: Char);

{Private declarations}

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

{$ R *. dfm} TForm5.Button1Click (Sender: TObject);. ADOTable1.Insert;

DATAMODULE2.ADOTable1.FieldByName ('Êîä_òîâàðà'). AsString

: = EDIT1.Text;

DATAMODULE2.ADOTable1.FieldByName ('Íàèìåíîâàíèå'). AsString

: = EDIT2.Text;

DATAMODULE2.ADOTable1.FieldByName ('Êîëè ÷ åñòâî'). AsString

: = EDIT3.Text;

DATAMODULE2.ADOTable1.FieldByName ('Г–ГҐГ­Г _Гі_ГҐ'). AsString

: = EDIT4.Text;

DATAMODULE2.ADOTable1.FieldByName ('Öåíà_ðóá). AsString

: = edit5.Text;

DATAMODULE2.ADOTable1.FieldByName ('Ãàðàíòèÿ'). AsString

'0 '.. '9':;

# 8:;

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

'0 '.. '9':;

# 8:;

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

'0 '.. '9':;

# 8:;

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

'0 '.. '9':;

# 8:;

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

...