点击标题排序
来源:互联网 发布:上海哪个宽带网络便宜 编辑:程序博客网 时间:2024/05/11 17:12
曾看见CSDN文档中有介绍到:通过ADOQuery或其它数据集组件的Sort属性配合DBGrid的OnTitleClick事件,可以方便地实现此功能。因为Sort属性可以让活动数据集按指定的字段进行排序,也可以选择排序方式(升序/降序)。这个功能的确很实用。(http: //blog.csdn.net/jlee084/archive/2004/12/20/223284.aspx)。我改进了一下这功能,在单击标题后分别在标题加上三角(▲)和倒三角形(▼)表示当前排序方式为升序和降序;
- procedure TForm1.DBGrid1TitleClick(Column: TColumn);
- var
- I,ii:Integer;
- cStr:string;
- c:TColumn;
- begin
- for ii:=0 to TDBGrid(Column.Grid).Columns.Count-1 do
- begin
- c:=TDBGrid(Column.Grid).Columns[ii];
- cStr:=c.Title.Caption;
- if (pos('▲',cStr)=1) or (pos('▼',cStr)=1) then
- begin
- Delete(cStr,1,2);
- c.Title.Caption:=cStr;
- end;
- end;
- for i:= 1 to DBGrid1.Columns.Count do
- begin
- //恢复所有标题字体为默认
- DBGrid1.Columns[i-1].Title.Font.Color := clWindowText;
- DBGrid1.Columns[i-1].Title.Font.Style := [];
- end;
- if ADOQuery1.Sort<>(Column.FieldName+ 'ASC') then //判断原排序方式
- begin
- ADOQuery1.Sort := Column.FieldName+' ASC';
- //Column.Title.Font.Color := clRed; //改变标题行字体为红色,表示当前的排序方式为升序
- Column.Title.Font.Style := [fsBold];
- Column.Title.Caption:='▲'+Column.Title.Caption; //标题加上三角形表示当前排序方式为升序;
- end
- else begin
- ADOQuery1.Sort := Column.FieldName+ 'DESC';
- //Column.Title.Font.Color := clBlue; //改变标题行字体为红色,表示当前的排序方式为降序
- Column.Title.Font.Style := [fsBold];
- Column.Title.Caption:='▼'+Column.Title.Caption; //标题加上倒三角形表示当前排序方式为降序;
- end;
- end;
- procedure TForm1.Button1Click(Sender: TObject);
- var
- Index: Integer;
- begin
- for Index := 0 to ControlCount - 1 do
- begin
- if Components[Index] is TEdit then
- begin
- (Components[Index] as TEdit).Text := '';
- end;
- end;
- end;
- 点击标题排序
- GridView点击标题排序
- DBGridEH - 实现点击标题排序
- c# listview点击标题排序
- DBGridEh,DBGrid点击标题排序
- DBGridEh,DBGrid点击标题排序
- QtCreator 点击标题排序,QHeadView
- JS点击标题自动排序
- JS 点击标题进行排序
- dbgrideh如何实现点击标题排序
- 点击标题条对数据窗口排序
- Listview中实现点击栏目标题排序
- C# 禁止 DataGridView 点击 列标题 排序
- dbgrideh如何实现点击标题排序
- 点击列标题改变列表排序方式
- bcb中点击DBGrid标题进行排序
- QTreeView点击标题头列可排序,不可移动
- winform dataGridView 点击列标题排序
- c++学习笔记-- 模板函数
- 喜欢玩“社交网站”吗
- 【转载】解析“extern”--keen的专栏
- 外部程序控制技术
- GNU Toolchain —— (三)gdb 调试
- 点击标题排序
- 境界
- 线程排序
- TWebBrowser编程
- 必须掌握的八个【cmd 命令行】
- 学习java的30个目标
- 08年"十一"
- Delphi操作Excel的技巧
- DataBinder_Eval用法