最近客户有个需求,要求对单据列表里指定的单据进行批量审核,很自然的,我想到了在DBGridEh增加一栏复选框的列,审核时遍历所有单据,将打了勾的单据审核就可以了。查阅了网上很多文章,不外有2个方案,1是在数据表里增加字段,2是直接在DBGridEh增加一个没有字段的栏,也许是我笨吧,2种方案试过了都不行,于是只能自己想办法了。研究了半天结合前面的2个方案,我想到了一个解决的方法,分享给大家吧。

一、在sql语句里增加一个字段

原来:select * from tbPerson

修改为:select *,bSel=Name from tbPerson

这样就多了一个和Name相同的字段,这个bSel就是一会要做成复选框栏目对应的字段

二、DBGridEh增加一列,字段名就是SQL语句里增加的bSel,CheckBoxes设为True, KeyList第1行是1,第2行是0。

三、在DataSet打开后,要将这个字段的内容清空,设为默认值0,为未选中状态。我用的是ADOQuery,设LockType为ltBatchOptimistic,允许修改表格内容。

procedure TForm_PRW0.QueryListAfterOpen(DataSet: TDataSet);
begin
  with QueryList do
  begin
    First;
    try
      DisableControls;   //禁止滚屏
      while not Eof do
      begin
        if (FieldByName('bSel').AsString<>'1') and (FieldByName('bSel').AsString<>'0') then //设置默认值是0,就是未选中状态
        begin
          Edit;
          FieldByName('bSel').AsString:='0';
          Post;
        end;
        Next;
      end;
      First;
      EnableControls;  //允许滚屏
    except
    end;

end;
end;

四、在审核过程中使用这个字段

1、全选

procedure TForm_PRW0.ActionSelAllExecute(Sender: TObject);
var
  vMark:TBookmark;
begin
  with QueryList do
  begin
    if not Active then Exit;
    vMark:=GetBookmark;
    First;
    try
      DisableControls;
      while not Eof do
      begin
        Edit;
        FieldByName('bSel').AsString:='1';
        Next;
      end;
      GotoBookmark(vMark);
    except
    end;
    EnableControls;
  end;
end;

2、审核前遍历所有单据

procedure TForm_PRW0.ActionGroupCheckExecute(Sender: TObject);
var
  vMark:TBookmark;
  vState,BillList:string;
  bNoChange:Boolean;
begin
  if not QueryList.Active then Exit;
  if not ActionCheck.Visible then Exit;
  vMark:=QueryList.GetBookmark;
  vState:=QueryList.FieldByname('State').AsString;
  if vState='' then
    vState:=DupeString('0',GV_StateLength);
  if MessageDlg('确认要批量审核所选的单据吗?',mtConfirmation,mbOKCancel,0)<>mrOK then
      Exit;
  bNoChange:=False;PKList:='';BillList:='';

with QueryList do
  begin
    First;
    while not Eof do
    begin
      vState:=FieldByName('state').AsString;
      if (Copy(vState,1,1)<>'1') or (FieldByName('bSel').AsString<>'1') then     //车间未确认或未选中 不操作
      begin
        bNoChange:=True;
        Next;
        Continue;
      end;
      PKList:=PKList+ Format(',''%s''',[FieldByName('PKID').AsString]);
      BillList:=BillList+ Format(',%s',[FieldByName('BillNo').AsString]);
      Next;
    end;
    if PKList='' then
    begin
      MessageDlg('没有发现要审核的单据!',mtInformation,[mbOK],0);
      Exit;
    end else
    begin
      PKList:=Copy(PKList,2,Length(PKList));
      BillList:=Copy(BillList,2,Length(BillList));
    end;
  end;

end;
---------------------

