Unit Phnmain

Classes

TMain -
TPhoneTypeInfo -

Functions

Types

Constants

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

Variables

AppPath
CurrPhoneBook
DBEngine
Main
MakingChanges
PBWorkspace
PhoneBookDB
PhoneTypeCodes
PhoneTypeDesc
TableNameList
TableNameListStatic
TablesInUse


Functions


Types


Constants

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


Variables

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