精华区文章阅读

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

【以下文字转载自 Programming 讨论区】
【原文由 two 所发表】

        上期我们介绍了使用自定义用户对象取代系统自身的数据窗口的
技术，采用这种办法我们可以把对数据窗口经常作的操作编写成为对
象函数，在数据窗口的祖先对象中进行定义，并将其封装起来，而不
必在每一个使用数据窗口的窗口之中重复编程。在数据窗口中我们经
常要使用对各条记录的选择操作，本期我们介绍如何将这样的功能在
对象函数中实现，以拓展数据窗口的基本功能。

        我们在数据窗口中需要进行行选择操作。如用户为了修改数据或看
到更详细的内容而选择了某一行；在另一些情况下，用户可能要同时
删除或修改多行，这时，我们需要有使用户在一个数据窗口中同时选
择多行的功能。这在PowerBuilder 中是相当容易做到的，但是，如果您在
一个数据窗口祖先中没有标准的函数来处理这些，而在每个窗口中重
复的编程，这当然就要麻烦多了。

        我们首先来看一看进行行选择的不同方法。

所有行都不加亮

        数据窗口的标准行为是不加亮任何行。这当然实现起来很简单了，
您什么也不需要做。这种做法对于那些只允许用户进行滚动和查看的
数据列表或那些单行的数据窗口是合适的。

单行选择

        单行选择意味着用户在同一时间只能选择一行。在用户选择一行来
执行一些动作，如删除或是在主从关系的列表中显示详细信息，这是
非常有用的。下面是实现允许单行选择功能所应编写的代码：

Event: RowFocusChanged
if GetRow() > 0 then
         SelectRow( 0, FALSE )
         SelectRow( GetRow(), TRUE )
end if

多行的自动选择

        多行的自动选择时，当用户点击一个未加亮的行时，该行将变亮。
如果用户点击一个加亮行，该行将不加亮。

        为了实现上述行为，您可以将以下的代码放入RowFocusChanged 事件
中：

Event:RowFocusChanged
Event: RowFocusChanged
Object: Any DataWindow
if GetRow() > 0 then
         if IsSelected( GetRow() ) then
                 SelectRow( GetRow(), FALSE )
         else
                 SelectRow( GetRow(), TRUE )
         end if
end if

        或者简化成为下面的一行代码：
        if GetRow() > 0 then SelectRow( GetRow(), NOT IsSelected( GetRow()))
        按住shift，control或control+shift点击鼠标的使用
        windows 的文件管理器或其它windows 程序中，您可以使用按
住shift，control 或control+shift 这种键盘与鼠标的组合来改变选择行
为。PowerBuilder 在数据窗口中没有提供这样的能力，我们必须自己实
现。
        我们应当实现的组合功能是：
        按下键
        动作
        无
        只加亮当前行，将其它行的显示设为正常
        Control
        保持其它行的状态，并将当前行也加亮
        Shift
        加亮起始行至当前行之间的所有行，将其它行的显示设为正常
        Control-Shift
        保持其它行的状态，并加亮起始行至当前行之间的所有行，
        建立这样的功能，我们首先需要对起始行进行跟踪。在用户使用shift
或control-shift 键时，系统应当把当前用户用鼠标点击或键盘选中的行与
在此之前进行操作的起始行之间的所有行全部加亮。因此，数据窗口
必须记录当前的起始行。我们声明这样一个实例变量：
        protected long il_anchor_row
        当用户点击鼠标或进行了键盘操作时，我们要测试用户是否同时按
下了shift 或control 键，使用的是KeyDown() 函数，检查有没有KeyShift!
和KeyControl!，如有这样的键按下则记录起始行。

编写行选择函数

        为了在用户点击鼠标或进行键盘操作时使上述行为发生作用，我们
必须在Clicked 事件和一个映射到Pbm_dwnkey 事件的自定义用户事件中调
用我们自己的行选择函数。这样，不管用户是点击鼠标还是击中键
盘，选择行为都会发生。您也可以将这个功能放入RowFocusChanged 事件
中。

        为了使这个行选择功能可重用，这里我们建立两个函数。一个函数
设置我们希望的选择行为类型，另外一个真正执行该选择行为。首先
我们使用一个实例变量来设定选择行为的值：
        protected integer ii_select_behavior
        这个变量中将存放下面的一些值。
        可能发生的选择行为
        值
        行为 0
        不允许选择行为 1
        只允许有一行选中 2
        自动实现多行选择 3
        允许使用鼠标和键盘组合选择 99
        不允许选择，将鼠标变成手型如果您使用的是保护变量或私有变