我在DBGridEh增加一栏复选框及对应操作的解决方案的更多相关文章

  1. android 中单选和复选框监听操作

    单选按钮RadioGroup.复选框CheckBox都有OnCheckedChangeListener事件,我们一起了解一下. package com.genwoxue.oncheckedchange ...

  2. Jquery对复选框CheckBox的操作

    checkbox: 多选框 //获取选中值  checkbox:$("#checkbox_id").attr("value"): 多选框checkbox,打勾: ...

  3. jquery对复选框(checkbox)的操作(精华)

    @{ Layout = null;} <!DOCTYPE html> <html><head> <meta name="viewport" ...

  4. 复选框批量删除操作-jquery方式

    1.首先在页面添加一个批量删除的按钮:<li class="btns"><input id="deleteSubmit" class=&quo ...

  5. 【Telerik】实现列表单元格中添加复选框,进行状态(是、否)判断

    前台界面: 需求:实现对每条细则是否必备进行判断,必备就勾选,否则不勾选. 首先:要保证列表GridView是可编辑的(IsReadOnly=false) 表格代码 其次:单元格的数据绑定要保证是双向 ...

  6. jQuery操作复选框的简单使用

    开发中为了实现一个小功能,就是复选框的相互影响事件,如下图: 就是通过复选框设置权限,权限是分等级的,这是一个web管理系统的应用,一个管理员具有三个权限赋予,权限也是有等级的,其中删除和编辑权限相当 ...

  7. QTreeView/QTableView中利用QStandardItem实现复选框三种形态变化

    https://www.techieliang.com/2017/12/729/ 原文地址 using_checkbox_item.h /** * @file using_checkbox_item. ...

  8. extjs 点击复选框在表格中增加相关信息行

    功能效果:点击复选框在表格中自动增加相关信息行,复选框取消则表格中内容自动删除 初始效果大概是这样~~~~~ // 定义初始 存放表格数据 var gridItems = []; //省份复选框 va ...

  9. EasyUi datagrid列表增加复选框

    本文为博主原创,未经允许不得转载 1.增加复选框列 {     field: 'oid',     title: '<input type=\"checkbox\" name ...

随机推荐

  1. puppet之资源

    资源 资源的定义 一个帐号,一个文件,目录,软件包都可以称作是资源,每个资源的定义都具有标题,类型,以及一些列属性. 常见的资源有notify(调试与输出),file(配置文件),package(软件 ...

  2. 将.py文件转换成.exe文件

    1.安装pyinstaller模块 pip install pyinstaller 2.打开python目录下的scripts文件夹 cmd下,使用pyinstaller -F test.py,运行后 ...

  3. tensorboard_embedding

    from tensorboardX import SummaryWriter import torchvision writer=SummaryWriter(log_dir="embeddi ...

  4. ie下不支持placeholder 用jquery来完成兼容

    这是我的第一个博客,还是写点正经的,希望对做前端朋友有所帮助.最近在做的项目placeholder不兼容ie,这个可以兼容IE的输入框的HTML新增的placeholder的显示下面是代码:$( do ...

  5. thinkphp之cookie操作

    cookie设置 命名空间 代码

  6. 【NOIP2016提高A组模拟8.19】(雅礼联考day2)总结

    第一题又有gcd,又有xor,本来想直接弃疗,不过后来想到了个水法: 当两个相邻的数满足条件时,那么他们的倍数也可能满足条件.然后没打,只打了个暴力. 正解就是各种结论,各种定理搞搞. 第二题,想都不 ...

  7. print和赋值

    赋值 #可同时(并行)给多个变量赋值 x, y, z = 1, 2, 3 #交换多个变量的值 x, y = y, x 序列解包(或可迭代对象解包):将一个序列(或任何可迭代对象)解包,并将得到的值存储 ...

  8. BigDecimal除法问题

    BigDecimal类的主要功能是进行小数的大数计算,而且最重要的是可以精确到指定的四舍五入位数. 如果要进行四舍五入的操作,则必须依靠以下的方法:public BigDecimal divide(B ...

  9. html applet标签 语法

    html applet标签 语法 作用:定义嵌入的 applet. 说明:某些浏览器中依然存在对 <applet> 但是需要额外的插件和安装过程才能起作用.大理石机械构件 注释:HTML5 ...

  10. js,正则实现金钱格式化

    https://blog.csdn.net/qq_36279445/article/details/78889305 https://github.com/jawil/blog/issues/30