精华区文章阅读

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

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

        在上期中我们讨论了在Master/Detail 数据窗口中，当Master 数据窗口没有
使用"Retrieve as Needed" 选项时，两个数据窗口同时滚动的问题。可是当Master
数据窗口使用了"Retrieve as Needed" 选项时，我们却遇到了麻烦。在点击dw_2
的滚动条时，如果dw_1 从数据库中取得了新数据，将导致dw_2 的复
位，dw_2 就不能显示正确的结果了。解决这个问题，我们最容易想到的解
决方法就是利用dw_2 在scrollvertical 事件中获得的dw_2 当前滚动条的位置，
对dw_2 进行重新赋值。
        即对dw_1 的SCROLLVERTICAL 事件编程如下：

integer vmax_1, vpos_1,vmax_2, vpos_2
string r_code
decimal vmax_1_percent
vmax_1 = integer(dw_1.describe("datawindow.verticalscrollmaximum"))
vpos_1  =integer(dw_1.describe("datawindow.verticalscrollposition"))
vmax_2 = integer(dw_2.describe("datawindow.verticalscrollmaximum"))
vmax_1_percent = vpos_1 / vmax_1
vpos_2 = vmax_1_percent * vmax_2
r_code = dw_2.modify("datawindow.verticalscrollposition="+string(vpos_2))
// 检验是否修改成功
if r_code <> "" then
         beep(6)
         mle_1.text = "dw_1scroll = "+r_code+" vpos_2 = "+string(vpos_2)
//在scrollvertical事件中无法使用MessageBox弹出错误信息框
end if
  对dw_2 的SCROLLVERTICAL 事件编程如下：
integer vmax_1, vpos_1,vmax_2, vpos_2
string r_code
decimal vmax_2_percent
vmax_2 = integer(dw_2.describe("datawindow.verticalscrollmaximum"))
vpos_2  = integer(dw_2.describe("datawindow.verticalscrollposition"))
vmax_1 =integer(dw_1.describe("datawindow.verticalscrollmaximum"))
vmax_2_percent = vpos_2 / vmax_2
vpos_1 = vmax_2_percent * vmax_1
r_code = dw_1.modify("datawindow.verticalscrollposition="+string(vpos_1))
// 检验是否修改成功
if r_code <> ""then
         beep(6)
         mle_1.text = "dw_1 mod "+r_code
end if
r_code = dw_2.modify("datawindow.verticalscrollposition="+string(vpos_2))
// 检验是否修改成功
if r_code <> "" then
         beep(6)
         sle_1.text = "dw_2 mod" +  r_code
end if

        键入上述代码后，运行时你就会发现点击dw_2 时运行的结果是正常
的，然而点击dw_1 的滚动条却发生了错误。这是为什么呢？

        首先我们还是对用户点击dw_1 的滚动条向下滚动时，系统进行了哪些
操作进行一下仔细地分析：当用户点击鼠标使dw_1 滚动到了最后一行时，
这时系统没有立即进行显示滚动的操作，它首先发现数据窗口的Primary! 缓
冲区的数据已经告罄，于是就向后台的数据库中攫取数据，取得新的数
据后，系统会将与dw_1 共享数据的dw_2 复位，使之回到显示第一条记录的
位置。这就触发了dw_2 的scrollvertical 事件（我们称之为事件一）。在这个事
件中，由于此时dw_2 显示的是第一条记录，它将修改dw_1 的滚动条位置，
使之也显示第一条记录。并立即触发dw_1 的scrollvertical 事件二。在事件二
中，dw_1 又根据自己的位置修改dw_2，但是由于dw_2 修改前后的位置相
同，所以没有对系统造成什么影响，又回到了事件一。在事件执行完毕
后，系统开始响应用户的下滚dw_1 的操作，首先将dw_1 向下滚动一条记
录，这样dw_1 显示的是第二条记录，并触发了dw_1 的scrollvertical 事件三。当
事件三执行时，将dw_2 也滚动到第二条记录，并触发了dw_2 的scrollvertical 事
件四，不过这一事件四也不会对任何一个数据窗口造成影响，最后返回
执行完事件三。这就完成了用户点击鼠标后的一连串响应。但是最后两
个数据窗口却显示的是第二条记录。有兴趣的读者可以仔细分析这一系
列事件发生的顺序。

        用户点击滚动条而使得上述代码对各个事件触发及其执行过程虽然十
分复杂，并不是每一个人都有兴趣对其分析清楚，但是这个代码的错误
却是一目了然的，只须稍加测试就可发现。可是令人不解的是这段代码
在美国却几乎被视作经典，而且向美国PowerSoft 技术支持中心提出这个问
题，那里的工作人员也会引用这段代码作为回答。

        事实上解决这个问题的方法并不十分复杂，我们只需将修改滚动条位
置的时间稍加改变就可以得到正确的结果。首先我们在这两个数据窗口
中各声明一个ue_scrollvertical 的用户自定义事件事件。传递一个参数，参数
名为vpos，integer 型，通过传值法传递。然后键入下列代码：

        对dw_1 的SCROLLVERTICAL 事件编程如下：

