home *** CD-ROM | disk | FTP | other *** search
- object ClientDataModule: TClientDataModule
- Left = 261
- Top = 125
- Height = 179
- Width = 215
- object ClientsTable: TTable
- Active = True
- DatabaseName = 'DatabaseFiles'
- TableName = 'clients.DB'
- Left = 56
- Top = 16
- object ClientsTableCustNum: TAutoIncField
- DisplayWidth = 10
- FieldName = 'CustNum'
- ReadOnly = True
- end
- object ClientsTableLastName: TStringField
- DisplayWidth = 24
- FieldName = 'LastName'
- Size = 30
- end
- object ClientsTableFirstName: TStringField
- DisplayWidth = 24
- FieldName = 'FirstName'
- Size = 30
- end
- object ClientsTableStreet: TStringField
- DisplayWidth = 40
- FieldName = 'Street'
- Size = 40
- end
- object ClientsTableCity: TStringField
- DisplayWidth = 30
- FieldName = 'City'
- Size = 30
- end
- object ClientsTableState: TStringField
- DisplayWidth = 8
- FieldName = 'State'
- Size = 10
- end
- object ClientsTableZip: TStringField
- DisplayWidth = 15
- FieldName = 'Zip'
- Size = 10
- end
- object ClientsTableStreet2: TStringField
- FieldName = 'Street/2'
- Size = 40
- end
- object ClientsTableCity2: TStringField
- FieldName = 'City/2'
- Size = 30
- end
- object ClientsTableState2: TStringField
- FieldName = 'State/2'
- Size = 10
- end
- object ClientsTableZip2: TStringField
- FieldName = 'Zip/2'
- Size = 10
- end
- object ClientsTableAreaCode: TStringField
- DisplayWidth = 9
- FieldName = 'Area Code'
- Size = 3
- end
- object ClientsTablePhone: TStringField
- DisplayWidth = 21
- FieldName = 'Phone'
- Size = 8
- end
- end
- object ClientsDataSource: TDataSource
- AutoEdit = False
- DataSet = ClientsTable
- Left = 64
- Top = 80
- end
- end
-