导航
  • 主页
  • API 调用
  • 基础类
  • 控件与界面
  • 数据库相关
  • DataWindow
  • 项目管理
  • Web 应用
  • 脚本语言

在PowerBuilder中利用DataStore实现查询条件的记忆

ld2099 2003-12-24 05:39:34

  DataStore是非可视的数据窗口控件,它能够为应用程序存储数据而不消耗任何图形资源。除了一些可视特征外,它的功能及行为与数据窗口控件
相同。因此,我们可以利用DataStore的特点方便地记忆和维护查询条件。

  第一步,在数据库中建立一个查询条件表,其中包含每个要用到的条件字段(如标题、文献来源、开始日期、结束日期等)和一个日期字段、时间
字段。该表用来保存最近使用的10个(如果需要可以保存任意个)不同条件,每个条件就是一条记录,后两个字段(日期、时间)用来记载条件的使
用时间。

  第二步,创建一个包含查询条件表中所有字段的数据窗口对象 dw_condation,按使用时间的先后排序。进行查询条件设置时,

  第三步,构造如下图的查询条件设置窗口。

  四个复选框对应四个条件字段,左、右方向按钮用来浏览设置最近使用过的条件。

  第四步,为窗口事件及各控件编写相应的程序。

  定义窗口实例变量:

datastore ids_Data
long currentrow

窗口的Open事件:
ids_Data = Create DataStore
//创建数据存储实例
ids_Data.DataObject = "dw_condation"
//将dw_condation数据窗口对象与ids_Data连接
ids_Data.SetTransObject(sqlca)
ids_data.retrieve()

if ids_data.rowcount() >1 then
//设置当前条件为最后一次使用的条件
pb_3.enabled=true
currentrow=ids_data.rowcount()
trigger event ue_setquery(ids_data.rowcount())
end if

窗口自定义事件ue_setquery:
string bt,source
//标题、文献来源
date start_day,end_day//开始日期、结束日期
long page
//页号
//根据参数rownum从数据存储实例中得到各条件值
bt=ids_Data.Object.bt[rownum]
source=ids_Data.Object.source[rownum]
start_day=ids_Data.Object.begin[rownum]
end_day=ids_Data.Object.end[rownum]
page=ids_Data.Object.page[rownum]
//初始化各窗口控件的状态
cbx_1.checked=false
cbx_2.checked=false
cbx_3.checked=false
cbx_4.checked=false
sle_1.enabled=false
ddlb_1.enabled=false
em_1.enabled=false
em_2.enabled=false
em_3.enabled=false
//分别设置各个条件值
if not isnull(bt) and trim(bt)< >"" then
cbx_1.checked=true
sle_1.enabled=true
sle_1.text=bt
end if

if not isnull(source) and trim(source)< >"" then
cbx_2.checked=true
ddlb_1.enabled=true
ddlb_1.text=source
end if

if isnull(start_day) or
start_day=date("1900-1-1") then
em_1.text=string(today(),"yyyy-mm-dd")
else
cbx_3.checked=true
em_1.enabled=true
em_1.text=string(start_day,"yyyy-mm-dd")
end if

if isnull(end_day) or
end_day=date("1900-1-1") then
em_2.text="2050-1-1"
else
cbx_3.checked=true
em_2.enabled=true
em_2.text=string(end_day,"yyyy-mm-dd")
end if

if not isnull(page) and page< >0 then
cbx_4.checked=true
em_3.enabled=true
em_3.text=string(page)
end if

窗口的Close事件:
destroy ids_data
//清除数据存储实例

pb_3(向前按钮)的Clicked事件:
if currentrow >1 then
//设置前一个条件为当前条件
currentrow=currentrow - 1
trigger event ue_setquery(currentrow)
pb_4.enabled=true
if currentrow=1 then this.enabled=false
end if

pb_4(向后按钮)的Clicked事件:
if currentrow< ids_data.rowcount() then
//设置后一条件为当前条件
currentrow=currentrow + 1
pb_3.enabled=true
if currentrow=ids_data.rowcount()
then this.enabled=false
trigger event ue_setquery(currentrow)
end if

pb_1(确定按钮)的Clicked事件:
string bt,source,sqltext,sql_all,sql_title,
sql_source,sql_date,
sql_page
date start_day,end_day
long page,rownum,rowcount
boolean exist
//根据用户设置的条件动态生成查询SQL语法
if cbx_1.checked then
bt=sle_1.text
sql_title='"index"."title" like '
+"'%"+bt +"%'"
end if

if cbx_2.checked then
source=ddlb_1.text
sql_source=' and "index"."source" like '
+"'%"+source +"%'"
end if

if cbx_3.checked then
start_day=date(em_1.text)
end_day=date(em_2.text)
sql_date='and"index"."date" >='+"'"
+string(start_day,"yyyy.mm.dd")
+"'"+'and '+'"index"."date"
< ='+"'"+string(end_day,"yyyy.mm.dd")
+"'"
end if
if cbx_4.checked then
page=long(em_3.text)
sql_page=' and "index"."page"='+string(page)
end if

sqltext='SELECT "index"."num", ' &
+'"index"."title", ' &
+'"index"."source", ' &
+'"index"."date", ' &
+'"index"."page", ' &
+'"index"."other" ' &
+' FROM "index" ' &
+' WHERE '+sql_title +sql_source
+sql_date+sql_page &
+' ORDER BY "index"."num" ASC '
rowcount=ids_data.rowcount()

for rownum=1 to rowcount
//判断该条件是否已经存在
if ids_data.object.data[rownum,1]=bt and &
ids_data.object.data[rownum,2]=source and &
ids_data.object.data[rownum,3]=start_day and &
ids_data.object.data[rownum,4]=end_day and &
ids_data.object.data[rownum,5]=page then
ids_data.object.data[rownum,6]=now()
ids_data.object.data[rownum,7]=today()
exist=true
exit
end if
next

if not exist then
//条件不存在,记忆新条件
if rowcount< 10 then
else
ids_data.deleterow(1)
end if

rownum=ids_data.insertrow(0)
ids_data.object.data[rownum,1]=bt
ids_data.object.data[rownum,2]=source
ids_data.object.data[rownum,3]=start_day
ids_data.object.data[rownum,4]=end_day
ids_data.object.data[rownum,5]=page
ids_data.object.data[rownum,6]=now()
ids_data.object.data[rownum,7]=today()
end if

ids_data.update()
//根据生成的SQL语句,
修改主窗口中的数据窗口语法,
进行查询
w_index.dw_1.setsqlselect(sqltext)
close(parent)
if isvalid(w_index)
then w_index.dw_1.retrieve()

pb_2(取消按钮)的Clicked事件:
close(parent)
...全文
1 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

发动态
发帖子
PowerBuilder
创建于2007-09-28

816

社区成员

PowerBuilder 相关问题讨论
申请成为版主
社区公告
暂无公告