深入了解PowerBuilder的数据窗口

Posted 2023-05-01

参考技术A

　　PowerBuilder(以下简称PB)是Powersoft公司(已被Sybase收购)推出的基于客户机/服务器体系结构的强有力的开发工具 自问世以来深受开发人员的好评 Datawindow是PB中获取专利技术的控件 它对数据的处理方法相当简洁 数据窗口能处理各种显示格式 进行报表打印 对复杂的嵌套报表同样处理自如

　　数据窗口的处理机制首先是根据所需的显示方式将数据源表中的域设计好 在运行时将所要的数据从数据库服务器上下载到客户机上处理 然后将更改后的数据进行提交(Commit)或回滚(Rollback) 这种处理机制大大降低了数据的传输量 减轻了网络的负担 也提高了数据的处理速度 充分利用数据窗口的特点 可达到事半功倍的效果 但是如果有些问题不加注意就会出现意想不到的错误

　　几个函数

　　 AcceptText()

　　AcceptText()函数的功能是将数据窗口当前编辑的数据转移到数据窗口的缓冲区中 程序通常在关闭窗口及其他情况下判断是否改变了当前数据 如果已改变数据 应提示用户保存 这就杜绝了用户在偶然的情况下丢失更改数据的现象 一般用ModifiedCount和DeletedCount函数判断数据是否改变

　　PB在处理数据窗口时 对应开辟了四个数据缓冲区 分别为Primary Buffer Deleted Buffer Filter Buffer SortBuffer 其中Deleted Buffer存放被删除的记录 Filter Buffer存放被过滤的记录 Sort Buffer存放排序的记录 Primary Buffer存放其他记录 函数ModifiedCount从Primary and Filter Buffers中取数据进行判断 DeletedCount则从Deleted Buffer中取数据进行判断

　　PB在接受用户输入时设置了一个浮动编辑框 用户输入或更改的内容并不直接进入Primary Buffer 而是在用户输入完后进入下一个域时 PB首先对它进行有效性检测 通过后转入Primary Buffer 如果只改变一项数据就关闭窗口则相关数据并没有进入Primary Buffer 系统判断ModifiedCount()为 所以不会提示保存数据 用AcceptText()函数就可以将浮动编辑框中的数据转入缓冲区中 在相应的程序段前加上Accepttext() 问题就解决了

　　 FindRequired()

　　在实际应用中经常需要限制表中一些域的属性 例如银行客户表中账号就不能为Null 在提交数据前检查是否将必须输入的数据都赋值是一个很好的编程习惯 FindRequired函数可以解决此问题 它通过对数据窗口中数据的检查 将数据窗口中域的属性为Required 而并未赋值的域(包括相应的行 列)找出来

　　为了利用此函数 在构造数据窗口时就要注意将表中具有NOT NULL属性的数据列设为Required(方法为:在数据窗口相应域上按鼠标右键或双击左键 弹出Column Object 框 选Edit页 将Required前的框选中 按Ok钮即可) 在相应事件中插入下列程序:

long　ror= //行数赋

　　integer　colnbr= 　 //列数赋

　　string　 colname //用来存储列名

　　mle_required Text = //窗口中的多行编辑控件 用来存储找到域的行 列号

　　DO WHILE row <>

　　colnbr++ //继续找下一列

　　IF dw_ FindRequired(Primary! row colnbr colname FALSE) < THEN EXIT

　　//若程序出错则返回

　　IF row <> THEN

　　mle_required Text = mle_required Text + String(row) + ～t &+ colname + ～r～n //保存查出的行 列号

　　END IF

　　//当ROW返回为 则意味再没有查出 跳出循环

　　LOOP

　　程序执行完后 多行编辑框中显示的为出错的地方 用户根据提示可以轻易地更改

　　FindRequired函数中的Row Colnbr参数能自动增加或重置 Colname用来存放列的字符名

　　数据的突出显示及保护:程序运行中 用户希望显示的数据具有明显的区分 例如学生的成绩(不及格的分数要用红色显示) 有些数

