fclientmain.~dfm

Delphi开发webservice的一套例子

object dmDemo1: TdmDemo1
  OldCreateOrder = False
  Left = 402
  Top = 202
  Height = 166
  Width = 305
  object cdsDemo1: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspBooks'
    RemoteServer = spcnnDemo1
    AfterPost = cdsDemo1AfterPost
    Left = 136
    Top = 32
    object cdsDemo1ISBN: TStringField
      FieldName = 'ISBN'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 13
    end
    object cdsDemo1BKID: TStringField
      FieldName = 'BKID'
      Size = 10
    end
    object cdsDemo1BOOKNO: TStringField
      FieldName = 'BOOKNO'
      Required = True
      Size = 10
    end
    object cdsDemo1BOOKNAME: TStringField
      FieldName = 'BOOKNAME'
      Size = 60
    end
    object cdsDemo1VID: TStringField
      FieldName = 'VID'
      Size = 10
    end
    object cdsDemo1CATEGORY: TStringField
      FieldName = 'CATEGORY'
      Size = 10
    end
    object cdsDemo1CLEVEL: TStringField
      FieldName = 'CLEVEL'
      Size = 1
    end
    object cdsDemo1AID: TStringField
      FieldName = 'AID'
      Size = 10
    end
    object cdsDemo1IMAGE: TBlobField
      FieldName = 'IMAGE'
      Size = 1
    end
  end
  object dsDemo1: TDataSource
    DataSet = cdsDemo1
    Left = 232
    Top = 32
  end
  object spcnnDemo1: TSoapConnection
    Agent = 'Borland SOAP 1.1'
    Connected = True
    URL = 'http://localhost:1024/PD6DBDemo1.exe/soap/ID6DBDataModule1'
    Left = 48
    Top = 32
  end
end