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;
  • 相关阅读:
    C#中的一些访问修饰符
    Win7下各种Oracle服务的作用
    MySql创建视图
    Sql Server SQL语句创建数据库
    C语言函数指针:获得任意类型数组的最大
    SQLHelper帮助类
    .Net有哪些大型项目、大型网站的案例
    复习一些小知识
    Js作用域与作用域链
    路飞-自定义User表和Media配置
  • 原文地址:https://www.cnblogs.com/ddxxxb/p/7061599.html
Copyright © 2011-2022 走看看