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

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

Delphi控件源码

开发平台：

Delphi

main.pas：源码内容
  1. unit main;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, Db, DBTables, Grids, DBGrids;
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     DBGrid1: TDBGrid;
  13.     Database1: TDatabase;
  14.     Table1: TTable;
  15.     DataSource1: TDataSource;
  16.     grpIsolation: TRadioGroup;
  17.     grpTransaction: TGroupBox;
  18.     btnRollback: TButton;
  19.     btnStart: TButton;
  20.     btnCommit: TButton;
  21.     btnRefresh: TButton;
  22.     btnClose: TButton;
  23.     grpUpdate: TRadioGroup;
  24.     procedure grpIsolationClick(Sender: TObject);
  25.     procedure btnStartClick(Sender: TObject);
  26.     procedure btnCommitClick(Sender: TObject);
  27.     procedure btnRollbackClick(Sender: TObject);
  28.     procedure btnCloseClick(Sender: TObject);
  29.     procedure btnRefreshClick(Sender: TObject);
  30.     procedure grpUpdateClick(Sender: TObject);
  31.     procedure FormCreate(Sender: TObject);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  38. var
  39.   Form1: TForm1;
  41. implementation
  43. {$R *.DFM}
  45. procedure TForm1.grpIsolationClick(Sender: TObject);
  46. begin
  47.   Database1.TransIsolation := TTransIsolation(grpIsolation.ItemIndex);
  48. end;
  50. procedure TForm1.btnStartClick(Sender: TObject);
  51. begin
  52.   Database1.StartTransaction;
  53.   btnStart.Enabled := False;
  54.   btnCommit.Enabled := True;
  55.   btnRollback.Enabled := True;
  56. end;
  58. procedure TForm1.btnCommitClick(Sender: TObject);
  59. begin
  60.   Database1.Commit;
  61.   btnStart.Enabled := True;
  62.   btnCommit.Enabled := False;
  63.   btnRollback.Enabled := False;
  64. end;
  66. procedure TForm1.btnRollbackClick(Sender: TObject);
  67. begin
  68.   Database1.Rollback;
  69.   btnStart.Enabled := True;
  70.   btnCommit.Enabled := False;
  71.   btnRollback.Enabled := False;
  72. end;
  74. procedure TForm1.btnCloseClick(Sender: TObject);
  75. begin
  76.   Close;
  77. end;
  79. procedure TForm1.btnRefreshClick(Sender: TObject);
  80. begin
  81.   Table1.Close;
  82.   Table1.Open;
  83. end;
  85. procedure TForm1.grpUpdateClick(Sender: TObject);
  86. begin
  87.   Table1.UpdateMode := TUpdateMode(grpUpdate.ItemIndex);
  88. end;
  90. procedure TForm1.FormCreate(Sender: TObject);
  91. begin
  92.   Table1.Open;
  93. end;
  95. end.