home *** CD-ROM | disk | FTP | other *** search
/ Windows 95 Secrets / Secrets1.iso / Finance / Book / TRS / _setup.1 / TotalRetailSystem.exe / 0 / RCDATA / TCLIENTDATAMODULE / TCLIENTDATAMODULE.txt
Encoding:
Text File  |  1997-06-09  |  1.8 KB  |  81 lines

  1. object ClientDataModule: TClientDataModule
  2.   Left = 261
  3.   Top = 125
  4.   Height = 179
  5.   Width = 215
  6.   object ClientsTable: TTable
  7.     Active = True
  8.     DatabaseName = 'DatabaseFiles'
  9.     TableName = 'clients.DB'
  10.     Left = 56
  11.     Top = 16
  12.     object ClientsTableCustNum: TAutoIncField
  13.       DisplayWidth = 10
  14.       FieldName = 'CustNum'
  15.       ReadOnly = True
  16.     end
  17.     object ClientsTableLastName: TStringField
  18.       DisplayWidth = 24
  19.       FieldName = 'LastName'
  20.       Size = 30
  21.     end
  22.     object ClientsTableFirstName: TStringField
  23.       DisplayWidth = 24
  24.       FieldName = 'FirstName'
  25.       Size = 30
  26.     end
  27.     object ClientsTableStreet: TStringField
  28.       DisplayWidth = 40
  29.       FieldName = 'Street'
  30.       Size = 40
  31.     end
  32.     object ClientsTableCity: TStringField
  33.       DisplayWidth = 30
  34.       FieldName = 'City'
  35.       Size = 30
  36.     end
  37.     object ClientsTableState: TStringField
  38.       DisplayWidth = 8
  39.       FieldName = 'State'
  40.       Size = 10
  41.     end
  42.     object ClientsTableZip: TStringField
  43.       DisplayWidth = 15
  44.       FieldName = 'Zip'
  45.       Size = 10
  46.     end
  47.     object ClientsTableStreet2: TStringField
  48.       FieldName = 'Street/2'
  49.       Size = 40
  50.     end
  51.     object ClientsTableCity2: TStringField
  52.       FieldName = 'City/2'
  53.       Size = 30
  54.     end
  55.     object ClientsTableState2: TStringField
  56.       FieldName = 'State/2'
  57.       Size = 10
  58.     end
  59.     object ClientsTableZip2: TStringField
  60.       FieldName = 'Zip/2'
  61.       Size = 10
  62.     end
  63.     object ClientsTableAreaCode: TStringField
  64.       DisplayWidth = 9
  65.       FieldName = 'Area Code'
  66.       Size = 3
  67.     end
  68.     object ClientsTablePhone: TStringField
  69.       DisplayWidth = 21
  70.       FieldName = 'Phone'
  71.       Size = 8
  72.     end
  73.   end
  74.   object ClientsDataSource: TDataSource
  75.     AutoEdit = False
  76.     DataSet = ClientsTable
  77.     Left = 64
  78.     Top = 80
  79.   end
  80. end
  81.