dm.dfm

来自「《delphi 7.0_8.0课程设计与系统开发案例》随书代码」· DFM 代码 · 共 78 行

object DM1: TDM1
  OldCreateOrder = True
  OnCreate = DM1Create
  Left = 197
  Top = 170
  Height = 223
  Width = 451
  object Customer: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    Filtered = True
    IndexFieldNames = 'Company'
    TableName = 'CUSTOMER.DB'
    Left = 83
    Top = 25
  end
  object CustomerSource: TDataSource
    DataSet = Customer
    Left = 167
    Top = 25
  end
  object SQLCustomer: TQuery
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'SELECT * FROM "CUSTOMER.DB" ')
    Left = 90
    Top = 86
  end
  object SQLOrders: TQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    OnFilterRecord = SQLOrdersFilterRecord
    DataSource = CustomerSource
    SQL.Strings = (
      'Select * From Orders Where Custno = :CustNo ')
    Left = 260
    Top = 24
    ParamData = <
      item
        DataType = ftFloat
        Name = 'CustNo'
        ParamType = ptUnknown
        Size = 8
      end>
    object SQLOrdersOrderNo: TFloatField
      DisplayWidth = 10
      FieldName = 'OrderNo'
    end
    object SQLOrdersCustno: TFloatField
      DisplayWidth = 8
      FieldName = 'Custno'
    end
    object SQLOrdersAmountPaid: TCurrencyField
      DisplayWidth = 13
      FieldName = 'AmountPaid'
    end
    object SQLOrdersSaleDate: TDateTimeField
      Alignment = taRightJustify
      DisplayWidth = 10
      FieldName = 'SaleDate'
    end
    object SQLOrdersShipDate: TDateTimeField
      Alignment = taRightJustify
      DisplayWidth = 10
      FieldName = 'ShipDate'
    end
    object SQLOrdersEmpNo: TIntegerField
      DisplayWidth = 8
      FieldName = 'EmpNo'
    end
  end
  object OrdersSource: TDataSource
    DataSet = SQLOrders
    Left = 336
    Top = 24
  end
end