在PB中利用DataStore实现查询条件记忆.docxVIP

在PB中利用DataStore实现查询条件的记忆 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 //设置前一个条件为当