量，这就意味着本对象以外的程序无法访问，因此您必须为其他程序
员建立对这些变量赋值和获取这些变量值的函数。另外，您还需要一
些函数来执行基于该变量的过程。
        函数：uf_SetSelect(Select_behavior)
        我们要写的第一个函数将允许程序员设置选择行为。
        函数 : public integer uf_SetSelect( integer ai_select_behavior)
        /* 本函数设置数据窗口的选择行为值
        下列为有效的选择行为值 */

CHOOSE CASE ai_select_behavior
         CASE 0, 1, 2, 3, 99
                 ii_select_behavior = ai_select_behavior
                 //  至少一行将被选中
                 if ai_select_behavior = 1 then
                         uf_process_select( GetRow(), "Keyboard" )
                 end if
                 if ai_select_behavior = 99 then
                         SetRowFocusIndicator(Hand!)
                 else
                         SetRowFocusIndicator(OFF!)
                 end if
                 return 0
         CASE ELSE
                 return -1
END CHOOSE

        函数：uf_ProcessSelect(long al_row, string as_input_type)
        一旦选择类型被设置，所有的行都必须被处理。我把这部分代码放
入一个叫作uf_ProcessSelect 的函数中。这个函数处理选择行为。您需要告
诉该函数您想要处理的行和该请求是通过鼠标还是键盘发出的。下面
是该函数：

long            l_row
boolean         b_reset_anchor
boolean         b_keyboard, b_mouse
//  鼠标动作还是键盘动作？
if Upper(left(as_input_type,1)) = "K" then
                 b_keyboard = TRUE
else
                 b_mouse = TRUE
end if
/*       确认鼠标点在了数据窗口的记录上   */
IF al_row < 1 THEN Return -1
/*       是否要确定起始行  */
b_reset_anchor = TRUE
SetRedraw(FALSE)
/*         有效的操作值
         0= 不允许选择行为
         1= 只允许有一行选中
         2= 自动实现多行选择
         3= 允许使用鼠标和键盘组合选择
         99= 不允许选择，将鼠标变成手型*/
CHOOSE CASE ii_select_behavior
         CASE 0, 99              //  无
         CASE 1          //  单行选中
                 SelectRow(0,FALSE)
                 SelectRow(al_row,TRUE)
         CASE 2          //  多行选中
                 if b_mouse then
                         SelectRow(al_row, NOT IsSelected( al_row ))
                 end if
         CASE 3
                 IF keydown(KeyShift!) AND KeyDown(KeyControl!) THEN
                         IF il_anchor_row > al_row then
                                 FOR l_row = il_anchor_row TO al_row STEP -1
                                         this.selectrow(l_row,TRUE)
                                 NEXT
                         ELSE
                                 FOR l_row = il_anchor_row TO al_row
                                         this.selectrow(l_row,TRUE)
                                 NEXT
                         END IF
                 ELSEIF KeyDown(KeyShift!) Then
                         SelectRow(0,FALSE)
                         IF il_anchor_row > al_row then
                                 FOR l_row = il_anchor_row TO al_row STEP -1
                                         this.selectrow(l_row,TRUE)
                                 NEXT
                         ELSE
                                 FOR l_row = il_anchor_row TO al_row
                                         this.selectrow(l_row,TRUE)
                                 NEXT
                         END IF
                         b_reset_anchor = FALSE
                 ELSEIF Keydown(KeyControl!) THEN
                         SelectRow( al_row, NOT IsSelected( al_row ) )
                 ELSE
                         SelectRow(0,FALSE)
                         SelectRow(al_row,TRUE)
                 END IF
END CHOOSE
SetRedraw(TRUE)
if b_reset_anchor then il_anchor_Row = al_row
return 0

        现在，当我们希望执行行选择时，所要做的全部操作就是调
用uf_ProcessSelect() 函数。一般当用户在一个数据窗口中点击了鼠标或是
按下了上、下箭头键时，调用这个函数。另外还有捕获home 和end 键的代
码。下面是we_keydow 用户事件（映射到Pbm_dwnkey 事件）中的代码：

Event: we_keydown (pbm_dwnkey)
Object: Any DataWindow
if KeyDown(KeyDownArrow!) and GetRow() <> RowCount() then
         uf_processSelect( GetRow() + 1 , "Keyboard")
elseif KeyDown(KeyUpArrow!) and GetRow() <> 1 then
         uf_processSelect( GetRow() - 1 , "Keyboard")
elseif KeyDown(KeyHome!) and RowCount() > 0 then
         uf_processSelect( 1, "KeyBoard")
elseif KeyDown(KeyEnd!) and RowCount() > 0 then
         uf_processSelect( RowCount(), "Keyboard")
end if
  最后，我们需要在clicked 事件中加入：
  uf_processSelect(GetClickedRow(), "Mouse")

        在这个祖先函数中编写这样一个行选择的函数只是作为一个简单
的实例，相信您一定能因此收到启发，编写出更多的函数，以拓展数
据窗口的基本功能。



中国计算机世界出版服务公司

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