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

  1. object SalesDataModule: TSalesDataModule
  2.   Left = 266
  3.   Top = 184
  4.   Height = 186
  5.   Width = 279
  6.   object SalesDataSource: TDataSource
  7.     DataSet = SalesTable
  8.     Left = 64
  9.     Top = 24
  10.   end
  11.   object SalesTable: TTable
  12.     Active = True
  13.     DatabaseName = 'DatabaseFiles'
  14.     TableName = 'NewSales'
  15.     TableType = ttParadox
  16.     Left = 184
  17.     Top = 24
  18.     object SalesTableItem: TAutoIncField
  19.       FieldName = 'Item'
  20.     end
  21.     object SalesTablePartNumber: TStringField
  22.       FieldName = 'PartNumber'
  23.       Size = 50
  24.     end
  25.     object SalesTableQuantitySold: TFloatField
  26.       FieldName = 'QuantitySold'
  27.     end
  28.     object SalesTablePrice: TFloatField
  29.       FieldName = 'Price'
  30.       DisplayFormat = '0.00'
  31.     end
  32.     object SalesTableCustNum: TFloatField
  33.       FieldName = 'CustNum'
  34.     end
  35.     object SalesTableOrderNumber: TFloatField
  36.       FieldName = 'OrderNumber'
  37.     end
  38.     object SalesTableDate: TStringField
  39.       FieldName = 'Date'
  40.       Size = 10
  41.     end
  42.     object SalesTableTypeOfSale: TStringField
  43.       FieldName = 'TypeOfSale'
  44.       Size = 11
  45.     end
  46.     object SalesTableCreditCardNumber: TStringField
  47.       FieldName = 'CreditCardNumber'
  48.     end
  49.     object SalesTableCreditCardType: TStringField
  50.       FieldName = 'CreditCardType'
  51.       Size = 25
  52.     end
  53.     object SalesTableTax: TFloatField
  54.       FieldName = 'Tax'
  55.       DisplayFormat = '0.00'
  56.     end
  57.     object SalesTableTotal: TFloatField
  58.       FieldName = 'Total'
  59.       DisplayFormat = '0.00'
  60.     end
  61.     object SalesTablePickUpShip: TStringField
  62.       FieldName = 'PickUpShip'
  63.       Size = 8
  64.     end
  65.   end
  66. end
  67.