Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue59/Arch/Extended Sample/UnitObjectResultSetCustomer.dfm

Text File | 2000-06-05 | 1.2 KB | 54 lines

inherited ObjectResultSetCustomer: TObjectResultSetCustomer
  inherited Query: TQuery
    SQL.Strings = (
      'select * from customer.db')
    Left = 124
    object QueryCustNo: TFloatField
      FieldName = 'CustNo'
    end
    object QueryCompany: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object QueryAddr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object QueryAddr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object QueryCity: TStringField
      FieldName = 'City'
      Size = 15
    end
    object QueryState: TStringField
      FieldName = 'State'
    end
    object QueryZip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object QueryCountry: TStringField
      FieldName = 'Country'
    end
    object QueryPhone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object QueryFAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object QueryTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object QueryContact: TStringField
      FieldName = 'Contact'
    end
    object QueryLastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
    end
  end
end