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;