TMain -
TPhoneTypeInfo -
CHAR_QUOTE
dbBoolean
dbByte
dbCurrency
dbDate
dbDouble
dbFailOnError
dbInteger
dbLong
dbLongBinary
dbMemo
dbSingle
dbSQLPassThrough
dbText
Field_Address1
Field_Address2
Field_City
Field_Comment
Field_Company
Field_EMailAddress
Field_EntryID
Field_Extension
Field_FirstName
Field_LastName
Field_Notes
Field_PhoneNumber
Field_PhoneType
Field_State
Field_Zip
MainTablePrefix
NumbersTablePrefix
TablePrefixLen
AppPath
CurrPhoneBook
DBEngine
Main
MakingChanges
PBWorkspace
PhoneBookDB
PhoneTypeCodes
PhoneTypeDesc
TableNameList
TableNameListStatic
TablesInUse
CHAR_QUOTE = ''''
dbBoolean = 1
Memo
dbByte = 2
Double
dbCurrency = 5
Long
dbDate = 8
DAO constants;
dbDouble = 7
Single
dbFailOnError = 128
Long Binary (OLE Object
dbInteger = 3
Yes/No
dbLong = 4
Integer
dbLongBinary = 11
Byte
dbMemo = 12
Text
dbSingle = 6
Currency
dbSQLPassThrough = 64
dbText = 10
Date/Time
Field_Address1 = 'Address1'
Field_Address2 = 'Address2'
Field_City = 'City'
Field_Comment = 'Comment'
Field_Company = 'Company'
Field_EMailAddress = 'EMailAddress'
Field_EntryID = 'EntryID'
Length( MainTablePrefix );
Field_Extension = 'Extension'
Field_FirstName = 'FirstName'
Field_LastName = 'LastName'
Field_Notes = 'Notes'
Field_PhoneNumber = 'PhoneNumber'
Field_PhoneType = 'PhoneType'
Field_State = 'State'
Field_Zip = 'Zip'
MainTablePrefix = 'PhoneBook_'
NumbersTablePrefix = 'PhoneNumbers_'
TablePrefixLen = 10
AppPath : String
CurrPhoneBook : TPhoneBook
DBEngine : Variant
Main : TMain
MakingChanges : Boolean
PhoneChildren: TStringList;
PBWorkspace : Variant
PhoneBookDB : Variant
PhoneTypeCodes : TStringList
PhoneTypeDesc : TStringList
TableNameList : TStringList
TableNameListStatic : TStringList
TablesInUse : TStringList