开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
CdsDeltaDm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

CdsDeltaDm.pas：源码内容
  1. unit CdsDeltaDm;
  3. interface
  5. uses
  6.   SysUtils, Classes, FMTBcd, DBXpress, DB, SqlExpr, DBClient, Provider;
  8. type
  9.   TDmCds = class(TDataModule)
  10.     cdsEmployee: TClientDataSet;
  11.     cdsDelta: TClientDataSet;
  12.     SQLConnection: TSQLConnection;
  13.     EmplData: TSQLDataSet;
  14.     EmplProvider: TDataSetProvider;
  15.     cdsDeltaStatus: TStringField;
  16.     cdsEmployeeStatus: TStringField;
  17.     cdsEmployeeDEPT_NO: TStringField;
  18.     cdsEmployeeEMP_NO: TSmallintField;
  19.     cdsEmployeeFIRST_NAME: TStringField;
  20.     cdsEmployeeLAST_NAME: TStringField;
  21.     cdsEmployeePHONE_EXT: TStringField;
  22.     cdsDeltaDEPT_NO: TStringField;
  23.     cdsDeltaEMP_NO: TSmallintField;
  24.     cdsDeltaFIRST_NAME: TStringField;
  25.     cdsDeltaLAST_NAME: TStringField;
  26.     cdsDeltaSALARY: TBCDField;
  27.     cdsDeltaPHONE_EXT: TStringField;
  28.     cdsEmployeeSALARY: TFMTBCDField;
  29.     procedure CalcStatusField(DataSet: TDataSet);
  30.     procedure cdsEmployeeReconcileError(DataSet: TCustomClientDataSet;
  31.       E: EReconcileError; UpdateKind: TUpdateKind;
  32.       var Action: TReconcileAction);
  33.   private
  34.     { Private declarations }
  35.   public
  36.     { Public declarations }
  37.   end;
  39. var
  40.   DmCds: TDmCds;
  42. implementation
  44. {$R *.dfm}
  46. uses
  47.   TypInfo, Reconc;
  49. procedure TDmCds.CalcStatusField(DataSet: TDataSet);
  50. begin
  51.   DataSet.FieldByName('Status').AsString :=
  52.     GetEnumName (TypeInfo(TUpdateStatus),
  53.       Integer ((DataSet as TClientDataSet).UpdateStatus));
  54. end;
  56. procedure TDmCds.cdsEmployeeReconcileError(
  57.   DataSet: TCustomClientDataSet; E: EReconcileError;
  58.   UpdateKind: TUpdateKind; var Action: TReconcileAction);
  59. begin
  60.   Action := HandleReconcileError(DataSet, UpdateKind, E);
  61. end;
  63. end.