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

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

Delphi控件源码

开发平台：

Delphi

BatchUpdatesU1.pas：源码内容
  1. unit BatchUpdatesU1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Grids, DBGrids, ExtCtrls, DB, ADODB, StdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     ADODataSet1: TADODataSet;
  12.     DataSource1: TDataSource;
  13.     Panel1: TPanel;
  14.     DBGrid1: TDBGrid;
  15.     Button1: TButton;
  16.     CheckBox1: TCheckBox;
  17.     ADOConnection1: TADOConnection;
  18.     Button2: TButton;
  19.     Button3: TButton;
  20.     procedure Button1Click(Sender: TObject);
  21.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  22.     procedure CheckBox1Click(Sender: TObject);
  23.     procedure Button2Click(Sender: TObject);
  24.     procedure Button3Click(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  31. var
  32.   Form1: TForm1;
  34. implementation
  36. {$R *.dfm}
  38. procedure TForm1.Button1Click(Sender: TObject);
  39. begin
  40.   ADODataSet1.UpdateBatch;
  41. end;
  43. function ADOUpdatesPending(ADODataSet: TCustomADODataSet): boolean;
  44. var
  45.   Clone: TADODataSet;
  46. begin
  47.   Clone:=TADODataSet.Create(nil);
  48.   try
  49.     Clone.Clone(ADODataSet);
  50.     Clone.FilterGroup:=fgPendingRecords;
  51.     Clone.Filtered   :=True;
  52.     Result:=not (Clone.BOF and Clone.EOF);
  53.   finally
  54.     Clone.Free;
  55.   end;
  56. end;
  58. procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  59. begin
  60.   CanClose:=True;
  61.   if ADOUpdatesPending(ADODataSet1) then
  62.     CanClose:=(MessageDlg('Updates are still pending'+#13#10+
  63.     'Close anyway ?', mtConfirmation, [mbYes, mbNo], 0)=mrYes);
  64. end;
  66. procedure TForm1.CheckBox1Click(Sender: TObject);
  67. begin
  68.   if CheckBox1.Checked then
  69.   begin
  70.     ADOConnection1.Connected:=True;
  71.     ADODataSet1.Connection:=ADOConnection1;
  72.   end
  73.   else
  74.   begin
  75.     ADODataSet1.Connection:=nil;
  76.     ADOConnection1.Connected:=False;
  77.   end;
  78. end;
  80. procedure TForm1.Button2Click(Sender: TObject);
  81. begin
  82.   ADODataSet1.SaveToFile('Local.ADTG');
  83. end;
  85. procedure TForm1.Button3Click(Sender: TObject);
  86. begin
  87.   ADODataSet1.SaveToFile('Local.XML', pfXML);
  88. end;
  90. end.