精华区文章阅读

发信人: wodeji (西西), 信区: Database
标  题: [转载] owerBuilder 开发系列谈 (32)
发信站: 紫丁香 (Tue Sep 29 17:53:29 1998), 站内信件

【以下文字转载自 Programming 讨论区】
【原文由 two 所发表】
Email: sjhzyz@public.bta.net.cn

        在上两期文章中，我们提到了在Master/Detail 风格的数据窗口中使
用ShareData() 函数，可以保持两个数据窗口中数据的一致性。其实这个
函数还有着其他很多不同的用途。这里我们就另举一例。

        许多最终用户在使用PowerBuilder 应用程序时抱怨运行速度太慢。一
般来讲，一个企业级的客户/ 服务器应用程序执行速度的瓶颈并不在于
代码执行的效率，而在于应用向后台数据库查询数据时等待后台响应
的时间。改进应用软件速度的关键在于减少应用向后台数据库查询的
数据量，减少网络的数据流量，其中减少下拉式数据窗口的查询量就
是一个有效的方法。

        一般的，为了用户输入方便和避免废键，在数据窗口某些数据列使
用下拉式数据窗口是程序员经常采用的方法。运行一个应用，某一段
时间所处理一般都是相同或相近的事务，这样同时打开的不同窗口和
数据窗口却很可能同时采用相同的下拉式数据窗口。在显示这些窗口
前，当系统执行主数据窗口的Retrieve() 命令时，总是要首先到数据库中
查询这些下拉式数据窗口的数据。如果我们能够减少这些查询，进而
减少网络流量，和后台数据库服务器进行语法分析，设计查询算法和
执行查询的时间，这将能使应用的性能有较大的提高。这里我们采用
的方法是在客户端建立一个保存结果集的缓冲区，并使用ShareData 函数
使缓冲区的数据同下拉式数据窗口的主缓冲区建立共享。

        我们将这个数据缓冲区建立在一个不可视的窗口上，在这个窗口为
每一个不同的结果集创建一个不同的用户对象。首先我们创建一个标
准的不可视的用户对象，在可选的对象类型中选择DataStore，我们并不
需要为这个用户对象编写任何代码，只要将其保存为u_dsa 即可。

        我们创建一个窗口w_resultset_server 作为结果集服务器，在这个不可视
的窗口中声明这样一些实例变量：
        // 缓冲区大小
        PROTECTED integer ii_cache_size
        // 缓冲区
        PROTECTED u_dsa ids_cache[]
        // 我们用以检索结果集的事务对象
        PROTECTED transaction i_trans
        // 更新结果集的时间（设为30 秒）
        PROTECTED long il_refresh_interval = 1800
        // 更新的起始时刻
        PROTECTED time itm__last_refresh

        使用dddw 的窗口将通过fw_share_dddw() 函数来访问w_resultset_server 窗口，
这个函数将接受一个数据窗口和一个列名作为参数。

//public function integer fw_share_dddw
// 参数： DataWindow  adw_parent
//              string  as_column_name  表现形式为dddw 列名
integer  li_cache_idx
DataWindowchild dwc
string   ls_dataobject_name
//dddw 所使用dataobject 的名称
ls_dataobject_name = adw_parent.Describe( as_column_name + “.dddw.name” )
IF ls_dataobject_name = “”THEN RETURN 0
// 该dataobject 是否存在缓冲区中
li_cache_idx = fw_find_dataobject (ls_dataobject_name)
IF li_cache_idx < 1 THEN RETURN 0
// 同子数据窗口共享数据
adw_parent.GetChild ( as_column_name, dwc )
RETURN ids_cache[li_cache_idx].ShareData (dwc)

        在这个函数中，为确定下拉式数据窗口所使用的数据窗口的名称，
首先使用了Describe() 函数来获得该列的dddw.name 属性。如果该列名没有
找到，或该列的表现形式不是下拉式数据窗口，这个函数的返回值
为“”；接下来调用fw_find_dataobject() 函数，以确定这个数据结果集是否
在缓冲区中，如不存在，就新创建一个；最后使用ShareDate() 函数将缓冲
区中结果集同下拉式数据窗口共享数据。

        这个函数中调用的fw_find_dataobject() 函数如下，它接受一个as_dataobject
参数，并使用DO...WHILE 循环在缓冲区中查找该对象的结果集，如找到
将lb_found 设为True，否则设为False。

//protected function integer fw_find_dataobject
// 参数： string  as_dataobject
integer   li_cache_idx = 1
boolean  lb_found = FALSE
u_dsa    lds_new_entry
// 定位dataobject 所在的缓冲区
DO WHILE (NOT lb_found) and (li_cache_idx <= ii_cache_size)
    IF ids_cache[li_cache_idx].dataobject = as_dataobject THEN
       lb_found = TRUE
    ELSE
       li_cache_idx ++
    END IF
