首页 | 编程语言 | 网站建设 | 游戏天堂 | 冲浪宝典 | 网络安全 | 操作系统 | 软件时空 | 硬件指南 | 病毒相关 | IT 认证
软讯网络 > 冲浪宝典 > 网络资源 > 在PB中应用灵活多样的排序
【标  题】:在PB中应用灵活多样的排序
【关键字】:应用,PB,PB
【来  源】:网络

在PB中应用灵活多样的排序

---- PowerBuilder是许多数据库开发人员熟悉的开发工具,也是许多程序开发人员急需了解和使用的数据库前端开发工具。尤其是它的数据窗口,能很好地展现各种数据。同时,PowerBuilder也是基于Windows的图形用户界面,因此操作非常方便,熟悉Windows的用户一定对资源管理器不陌生,当目录或文件很多时,当然会想到使用排序来尽快定位目标,你只要用鼠标在资源管理器上端的name、size、type或modified中的任意一项点击,它就会将此项按升序或降序排列。同样地,在PowerBuilder中,如果数据比较多,我们也可以采用这种办法来排序以尽快查找记录。
一、实现原理
---- 数据窗口提供了Clicked事件,当用户使用鼠标点击某列的标题时,我们可以通过参数(dwo.Name)来获得当前点击的对象,经过适当处理可得到当前点击的列,然后根据连续点击该列的奇偶数来决定用升序或降序排列记录。二、实现细节
---- 1、先设计一个数据窗口和窗口以及一些必要的按钮,设计好的窗口。
---- 2、要实现这样的排序功能,定义两个实例变量String pre_col=“”和Int click_time=0,他们分别记录上次点击的列和点击同一列的奇偶数。然后在dw_1的Clicked事件中添加如下脚本:

String clicked_pos,col,format
Long il_pos
clicked_pos = dwo.Name //取点击的对象
il_pos = Pos(clicked_pos,'_t') //对于列标题,
取得的对象是列名+”_t”
If il_pos >0 Then
col = Left(clicked_pos,il_pos -1)
If col=pre_col Then
If click_time=0 Then
click_time = 1
format = col+" A"
Else
click_time=0
format = col+" D"
End If
Else
click_time = 0
format = col+" A"
End If
pre_col = col
dw_1.SetSort(format)
dw_1.Sort()
End If

---- 3、采用上面的方法可实现象Windows中资源管理器灵活排序的功能。实现的结果所示(按Last Name降序排列)。
三、结束
---- 象这些看似虽小的功能,但是它能给我们开发的程序带来许多方便,让我们的程序功能更丰富,更强大,让用户充分享受图形用户界面带来的形象直观、方便好用、功能强大等好处。
如何在程序启动默认浏览器与电子邮件系统:【上一篇】
PB8中如何正确得到含有汉字的字符串长度的问题——Davis总结:【下一篇】
【相关文章】
  • PB通过OLEObject使用Word
  • PB中读取地磅BCD解码
  • PB下使用TreeView控件实现多级分类检索
  • 如何在pb中创建COM组件,并在asp中调用并返回结果集
  • 如何在pb9中调用WebService
  • pb6怎样得到字符串中汉字的个数?
  • 用Rational Rose和UML开发J2EE应用(一)
  • 用Rational Rose和UML开发J2EE应用(二)
  • 用Rational Rose和UML开发J2EE应用(三)
  • 用Rational Rose和UML开发J2EE应用(四)
  • 【随机文章】
  • ASP.Net生成静态页面
  • Fedora Core 5下802.1X上网详细配置过程
  • 第一次亲密接触 Painter(6)
  • New life begin...
  • Linux 指令篇:文件系统--exportfs
  • 2003布线行业研讨会 共赢40亿市场
  • Redhat AS4 字体的美化
  • Manual IPv6 tunneling
  • Macintosh的101个应用技巧
  • 一套未完成得skin界面库续(1)
  • 【相关评论】
    没有相关评论
    【发表评论】
    姓名:
    邮件:
    随机码*
    评论*
          
    |  首 页  |  版权声明  |  联系我们   |  网站地图  |
    CopyRight © 2004-2007 软讯网络 All Rigths Reserved.