我在DBGridEh增加一栏复选框及对应操作的解决方案
最近客户有个需求,要求对单据列表里指定的单据进行批量审核,很自然的,我想到了在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增加一栏复选框及对应操作的解决方案的更多相关文章
- android 中单选和复选框监听操作
单选按钮RadioGroup.复选框CheckBox都有OnCheckedChangeListener事件,我们一起了解一下. package com.genwoxue.oncheckedchange ...
- Jquery对复选框CheckBox的操作
checkbox: 多选框 //获取选中值 checkbox:$("#checkbox_id").attr("value"): 多选框checkbox,打勾: ...
- jquery对复选框(checkbox)的操作(精华)
@{ Layout = null;} <!DOCTYPE html> <html><head> <meta name="viewport" ...
- 复选框批量删除操作-jquery方式
1.首先在页面添加一个批量删除的按钮:<li class="btns"><input id="deleteSubmit" class=&quo ...
- 【Telerik】实现列表单元格中添加复选框,进行状态(是、否)判断
前台界面: 需求:实现对每条细则是否必备进行判断,必备就勾选,否则不勾选. 首先:要保证列表GridView是可编辑的(IsReadOnly=false) 表格代码 其次:单元格的数据绑定要保证是双向 ...
- jQuery操作复选框的简单使用
开发中为了实现一个小功能,就是复选框的相互影响事件,如下图: 就是通过复选框设置权限,权限是分等级的,这是一个web管理系统的应用,一个管理员具有三个权限赋予,权限也是有等级的,其中删除和编辑权限相当 ...
- QTreeView/QTableView中利用QStandardItem实现复选框三种形态变化
https://www.techieliang.com/2017/12/729/ 原文地址 using_checkbox_item.h /** * @file using_checkbox_item. ...
- extjs 点击复选框在表格中增加相关信息行
功能效果:点击复选框在表格中自动增加相关信息行,复选框取消则表格中内容自动删除 初始效果大概是这样~~~~~ // 定义初始 存放表格数据 var gridItems = []; //省份复选框 va ...
- EasyUi datagrid列表增加复选框
本文为博主原创,未经允许不得转载 1.增加复选框列 { field: 'oid', title: '<input type=\"checkbox\" name ...
随机推荐
- js 代码大全(各种方法、属性)
事件源对象event.srcElement.tagNameevent.srcElement.type捕获释放event.srcElement.setCapture(); event.srcElemen ...
- C语言之带有数量可变的宏参数#define
1.定义格式如下 #define PR(...) printf(__VA_ARGS__) ...表示可变参数,__VA_ARGS__的作用是替换省略号的内容. 2.示例 #define ERROR( ...
- python代码优化-----cpu和内存监控
1.memory_profiler可以监控代码的内存消耗及增长量,以下面的代码为例. 发现在for循环里增加了0.3MB,这个工具可以帮助我们定位内存泄露的问题. 2.profile与cProfile ...
- 解决Kloxo出现Could not open database connection问题
当我们在使用或者运行kloxo面板的时候,可能会出现类似"Could not open database connection"错误提示,对于新手朋友来说肯定本身安装面板管理VPS ...
- Vue基础第二章
1.数据绑定与数据声明 Vue中的数据绑定就是让与Vue实例绑定的DOM节点或script标签内的变量之间数据更新互相影响,即数据绑定后Vue实例的数据修改会使DOM节点的数据或者script标签内的 ...
- linux基础命令--lsof
lsof(list open files)作用: 是一个列出当前系统打开文件的工具. 注: 在终端下输入lsof即可显示系统打开的文件,因为 lsof 需要访问核心内存和各种文件,所以必须以 root ...
- 一些项目中用到的php函数
#不为空 if (!empty($_POST)) { } #生成随机数 mt_rand(,)产生999-9999范围间的随机数
- 修改vue-cli脚手架顶部图标
1. 将ico图标放到static目录下 2. 在 build/webpack.dev.conf.js 文件修改 new HtmlWebpackPlugin({ ... favicon: './s ...
- POJ-2104-Kth Number(主席树)
链接: https://vjudge.net/problem/POJ-2104#author=malic 题意: 给定一个数组 a[1...n],数组元素各不相同,你的程序要对每次查询Q(i,j,k) ...
- 【NOIP2016提高A组模拟9.9】爬山
题目 国家一级爬山运动员h10今天获得了一张有着密密麻麻标记的地图,在好奇心的驱使下,他又踏上了去爬山的路. 对于爬山,h10有一个原则,那就是不走回头路,于是他把地图上的所有边都标记成了有向边.他决 ...