udmdbdemo2.dfm

来自「Delphi开发webservice的一套例子」· DFM 代码 · 共 123 行

object dmDBDemo2: TdmDBDemo2
  OldCreateOrder = False
  Left = 516
  Top = 186
  Height = 208
  Width = 379
  object cdsDemo2: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspBooks'
    RemoteServer = spcnnDemo2
    Left = 136
    Top = 32
    object cdsDemo2ISBN: TStringField
      FieldName = 'ISBN'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 13
    end
    object cdsDemo2BKID: TStringField
      FieldName = 'BKID'
      Size = 10
    end
    object cdsDemo2BOOKNO: TStringField
      FieldName = 'BOOKNO'
      Required = True
      Size = 10
    end
    object cdsDemo2BOOKNAME: TStringField
      FieldName = 'BOOKNAME'
      Size = 60
    end
    object cdsDemo2VID: TStringField
      FieldName = 'VID'
      Size = 10
    end
    object cdsDemo2CATEGORY: TStringField
      FieldName = 'CATEGORY'
      Size = 10
    end
    object cdsDemo2CLEVEL: TStringField
      FieldName = 'CLEVEL'
      Size = 1
    end
    object cdsDemo2AID: TStringField
      FieldName = 'AID'
      Size = 10
    end
    object cdsDemo2IMAGE: TBlobField
      FieldName = 'IMAGE'
      Size = 1
    end
  end
  object dsDemo2: TDataSource
    DataSet = cdsDemo2
    Left = 232
    Top = 32
  end
  object spcnnDemo2: TSoapConnection
    Agent = 'Borland SOAP 1.1'
    Connected = True
    URL = 'http://localhost:1024/PD6DBDemo1.exe/soap/ID6DBDataModule1'
    Left = 48
    Top = 32
  end
  object cdsConditions: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspConditions'
    RemoteServer = spcnnDemo2
    Left = 72
    Top = 104
    object StringField1: TStringField
      FieldName = 'ISBN'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 13
    end
    object StringField2: TStringField
      FieldName = 'BKID'
      Size = 10
    end
    object StringField3: TStringField
      FieldName = 'BOOKNO'
      Required = True
      Size = 10
    end
    object StringField4: TStringField
      FieldName = 'BOOKNAME'
      Size = 60
    end
    object StringField5: TStringField
      FieldName = 'VID'
      Size = 10
    end
    object StringField6: TStringField
      FieldName = 'CATEGORY'
      Size = 10
    end
    object StringField7: TStringField
      FieldName = 'CLEVEL'
      Size = 1
    end
    object StringField8: TStringField
      FieldName = 'AID'
      Size = 10
    end
    object BlobField1: TBlobField
      FieldName = 'IMAGE'
      Size = 1
    end
  end
  object cdsGeneral: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspGeneral'
    RemoteServer = spcnnDemo2
    Left = 216
    Top = 104
  end
end