udmclientdemo.pas

来自「delphi多层应用系统 delphi多层应用系统」· PAS 代码 · 共 43 行

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.