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种使用方式可以满足大多数需求了，如果你还实现全选功能，那也简单，搜索一下一大堆，复制一下就可以用了。