clientmodule.pas

《delphi数据库设计与实例开发》随书光盘

unit ClientModule;

interface

uses
  SysUtils, Classes, DB, DBClient, MConnect,RecError;

type
  TClientDataModule = class(TDataModule)
    DCOMConnection1: TDCOMConnection;
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    procedure ClientDataSet1ReconcileError(DataSet: TCustomClientDataSet;
      E: EReconcileError; UpdateKind: TUpdateKind;
      var Action: TReconcileAction);
    
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ClientDataModule: TClientDataModule;

implementation

{$R *.dfm}
uses Client;



procedure TClientDataModule.ClientDataSet1ReconcileError(
  DataSet: TCustomClientDataSet; E: EReconcileError;
  UpdateKind: TUpdateKind; var Action: TReconcileAction);
begin
 Action:=HandleReconcileError(DataSet,updateKind,E);//这里使用来自对象库中的标准reconcile错误对话框
end;

end.