DOS/V Power Report 1996 August/VPR9608A.BIN/del20try/install/data.z/MAINDATA.DFM/MAINDATA.txt

Text File | 1996-05-08 | 5KB | 214 lines

object DMMain: TDMMain
  Left = 244
  Top = 149
  Height = 204
  Width = 215
  object tbOrders: TTable
    Active = True
    OnCalcFields = tbOrdersCalcFields
    DatabaseName = 'DBDEMOS'
    TableName = 'ORDERS.DB'
    Left = 24
    Top = 8
    object tbOrdersOrderNo: TFloatField
      FieldName = 'OrderNo'
      DisplayFormat = #39'#'#39'0000'
    end
    object tbOrdersCustNo: TFloatField
      Alignment = taLeftJustify
      FieldName = 'CustNo'
      LookupDataSet = tbCustomer
      LookupKeyFields = 'Company'
      LookupResultField = 'CustNo'
      DisplayFormat = 'CN 0000'
      MaxValue = 9999
      MinValue = 1000
    end
    object tbOrdersSaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object tbOrdersShipDate: TDateTimeField
      FieldName = 'ShipDate'
    end
    object tbOrdersEmpNo: TIntegerField
      FieldName = 'EmpNo'
      LookupDataSet = tbEmployee
      LookupKeyFields = 'LastName'
      LookupResultField = 'EmpNo'
      DisplayFormat = 'Emp'#39'#'#39' 0000'
      MaxValue = 9999
      MinValue = 1
    end
    object tbOrdersShipToContact: TStringField
      FieldName = 'ShipToContact'
    end
    object tbOrdersShipToAddr1: TStringField
      FieldName = 'ShipToAddr1'
      Size = 30
    end
    object tbOrdersShipToAddr2: TStringField
      FieldName = 'ShipToAddr2'
      Size = 30
    end
    object tbOrdersShipToCity: TStringField
      FieldName = 'ShipToCity'
      Size = 15
    end
    object tbOrdersShipToState: TStringField
      FieldName = 'ShipToState'
    end
    object tbOrdersShipToZip: TStringField
      FieldName = 'ShipToZip'
      Size = 10
    end
    object tbOrdersShipToCountry: TStringField
      FieldName = 'ShipToCountry'
    end
    object tbOrdersShipToPhone: TStringField
      FieldName = 'ShipToPhone'
      Size = 15
    end
    object tbOrdersShipVIA: TStringField
      FieldName = 'ShipVIA'
      Size = 10
    end
    object tbOrdersPO: TStringField
      FieldName = 'PO'
      Size = 15
    end
    object tbOrdersTerms: TStringField
      FieldName = 'Terms'
      Size = 6
    end
    object tbOrdersPaymentMethod: TStringField
      FieldName = 'PaymentMethod'
      Size = 8
    end
    object tbOrdersItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
    end
    object tbOrdersTaxRate: TFloatField
      FieldName = 'TaxRate'
      DisplayFormat = '0.00%'
    end
    object tbOrdersFreight: TCurrencyField
      FieldName = 'Freight'
    end
    object tbOrdersAmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
    end
    object tbOrdersCustomerName: TStringField
      DisplayWidth = 30
      FieldName = 'CustomerName'
      Lookup = True
      LookupDataSet = tbCustomer
      LookupKeyFields = 'CustNo'
      LookupResultField = 'Company'
      KeyFields = 'CustNo'
      Size = 30
    end
    object tbOrdersEmployeeLastName: TStringField
      FieldName = 'EmployeeLastName'
      Lookup = True
      LookupDataSet = tbEmployee
      LookupKeyFields = 'EmpNo'
      LookupResultField = 'LastName'
      KeyFields = 'EmpNo'
    end
    object tbOrdersEmployeeFirstName: TStringField
      FieldName = 'EmployeeFirstName'
      Lookup = True
      LookupDataSet = tbEmployee
      LookupKeyFields = 'EmpNo'
      LookupResultField = 'FirstName'
      KeyFields = 'EmpNo'
      Size = 15
    end
    object tbOrdersEmployeeFullName: TStringField
      Calculated = True
      FieldName = 'EmployeeFullName'
      Size = 35
    end
  end
  object OrdersSoruce: TDataSource
    DataSet = tbOrders
    Left = 108
    Top = 8
  end
  object tbCustomer: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'CUSTOMER.DB'
    Left = 24
    Top = 64
    object tbCustomerCustNo: TFloatField
      Alignment = taLeftJustify
      FieldName = 'CustNo'
      DisplayFormat = 'CN 0000'
      MaxValue = 9999
      MinValue = 1000
    end
    object tbCustomerCompany: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object tbCustomerAddr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object tbCustomerAddr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object tbCustomerCity: TStringField
      FieldName = 'City'
      Size = 15
    end
    object tbCustomerState: TStringField
      FieldName = 'State'
    end
    object tbCustomerZip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object tbCustomerCountry: TStringField
      FieldName = 'Country'
    end
    object tbCustomerPhone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object tbCustomerFAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object tbCustomerTaxRate: TFloatField
      FieldName = 'TaxRate'
      DisplayFormat = '0.00%'
    end
    object tbCustomerContact: TStringField
      FieldName = 'Contact'
    end
    object tbCustomerLastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
    end
  end
  object tbEmployee: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'EMPLOYEE.DB'
    Left = 24
    Top = 124
  end
  object CustomerSource: TDataSource
    DataSet = tbCustomer
    Left = 108
    Top = 64
  end
  object EmployeeSource: TDataSource
    DataSet = tbEmployee
    Left = 108
    Top = 124
  end
end