Chip 1997 April/Chip_1997-04_cd.bin/prezent/cb/data.z/CUSTDM.DFM/CUSTDM.txt

Text File | 1997-01-16 | 6KB | 252 lines

object DataModule2: TDataModule2
  Left = 283
  Top = 232
  Height = 247
  Width = 446
  object Customers: TTable
    DatabaseName = 'BCDEMOS'
    IndexName = 'ByCompany'
    TableName = 'CUSTOMER.DB'
    Left = 32
    Top = 8
    object CustomersCustNo: TFloatField
      FieldName = 'CustNo'
    end
    object CustomersCompany: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object CustomersAddr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object CustomersAddr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object CustomersCity: TStringField
      FieldName = 'City'
      Size = 15
    end
    object CustomersState: TStringField
      FieldName = 'State'
    end
    object CustomersZip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object CustomersCountry: TStringField
      FieldName = 'Country'
    end
    object CustomersPhone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object CustomersFAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object CustomersTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object CustomersContact: TStringField
      FieldName = 'Contact'
    end
    object CustomersLastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
    end
  end
  object Orders: TTable
    DatabaseName = 'BCDEMOS'
    IndexName = 'CustNo'
    MasterFields = 'CustNo'
    MasterSource = CustomerSource
    TableName = 'ORDERS.DB'
    Left = 104
    Top = 8
    object OrdersOrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object OrdersCustNo: TFloatField
      FieldName = 'CustNo'
      Required = True
    end
    object OrdersCustCompany: TStringField
      FieldName = 'CustCompany'
      Lookup = True
      LookupDataSet = Customers
      LookupKeyFields = 'CustNo'
      LookupResultField = 'Company'
      KeyFields = 'CustNo'
    end
    object OrdersSaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object OrdersShipDate: TDateTimeField
      FieldName = 'ShipDate'
    end
    object OrdersEmpNo: TIntegerField
      FieldName = 'EmpNo'
      Required = True
    end
    object OrdersShipToContact: TStringField
      FieldName = 'ShipToContact'
    end
    object OrdersShipToAddr1: TStringField
      FieldName = 'ShipToAddr1'
      Size = 30
    end
    object OrdersShipToAddr2: TStringField
      FieldName = 'ShipToAddr2'
      Size = 30
    end
    object OrdersShipToCity: TStringField
      FieldName = 'ShipToCity'
      Size = 15
    end
    object OrdersShipToState: TStringField
      FieldName = 'ShipToState'
    end
    object OrdersShipToZip: TStringField
      FieldName = 'ShipToZip'
      Size = 10
    end
    object OrdersShipToCountry: TStringField
      FieldName = 'ShipToCountry'
    end
    object OrdersShipToPhone: TStringField
      FieldName = 'ShipToPhone'
      Size = 15
    end
    object OrdersShipVIA: TStringField
      FieldName = 'ShipVIA'
      Size = 7
    end
    object OrdersPO: TStringField
      FieldName = 'PO'
      Size = 15
    end
    object OrdersTerms: TStringField
      FieldName = 'Terms'
      Size = 6
    end
    object OrdersPaymentMethod: TStringField
      FieldName = 'PaymentMethod'
      Size = 7
    end
    object OrdersItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
    end
    object OrdersTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object OrdersFreight: TCurrencyField
      FieldName = 'Freight'
    end
    object OrdersAmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
    end
  end
  object LineItems: TTable
    OnCalcFields = LineItemsCalcFields
    DatabaseName = 'BCDEMOS'
    IndexFieldNames = 'OrderNo'
    MasterFields = 'OrderNo'
    MasterSource = OrderSource
    TableName = 'ITEMS.DB'
    Left = 176
    Top = 8
    object LineItemsOrderNo: TFloatField
      FieldName = 'OrderNo'
      Visible = False
    end
    object LineItemsItemNo: TFloatField
      FieldName = 'ItemNo'
    end
    object LineItemsPartNo: TFloatField
      FieldName = 'PartNo'
    end
    object LineItemsPartName: TStringField
      FieldName = 'PartName'
      Lookup = True
      LookupDataSet = Parts
      LookupKeyFields = 'PartNo'
      LookupResultField = 'Description'
      KeyFields = 'PartNo'
    end
    object LineItemsQty: TIntegerField
      FieldName = 'Qty'
    end
    object LineItemsPrice: TCurrencyField
      FieldName = 'Price'
      Lookup = True
      LookupDataSet = Parts
      LookupKeyFields = 'PartNo'
      LookupResultField = 'ListPrice'
      KeyFields = 'PartNo'
    end
    object LineItemsDiscount: TFloatField
      FieldName = 'Discount'
      DisplayFormat = '#0.#%'
      EditFormat = '##.#'
      Precision = 3
    end
    object LineItemsTotal: TCurrencyField
      Calculated = True
      FieldName = 'Total'
    end
    object LineItemsExtendedPrice: TCurrencyField
      Calculated = True
      FieldName = 'ExtendedPrice'
    end
  end
  object Parts: TTable
    DatabaseName = 'BCDEMOS'
    TableName = 'PARTS.DB'
    Left = 248
    Top = 8
    object PartsPartNo: TFloatField
      FieldName = 'PartNo'
    end
    object PartsVendorNo: TFloatField
      FieldName = 'VendorNo'
    end
    object PartsDescription: TStringField
      FieldName = 'Description'
      Size = 30
    end
    object PartsOnHand: TFloatField
      FieldName = 'OnHand'
    end
    object PartsOnOrder: TFloatField
      FieldName = 'OnOrder'
    end
    object PartsCost: TCurrencyField
      FieldName = 'Cost'
    end
    object PartsListPrice: TCurrencyField
      FieldName = 'ListPrice'
    end
  end
  object CustomerSource: TDataSource
    DataSet = Customers
    Left = 32
    Top = 56
  end
  object OrderSource: TDataSource
    DataSet = Orders
    Left = 104
    Top = 56
  end
  object LineItemSource: TDataSource
    DataSet = LineItems
    Left = 176
    Top = 56
  end
  object PartSource: TDataSource
    DataSet = Parts
    Left = 248
    Top = 56
  end
end