udmclientdemo.pas

就是这本书的随书代码。包括《实战Delphi 5.x-分布式多层应用系统篇》

unit udmClientDemo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBClient, MConnect;

type
  TDataModule1 = class(TDataModule)
    DCOMConnection1: TDCOMConnection;
    ClientDataSet1: TClientDataSet;
    procedure ClientDataSet1AfterApplyUpdates(Sender: TObject;
      var OwnerData: OleVariant);
    procedure ClientDataSet1AfterPost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

uses fHandleDataClientMain;

{$R *.DFM}

procedure TDataModule1.ClientDataSet1AfterApplyUpdates(Sender: TObject;
  var OwnerData: OleVariant);
begin
  Form3.edtRecno.Text := IntToStr(ClientDataSet1.ChangeCount);
end;

procedure TDataModule1.ClientDataSet1AfterPost(DataSet: TDataSet);
begin
  Form3.edtRecno.Text := IntToStr(ClientDataSet1.ChangeCount);
end;

end.