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

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

Delphi控件源码

开发平台：

Delphi

CdsDeltaForm.pas：源码内容
  1. unit CdsDeltaForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Db, DBClient, Grids, DBGrids, StdCtrls, ExtCtrls, ComCtrls, MConnect,
  8.   MidasCon;
  10. type
  11.   TFormCds = class(TForm)
  12.     DataSource1: TDataSource;
  13.     Panel1: TPanel;
  14.     ButtonUpdate: TButton;
  15.     ButtonDelta: TButton;
  16.     ButtonUndo: TButton;
  17.     PageControl1: TPageControl;
  18.     TabSheetData: TTabSheet;
  19.     TabSheetDelta: TTabSheet;
  20.     DBGrid2: TDBGrid;
  21.     DataSource2: TDataSource;
  22.     DBGrid1: TDBGrid;
  23.     procedure ButtonUpdateClick(Sender: TObject);
  24.     procedure ButtonDeltaClick(Sender: TObject);
  25.     procedure ButtonUndoClick(Sender: TObject);
  26.     procedure FormCreate(Sender: TObject);
  27.     procedure PageControl1Change(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  34. var
  35.   FormCds: TFormCds;
  37. implementation
  39. {$R *.DFM}
  41. uses
  42.   TypInfo, Reconc, CdsDeltaDm;
  44. procedure TFormCds.ButtonUpdateClick(Sender: TObject);
  45. begin
  46.   DmCds.cdsEmployee.ApplyUpdates (-1);
  47.   // activate data and hide delta
  48.   PageControl1.ActivePage := TabSheetData;
  49.   TabSheetDelta.TabVisible := False;
  50. end;
  52. procedure TFormCds.ButtonDeltaClick(Sender: TObject);
  53. begin
  54.   if DmCds.cdsEmployee.ChangeCount > 0 then
  55.   begin
  56.     DmCds.cdsDelta.Data := DmCds.cdsEmployee.Delta;
  57.     DmCds.cdsDelta.Open;
  58.     // activate delta
  59.     TabSheetDelta.TabVisible := True;
  60.     PageControl1.ActivePage := TabSheetDelta;
  61.   end
  62.   else
  63.   begin
  64.     TabSheetDelta.TabVisible := False;
  65.     ShowMessage ('No udpates in log');
  66.   end;
  67. end;
  69. procedure TFormCds.ButtonUndoClick(Sender: TObject);
  70. begin
  71.   DmCds.cdsEmployee.UndoLastChange (True);
  72. end;
  74. procedure TFormCds.FormCreate(Sender: TObject);
  75. begin
  76.   DmCds.cdsEmployee.Open;
  77.   TabSheetDelta.TabVisible := False;
  78. end;
  80. procedure TFormCds.PageControl1Change(Sender: TObject);
  81. begin
  82.   if PageControl1.ActivePage = TabSheetDelta then
  83.     if DmCds.cdsEmployee.ChangeCount > 0 then
  84.       DmCds.cdsDelta.Data := DmCds.cdsEmployee.Delta
  85.     else
  86.     begin
  87.       TabSheetDelta.TabVisible := False;
  88.       PageControl1.ActivePage := TabSheetData;
  89.     end;
  90. end;
  92. end.