unit2.dfm

《Delphi7编程100例》代码,书配资料

object MDServ: TMDServ
  OldCreateOrder = False
  Left = 251
  Top = 178
  Height = 279
  Width = 321
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 128
    Top = 120
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'select '
      '  customer.CustNo,'
      '  customer.Company,'
      '  customer.Addr1,'
      '  customer.City,'
      '  customer.State'
      'from customer')
    Left = 72
    Top = 72
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    DataSource = DataSource1
    SQL.Strings = (
      'select'
      '  orders.OrderNo,'
      '  orders.CustNo,'
      '  orders.SaleDate,'
      '  orders.Terms,'
      '  orders.ItemsTotal,'
      '  orders.TaxRate'
      'from orders'
      'as orders'
      'where orders.CustNo =:CustNo'
      '')
    Left = 192
    Top = 72
    ParamData = <
      item
        DataType = ftFloat
        Name = 'CustNo'
        ParamType = ptUnknown
        Size = 8
      end>
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = Query1
    Left = 64
    Top = 160
  end
  object DataSetProvider2: TDataSetProvider
    DataSet = Query2
    Left = 192
    Top = 160
  end
end