home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / Runimage / Delphi50 / Help / Examples / Update / cupdm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  1.5 KB  |  58 lines
  1. unit CUpDM;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DB, DBTables;
  8.  
  9. type
  10.   TDataModuleCache = class(TDataModule)
  11.     TableRefresh: TTable;
  12.     DataSourceCache: TDataSource;
  13.     DataSourceRefresh: TDataSource;
  14.     QueryCache: TQuery;
  15.     UpdateSQLCache: TUpdateSQL;
  16.     QueryCacheCUST_NO: TIntegerField;
  17.     QueryCacheCUSTOMER: TStringField;
  18.     QueryCacheCONTACT_FIRST: TStringField;
  19.     QueryCacheCONTACT_LAST: TStringField;
  20.     QueryCachePHONE_NO: TStringField;
  21.     QueryCacheADDRESS_LINE1: TStringField;
  22.     QueryCacheADDRESS_LINE2: TStringField;
  23.     QueryCacheCITY: TStringField;
  24.     QueryCacheSTATE_PROVINCE: TStringField;
  25.     QueryCacheCOUNTRY: TStringField;
  26.     QueryCachePOSTAL_CODE: TStringField;
  27.     QueryCacheON_HOLD: TStringField;
  28.     DBaseCache: TDatabase;
  29.     procedure QueryCacheUpdateError(DataSet: TDataSet; E: EDatabaseError;
  30.       UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  36.  
  37. var
  38.   DataModuleCache: TDataModuleCache;
  39.  
  40. implementation
  41.  
  42. uses CUpError;
  43.  
  44. {$R *.DFM}
  45.  
  46. procedure TDataModuleCache.QueryCacheUpdateError(DataSet: TDataSet;
  47.   E: EDatabaseError; UpdateKind: TUpdateKind;
  48.   var UpdateAction: TUpdateAction);
  49. begin
  50.   if EDBEngineError(e).errors[0].errorcode = 9729 then
  51.   begin
  52.     UpdateAction := FormError.ErrorDecision(DataSet, E, UpdateKind);
  53.   end;
  54. end;
  55.  
  56.  
  57. end.
  58.