PB数据窗口打印位置调整函数

PB中实现数据窗口打印预览通用方法我们在文字处理过程中，常常在打印前要预览，以便控制打印效果，特别在数据打印中要有选择地打印页面，更需要预览。

PB提供了程序开发过程中的数据打印预览，下面介绍在程序应用中实现打印预览通用方法。

主窗口示意图如下：打印预览窗口预览尺寸自定义30% 50% 100% 200% 标尺一、上述W_preview窗口中各控件说明：1. 命令按钮控件(CommandButton)Cb_1: 用于数据窗口翻至首页。

Cb_2: 用于数据窗口向上翻页。

Cb_3: 用于数据窗口向下翻页。

Cb_4: 用于数据窗口翻至尾页。

Cb_5: 用于关闭打印预览数据窗口。

2．复选框控件(CheckBox)Cbx_1:用于为预览数据窗口添加显示标尺。

3．掩码编辑器控件(EditMask)Em_1:用于显示和改变打印预览的相对比例。

4．成组框控件（GroupBox）Gb_1:用于显示一组控件的共同属性信息。

5．收音机按钮控件（RadioButton）Rb_1:用于用户自定义打印预览显示比例。

Rb_2:用于用户设置打印预览显示比例为30%。

Rb_3:用于用户设置打印预览显示比例为50%。

Rb_4:用于用户设置打印预览显示比例为100%。

Rb_5:用于用户设置打印预览显示比例为200%。

6．数据窗口控件（DataWindow）dw_1:用于显示打印预览结果。

二、下面讲述创建上述窗口的实现过程：1．创建一个新窗口W_preview,设置该窗口的类型(WindowType)为Response,设置窗口的标题(Title)为“打印预览窗口"。

2．在主窗口中按示意图放置各个控件，为掩码编辑器（Em_1）定义属性,在General页中定义Text为“100”，在Mask页中为Mask定义为“###”，选中Spin Control, 设置Spin Increment 为“1”，设置Spin Range的Min为“1”、Max为“200”。

Pb中数据窗口的应用在通常的Server/Client方式MIS开发中，总是有没完没了的报表需要制作，调试报表花费的时间也是最多而且乏味，还常常不能满足客户的要求。

要是能够让用户自己调整报表的格式和内容，然后将它保存下来，程序下次启动时它自动调用保存了的报表格式那有多好。

本人通过如下方法最终实现了用的要求。

PB（PowerBuilder）有一种以PSR结尾的特殊的保存报表的文件格式（本文简称作PSR文件）。

根据数据窗口可以直接读取PSR文件生成报表的原理，程序通过生成PSR文件，实现动态报表格式的保存。

一、实现原理：PB中的报表其实就相当于是数据窗口。

第一步，动态报表的实现。

通过设置数据窗口对象（dataobject）中文本、列等的Resizeable 和moveable属性为1来实现对象位置的拖动控制，通过数据窗口的Modify函数实现对象值的更改（包括增加和删除）。

第二步，报表格式的保存。

在一个应用当中，数据窗口对象的名称总是唯一的，将每一个数据窗口对象转化成PSR文件存于数据库表中。

在窗口打开时，程序先校验报表格式是否存在。

如果存在，先将报表格式读取出来放在一个临时文件当中，然后设置数据窗口（datawindow）的数据对象(dataobject)为这个报表文件，然后提取数据；如果不存在，直接提取数据即可。

二、实现过程：1、建立一个数据库表用以保存报表格式文件。

表名：dyn_reportDwobjectVarchar2(20)数据窗口对象名称Primary keyRptitleVarchar2(80)报表的标题名称MemoLong raw 报表格式2、建立一个窗口w_temp。

定义实例变量如下：string is_dwtype，is_dwobject //保存报表中对象的类型及名称控件名称控件含义Dw_print数据窗口对象Cb_exit退出按钮Cb_savereport 报表格式保存按钮3、在窗口的OPEN事件中加入如下代码, 校验报表格式是否存在，如果存在读取定义好的报表格式到数据窗口。

