home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Database / ejemplos / TPRovider / Unit2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-03-03  |  1.5 KB  |  64 lines
  1. unit Unit2;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Db, Provider, BdeProv, DBClient, DBTables;
  8.  
  9. type
  10.   TDataModule2 = class(TDataModule)
  11.     Database1: TDatabase;
  12.     Table1: TTable;
  13.     Table2: TTable;
  14.     ClientDataSet1: TClientDataSet;
  15.     ClientDataSet2: TClientDataSet;
  16.     Provider1: TProvider;
  17.     Provider2: TProvider;
  18.     ClientDataSet3: TClientDataSet;
  19.     ClientDataSet4: TClientDataSet;
  20.     DataSource1: TDataSource;
  21.     DataSource2: TDataSource;
  22.     DataSource3: TDataSource;
  23.     DataSource4: TDataSource;
  24.     procedure ClientDataSet1ReconcileError(DataSet: TClientDataSet;
  25.       E: EReconcileError; UpdateKind: TUpdateKind;
  26.       var Action: TReconcileAction);
  27.     procedure ClientDataSet2ReconcileError(DataSet: TClientDataSet;
  28.       E: EReconcileError; UpdateKind: TUpdateKind;
  29.       var Action: TReconcileAction);
  30.   private
  31.     { Private declarations }
  32.   public
  33.     { Public declarations }
  34.   end;
  35.  
  36. var
  37.   DataModule2: TDataModule2;
  38.  
  39. implementation
  40.  
  41. uses unit4;
  42. {$R *.DFM}
  43.  
  44.  
  45.  
  46. procedure TDataModule2.ClientDataSet1ReconcileError(
  47.   DataSet: TClientDataSet; E: EReconcileError; UpdateKind: TUpdateKind;
  48.   var Action: TReconcileAction);
  49. begin
  50.   Action := HandleReconcileError(DataSet, UpdateKind, E);
  51. end;
  52.  
  53. procedure TDataModule2.ClientDataSet2ReconcileError(
  54.   DataSet: TClientDataSet; E: EReconcileError; UpdateKind: TUpdateKind;
  55.   var Action: TReconcileAction);
  56. begin
  57.   Action := HandleReconcileError(DataSet, UpdateKind, E);
  58. end;
  59.  
  60. end.
  61.  
  62.  
  63.  
  64.