DBGridEh实现单击标题栏排序方法

2016-02-19 19:55 6 1 收藏

在这个颜值当道，屌丝闪边的时代，拼不过颜值拼内涵，只有知识丰富才能提升一个人的内在气质和修养，所谓人丑就要多学习，今天图老师给大家分享DBGridEh实现单击标题栏排序方法，希望可以对大家能有小小的帮助。

【 tulaoshi.com - 编程语言】

1.添加引用:DBClient2.置DBGridEh控件属性: 设置dghAutoSortMarking属性为true 设置希望排序的Column的TitleButton属性为true3.//表格排序过程
　　procedure OrderGrid(dataSet:TClientDataset;orderField:string);
　　var
　　 i:integer;
　　begin
　　 if dataSet.IndexFieldNames'' then
　　 begin
　　    i:=TClientDataSet(DataSet).IndexDefs.IndexOf('i'+orderField);
　　    if i=-1 then
　　    begin
　　      with Dataset.IndexDefs.AddIndexDef do
　　      begin
　　        Name:='i'+orderField;
　　        Fields:=orderField;
　　        DescFields:=orderField;
　　      end;
　　    end;
　　    dataSet.IndexFieldNames:='';
　　    dataSet.IndexName:='i'+orderField;
　　 end
　　 else
　　 begin
　　    dataSet.IndexName:='';
　　    dataSet.IndexFieldNames:=orderfield;
　　 end;
　　end;4.在DBGridEh的OnTitleClick事件中调用OrderGrid(DM.ClientDataset,Column.FieldName);

来源:http://www.tulaoshi.com/n/20160219/1622269.html

上一篇： CS结构中成批保存CLIENTDATASET中的数据
下一篇：使用ACCESS做网络版程序的四种解决方案

看过《DBGridEh实现单击标题栏排序方法》的人还看了以下文章更多>>

怎样去掉QQ空间的标题栏？

标签：电脑入门

QQ空间标题栏没有直接取消的功能。如果您不想显示默认的标题栏样式，建议您用QQ空间装扮进行装饰，同时我们提供了一款免费透明的标题栏给大家体验，详细操作如下：第一步：请您登录到QQ空间，点击工具栏上的装扮; 第二步：点击装扮之后页面会出现装扮设置然后点击标题栏设置，根据提示操作即可。

更改应用程序标题栏图标

标签：编程语言网络编程

很多人都在问怎么更改java应用程序标题栏默认图标，如果你用过Toolkit类，这将是一件很简单的事情： Toolkit tk=Toolkit.getDefaultToolkit() Image image=tk.createImage("image.gif"); /*image.gif是你的图标*/ this.setIconImage(image); 就这么简单，看看，已经变成你自己的图标了。Toolkit是个很有用类...

拖动无系统标题栏的窗口

标签：编程语言网络编程

在VB中可以通过设置Form的属性，制作无系统标题栏的窗口。可是，由于失去了系统标题栏，如何使用鼠标拖动窗口便成了一个棘手的问题。其实，借助API函数ReleaseCapture和SendMessage，这个问题便可迎刃而解了。首先，在module文件中加入下列声明语句： Declare Sub ReleaseCapture Lib"User"() Declare Func...

给Windows XP标题栏瘦瘦身

标签： windows 操作系统

用过Windows XP系统的用户都知道，Windows XP有专用的窗口主题，很具特色。可是，Windows XP样式的窗口主题在默认的情况下，其标题栏都比较宽，尤其是显示器的分辨率为800×600的时候，用IE浏览器或资源管理器时，其占用的空间让网页和文件显示的空间变少了。有些用户为了让标题栏变窄一些，甚至放弃Windows XP的样式，而转用Windows经典模...

可拖动的无标题栏窗体

注意：要设置form的controlbox属性为false，特别注意： form.text要设置为空,否则不会把标题栏去掉 Dim MousX As Integer Dim MousY As Integer Dim CurrX As Integer Dim CurrY As Integer Public Sub myMouseDown(ByVal send...

查看更多精彩>>