delete删除全部记录类的写法

删除全部记录的类的定义以下：

 

unit UDeleteAll;

interface
uses  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;

/// <summary>
/// 清空全部
/// </summary>
type TDeleteAll=class
  public
  class procedure deleteAllRecord (var sAqry:TADOQuery);
end;
implementation

uses 平常管理助手;
  class procedure TDeleteAll.deleteAllRecord (var sAqry:TADOQuery);
  var
  SBiao: string;
  begin
   SBiao:=copy(sAqry.name,4,length(sAqry.name)-3);
     try
        with TADOQuery.Create(nil) do
          begin
            Connection := frmDataPool.ADOConnection1;
            if messagedlg('删除全部记录?',mtconfirmation,[mbyes,mbno],0)<>mryes then
               Abort
            else
            begin
            SQL.Text := 'DELETE FROM ' + SBiao ;
            ExecSQL;
            end;
                //防止程序假死
            Application.ProcessMessages;
             //刷新下显示
            sAqry.Close;
            sAqry.Open;

          end;
     finally
      TADOQuery.Create(nil).Free;
     end;
  end;
end.

 

　应用以下：

procedure TForm3.Button15Click(Sender: TObject);
begin
 TDeleteAll.deleteAllRecord(frmDataPool.qry公司利润表);
end;

注意：用以前要先引用下类单元名；

如：uses UDeleteAll；　

 

不用定义类的时候的写法：

 

procedure TForm3.Button15Click(Sender: TObject);
begin
     try
        with TADOQuery.Create(nil) do
          begin
            Connection := frmDataPool.ADOConnection1;
            if messagedlg('删除全部记录?',mtconfirmation,[mbyes,mbno],0)<>mryes then
               Abort
            else
            begin
            SQL.Text := 'DELETE FROM 公司利润表';
            ExecSQL;
            end;
                //防止程序假死
            Application.ProcessMessages;
             //刷新下显示
            frmDataPool.qry公司利润表.Close;
            frmDataPool.qry公司利润表.Open;

          end;
     finally
      TADOQuery.Create(nil).Free;
     end;
end;

 

总结：

1.运用类的封装、继承、多态能够让业务逻辑的代码专注写成一个类单元，方便同一相似功能的引用，避免写屡次重复代码；

2.另外也增长了代码的简洁易懂，让界面设计里的代码尽量简洁；

也方便了维护，只要改功能变更，只需对类进行更改就能够对全部用该功能的地方修改；

3.因为类须要独立单元没有直接把代码写在事件里翻看省事，若是这个功能重用次数少适合直接写在代码事件里。