Class TForm1 (unit Validatu)
Inherits from
TForm
Constructors
Functions
procedure AppException(Sender: TObject; E: Exception);
procedure Exit1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Table1BeforePost(DataSet: TDataset);
procedure Table1VendorNoValidate(Sender: TField);
Properties
Events
Variables
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
DBNavigator1 : TDBNavigator;
Exit1 : TMenuItem;
File1 : TMenuItem;
MainMenu1 : TMainMenu;
Memo1 : TMemo;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
Table1 : TTable;
Table1Address1 : TStringField;
Table1Address2 : TStringField;
Table1City : TStringField;
Table1Country : TStringField;
Table1FAX : TStringField;
Table1Phone : TStringField;
Table1Preferred : TBooleanField;
Table1State : TStringField;
Table1VendorName : TStringField;
Table1VendorNo : TFloatField;
Table1Zip : TStringField;
Constructors
Functions
procedure AppException(Sender: TObject; E: Exception);
procedure Exit1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Table1BeforePost(DataSet: TDataset);
procedure Table1VendorNoValidate(Sender: TField);
Properties
Events
Variables
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
DBNavigator1 : TDBNavigator;
Exit1 : TMenuItem;
File1 : TMenuItem;
MainMenu1 : TMainMenu;
Memo1 : TMemo;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
Table1 : TTable;
Table1Address1 : TStringField;
Table1Address2 : TStringField;
Table1City : TStringField;
Table1Country : TStringField;
Table1FAX : TStringField;
Table1Phone : TStringField;
Table1Preferred : TBooleanField;
Table1State : TStringField;
Table1VendorName : TStringField;
Table1VendorNo : TFloatField;
Table1Zip : TStringField;