Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/ostatni/delphi/ruzne/auto32d3.exe/rar/AUTO32D3/DEMOS/DELPHI3.0/FIND/DM.DFM/DM.txt

Text File | 1996-12-25 | 3KB | 125 lines

object DM2: TDM2
  Left = 454
  Top = 91
  Height = 150
  Width = 215
  object Customer: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'CustNo'
    TableName = 'CUSTOMER.DB'
    Left = 24
    Top = 8
    object CustomerCustNo: TFloatField
      DisplayWidth = 8
      FieldName = 'CustNo'
    end
    object CustomerCompany: TStringField
      DisplayWidth = 25
      FieldName = 'Company'
      Size = 30
    end
    object CustomerAddr1: TStringField
      DisplayWidth = 20
      FieldName = 'Addr1'
      Size = 30
    end
    object CustomerCity: TStringField
      DisplayWidth = 15
      FieldName = 'City'
      Size = 15
    end
    object CustomerState: TStringField
      DisplayWidth = 5
      FieldName = 'State'
    end
    object CustomerZip: TStringField
      DisplayWidth = 10
      FieldName = 'Zip'
      Size = 10
    end
    object CustomerCountry: TStringField
      DisplayWidth = 16
      FieldName = 'Country'
    end
  end
  object CustLookup: TTable
    Active = True
    FilterOptions = [foCaseInsensitive]
    DatabaseName = 'DBDEMOS'
    IndexName = 'ByCompany'
    TableName = 'CUSTOMER.DB'
    Left = 24
    Top = 72
    object CustLookupCompany: TStringField
      DisplayWidth = 31
      FieldName = 'Company'
      Size = 30
    end
    object CustLookupCustNo: TFloatField
      DisplayWidth = 10
      FieldName = 'CustNo'
    end
    object CustLookupAddr1: TStringField
      DisplayWidth = 36
      FieldName = 'Addr1'
      Size = 30
    end
    object CustLookupAddr2: TStringField
      DisplayWidth = 36
      FieldName = 'Addr2'
      Size = 30
    end
    object CustLookupCity: TStringField
      DisplayWidth = 18
      FieldName = 'City'
      Size = 15
    end
    object CustLookupState: TStringField
      DisplayWidth = 24
      FieldName = 'State'
    end
    object CustLookupZip: TStringField
      DisplayWidth = 12
      FieldName = 'Zip'
      Size = 10
    end
    object CustLookupCountry: TStringField
      DisplayWidth = 24
      FieldName = 'Country'
    end
    object CustLookupPhone: TStringField
      DisplayWidth = 18
      FieldName = 'Phone'
      Size = 15
    end
    object CustLookupFAX: TStringField
      DisplayWidth = 18
      FieldName = 'FAX'
      Size = 15
    end
    object CustLookupTaxRate: TFloatField
      DisplayWidth = 12
      FieldName = 'TaxRate'
    end
    object CustLookupContact: TStringField
      DisplayWidth = 24
      FieldName = 'Contact'
    end
    object CustLookupLastInvoiceDate: TDateTimeField
      DisplayWidth = 20
      FieldName = 'LastInvoiceDate'
    end
  end
  object CustomerSource: TDataSource
    DataSet = Customer
    Left = 108
    Top = 8
  end
  object CustLookupSource: TDataSource
    DataSet = CustLookup
    Left = 108
    Top = 72
  end
end