zoukankan      html  css  js  c++  java
  • 删除选中记录

    方法1:独立事件单独写法

    procedure TForm3.N13Click(Sender: TObject);
    var
    MyAdoq:TADOQuery;
    begin
      MyAdoq := TADOQuery.Create(nil);
      try
        MyAdoq.Connection := frmDataPool.ADOConnection1;
        with MyAdoq do
        begin
          SQL.Text := 'DELETE from 需要做的事 where 选中 = true';
          ExecSQL;
        end;
        //防止程序假死
        Application.ProcessMessages;
        //刷新纪录
        frmDataPool.qry需要做的事.Close;
        frmDataPool.qry需要做的事.Open;
      finally
        MyAdoq.Free;
      end;
    end;

    方法2:类写法

    unit UDeleteSelectTrue;
    
    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;
    type TDeleteSelectTrue = class
      public
      class procedure deletetruerecord(var sAdq:TADOQuery);
    end;
    
    implementation
     class procedure TDeleteSelectTrue.deletetruerecord(var sAdq: TADOQuery);
      var
      ABiao: string;
     begin
      ABiao:=copy(sAdq.name,4,length(sAdq.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 ' + ABiao + ' WHERE 选中 = true';
          //showmessage(sql.text);
          ExecSQL;
          end;
        end;
        //防止程序假死
        Application.ProcessMessages;
        //刷新纪录
        sAdq.Requery();
     finally
     TADOQuery.Create(nil).Free;
     end;
     end;
    end.

    类引用:uses语句中添加类单元名(UDeleteSelectTrue);

    procedure TForm3.N13Click(Sender: TObject);
    begin
    TDeleteSelectTrue.deletetruerecord(frmDataPool.qry需要做的事);  //删除选中记录
    end;
  • 相关阅读:
    iOS ----------各种判断
    iOS----------常见宏定义
    iOS-----------进阶书籍收藏
    iOS----------YYModel
    Mac 系统占用100g的解决办法
    MAC终端常用语法
    iOS----------网络请求错误
    【2020Python修炼记】前端开发之 CSS基础和CSS选择器
    【2020Python修炼记】前端开发之 HTML常用标签汇总
    【教程干货】前端学习网站·资源
  • 原文地址:https://www.cnblogs.com/ddxxxb/p/7061599.html
Copyright © 2011-2022 走看看