Delphi中DBgrid控件数据库点击某列按序排列
来源:互联网 发布:淘宝session处理失败 编辑:程序博客网 时间:2024/05/22 05:26
Delphi中DBgrid控件数据库点击某列按序排列
procedure Tmainform.DBGrid2TitleClick(Column: TColumn);
var i : integer;begin
for i:= 1 to DBGrid2.Columns.Count do
begin
//恢复所有标题字体为默认
DBGrid2.Columns[i-1].Title.Font.Color := clWindowText;
DBGrid2.Columns[i-1].Title.Font.Style := [];
end;
if DataModule1.recevierADOQuery.Sort<>(Column.FieldName+' ASC') then //判断原排序方式
begin
DataModule1.recevierADOQuery.Sort := Column.FieldName+' ASC';
Column.Title.Font.Color := clRed; //改变标题行字体为红色,表示当前的排序方式为升序
Column.Title.Font.Style := [fsBold];
end
else
begin
DataModule1.recevierADOQuery.Sort := Column.FieldName+' DESC';
Column.Title.Font.Color := clBlue; //改变标题行字体为红色,表示当前的排序方式为降序
Column.Title.Font.Style := [fsBold];
end;
end;
0 0
- Delphi中DBgrid控件数据库点击某列按序排列
- Delphi中的DBGrid控件
- Delphi中的DBGrid控件
- Delphi中实现DBGrid列宽度自动调整
- Delphi调整Dbgrid列宽
- 【delphi】DBGrid中插入图片
- Delphi中DBGrid 应用全书
- Delphi DBGrid中嵌套按钮
- Delphi中如何点击DBgrid中的一行,而获取选中行的各字段的值
- Delphi中点击DBGrid某一行获得其详细数据方法
- 清除delphi 控件DBgrid 的记录
- Delphi DBgrid DBCtrlGrid控件的滾動條問題
- DBGrid控件“点击标题栏自动排序功能”
- DBGrid控件“点击标题栏自动排序功能”
- delphi 中得DBGRID实现鼠标滚动。
- Delphi 7 中DBGrid的排序。
- Delphi 7 中DBGrid的排序
- delphi DBGrid自动适应列宽(转)
- 性能测试之应用服务器计数器分析方法
- KMP算法详解(转)
- 性能测试之数据库服务器计数器分析方法
- Java内存分析
- Linux 下man 命令的使用
- Delphi中DBgrid控件数据库点击某列按序排列
- 编程中遇到的Handler问题
- Java的内存回收机制(附图)
- Android 的 init.rc 文件简介
- 什么是对象,为什么要面向对象,怎么才能面向对象?
- selenium + python之元素定位(三)
- Windows 7下安装配置Latex
- Function Run Fun
- 通过文件句柄获取文件路径