数据库

本类阅读TOP10

·SQL语句导入导出大全
·SQL Server日期计算
·SQL语句导入导出大全
·SQL to Excel 的应用
·Oracle中password file的作用及说明
·MS SQLServer OLEDB分布式事务无法启动的一般解决方案
·sqlserver2000数据库置疑的解决方法
·一个比较实用的大数据量分页存储过程
·如何在正运行 SQL Server 7.0 的服务器之间传输登录和密码
·SQL中两台服务器间使用连接服务器

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
PB中实现数据窗口动态排序的三种方法

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

在PowerBuilder中使用数据窗口检索到的数据往往是无序的,虽然可以通过设置Select语句实现排序的功能,但是数据窗口一旦生成都无法进行动态调整。笔者总结了在已经生成的数据窗口中实现动态排序的三种方法,现介绍给大家。

一、 准备工作

设计如图1所示的示例窗口。为了更好地比较三种不同的方法,dw—1中的数据来自两个表student和class。student表中包含四个字段sid(学号)、sname(姓名)、saddr(住址)和cid(班号),class表中包含两个字段cid(班号)和cname(班级名称)。


图1


二、三种方法的源程序

三种方法中的“执行”按钮的代码分别为:

方法1:用SetSQLselect()

string ls—oldsql,ls—newsql,ls—order ls—column
ls—oldsql=dw—1.getsqlselect()
choose case ddlb—1.text
case ″学号″ls—column=″sid″
case ″姓名″ls—column=″sname″
case ″住址″ls—column=″saddr″
case ″班号″ls—column=″class.cid″
case ″班级名称″ ls—column=″cname″
end choose
if rb—1.checked then ls—order=″ASC″
else ls—order=″DESC″
end if
ls—newsql=ls—oldsql+″ ORDER BY ″+ &
ls—column+″ ″+ls—order
if dw—1.setsqlselect(ls—newsql)=-1 then
messagebox(″警告″,″数据设置失败″,stopsign!)
else dw—1.settransobject(sqlca)
dw—1.reset()
dw—1.retrieve()
dw—1.setsqlselect(ls—oldsql)
end if


方法2:用describe()和modify()

string ls—mod, ls—order,ls—old,ls—column
ls—old=dw—1.describe(′datawindow.table.select′)
dw—1.settransobject(sqlca)
choose case ddlb—1.text
case ″学号″ls—column=″sid″
case ″姓名″ls—column=″sname″
case ″住址″ls—column=″saddr″
case ″班号″ls—column=″class.cid″
case ″班级名称″ ls—column=″cname″
end choose
if rb—1.checked then ls—order=″ASC″
else ls—order=″DESC″
end if
ls—mod=″datawindow.table.select=′ ″+ls—old+&
′ORDER BY ″ ′+ls—column+′ ″ ′+ls—order+″ ′ ″
dw—1.modify(ls—mod)
dw—1.retrieve()
dw—1.modify(″datawindow.table.select= &
′ ″+ls—old+″ ′ ″)


方法3:用setsort()和sort()

string ls—sort,ls—order,ls—column
choose case ddlb—1.text
case ″学号″ ls—column=″#1″
case ″姓名″ ls—column=″#2″
case ″住址″ ls—column=″#3″
case ″班号″ ls—column=″#4″
case ″班级名称″ ls—column=″#5″
end choose
if rb—1.checked then ls—order=″A″
else ls—order=″D″
end if
ls—sort=ls—column+′′+ls—order
dw—1.setsort(ls—sort)
dw—1.sort()


三、三种方法的比较

1.第一种和第二种方法要求数据窗口在生成时是无序的,第三种方法无此要求。

2.对于来自不同表单的相同的列名(如student.cid、class.cid)用第二种方法排序实现起来较麻烦,因为在用modify()函数时要特别注意引号的使用。但是第二种方法比第一种方法的执行速度要快。

3.第三种方法使用起来最方便,既可以引用列名也可引用列号(如#4表示第四列)来指定序列。



相关文章

相关软件