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

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

Delphi控件源码

开发平台：

Delphi

UpdateForm.pas：源码内容
  1. unit UpdateForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   IBDatabase, Db, IBCustomDataSet, IBUpdateSQL, IBQuery, DBTables,
  8.   ExtCtrls, DBCtrls, Grids, DBGrids, DBActns, ActnList, ComCtrls, ToolWin;
  10. type
  11.   TForm1 = class(TForm)
  12.     EmpDS: TDataSource;
  13.     IBQuery1: TIBQuery;
  14.     IBUpdateSQL1: TIBUpdateSQL;
  15.     IBDatabase1: TIBDatabase;
  16.     IBTransaction1: TIBTransaction;
  17.     DBGrid1: TDBGrid;
  18.     IBDataSet1: TIBDataSet;
  19.     ActionList1: TActionList;
  20.     DataSetCancel1: TDataSetCancel;
  21.     DataSetDelete1: TDataSetDelete;
  22.     DataSetEdit1: TDataSetEdit;
  23.     DataSetFirst1: TDataSetFirst;
  24.     DataSetInsert1: TDataSetInsert;
  25.     DataSetLast1: TDataSetLast;
  26.     DataSetNext1: TDataSetNext;
  27.     DataSetPost1: TDataSetPost;
  28.     DataSetPrior1: TDataSetPrior;
  29.     DataSetRefresh1: TDataSetRefresh;
  30.     acCommit: TAction;
  31.     acRollback: TAction;
  32.     ToolBar1: TToolBar;
  33.     ToolButton1: TToolButton;
  34.     ToolButton2: TToolButton;
  35.     ToolButton3: TToolButton;
  36.     ToolButton4: TToolButton;
  37.     ToolButton5: TToolButton;
  38.     ToolButton6: TToolButton;
  39.     ToolButton7: TToolButton;
  40.     ToolButton8: TToolButton;
  41.     ToolButton10: TToolButton;
  42.     ToolButton11: TToolButton;
  43.     ToolButton12: TToolButton;
  44.     ToolButton9: TToolButton;
  45.     procedure FormCreate(Sender: TObject);
  46.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  47.     procedure ActionUpdateTransactions(Sender: TObject);
  48.     procedure acCommitExecute(Sender: TObject);
  49.     procedure acRollbackExecute(Sender: TObject);
  50.   private
  51.     { Private declarations }
  52.   public
  53.     { Public declarations }
  54.   end;
  56. var
  57.   Form1: TForm1;
  59. implementation
  61. {$R *.DFM}
  63. uses
  64.   Registry;
  66. procedure TForm1.FormCreate(Sender: TObject);
  67. var
  68.   Reg: TRegistry;
  69. begin
  70.   Reg := TRegistry.Create;
  71.   try
  72.     Reg.RootKey := HKEY_LOCAL_MACHINE;
  73.     // Borland Shared/Data
  74.    {Reg.OpenKey('SoftwareBorlandBorland SharedData', False);
  75.     IBDatabase1.DatabaseName := Reg.ReadString('Rootdir') + 'employee.gdb';}
  77.     // InterBase 6 Bin + Sample database path
  78.     Reg.OpenKey('SoftwareBorlandInterBaseCurrentVersion', False);
  79.     IBDatabase1.DatabaseName := Reg.ReadString('RootDirectory') +
  80.       'examplesdatabaseemployee.gdb';
  81.   finally
  82.     Reg.CloseKey;
  83.     Reg.Free;
  84.   end;
  85.   EmpDS.DataSet.Open;
  86. end;
  88. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  89. var
  90.   nCode: Word;
  91. begin
  92.   if IBTransaction1.InTransaction then
  93.   begin
  94.     nCode := MessageDlg ('Commit Transaction? (No to rollback)',
  95.       mtConfirmation, mbYesNoCancel, 0);
  96.     case nCode of
  97.       mrYes: IBTransaction1.Commit;
  98.       mrNo: IBTransaction1.Rollback;
  99.       mrCancel: Action := caNone; // don't close
  100.     end;
  101.   end;
  102. end;
  104. procedure TForm1.ActionUpdateTransactions(Sender: TObject);
  105. begin
  106.   acCommit.Enabled := IBTransaction1.InTransaction;
  107.   acRollback.Enabled := acCommit.Enabled;
  108. end;
  110. procedure TForm1.acCommitExecute(Sender: TObject);
  111. begin
  112.   IBTransaction1.CommitRetaining;
  113. end;
  115. procedure TForm1.acRollbackExecute(Sender: TObject);
  116. begin
  117.   // or: IBTransaction1.RollbackRetaining;
  118.   IBTransaction1.Rollback;
  119.   IBTransaction1.StartTransaction;
  120.   EmpDS.DataSet.Open;
  121. end;
  123. end.