unit2.~dfm

一些關於查詢的簡單源碼...........................................................................

object DM1: TDM1
  OldCreateOrder = False
  Left = 193
  Top = 165
  Height = 214
  Width = 268
  object ADOQ1: TADOQuery
    AutoCalcFields = False
    Connection = ADOC1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from data')
    Left = 80
    Top = 8
    object ADOQ1DSDesigner2: TWideStringField
      FieldName = #29289#26009#26009#34399
    end
    object ADOQ1DSDesigner3: TWideStringField
      FieldName = #29289#26009#25104#26412
      Size = 10
    end
    object ADOQ1DSDesigner4: TWideStringField
      FieldName = #36092#26009#21069#32622#26399
      Size = 12
    end
    object ADOQ1DSDesigner5: TWideStringField
      FieldName = #26368#23567#35330#36092#37327
      Size = 10
    end
    object ADOQ1DSDesigner6: TWideStringField
      FieldName = #29694#26377#24235#23384#37327
      Size = 12
    end
    object ADOQ1DSDesigner7: TWideStringField
      FieldName = #24050#36865#36008#37327
      Size = 12
    end
    object ADOQ1DSDesigner8: TWideStringField
      FieldName = #38656#27714#26085#26399
      Size = 16
    end
    object ADOQ1requirement: TWideStringField
      FieldName = 'requirement'
      Size = 15
    end
    object ADOQ1receipts: TWideStringField
      FieldName = 'receipts'
      Size = 15
    end
    object ADOQ1orders: TWideStringField
      FieldName = 'orders'
      Size = 15
    end
    object ADOQ1available: TWideStringField
      FieldName = 'available'
      Size = 15
    end
    object ADOQ1shortages: TWideStringField
      FieldName = 'shortages'
      Size = 15
    end
  end
  object ADOC1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Extended Properti' +
      'es="DRIVER=Microsoft Access Driver (*.mdb);DBQ=data/mdata.mdb"'
    LoginPrompt = False
    Left = 40
    Top = 8
  end
  object DS1: TDataSource
    DataSet = ADOQ1
    Left = 120
    Top = 8
  end
  object ADOCommand1: TADOCommand
    Connection = ADOC1
    Parameters = <>
    Left = 56
    Top = 80
  end
  object ADOQ2: TADOQuery
    Connection = ADOC1
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM DATA')
    Left = 136
    Top = 64
  end
  object DS2: TDataSource
    DataSet = ADOQ2
    Left = 192
    Top = 8
  end
end