• Delphi实现DBGrid全选和反选功能


        Delphi实现Dbgrid全选和反选、清除全选的功能,不管是在Delphi下,还是在WEB开发中,这种功能都是很实用的,是进行数据批量操作的基础。本模块就是实现了为Delphi的DBGrid数据列表增加全选内容、清除全选的功能,很实用了,代码内容如下:

    //全选
    procedure TFrameCustSelector.ToolButton1Click(Sender: TObject);
    var
      OldCurrent: TBookmark;
    begin
      OldCurrent := DBGrid1.DataSource.DataSet.Bookmark;
      DBGrid1.DataSource.DataSet.DisableControls;
      DBGrid1.DataSource.DataSet.First ;
      while not DBGrid1.DataSource.DataSet.Eof do begin
        DBGrid1.SelectedRows.CurrentRowSelected := true;
        DBGrid1.DataSource.DataSet.Next;
      end;
      DBGrid1.DataSource.DataSet.GotoBookmark(OldCurrent);
      DBGrid1.DataSource.DataSet.EnableControls;
    end;
    //清除全选
    procedure TFrameCustSelector.ToolButton2Click(Sender: TObject);
    var
      OldCurrent: TBookmark;
    begin
      OldCurrent := DBGrid1.DataSource.DataSet.Bookmark;
      DBGrid1.DataSource.DataSet.DisableControls;
      DBGrid1.DataSource.DataSet.First ;
      while not DBGrid1.DataSource.DataSet.Eof do begin
        DBGrid1.SelectedRows.CurrentRowSelected := False;
        DBGrid1.DataSource.DataSet.Next;
      end;
      DBGrid1.DataSource.DataSet.GotoBookmark(OldCurrent);
      DBGrid1.DataSource.DataSet.EnableControls;
    end;
    //反选
    procedure TFrameCustSelector.ToolButton3Click(Sender: TObject);
    var
    OldCurrent: TBookmark;
    begin
      OldCurrent := DBGrid1.DataSource.DataSet.Bookmark;
      DBGrid1.DataSource.DataSet.DisableControls;
      DBGrid1.DataSource.DataSet.First ;
      while not DBGrid1.DataSource.DataSet.Eof do begin
        DBGrid1.SelectedRows.CurrentRowSelected := not DBGrid1.SelectedRows.CurrentRowSelected;
        DBGrid1.DataSource.DataSet.Next;
      end;
      DBGrid1.DataSource.DataSet.GotoBookmark(OldCurrent);
      DBGrid1.DataSource.DataSet.EnableControls;
    end;
  • 相关阅读:
    Spring 增强类型
    Spring IOC及Bean的生命周期
    Spring
    Mybatis注解
    MyBatis关联查询
    LoadRunner(1)
    Selenium(6)
    Selenium(5)
    Selenium(4)
    Selenium(3)
  • 原文地址:https://www.cnblogs.com/jijm123/p/8088095.html
Copyright © 2020-2023  润新知