　　据必须只能显示 不能让用户修改;还有些数据在有些时候可以修改 有些时候不能修改等 以上情况可归结为两点:

　　 数据的突出显示

　　数据窗口应该能使用户很快找到他们想要的信息 以颜 *** 分既满足用户的习惯 又不占系统资源 实现起来也很简单 以学生管理为例 要求成绩低于 分的以红色显示 其他不变 方法是:在数据窗口中对应成绩的列(例如 /CJ )上双击鼠标左键或单击鼠标右键 弹出Column Object对话框 选取Expressions页 在Color后的框中输入:

　　if(cj< rgb( ) rgb( ))此句表示当成绩小于 则显红色 否则灰色显示

　　IF语句只可能有两种选择 如果要更多的条件判断则必须用CASE语句 例如成绩大于等于 用蓝色 小于 用红色 其他用绿色则应该用以下语句:

　　Case(cj　WHEN IS >= THEN RGB( ) WHEN IS < THEN RGB( ) E

　　LSE RGB( ))

　　我们还可以输入更加复杂的公式

　　图形是最好的说明语言 为了更好体现数据的直观性 可以采用条件位图的方法 之所以称为条件位图 是因为它随数据的性质而决定是否显示 用可以在上述的成绩管理数据窗口的前面加上一个图片 双击位图 弹出Picture Object对话框 选Expressions页 在Visible右的编辑框写入if(xb= ) 此句的意义为当性别为 (女)时蝴蝶出现 否则蝴蝶消失 程序运行起来相当直观 读者可以触类旁通 充分利用列的属性使用户的界面更加友善 漂亮

　　 数据的保护

　　有很多情况需要对数据进行保护(即只能显示而不允许修改) 学生查询成绩时就是这种情况 进行数据保护的方法有很多 第一种是双击要保护的列 弹出Column Object 选取Edit页 将Display Only框选中;第二种将要保护的列的TabOrder置 则此列得不到焦点 当然就无从修改;第三种是从根本作起 选取Rows菜单 再选取Update Properties 弹出Specify Update Properties对话框 将Allow Updates设为空 这样即使用户更改了也无法更新数据库 使更改毫无意义

　　以上情况都是事先已经确定需要保护的数据 如果有些数据要保护 有些不要保护则以上的方法就无法实现 例如合同台账管理:对于一个没有实施的合同可以更改 对于一个已经实施的合同则必须加以保护 这需要用列的保护属性来实现 方法如下:

　　双击每一列 弹出Column Object对话框 选取Expressions页 在Protect后的框中写入:if(sfss= ) 其中sfss为表示合同是否实施 如果实施(值为 )则进行数据保护 否则可以更改 此方法可以在程序运行中动态控制数据的保护方式

　　 数据窗口的多表更新

lishixinzhi/Article/program/SQL/201311/16236

powerbuilder10.5 滚动显示 控件

在powerbuilder10.5中，我想在窗体中建一个自动滚动显示字幕的控件，应如何实现？

Private Sub Text1_KeyPress(KeyAscii As Integer)
Label1.Caption = Chr(Asc(Text1) - 1)
Label2.Caption = Chr(Asc(text1) + 1)
End Sub 参考技术A 在窗口加一个 statictext control ：st_1
st_1.text="字幕滚动效果"
在窗口的timer事件中，st_1.text=mid(st_1.text,3)+left(st_1.text,2)
在窗口的open事件中，timer(1)
应该就可以了 参考技术B 方法如下:
在当前页中,把需要的4张图片全部插入进来->自定义动画->设置一种滚动效果,如从左侧滚入->把开始中的"单击时"改为"之后"->根据自己需要,修改速度.
参考技术C 横滚还是竖滚
竖滚直接用datawindow，然后在窗口的timer时间里面写dw_1.scrolltorow(ll_row)
横滚也一样用到timer时间，数据窗口换成文本框，然后移动文本框就行 参考技术D 打开主界面点，击“insert”键，后选择“contorl”键 ，选择相应的功能键，希望对你有帮助！