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

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

Delphi控件源码

开发平台：

Delphi

ThinForm.pas：源码内容
  1. unit ThinForm;
  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.   TForm1 = class(TForm)
  12.     ClientDataSet1: TClientDataSet;
  13.     DataSource1: TDataSource;
  14.     Panel1: TPanel;
  15.     ButtonUpdate: TButton;
  16.     ButtonSnap: TButton;
  17.     ButtonReload: TButton;
  18.     OpenDialog1: TOpenDialog;
  19.     SaveDialog1: TSaveDialog;
  20.     ClientDataSet2: TClientDataSet;
  21.     ButtonDelta: TButton;
  22.     ButtonUndo: TButton;
  23.     DBGrid1: TDBGrid;
  24.     DCOMConnection1: TDCOMConnection;
  25.     ClientDataSet1DEPT_NO: TStringField;
  26.     ClientDataSet1EMP_NO: TSmallintField;
  27.     ClientDataSet1FIRST_NAME: TStringField;
  28.     ClientDataSet1HIRE_DATE: TSQLTimeStampField;
  29.     ClientDataSet1JOB_CODE: TStringField;
  30.     ClientDataSet1JOB_COUNTRY: TStringField;
  31.     ClientDataSet1JOB_GRADE: TSmallintField;
  32.     ClientDataSet1LAST_NAME: TStringField;
  33.     ClientDataSet1PHONE_EXT: TStringField;
  34.     ClientDataSet1Status: TStringField;
  35.     procedure ButtonUpdateClick(Sender: TObject);
  36.     procedure ButtonSnapClick(Sender: TObject);
  37.     procedure ButtonReloadClick(Sender: TObject);
  38.     procedure ButtonDeltaClick(Sender: TObject);
  39.     procedure ClientDataSet1CalcFields(DataSet: TDataSet);
  40.     procedure ButtonUndoClick(Sender: TObject);
  41.     procedure ClientDataSet1ReconcileError(DataSet: TClientDataSet;
  42.       E: EReconcileError; UpdateKind: TUpdateKind;
  43.       var Action: TReconcileAction);
  44.     procedure ClientDataSet1AfterPost(DataSet: TDataSet);
  45.     procedure Form1Create(Sender: TObject);
  46.   private
  47.     { Private declarations }
  48.   public
  49.     { Public declarations }
  50.   end;
  52. var
  53.   Form1: TForm1;
  55. implementation
  57. {$R *.DFM}
  59. uses
  60.   TypInfo, Reconc, DeltForm;
  62. procedure TForm1.ButtonUpdateClick(Sender: TObject);
  63. begin
  64.   ClientDataSet1.ApplyUpdates (-1);
  65.   FormDelta.Hide;
  66. end;
  68. procedure TForm1.ButtonSnapClick(Sender: TObject);
  69. begin
  70.   if SaveDialog1.Execute then
  71.     ClientDataSet1.SaveToFile (SaveDialog1.FileName);
  72. end;
  74. procedure TForm1.ButtonReloadClick(Sender: TObject);
  75. begin
  76.   if OpenDialog1.Execute then
  77.     ClientDataSet1.LoadFromFile (OpenDialog1.FileName);
  78. end;
  80. procedure TForm1.ButtonDeltaClick(Sender: TObject);
  81. begin
  82.   if ClientDataSet1.ChangeCount > 0 then
  83.   begin
  84.     ClientDataSet2.Data :=
  85.       ClientDataSet1.Delta;
  86.     ClientDataSet2.Open;
  87.     FormDelta.DataSource1.DataSet :=
  88.        ClientDataSet2;
  89.     FormDelta.Show;
  90.   end
  91.   else
  92.     FormDelta.Hide;
  93. end;
  95. procedure TForm1.ClientDataSet1CalcFields(DataSet: TDataSet);
  96. begin
  97.   ClientDataSet1Status.AsString :=
  98.     GetEnumName (TypeInfo(TUpdateStatus),
  99.       Integer (ClientDataSet1.UpdateStatus));
  100. end;
  102. procedure TForm1.ButtonUndoClick(Sender: TObject);
  103. begin
  104.   ClientDataSet1.UndoLastChange (True);
  105.   ClientDataSet1.RefreshRecord;
  106. end;
  108. procedure TForm1.ClientDataSet1ReconcileError(DataSet: TClientDataSet;
  109.   E: EReconcileError; UpdateKind: TUpdateKind;
  110.   var Action: TReconcileAction);
  111. begin
  112.   Action := HandleReconcileError(DataSet, UpdateKind, E);
  113. end;
  115. procedure TForm1.ClientDataSet1AfterPost(DataSet: TDataSet);
  116. begin
  117.   if FormDelta.Visible and
  118.     (ClientDataSet1.ChangeCount > 0) then
  119.   begin
  120.     ClientDataSet2.Data := ClientDataSet1.Delta;
  121.   end;
  122. end;
  124. procedure TForm1.Form1Create(Sender: TObject);
  125. begin
  126.   ClientDataSet1.Open;
  127. end;
  129. end.