Class TAddressable (unit addbo)

Inherits from

T_BizObj

Constructors



Functions

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;


Properties

Events

Variables

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;



Constructors


Functions


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;


Properties


Events


Variables


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;