urdmmddemoserver.dfm

来自「就是这本书的随书代码。包括《实战Delphi 5.x-分布式多层应用系统篇》」· DFM 代码 · 共 52 行

object MDDemoServer: TMDDemoServer
  OldCreateOrder = False
  Height = 0
  Width = 0
  object Database1: TDatabase
    AliasName = 'IBLocal'
    DatabaseName = 'aMDDB'
    HandleShared = True
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=SYSDBA'
      'PASSWORD=masterkey')
    SessionName = 'Default'
    Left = 40
    Top = 16
  end
  object quryCustomer: TQuery
    DatabaseName = 'aMDDB'
    SQL.Strings = (
      'select * from customer')
    UpdateMode = upWhereKeyOnly
    Left = 144
    Top = 16
  end
  object qurySales: TQuery
    DatabaseName = 'aMDDB'
    DataSource = dsCustomer
    SQL.Strings = (
      'select * from Sales Where CUST_NO = :CUST_NO')
    UpdateMode = upWhereKeyOnly
    Left = 40
    Top = 96
    ParamData = <
      item
        DataType = ftInteger
        Name = 'CUST_NO'
        ParamType = ptUnknown
      end>
  end
  object dsCustomer: TDataSource
    DataSet = quryCustomer
    Left = 240
    Top = 16
  end
  object dspCustomerSales: TDataSetProvider
    DataSet = quryCustomer
    Constraints = True
    Left = 152
    Top = 96
  end
end