(转载)通过dbgrideh 从数据集中选择合适的记录
2013-10-16 22:50
369 查看
通过dbgrideh 从数据集中选择合适的记录
//---------------------------------------------------------
// 通过dbgrideh 从数据集中选择合适的记录
//---------------------------------------------------------
比较常用,前几天好像论坛上有人提过类似问题,哪位朋友有更好的办法,请不吝赐教。
通过dbgrideh 从数据集中选择合适的记录,可以通过鼠标拖动选择,shift 多选。
1、dggrideh 的 options = [dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit,dgMultiSelect]
主要是 dgRowSelect 和 dgMultiSelect;
2、optionsEH = [dghFixed3D,dghHighlightFocus,dghDialogFind]
dghClearSelection = false; // 可以避免自动清除前面的选择
3、添加一个标示列
4、通过标示列显示用户选择的情况:
procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
if (DataCol = 3) and DBGridEh1.SelectedRows.CurrentRowSelected then //3 标示列的index
begin
DBGridEh1.Canvas.Brush.Color:=clGray;
DBGridEh1.Canvas.FillRect(Rect);
DBGridEh1.Canvas.font.color:=clRed;
DBGridEh1.Canvas.Textout(rect.Left,rect.Top,'√');
end;
end;
5、全选和全不选
DBGridEh1.SelectedRows.SelectAll;
DBGridEh1.SelectedRows.Clear;
6、如何使用 (delphi help)
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
s: string;
begin
if DBGridEh1.SelectedRows.Count>0 then
with DBGridEh1.DataSource.DataSet do
for i:=0 to DBGridEh1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGridEh1.SelectedRows.Items[i]));
for j := 0 to FieldCount-1 do
begin
if (j>0) then s:=s+', ';
s:=s+Fields[j].AsString;
end;
Listbox1.Items.Add(s);
s:= '';
end;
end;
7、缺陷:不能用dbgrideh的自动排序功能。
//---------------------------------------------------------
// 通过dbgrideh 从数据集中选择合适的记录
//---------------------------------------------------------
比较常用,前几天好像论坛上有人提过类似问题,哪位朋友有更好的办法,请不吝赐教。
通过dbgrideh 从数据集中选择合适的记录,可以通过鼠标拖动选择,shift 多选。
1、dggrideh 的 options = [dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit,dgMultiSelect]
主要是 dgRowSelect 和 dgMultiSelect;
2、optionsEH = [dghFixed3D,dghHighlightFocus,dghDialogFind]
dghClearSelection = false; // 可以避免自动清除前面的选择
3、添加一个标示列
4、通过标示列显示用户选择的情况:
procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
if (DataCol = 3) and DBGridEh1.SelectedRows.CurrentRowSelected then //3 标示列的index
begin
DBGridEh1.Canvas.Brush.Color:=clGray;
DBGridEh1.Canvas.FillRect(Rect);
DBGridEh1.Canvas.font.color:=clRed;
DBGridEh1.Canvas.Textout(rect.Left,rect.Top,'√');
end;
end;
5、全选和全不选
DBGridEh1.SelectedRows.SelectAll;
DBGridEh1.SelectedRows.Clear;
6、如何使用 (delphi help)
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
s: string;
begin
if DBGridEh1.SelectedRows.Count>0 then
with DBGridEh1.DataSource.DataSet do
for i:=0 to DBGridEh1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGridEh1.SelectedRows.Items[i]));
for j := 0 to FieldCount-1 do
begin
if (j>0) then s:=s+', ';
s:=s+Fields[j].AsString;
end;
Listbox1.Items.Add(s);
s:= '';
end;
end;
7、缺陷:不能用dbgrideh的自动排序功能。
相关文章推荐
- android 通过蓝牙接收文件,从历史传输记录打开,无法自动选择合适的应用程序
- 选择绑定数据源时的提示信息与DataSet数据集中的信息不一致的故障
- Spark求数据集中同一主键记录中的最新数据
- 选择合适的数据类型char和varchar , text和blob,浮点数(float)和定点数(decimal),日期类型选择,字符集的选择
- 通过触发器实现记录数据的修改日志
- AngularJS:表格中选择了多个复选框后如何通过点击提交按钮将复选框选中的数据提取出来
- Android 应用开发 之通过AsyncTask与ThreadPool(线程池)两种方式异步加载大量数据的分析与对比--转载
- 关于通过web页面删除数据记录的设计改进
- 数据集中快速查找记录小结
- PHP 读取数据库 数据集中记录的总条数
- mysql如何选择合适的数据类型1:CHAR与VARCHAR
- Oracle通过DBLink操作数据表,报错“ORA-22992:无法使用从远程表选择的lob定位器”
- [转载] 单表60亿记录等大数据场景的MySQL优化和运维之道 | 高可用架构
- 学习笔记_android之选择合适的数据存储方式
- mysql 开发基础系列12 选择合适的数据类型(上)
- 选择合适的数据类型
- mysql数据库优化--选择合适的数据类型
- 选择合适的数据类型char和varchar , text和blob,浮点数(float)和定点数(decimal),日期类型选择,字符集的选择
- 通过SMExportToExcel控件导出DBGrid、DBGridEh里的数据
- jquery jqGrid翻页记录原来数据并勾选已选择的数据