实现点击DBGrid的Title对查询结果排序
来源:互联网 发布:qq空间空格软件 编辑:程序博客网 时间:2024/05/22 17:31
//欲实现点击DBGrid的Title对查询结果排序,想作一个通用程序,不是一事一议,
//而且点击另一个Title时又要另外排序,目的是想作到象资源管理器那样随心所欲。
procedure TForm5.dbgrd1TitleClick(Column: TColumn);
var
myFieldName: string;
begin
if not (Column.Field.FieldKind in [fkData,fkLookup]) then exit;
if Column.Field.FieldKind =fkData then
myFieldName := UpperCase(Column.Field.FieldName)
else
myFieldName := UpperCase(Column.Field.KeyFields);
while Pos(myFieldName,';')<>0 do
myFieldName := copy(myFieldName,1,Pos(myFieldName,';')-1)
+ ',' + copy(myFieldName,Pos(myFieldName,';')+1,100); //把";"改为","
with TADOQuery(TDBGrid(Column.Grid).DataSource.DataSet) do
begin
if Column.Field.Tag=0 then
begin
sort:=myFieldName + ' ASC';
Column.Field.Tag:=1;
end
else
begin
sort:=myFieldName + ' Desc';
Column.Field.Tag:=0;
end;
end;
end;
//而且点击另一个Title时又要另外排序,目的是想作到象资源管理器那样随心所欲。
procedure TForm5.dbgrd1TitleClick(Column: TColumn);
var
myFieldName: string;
begin
if not (Column.Field.FieldKind in [fkData,fkLookup]) then exit;
if Column.Field.FieldKind =fkData then
myFieldName := UpperCase(Column.Field.FieldName)
else
myFieldName := UpperCase(Column.Field.KeyFields);
while Pos(myFieldName,';')<>0 do
myFieldName := copy(myFieldName,1,Pos(myFieldName,';')-1)
+ ',' + copy(myFieldName,Pos(myFieldName,';')+1,100); //把";"改为","
with TADOQuery(TDBGrid(Column.Grid).DataSource.DataSet) do
begin
if Column.Field.Tag=0 then
begin
sort:=myFieldName + ' ASC';
Column.Field.Tag:=1;
end
else
begin
sort:=myFieldName + ' Desc';
Column.Field.Tag:=0;
end;
end;
end;
- 实现点击DBGrid的Title对查询结果排序
- 点击DBGrid的Title对查询结果排序
- 点击DBGrid的Title对查询结果排序
- 最全面的DBGrid点击标题实现排序
- mysql对查询的结果集排序
- 用DBGrid控件配合数据集组件的Sort属性实现“点击标题栏自动排序功能”。
- 用DBGrid控件的Sort属性实现“点击标题栏自动排序功能”
- 巧用DBGrid控件的Sort属性实现“点击标题栏自动排序功能”。(改进版本)
- 巧用DBGrid控件的Sort属性实现“点击标题栏自动排序功能
- struts2实现对查询结果的下载
- ClientDataSet 配合 DBGrid 实现 点击标题进行 排序
- 对Hibernate 查询结果排序
- 对查询结果随机排序
- mysql对查询结果排序
- MySQL对查询结果排序
- MySQL对查询结果排序
- DBGridEh,DBGrid点击标题排序
- DBGridEh,DBGrid点击标题排序
- C#开发和使用中的几个实现方法
- 浅析Visual C# 2005的应用
- 工作流技术杂谈(2007)
- CCP的简单的代码生成器v0.3
- C++可怜的内存管理机制漫谈及奇怪补救auto_ptr介绍
- 实现点击DBGrid的Title对查询结果排序
- 极限linux - LinuxBios / OpenBios
- 如何删除空行
- 用反射调用任意.net库中的方法
- 够用一辈子的几句话
- Linux系统下的C语言开发都需要学些什么
- 网络配置随时互换
- vc中对标准库std::min,max,swap的支持问题
- C#读取Excel数据