udmdbdemo2.~pas

来自「Delphi开发webservice的一套例子」· ~PAS 代码 · 共 47 行

unit udmDBDemo2;

interface

uses
  SysUtils, Classes, DB, DBClient, SoapConn;

type
  TdmDBDemo2 = class(TDataModule)
    cdsDemo2: TClientDataSet;
    cdsDemo2ISBN: TStringField;
    cdsDemo2BKID: TStringField;
    cdsDemo2BOOKNO: TStringField;
    cdsDemo2BOOKNAME: TStringField;
    cdsDemo2VID: TStringField;
    cdsDemo2CATEGORY: TStringField;
    cdsDemo2CLEVEL: TStringField;
    cdsDemo2AID: TStringField;
    cdsDemo2IMAGE: TBlobField;
    dsDemo2: TDataSource;
    spcnnDemo2: TSoapConnection;
    cdsConditions: TClientDataSet;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    StringField4: TStringField;
    StringField5: TStringField;
    StringField6: TStringField;
    StringField7: TStringField;
    StringField8: TStringField;
    BlobField1: TBlobField;
    cdsGeneral: TClientDataSet;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmDBDemo2: TdmDBDemo2;

implementation

{$R *.dfm}

end.