LOOP
// 如果该dataobject 不存在与缓冲区中，则创建一个新入口
IF NOT lb_found THEN
    IF OpenUserObject (lds_new_entry) < 1 THEN
       RETURN 0
    END IF
    lds_new_entry.dataobject = as_dataobject
    IF lds_new_entry.SetTransObject (i_trans) < 1 THEN
       RETURN 0
    END IF
    IF lds_new_entry.Retrieve () < 0 THEN
       RETURN 0
    END IF
    ii_cache_size ++
    ids_cache[ii_cache_size] = lds_new_entry
    li_cache_idx = ii_cache_size
END IF
RETURN li_cache_idx

        如果该数据对象不存在于缓冲区中，我们将使用OpenUserObject() 函数
新创建一个用户对象，并将这个DataStore 的DataObject 属性赋值
为as_dataobject，然后调用SetTransObject() 函数和Retrieve() 函数查询结果。

        在这个隐含窗口的Open 事件中键入下列代码：

i_trans = sqlca
itm_last_refresh = Now ()
// 设置起始时间
Timer ( 60 )

        在窗口函数fw_find_dataobject() 中调用SetTransObject() 时使用的事务变量
是i_trans，这样做的目的是为了软件更为通用。我们在Open 事件中将这
个实例变量赋值为SQLCA，您也可以根据需要给予不同的赋值。我们使
用了一个实例变量itm_last_refresh 作为计时器，并且设定每一分钟中断一
次，以使窗口根据不同的需要更新缓冲区中的数据。

        下面的一个窗口函数fw_refresh_all 用以更新缓冲区数据：

//public  subroutine  fw_refresh_all ()
integer  li_cache_idx
// 更新所以缓冲区
FOR li_cache_idx = 1 TO ii_cache_size
    ids_cache[li_cache_idx].Retrieve ()
NEXT
// 重新设置更新缓冲区的时间
i_tm_last_refresh = Now ()

        我们在w_resultset_server 的Open 事件中对一个计时器进行了初始化，同
时还初始化了一个计时变量itm_last_refresh，我们剩下的工作就是在Timer
事件中，编写代码根据设定的时间来调用fw_refresh_all()。

time  ltm_current_time
integer  li_cache_idx
// 当前时间
current_time = Now ()
// 考虑过午夜的特殊情况
IF ltm_current_time < itm_last_refresh THEN
    fw_refresh_all ()
// 检测已过的时间间隔
ELSEIF RelativeTime ( itm_last_refresh, ii_refresh_interval )
           <= ltm_current_time THEN
    fw_refresh_all ()
END IF

        一般在一个大型应用中，这个对象中往往要有几十个结果集。您可
能并不希望系统同时更新所有的数据，您可以修改Timer 事件中的代
码，使系统根据一定的算法，轮流更新缓冲区中的数据，而不使用户
感觉到延迟。值得指出的是，在一般的数据窗口中的dddw，除了在创建
时系统会自动对该数据窗口中的所有dddw 进行Retrieve() 以外，在运行过
程中如果没有程序明确指明某个dddw 执行Retrieve() 函数，系统是不会自
动更新其数据的。因此采用本文推荐的方法还可以保持下拉式数据窗
口中的数据接近后台服务器中的最新数据。如果您在应用中必须使下
拉式数据窗口中的数据为后台的最新数据，也可以调
用wf_refresh_resultset() 强制缓冲区更新数据，使用的参数有两个，数据窗口
名称和列名：

//public  function  boolean  fw_refresh_resultset()
// 参数： DataWindow  adw_parent
//              string  as_column_name  数据窗口中为dddw 的列名
integer  li_cache_idx
string   ls_dataobject_name
//dddw 所使用dataobject 的名称
ls_dataobject_name = adw_parent.Describe( as_column_name + “.dddw.name” )
IF ls_dataobject_name = “”THEN RETURN False
// 该dataobject 是否存在缓冲区中
li_cache_idx = fw_find_dataobject (ls_dataobject_name)
IF li_cache_idx < 1 THEN RETURN False
// 更新缓冲区内的数据
ids_cache[li_cache_idx].Retrieve()
RETURN True

        在这段代码中，我们首先使用fw_find_dataobject 函数找到要更新数据
的dddw 所使用的缓冲区，然后更新该缓冲区的数据即可。



--
※ 来源:．紫丁香 bbs.hit.edu.cn．[FROM: 202.97.236.132]
--
※ 转载:．紫丁香 bbs.hit.edu.cn．[FROM: whs.hit.edu.cn]
--
※ 转载:．紫丁香 bbs.hit.edu.cn．[FROM: cadcam.hit.edu.c]

Database 版 (精华区)