当前位置:首页 > 个人杂谈 > 正文内容

Delphi实现DBGridEh复选框功能

作者: 葛一速 | 日期: 2021-08-16 | 分类: 个人杂谈

Delphi如何实现DBGridEh复选框功能呢?其实很简单,只需要设置一下即可使用。

Delphi实现DBGridEh复选框功能

1、数据库中增加一个字段,(sqlserver:bit类型,oracle:number类型),值为0或1。

2、DBGridEh表格中列属性CheckBoxes设置为True。

设置以上2项后,在DBGridEh所对应的列就会变成复选框。

使用方式:

1、遍历所有记录,获取勾选的记录

procedure TfrmApp.Button1Click(Sender: TObject);
begin
qryM.First;
while not qryM.Eof do
begin
if qryM.FieldByName(‘sel’).AsInteger = 1 then   //复选框字段
begin
// 打勾的记录处理
end;
qryM.Next;
end;
end;

2、点击复选框时,处理事件

procedure TfrmApp.DBGridEh1CellClick(Column: TColumnEh);
begin
if Column.Title.Caption = ‘选择’ then
begin
if Column.Field.AsInteger = 0 then
begin
//勾选处理
end else
begin
//取消勾选处理
end;
end;
end;

以上2种使用方式可以满足大多数需求了,如果你还实现全选功能,那也简单,搜索一下一大堆,复制一下就可以用了。

等等,别走! ^_^

好消息,快手官方发红包啦,登录即送2元,秒提现! 查看详情>>

  • 评论:(0)

已有 0 位网友发表了一针见血的评论,你还等什么?

◎欢迎大家参与讨论

站内搜索