fclientmain.pas

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

unit fClientMain;

interface

uses
  SysUtils, Classes, DB, DBClient, SoapConn;

type
  TdmDemo1 = class(TDataModule)
    cdsDemo1: TClientDataSet;
    dsDemo1: TDataSource;
    spcnnDemo1: TSoapConnection;
    cdsDemo1ISBN: TStringField;
    cdsDemo1BKID: TStringField;
    cdsDemo1BOOKNO: TStringField;
    cdsDemo1BOOKNAME: TStringField;
    cdsDemo1VID: TStringField;
    cdsDemo1CATEGORY: TStringField;
    cdsDemo1CLEVEL: TStringField;
    cdsDemo1AID: TStringField;
    cdsDemo1IMAGE: TBlobField;
    procedure cdsDemo1AfterPost(DataSet: TDataSet);
    procedure cdsDemo1AfterApplyUpdates(Sender: TObject;
      var OwnerData: OleVariant);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmDemo1: TdmDemo1;

implementation

uses udmClient;

{$R *.dfm}

procedure TdmDemo1.cdsDemo1AfterPost(DataSet: TDataSet);
begin
  Form2.LabeledEdit1.Text := IntToStr(Self.cdsDemo1.ChangeCount);
end;

procedure TdmDemo1.cdsDemo1AfterApplyUpdates(Sender: TObject;
  var OwnerData: OleVariant);
begin
  Form2.LabeledEdit1.Text := IntToStr(Self.cdsDemo1.ChangeCount);
end;

end.