Class TAddressable (unit addbo) |
Inherits from
T_BizObj
procedure AddressableCreate(Sender: TObject);
check to see if all the records have been posted
procedure Table1BeforeClose(DataSet: TDataSet);
check to see if the record can be inserted
procedure Table1BeforeEdit(DataSet: TDataSet);
set up defaults for records
procedure Table1BeforeInsert(DataSet: TDataSet);
check for the editablity of the record
procedure Table1BeforePost(DataSet: TDataSet);
procedure Table1NewRecord(DataSet: TDataSet);
put code here to check for RI
procedure Table1TableRowValidation(Dataset: TDataSet; Field: TField;
EO: TErrorObject);
procedure Dial;
Public interface for this object
function FindAddress: Boolean;
Abstract Methods to be implemented by decendent classes
function PrintEnvelope : Boolean;
function PrintLabel : Boolean;
procedure VerifyAddress;
DataSource1 : TDataSource;
ErrorObject1 : TErrorObject;
Table1 : TCBNTable;
Table1Address1 : TStringField;
Table1Address2 : TStringField;
Table1City : TStringField;
Table1InUseBy : TStringField;
Table1InUseFlag : TBooleanField;
Table1InUseTime : TIntegerField;
Table1State : TStringField;
Table1Suite_Apt : TStringField;
Table1Zip : TStringField;
procedure AddressableCreate(Sender: TObject);
check to see if all the records have been posted
procedure Table1BeforeClose(DataSet: TDataSet);
check to see if the record can be inserted
procedure Table1BeforeEdit(DataSet: TDataSet);
set up defaults for records
procedure Table1BeforeInsert(DataSet: TDataSet);
check for the editablity of the record
procedure Table1BeforePost(DataSet: TDataSet);
procedure Table1NewRecord(DataSet: TDataSet);
put code here to check for RI
procedure Table1TableRowValidation(Dataset: TDataSet; Field: TField;
EO: TErrorObject);
procedure Dial;
Public interface for this object
function FindAddress: Boolean;
Abstract Methods to be implemented by decendent classes
function PrintEnvelope : Boolean;
function PrintLabel : Boolean;
procedure VerifyAddress;
DataSource1 : TDataSource;
ErrorObject1 : TErrorObject;
Table1 : TCBNTable;
Table1Address1 : TStringField;
Table1Address2 : TStringField;
Table1City : TStringField;
Table1InUseBy : TStringField;
Table1InUseFlag : TBooleanField;
Table1InUseTime : TIntegerField;
Table1State : TStringField;
Table1Suite_Apt : TStringField;
Table1Zip : TStringField;