Class TForm1 (unit test)

Inherits from

TForm

Constructors



Functions

procedure DBEditFloat1Enter(Sender: TObject);


procedure FormCreate(Sender: TObject);

Oh, yeah, - this is nessacary, otherwise you can write what you want, but the first time you chooses to edit the database the changes will be overwritten.

procedure FormDestroy(Sender: TObject);


Properties

Events

Variables

DataSource1 : TDataSource;


DBEdit1 : TDBEdit;


DBEdit2 : TDBEdit;


DBEdit3 : TDBEdit;


DBEdit4 : TDBEdit;


DBEdit5 : TDBEdit;


DBEdit6 : TDBEdit;


DBEditFloat1 : TDBEditFloat;


DBEditFloat2 : TDBEditFloat;


DBNavigator1 : TDBNavigator;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


Panel1 : TPanel;


Panel2 : TPanel;


Table1 : TTable;


Table1Custno : TAutoIncField;


Table1Customeradress : TStringField;


Table1Customercountry : TStringField;


Table1Customername : TStringField;


Table1Customertown : TStringField;


Table1Customerzip : TStringField;


Table1Ourdiscount : TFloatField;


Table1Saleslastyear : TCurrencyField;


Table1Theirdiscount : TFloatField;



Constructors


Functions


procedure DBEditFloat1Enter(Sender: TObject);


procedure FormCreate(Sender: TObject);

Oh, yeah, - this is nessacary, otherwise you can write what you want, but the first time you chooses to edit the database the changes will be overwritten. - Try to outcomment it.


procedure FormDestroy(Sender: TObject);


Properties


Events


Variables


DataSource1 : TDataSource;


DBEdit1 : TDBEdit;


DBEdit2 : TDBEdit;


DBEdit3 : TDBEdit;


DBEdit4 : TDBEdit;


DBEdit5 : TDBEdit;


DBEdit6 : TDBEdit;


DBEditFloat1 : TDBEditFloat;


DBEditFloat2 : TDBEditFloat;


DBNavigator1 : TDBNavigator;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


Panel1 : TPanel;


Panel2 : TPanel;


Table1 : TTable;


Table1Custno : TAutoIncField;


Table1Customeradress : TStringField;


Table1Customercountry : TStringField;


Table1Customername : TStringField;


Table1Customertown : TStringField;


Table1Customerzip : TStringField;


Table1Ourdiscount : TFloatField;


Table1Saleslastyear : TCurrencyField;


Table1Theirdiscount : TFloatField;