udmd6dbdemo1.~dfm

Delphi开发webservice的一套例子

object dmD6DataModule1: TdmD6DataModule1
  OldCreateOrder = True
  Left = 339
  Top = 173
  Height = 228
  Width = 507
  object dbDemo: TDatabase
    AliasName = 'Delphi6Book'
    Connected = True
    DatabaseName = 'aDemoDB'
    LoginPrompt = False
    Params.Strings = (
      'SERVER NAME=d:\leewei\books\delphi6\datas\D6Books.GDB'
      'USER NAME=SYSDBA'
      'PASSWORD=masterkey')
    SessionName = 'Default'
    Left = 56
    Top = 24
  end
  object quryBooks: TQuery
    DatabaseName = 'aDEmoDB'
    SQL.Strings = (
      'select * from BOOKS')
    Left = 184
    Top = 24
  end
  object dspBooks: TDataSetProvider
    DataSet = quryBooks
    Constraints = True
    Options = [poAllowCommandText]
    Left = 56
    Top = 112
  end
  object quryConditions: TQuery
    DatabaseName = 'aDemoDB'
    SQL.Strings = (
      'select * from BOOKS Where CATEGORY = :ID1 and 1 = :ID2')
    Left = 288
    Top = 24
    ParamData = <
      item
        DataType = ftString
        Name = 'ID1'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'ID2'
        ParamType = ptUnknown
      end>
  end
  object quryGeneral: TQuery
    DatabaseName = 'aDemoDB'
    Left = 400
    Top = 24
  end
  object dspConditions: TDataSetProvider
    DataSet = quryConditions
    Constraints = True
    Options = [poAllowCommandText]
    Left = 288
    Top = 112
  end
  object dspGeneral: TDataSetProvider
    DataSet = quryGeneral
    Constraints = True
    Options = [poAllowCommandText]
    Left = 408
    Top = 112
  end
end