pb中datawindow常用技巧一(2009-04-16 17:09:07)转载▼分类：PowerBuilder标签：杂谈pb中datawindow常用技巧一1、如何让存储文件目录的列，显示图片？答：选择对应的column的display as picture属性为true2、如何复制grid类型的所选择的行的数据到系统剪切板？答：string ls_selectedls_selected=dw_1.Object.DataWindow.Selected.Dataclipbord(ls_selected)4、如何设置的DW底色？在DW的editsource中改变color的值5、如何将Grid风格改成自由格式？在DW的editsource中将processing=1的1改为06、要新建一个表A但风格和现有表格B风格一样，怎么将A表快速设置成表B风格？复制B表C，在C表的DW中的editsource中将表名和字段名改成A表的，即可7、如何实现gird风格的datawindow的多栏表头？答：添加text到header带区，并设置band属性为foreground保存，edit source 修改text的x和width属性表达式如下：x="100~t integer(describe('firstcol.x')" width="100~tinteger(describe('lastcol.x')) - integer(describe('firstcol.x')) +integer(describe('lastcol.width'))8、如何过滤dddw编辑风格的显示值为指定值的记录？答：dw_1.setfilter("lookupdisplay('column_name')='"+ls_display_value_your+"'") dw_1.filter()9、如何设置datawindow的某一列为空？答：string ls_temp[]setnull(ls_temp)dw_1.object.columnname.primary.current=ls_temp10、如何设置datawindow的单双行不同颜色间隔？答：在detail带区的color属性表达式中写上if(mod(getrow(),2)=1 ,rgb(255,0,0),rgb(0,255,0)),如果是当前行以第三种颜色表示，表达式如下：if(getrow()=current(),rgb(255,0,0),if(mod(getrow(),2)=1 ,rgb(0,0,255),rgb(0,255,0)))11、如何获取指定名称的datawindowobject?答：DWObject ldwo_use,ldwo_abc ldwo_use = dw_1.Object ldwo_abc =ldwo_use.__get_attribute("t_1",FALSE)//t_1为datawindow中text对象的名称12、如何缩放datawindow的打印大小？答：dw_1.object.datawindow.zoom=150 or dw_1.object.datawindow.zoom=75 13、如何在已过滤后的数据基础上对datawindow进行过滤？答：dw_1.setfilter(dw_1.describe("datawindow.table.filter")+your_join+your_new_filt er)dw_1.filter()14、如何在datawindow中显示动态时间？答：建立一个计算域，表达式为string(datetime(today(),now()),'yyyy年mm月dd日hh点mm分ss秒'),同时设置datawindow的属性dw_1.Object.DataWindow.Timer_Interval=50015、如何让带用title bar的datawindow控件的标题栏诚活动窗口的颜色？答：外部函数定义：funcation logn SetActiveWindow(long hwnd ) Library "user32.dll" datawindow控件的clicked事件代码：setactivewindow(handle(this))16、如何设置datawindow的当前行指示图标？答：在datawindow中建立一个计算列,expression为'',并将该计算列移动为datawindow的第一个列，在datawindow控件的rowfocuschanged事件中写入代码：SetRowFocusIndicator(hand!)或setrowfucsindicator(p_1)//p_1为窗口上的picture控件名17、如何通过代码打开dddw？答：定义外部函数引用声明SUBROUTINE keybd_event( int bVk, int bScan, int dwFlags, int dwExtraInfo) LIBRARY "user32.dll"代码如下：[constant integer VK_F4 = 115dw_1.SetFocus()dw_1.SetColumn( "dept_head_id" ) //设置当前dddwkeybd_event( VK_F4,0,0,0 ) // 按下F4键keybd_event( VK_F4,0,2,0 ) // 释放F4键18、如何打印datawindow的内容到文件中？答：dw_1.object.datawindow.print.fileName ="c:\temp.prn"dw_1.print()19、如何设置dddw的初始值？答：dw_1.object.columnname.Initial="your_initial_value"20、如何只显示不同的数据？答：dw_1.filter("isnull(columnname[-1]) and columnname<>columnname[-1]") dw_1.filter()21、如何让带有title bar的datawindow不可以移动？答：在datawindow的自定义事件ue_nchittest(pbm_nchittest)中写入如下代码：return 122、如何在N-UP显示风格中建立基于第N栏中的列的计算列？答：如column有两列，number和price ,并显示为两栏，则第一栏的cost计算列的expression为number*price,第二栏的cost_1计算列的expression为number[1]*price[1]23、如何清空ddlb或edit.codetable中项目？答：dw_1.Object.columnname.Values=""24、如何实现指定的column的字体旋转90度？答：dw_1.object.columnname.font.Escapement ="900"25、如何获取datawindow的sql代码？答：可以通过以下四种方法获取sql代码：string szselectszselect=dw_1.describe("datawindow.table.select")szselect=dw_1.describe("datawindow.table.sqlselect")szselect=dw_1.describe("datawindow.table.select.attribute")szselect=dw_1.getsqlselect()27、如何获取datawindow对象占有的虚拟存储的容量？答：使用datawindow.storage属性举例：在datawindow控件的retrieverow事件中，写如如下代码：long lstoragelstorage=long(dw_1.object.datawindow.storage)if lstorage>50000 then dbcancel()28、如何连续在同一张纸打印两个数据窗口？答：dw_1.object.datawindow.print.filename="temp.prn"dw_2.object.datawindow.print.filename="temp.prn"dw_1.print()dw_2.print()29、如何设置datawindow分组后每个分组中的记录号？答：建立一个计算列，expression为getrow() - first(getrow() for group 1)+1 30、如何实现在datawindow中只有新增的行，才可以编辑？答：在所有的column的protect属性表达式中写入以下表达式：if(isrownew(),'0','1')31、除了循环以外，有没有更好的方法统计数据窗口中处于选中状态的行数？一般习惯于使用循环来统计数据窗口中处于选中状态的行数，有没有更好的方法？其实此问题在应用上用处不大，讨论一下，活跃一下思维还是有好处的。

Return1
//不允许关闭
EndChoose //用户所有的选择情况处理完毕
通过上面的脚本，可以为用户提供一个很健壮的数据处理窗口。即使直接关闭该窗口，在数据窗口中所做的数据修改也不会丢失，除非用户 自己想放弃。
另外，需要注意的是，在其他事件中调用或者触发（使用TriggerEvent函数、PostEvent函数或者是对象名称.Event 事件名称格式调用事 件）Close事件，都只是执行该事件中的脚本，并不真正关闭窗口。也就是说，应该区别事件和事件处理脚本，这两者虽然有很多的联系但 并不相同。 PB中的所有事件和事件处理脚本都是有区别的。
row：要设置数据的行，为long类型。
column：要设置数据的列，可以是string类型的列名称，也可以是integer类型的列号。
插入空行：insertrow(0) dw_name.insertrow(0) 通常配合插入行使用的是滚动行 dw_name.scrolltorow(dw_name.insertrow(0)) \\滚动到插入行 比如：int row
row = dw_1.insertrow(0)
//显示
dw_1.scrolltorow(row)
该函数有返回值，1，2，3对选择的按键。
基本写法事例: MessageBox('此处为标题,'此处为内容') 完整写法事例: if MessageBox('提示信息','是否删除?',&Question! ,OKCancel! , 1 ) = 1 then//选择确定 MessageBox('提示信息', '你选择了删除') else//选择取消
//使用