gridmasterdetail.dfm

InfoPower_Studio 2007 v5.0.1.3 banben

    object CustomerTableOrders: TIntegerField
      DisplayLabel = ' '
      DisplayWidth = 3
      FieldKind = fkCalculated
      FieldName = 'Orders'
      DisplayFormat = '## '#39'orders'#39';;'#39'No orders'#39
      Calculated = True
    end
    object CustomerTableCustNo: TFloatField
      Alignment = taLeftJustify
      CustomConstraint = 'CustNo IS NOT NULL'
      ConstraintErrorMessage = 'CustNo cannot be blank'
      DisplayLabel = 'Cust No'
      DisplayWidth = 8
      FieldName = 'CustNo'
      DisplayFormat = 'CN 0000'
      MaxValue = 9999.000000000000000000
      MinValue = 1000.000000000000000000
    end
    object CustomerTableCountry: TStringField
      DisplayWidth = 20
      FieldName = 'Country'
    end
    object CustomerTableLastInvoiceDate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'LastInvoiceDate'
    end
    object CustomerTableCompany: TStringField
      CustomConstraint = 'X IS NOT NULL'
      ConstraintErrorMessage = 'Company Field has to have a value'
      DisplayWidth = 30
      FieldName = 'Company'
      Size = 30
    end
    object CustomerTableAddr1: TStringField
      DisplayWidth = 30
      FieldName = 'Addr1'
      Size = 30
    end
    object CustomerTableAddr2: TStringField
      DisplayWidth = 30
      FieldName = 'Addr2'
      Size = 30
    end
    object CustomerTableCity: TStringField
      DisplayWidth = 15
      FieldName = 'City'
      Size = 15
    end
    object CustomerTableState: TStringField
      DisplayWidth = 20
      FieldName = 'State'
    end
    object CustomerTableZip: TStringField
      DisplayWidth = 10
      FieldName = 'Zip'
      Size = 10
    end
    object CustomerTablePhone: TStringField
      DisplayWidth = 15
      FieldName = 'Phone'
      Size = 15
    end
    object CustomerTableFAX: TStringField
      DisplayWidth = 15
      FieldName = 'FAX'
      Size = 15
    end
    object CustomerTableTaxRate: TFloatField
      DisplayWidth = 10
      FieldName = 'TaxRate'
      DisplayFormat = '0.00%'
      MaxValue = 100.000000000000000000
    end
    object CustomerTableContact: TStringField
      DisplayWidth = 20
      FieldName = 'Contact'
    end
    object CustomerTableHaveOrders: TIntegerField
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'HaveOrders'
      LookupDataSet = Table5
      LookupKeyFields = 'CustNo'
      LookupResultField = 'OrderNo'
      KeyFields = 'CustNo'
      Visible = False
      Lookup = True
    end
  end
  object DataSource2: TDataSource
    DataSet = OrdersTable
    Left = 608
    Top = 64
  end
  object OrdersTable: TTable
    Active = True
    DatabaseName = 'InfoDemo5'
    IndexName = 'CustNo'
    MasterFields = 'CustNo'
    MasterSource = DataSource1
    TableName = 'orders.db'
    Left = 640
    Top = 64
    object OrdersTableItems: TIntegerField
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'Items'
      Calculated = True
    end
    object OrdersTableOrderNo: TFloatField
      DisplayWidth = 10
      FieldName = 'OrderNo'
      DisplayFormat = #39'#'#39'0000'
    end
    object OrdersTableCustNo: TFloatField
      Alignment = taLeftJustify
      CustomConstraint = 'CustNo IS NOT NULL'
      ConstraintErrorMessage = 'CustNo cannot be blank'
      DisplayWidth = 10
      FieldName = 'CustNo'
      Required = True
      DisplayFormat = 'CN 0000'
      MaxValue = 9999.000000000000000000
      MinValue = 1000.000000000000000000
    end
    object OrdersTableSaleDate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'SaleDate'
    end
    object OrdersTableShipDate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'ShipDate'
    end
    object OrdersTableEmpNo: TIntegerField
      CustomConstraint = 'Value > 0'
      ConstraintErrorMessage = 'EmpNo cannot be 0 or negative'
      DisplayWidth = 10
      FieldName = 'EmpNo'
      Required = True
      DisplayFormat = 'Emp'#39'#'#39' 0000'
      MaxValue = 9999
      MinValue = 1
    end
    object OrdersTableShipToContact: TStringField
      DisplayWidth = 20
      FieldName = 'ShipToContact'
    end
    object OrdersTableShipToAddr1: TStringField
      DisplayWidth = 30
      FieldName = 'ShipToAddr1'
      Size = 30
    end
    object OrdersTableShipToAddr2: TStringField
      DisplayWidth = 30
      FieldName = 'ShipToAddr2'
      Size = 30
    end
    object OrdersTableShipToCity: TStringField
      DisplayWidth = 15
      FieldName = 'ShipToCity'
      Size = 15
    end
    object OrdersTableShipToState: TStringField
      DisplayWidth = 20
      FieldName = 'ShipToState'
    end
    object OrdersTableShipToZip: TStringField
      DisplayWidth = 10
      FieldName = 'ShipToZip'
      Size = 10
    end
    object OrdersTableShipToCountry: TStringField
      DisplayWidth = 20
      FieldName = 'ShipToCountry'
    end
    object OrdersTableShipToPhone: TStringField
      DisplayWidth = 15
      FieldName = 'ShipToPhone'
      Size = 15
    end
    object OrdersTableShipVIA: TStringField
      DisplayWidth = 7
      FieldName = 'ShipVIA'
      Size = 7
    end
    object OrdersTablePO: TStringField
      DisplayWidth = 15
      FieldName = 'PO'
      Size = 15
    end
    object OrdersTableTerms: TStringField
      DisplayWidth = 6
      FieldName = 'Terms'
      Size = 6
    end
    object OrdersTablePaymentMethod: TStringField
      DisplayWidth = 7
      FieldName = 'PaymentMethod'
      Size = 7
    end
    object OrdersTableItemsTotal: TCurrencyField
      DisplayWidth = 10
      FieldName = 'ItemsTotal'
    end
    object OrdersTableTaxRate: TFloatField
      DisplayWidth = 10
      FieldName = 'TaxRate'
      DisplayFormat = '0.00%'
      MaxValue = 100.000000000000000000
    end
    object OrdersTableFreight: TCurrencyField
      DisplayWidth = 10
      FieldName = 'Freight'
    end
    object OrdersTableAmountPaid: TCurrencyField
      DisplayWidth = 10
      FieldName = 'AmountPaid'
    end
  end
  object DataSource3: TDataSource
    DataSet = Table3
    Left = 608
    Top = 104
  end
  object Table3: TTable
    Active = True
    DatabaseName = 'InfoDemo5'
    IndexFieldNames = 'OrderNo'
    MasterFields = 'OrderNo'
    MasterSource = DataSource2
    TableName = 'items.db'
    Left = 640
    Top = 96