Inherits from
TForm
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);
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;
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);
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;