dm.dfm

该系统叫做客户预定系统

object DM1: TDM1
  OldCreateOrder = True
  OnCreate = DM1Create
  Left = 487
  Top = 140
  Height = 225
  Width = 451
  object Customer: TTable
    Active = True
    DatabaseName = 'MYDB'
    Filtered = True
    IndexFieldNames = 'Company'
    TableName = 'customer'
    Left = 27
    Top = 9
  end
  object CustomerSource: TDataSource
    DataSet = Customer
    Left = 111
    Top = 33
  end
  object SQLCustomer: TQuery
    Active = True
    DatabaseName = 'MYDB'
    SQL.Strings = (
      'SELECT * FROM CUSTOMER ')
    Left = 26
    Top = 62
  end
  object SQLOrders: TQuery
    Active = True
    DatabaseName = 'MYDB'
    OnFilterRecord = SQLOrdersFilterRecord
    DataSource = CustomerSource
    SQL.Strings = (
      'Select * From Orders Where Custno = :CustNo ')
    Left = 196
    Top = 32
    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 = 272
    Top = 32
  end
  object CustDB: TDatabase
    Connected = True
    DatabaseName = 'MYDB'
    DriverName = 'Microsoft Access Driver (*.mdb)'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME='
      'USER NAME='
      'ODBC DSN=CustDB'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'SQLQRYMODE='
      'LANGDRIVER='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'SCHEMA CACHE TIME=-1'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'ENABLE BCD=FALSE'
      'ROWSET SIZE=20'
      'BLOBS TO CACHE=64'
      'PASSWORD=')
    SessionName = 'Default'
    Left = 112
    Top = 96
  end
end