方法1：单击事件写法：

 

procedure TForm3.N9Click(Sender: TObject); begin with frmDataPool.qry需要做的事 do begin Close; SQL.Text :='UPDATE 需要做的事 SET 选中 = 0'; ExecSQL; end;     //防止程序假死 // Application.ProcessMessages;//  //刷新下显示// with sAqry do// begin// Close;// SQL.Text :='select * from ' + SBiao ;// Open;// end;TInitializeDatabaseAdoSqlApi.accessAdoToSql(frmDataPool.qry需要做的事); end;

 

 

 

方法2：类写法：

unit UUnSelectAll;interfaceuses  FDataPool, Data.DB, Data.Win.ADODB, Vcl.Menus,  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls,  Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids, Clipbrd,  Vcl.StdCtrls;/// 
/// 全选更新所有记录选中值为0/// 
type TUnSeleteAll=class public class procedure unSelectAllRecord (var sAqry:TADOQuery);end;implementationuses 日常管理助手, UInitializeDatabaseAdoSqlApi; class procedure TUnSeleteAll.unSelectAllRecord(var sAqry:TADOQuery); var SBiao: string; begin SBiao:=copy(sAqry.name,4,length(sAqry.name)-3); with sAqry do begin Close; SQL.Text :='UPDATE ' + SBiao + ' SET 选中 = 0'; ExecSQL; end;     //防止程序假死 Application.ProcessMessages;//  //刷新下显示// with sAqry do// begin// Close;// SQL.Text :='select * from ' + SBiao ;// Open;// end;TInitializeDatabaseAdoSqlApi.accessAdoToSql(sAqry); end;end.

 

类引用：注意别忘记uses语句中添加引用类的单元名；（uses UUnSelectAll ;）

procedure TForm3.N9Click(Sender: TObject);beginTUnSeleteAll.unSelectAllRecord(frmDataPool.qry需要做的事);//全不选记录，更改选中列为0end;