integer li_vmax_1, li_vpos_1,li_vmax_2, li_vpos_2
decimal ld_vmax_1_percent
li_vmax_1 = integer(dw_1.describe("datawindow.verticalscrollmaximum"))
li_vpos_1 = integer(dw_1.describe("datawindow.verticalscrollposition"))
li_vmax_2 = integer(dw_2.describe("datawindow.verticalscrollmaximum"))
ld_vmax_1_percent = li_vpos_1 / li_vmax_1
li_vpos_2 = ld_vmax_1_percent * li_vmax_2
if abs( li_vpos_2 - integer(dw_1.describe
               ("datawindow.verticalscrollposition")) ) > 1 then
     //如dw_2应显示的位置与dw_2的当前位置不符，产生修改dw_2的事件
         event post ue_scrollvertical( li_vpos_2 )
end if
  对dw_1 的UE_SCROLLVERTICAL 事件编程如下：
  事件：自定义ue_scrollvertical
  参数：vpos   integer 型
  返回值：integer
string ls_ret_code
dw_2.modify("datawindow.verticalscrollposition="+string(vpos))
if ls_ret_code <> "" then
         beep(6)
         sle_1.text = "dw_1scroll = " + ls_ret_code + " vpos = " + string(vpos)
// 在scrollvertical 事件中将不能弹出错误信息框
end if
return 1
  对dw_2 的SCROLLVERTICAL 事件编程如下：
integer li_vmax_1, li_vpos_1,li_vmax_2, li_vpos_2
string ls_ret_code
decimal ld_vmax_2_percent
li_vmax_2 = integer(dw_2.describe("datawindow.verticalscrollmaximum"))
li_vpos_2 = integer(dw_2.describe("datawindow.verticalscrollposition"))
li_vmax_1 =integer(dw_1.describe("datawindow.verticalscrollmaximum"))
ld_vmax_2_percent = li_vpos_2 / li_vmax_2
li_vpos_1 = ld_vmax_2_percent * li_vmax_1
event post ue_scrollvertical(li_vpos_1)
//由于dw_1使用了retreive-as-needed，可能会自动将dw_2
                     滚回第一行，表现重新设置dw_2
ls_ret_code = dw_2.modify
           ("datawindow.verticalscrollposition="+string(li_vpos_2))
// 检验是否修改成功
if ls_ret_code <> "" then
         beep(6)
         sle_1.text = "dw_2 mod" +  ls_ret_code
end if
  对dw_2 的UE_SCROLLVERTICAL 事件编程如下：
  事件：自定义ue_scrollvertical
  参数：vpos   integer 型
  返回值：integer
string  ls_ret_code
ls_ret_code = dw_1.modify("datawindow.verticalscrollposition="+string(vpos))
// 检验是否修改成功
if ls_ret_code <> ""then
         beep(6)
         sle_1.text = "dw_1 mod " + ls_ret_code
end if

        我们再分析一下上述代码执行的过程：用户点击了dw_1 的滚动条，
使dw_1 将滚动到最后一行，产生了dw_1 的scrollvertical 事件一，但并没有立即
执行，只放在了事件队列的后面。系统首先发现数据窗口的Primary! 缓冲区
中数据为空，向后台数据库取数据，并使dw_2 复位，回到显示第一条记录
的位置。这触发了dw_2 的scrollvertical 事件二，在首先执行的这个事件二
中，PowerBuilder 根据dw_2 当前显示的是第一条记录这一条件，产生一
个ue_scrollvertical 事件三，将dw_1 也滚回显示第一条记录，但是这个事件三并
没有立即触发执行，而是放在了事件队列的最后。当事件二执行完毕后，
系统响应用户对dw_1 进行的向下翻页的操作，并触发dw_1 事件一的执行。
这时dw_1 显示的是用户希望看到的正确的记录，PowerBuilder 根据dw_1 的当
前位置，计算出dw_2 与之相对应的位置，将修改dw_2 位置的操
作ue_scrollvertical 事件四放在了事件队列的最后。这时该执行事件三了，事
件三修改dw_1 滚动条的位置至第一条记录，这一操作触发了dw_1
的scrollvertical 事件五，此时两个数据窗口均显示的是第一条记录。在这一事
件中，PowerBuilder 经过计算，得到了dw_2 应显示的位置与当前位置相等的
结论，因此不产生ue_scrollvertical 事件，事件五没有对系统产生任何影响。接
下来执行的是事件队列中仅存的事件四，在这个事件里，系统将dw_2 滚动
至正确的显示位置上，并触发了dw_2 的scrollvertical 事件六。在事件六中，系
统又产生dw_2 的ue_scrollvertical 事件七，但是这两个事件均没有对显示造成任
何影响，这两个事件执行过程中也没有再产生新的事件，这一系列的响
应便最终结束了。而最终的结果是两个数据窗口都是停在了正确的结果
上了。

        同理，我们对用户滚动dw_2 后系统的响应进行细致地分析，也可以看
到上述代码的正确性，这里就不再赘述了。

        我们在本篇中编写的代码可能并不一定在您开发的软件中使用得上，
但是如果您能够对这一代码执行的过程全部自行分析清楚，或者有足够
的耐性看明白了上面文章的分析，那么您对PowerBuilder 的事件一定会有更
深的理解。



--
※ 来源:．紫丁香 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 版 (精华区)