【PB】数据窗口横向滚动时用PB锁定某列

分手后的思念是犯贱 2022-03-28 09:50 612阅读 0赞

再谈"数据窗口横向滚动时用PB锁定某列"  
\--------------------------------------------------------------------------------  
重庆大学计算机系数据知识工程研究室 (400044) 张洪伟

一、问题的提出  
贵报1997年第39期H23版《数据窗口横向滚动时用PB锁定某列》一文讲述了实现数据窗  
口横向滚动时锁定某列的一种方法,具有较好的实用效果,但是这种方法也有一定的缺点。第  
一,用该方法锁定的列是由程序预先决定的,也即是"静"态的,在程序运行时无法改变。这样  
,当用户需要在不同时刻锁定不同的列时,便无法实施。第二,该方法是用程序实现的,包含了  
比较复杂的工作。通过仔细实验,笔者发现了两种更为简便的实现方法,可以无需编程或只需  
简单编程就可实现"动"态地锁定某些列。  
二、实现方法  
假设用于显示数据的数据窗口为dw-1。  
方法一:在PowerBuilder集成环境的数据窗口画笔(Datawindow Painter)中创建一数据  
窗口控件dw-1,将鼠标移到该控件上,单击鼠标右键,屏幕上将出现一弹出菜 单,选择菜单项  
Style,再从级联菜单中选中Hscroll Bar、Vscroll Bar、Hsplit Scrolling三项,这样即可  
完成所要求的功能。  
运行应用时,数据窗口dw-1的横向滚动条最左边有一小空隙,将鼠标移到该处,按住左键  
不放,数据窗口中将有一"竖线"将数据窗口水平地一分为二,然后拖动鼠标移动该"竖线"至所  
需位置,数据窗口就被划分为两个貌似独立的并列的数据显示区域,从外观上看,一个数据窗  
口变成了与原数据窗口一样的两个数据显示区域。当点按一个区域的横向滚动条时,另一区  
域的数据显示保持不动;当点按任一区域的竖向滚动条时,两个区域的显示同步滚动。这样用  
户便可将需锁定的列(一列或多列)置于一个区域,而另一区域作横向滚动,并且在程序运行过  
程中用户可随意调节所需锁定的列。  
方法二:通过简单编程也可实现上述效果,而且可以动态地禁止或允许这种效果。在Poe  
rbuilder中,数据窗口有一属性HsplitScroll,用于决定是否将一个数据窗口一分为二来显示  
数据。当它为TURE时,允许此功能;当它为FALSE时,禁止此功能。所以,当要允许此项锁定功  
能时,只需书写一句dw-1.HsplitScroll=TRUE即可;当要禁止此项功能时,只需书写一句d-1.  
HsplitScroll=FALSE即可,实现起来非常简便。  
三、小结  
上述两种方法,克服了原文的两个缺点,可动态按需锁定相应列,实现起来非常灵活、简  
单,用户操作起来也更方便。

锁定某一列实现同Excel中的样式  
   　　在Excel中，当列很多时，我们移动当前行到最后一项时，第一列就看不到了，那么我们可以将第一列或者第一行的值锁定，这样，不管有多少行或者多少列我们都可以看到,以确保数据的准确性．这样我们在pb中也很容易做到．具体代码如下：  
　　//锁定的列为ID,数据窗口为dw\_master  
dw\_master.HSplitScroll = True  
dw\_master.Object.DataWindow.HorizontalScrollSplit = dw\_master.object.id.Width  
dw\_master.Object.DataWindow.HorizontalScrollPosition2 =   dw\_master.object.id.Width

在数据窗口的constructor事件里写:  
dw\_1.Object.DataWindow.HorizontalScrollSplit=integer(dw\_1.describe("\#1.width"))  
  
在数据窗口的scrollhorizontal事件里写:  
int i  
if pane = 1 then  
i = integer(this.OBJECT.datawindow.horizontalscrollposition2)  
if i < 1 or isnull(i) then return  
if scrollpos > 0 then  
this.OBJECT.datawindow.horizontalScrollPosition = 0  
end if  
else  
i = integer(this.Object.DataWindow.HorizontalScrollSplit)  
if i < 1 or isnull(i) then return  
if i > scrollpos then  
this.OBJECT.datawindow.horizontalScrollPosition2 = i  
end if  
end if