这样，DataWindow 中只有新追加的记录可修改，而其他记录是只读的。
2 如何在DataWindow中实现列的自动折行
我们在PowerBuilder应用程序的开发过程中, 使用DataWindow时, 经常会遇
到某列的数据太长, 不能同时全部显示的情况. 若采用自动水平滚动, 操作起
来又不够简便. 下面介绍一种方法, 实现列数据多行显示, 即实现列数据的自
动折行.具体步骤如下:
1) 在DataWindow Painter中打开此DataWindow.
2) 在需设定自动折行的列上双击鼠标, 弹开此列的属性窗口.
3) 选择Position标签, 选中Autosize Height 多选框.
4) 选择Edit标签, 不选中Auto Horz Scroll多选框.
5) 单击OK按钮, 保存所做的修改.
6) 点中Detail Band (即写有Detail的灰色长带), 单击鼠标右键, 选择
Properties... 菜单项.
7) 选中Autosize Height多选框.
8) 单击OK按钮, 保存所做的修改.
9) 保存此DataWindow.
注意:
连在一起的汉字(中间没有标点或空格分隔), 系统将认为是一个单词, 不
会自动进行折行.
3 在数据窗口中实现动画
要实现动画，必须要有定时器，在数据窗口中已经有了一个定时器，双击数据窗口将弹出的对话框，在Timer Interval中定义大于零的值就有定时器（可以精确到毫秒），有了这个定时器就可以实现动画了。比如要改变某字段的背景颜色，可设
ackgound.color=RGB(Integer(Right(string(now(),'hhmmssf'),1))*256/10,Integer(Right(string(now (),'hhmmssf'),1))*256/10,0)
当然，您不仅可以改变背景颜色，而且可以改变字体等等任何属性，使他可以动起来！
4 使数据窗口中的被选中行具有更好的外观
大家都知道，在选择数据窗口中的某一行时，如果使用pb提供的选择函数SelectRow()，那么的外观真是不能恭维，单调而古板的蓝色背景，可能和您的漂亮而生动的应用程序格格不入。有没有办法改变呢？当然有啰，请听我慢慢道来。
改变某一行的背景比较简单，改变每一列的背景属性(backgroundcolor)即可，可要根据鼠标选择情况自动改变，并可以返回被选中的行可能还需要一定的技巧。下面分单行选择和多行选择分辨说明。
单行选择
单行选择比较简单，我们只要将所有字段的背景色的表达式改为：
if(GetRow()=CurrentRow(),RGB(255,126,0),RGB(0,0,0))
其中第一个颜色为被选中的颜色，第二个颜色未被选中的颜色。然后用GetRow()代替GetSelectedRow()函数来得到被选中的行。
多行选择
多行选择比较复杂，如果单纯依靠改变数据窗口的属性没法实现，我们必须使用数据窗口属性和代码结合起来才能实现
首先，改变数据窗口的SQL语句，增加一个计算字段:0 as flag,Select 语句改为：Select col1,col2 ,1 as flag from tablename where .....，
当返回数据窗口painter时，您就会发现多了一个字段flag,我们就是利用这个字段保存行被选中的信息。
其次，修改各个字段的背景颜色属性，设置为：
if(flag=1,RGB(255,126,0),RGB(255,255,255))
第三：在数据窗口控件中，增加对clicked 事件的处理，代码如下：
if row<1 then return // setredraw(false)
if this.o b j e c t.flag[row]=1 then //如果该行被选中，撤销选择，否则选中该行
this.Object.flag[row]=0
else
this.Object.flag[row]=1
end if
setredraw(true)
您还可以定制本选中行的字体，文本属性等等。原理相同，不再赘述。
5 将日期型字段初始化为当天的日期
使用Column Specifications 对话框来设置数据的初始值是一个比较好又比较通用的
方法。为了将日期型字段初始化为当天的日期，只要设置初始化值为today,而不是today()
即可。同样设置初始值为NUll,可以使用null,而不是null()。
6 在DataWindow中调整列顺序
在Gird 风格的DataWindow 中,列的排列顺序是按照你选择Column 的顺序排列的,并且
不能改变.要改变列的顺序则必须重新制作DataWindow.
最近我发现一个办法可以改变列的顺序: 在DataWindow 画板中打开要修改的DataWindow,然后按'Preview' 按钮切换到预览模式下,选择要移动的列标题并拖动到预定位置,然后返回DataWindow 画板,存盘即可.
7 Retrieve时不清除原有Datawindow数据
当你调用Retrieve函数，PowerBuilder自动清除原有DataWindow然后Retrieve数据。在Datawindow RetrieveStart事件中，使用Return 2，这样PowerBuilder不会清除原有数据而是追加新数据。
8 美化DataWindow的显示效果
使DataWindow 的单双行显示颜色不同，不仅仅可以使你的应用程序更显专业性，并使数据的可读性增强。先调出你需要改动的DataWindow，在Detail band按下右键选择Properties，
选择Tab页中的expression_rs，在color属性中输入下面内容：（注意是在Detail明细显示段按右键，而不是在Column上) IF(MOD(GETROW(),2)=0,RGB(192, 192, 192), RGB(255, 255, 255)) 马上Preview一下，看一看效果如何。
9 用Line建立漂亮的Grid DataWindow的技巧
虽然PowerBuilder有Grid风格的DataWindow，但不够灵活，如果想打印一张边框粗线条或双线，内框为细线条的表格直接使用Grid风格的DataWindow就不能实现。因此许多人都用Tabular风格的DataWindow，然后自己用Line来实现Grid。在调整线条位置是一个即伤脑筋又伤眼睛的事件，而一旦需要调整行高，所有工作都得重来，试一试用下面方法，会大大减轻你的工作量：在vertical lines，改变它的属性，在expression_rs Tab上，y1行上输入0，y2行上输入rowheight() - 1 在horizontal lines, 设置y1 和y2 = rowheight() - 5 这样PowerBuilder会自动调整线的坐标，你只需要设置横线的长度和x1,x2的坐标即可。马上Preview一下，看一看效果！你再也不需要因为行的高度发生改变而重新调整线条位置。
10 如何创建一个报表，如下形式
Quantity Running Total
5,000 5,000
2,500 7,500
3,000 10,500
12,000 22,500
对于Running Total列，我们可使用计算列：CumulativeSum（Quantity for all），即可达到逐渐递增求和的功能。
11 数据窗口的数据送缓冲区之前确认的四个步骤判断数据类型是否正确。如不正确则触发ItemError事件。判断数据是否符合有效性规则。如不符合有效性规则，同样触发ItemError 事件。判断是否有数据被改动。判断数据是否通过ItemChanged事件，如果数据和ItemChanged相斥，将触发ItemError事件。
12 如何在DataWindow中用数据类型为Datetime的列为条件进行查找
1．当要查找的日期条件是一常数时使用如下表达式：
ls_Find = "datetime_col
= DateTime ('1/1/1999')"
2．当要查找的日期条件是一个变量时使用如下的表达式：
ls_Find = "datetime_col = DateTime ('" + ls_Date + "')"
3．当要查找的日期条件是一个DateTime数据类型时使用如下表达式：ls_Find = "datetime_col = DateTime ('" + String (ldt_DateTime) + "')"
13 设置数据窗口Boolean型属性的三种方法
PowerBuilder提供了三种方法设置数据窗口的布尔型属性，分别是True/False, 1/0,
'Yes'/'No'。例如:
dw_1.Object.address.Visible = 0 dw_1.Object.address.Visible = False
dw_1.Object.address.Visible = 'No'
PowerBuilder在处理上以字符串的形式保存属性，而不考虑属性值是布尔型、长整型或是字符型。
为了进一步理解，可以导出一个数据窗口并查看它的原码，可以发现即使是列的颜色属性它也是使用带双引
号的数字来表达。
14 如何在DataWindow中快速删除多行
在开发过程中可能经常有要进行多行删除的操作，一般都使用循环语句进行操作：FOR ll_RowOn = 1 TO dw_1.RowCount() dw_1.DeleteRow(ll_RowOn) NEXT 一个快速的删除方法是把要删除的行从主缓冲区中移到删除缓冲区中。例如，删除缓冲区中所有的行：
dw_1.RowsMove(dw_1, 1, dw_1.RowCount, Primary!, dw_1, 1, Delete!)
不过不要忘了过滤的行在不同的缓冲区中。
15 如何在DataWindow的SQL语法中不使用SELECT DISTINCT实现删除重复的行
起先对你要显示唯一值的列进行排序："city A"，然后增加如下过滤字符串：" city < > city [-1] or GetRow () = 1"
16 如何在分组形式的DataWindow中分别显示各组的行号
当我们为Datawindow的每一行显示行号时，可以简单的放一个表达式为GetRow()计算列。但是对于分组的Datawindow，要分别显示各组的行号，则应使用表达式为
GetRow() - First(GetRow() for Group 1) + 1的计算列。
17 如何改变列的字体颜色，提醒用户此列已做修改
在列的Color属性中，输入如下表达式
IF (column_name < >column_name.Original, RGB(255, 0, 0), RGB(0, 0, 0))。
在这个条件中，如果此列已改变，则显示红色字体，否则显示黑色字体。这个表达式主要用column_name < > column_name.Original比较当前列的值和原始列的值是否相同来达到判断的目的。
18 在数据窗口中移走行,但不是去做过滤或删除操作
RowsDiscard()函数可做到这一点,它在数据窗口中执行移除工作,但被移走的行它不可被删除或做任何修改性的保存。
19 如何在多行显示的DataWindow 中的Footer Band中显示当前数据的首行和最后行的行号
我们先看两个计算列的表达式：IF (GetRow() = First(GetRow() FOR Page), 1, 0) // 1 为当前页的第一行
IF (GetRow() < > 1 AND GetRow() = Last(GetRow() FOR Page), 1, 0) // 1 为当前页的最后一行
由上面可知，在Footer Band中设置如下计算列表达式：
'Rows ' + String(First(GetRow() FOR Page)) + ' to ' + String(Last(GetRow() FOR Page)) + ' are displayed'。
即可达到这项功能。
20 使可编辑的数据窗口只读
有时，你可能需要将一个用于编程的数据窗口用作显示目的，可以有以下几种方法来实现这一要求：
1.建立两个数据窗口，一个用于编辑，一个用于显示
2.将数据窗口中的全部对象的taborder设置为0.
3.也可以将数据窗口中的列的protect属性设为On或Off,但你不能使用protect属性进行编辑操作
4.数据窗口有一个将datawindow设为只读的属性(readonly)，使用它最方便。
21 数据窗口检查重复行
dw_1.SetSort ("user_id A")
dw_1.Sort()
dw_1.SetFilter ("user_id = user_id[-1]")
dw_1.Filter()
if dw_1.RowCount() > 0 then
Messagebox("注意", "用户编码重复.")
end if
dw_1.SetFilter ("")
dw_1.Filter()
22 如何在分组形式的DataWindow中分别显示各组的行号
---- 当我们为Datawindow的每一行显示行号时，可以简单的放一个表达式为GetRow()
---- 计算列。但是对于分组的Datawindow，要分别显示各组的行号，则应使用表达式为GetRow() - First(GetRow() for Group 1) + 1的计算列。
23 如何能让数据窗口的某几列在其他列横拉时固定不动
////////////////////////////////////////////////////////////////
// 功能说明：用于冻结左边的滚动栏
// 变更记录: 变更或版本更新的时候
//
////////////////////////////////////////////////////////////////
int i
if pane = 1 then
i = integer(this.o b j e c t.datawindow.horizontalscrollposition2)
if i < 1 or isnull(i) then return
if scrollpos > 0 then
this.o b j e c t.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.o b j e c t.datawindow.horizontalScrollPosition2 = i
end if
end if
24 在数据窗口中如果要使其中一列的属性为只读，也就是不允许用户修改，那么只需简单地将这一列的Table Order 设置成0就可。然而，在有些情况下
需要对这一列的某些行修改，而某些行不能修改，这就要用到这一列的protect属性了。打开列的属性中的expression_rs，在protect中输入条件判别
式。例如：允许用户修改新增加的记录，而检索出来的记录则不允许修改。条件判别式可以写成如下：
if(isRowNew(),0,1)
在PowerScript 中可以动态修改Protect 属性：
dw_1.Modify("column_name_here.Protect='1~tIf(IsRowNew(),0,1)'")
这样，DataWindow 中只有新追加的记录可修改，而其他记录是只读的。
25 控制DATAWINDOW里每页显示的行数
1、在Datawindow中增加一个计算域，起名为：ceil_page,此计算域必须放在Detail段中，expression_r中输入ceiling(getrow()/25) 25表示每页打印25行，也可以是一个参数。
2、分组,选择菜单RowsCreate Group,选择ceil_page
按ceil_page分组，并选中New Page On Group Break(意思是新组开始时换页)。
3、将此计算域设为隐藏(在属性页中的expression_r页中在visible属性中写0)。
4、补空行：
在窗口的open事件中写如下代码：
long li_count,li_i
li_count=dw_1.retrieve()
if mod(li_count,25)<>0 then
for li_i=1 to 25 - mod(li_count,25)
dw_1.insertrow(0)
next
end if
26 数据窗口的closeQuery事件:提示保存数据
dw_1.AcceptText()
IF dw_1.ModifiedCount() + dw_1.DeletedCount() > 0 THEN
CHOOSE CASE MessageBox("操作提示","数据已经发生变化,是否保
存?",Question!,YesNoCancel!,1)
CASE 1
cb_save.TriggerEvent(clicked!)
CASE 2
Return 0//不做任何操作直接关闭窗口
CASE 3
Return 1//不会运行Close Event,维持原来的情况
END CHOOSE
END IF
27 Getchild函数主要被用来得到一个数据窗口的子数据窗口
该函数在两种情况下可以使用，1、取出数据窗口对象的下拉式数据窗口；
2、取出复合风格（composite）数据窗口对象里所嵌入的子数据窗口对象。语法：integer dwcontrol.GetChild (string name, REF DataWindowChild
dwchildvariable )
例子1 这段程序取出一个composite数据窗口对象的两个子数据窗口，并对他们进行过滤，和排序的操作。
String ls_filter
DataWindowChild dwc_czrw,dwc_czx//定义子数据窗口变量
dw_dy.Settranso b j e c t(sqlca)
dw_dy.Retrieve()
dw_dy.GetChild("dw_2",dwc_czrw)
dw_dy.Getchild("dw_1",dwc_czx)
ls_filter = "czrw_bh = '"+dw_3.GetItemString(dw_3.GetRow(),"czrw_bh")+"'"//过滤条件
dwc_czrw.SetFilter(ls_filter)
dwc_czrw.Filter()
ls_filter = "czx_rwbh = '"+dw_3.GetItemString(dw_3.GetRow(),"czrw_bh")+"'"
dwc_czx.SetSort("czx_sx A")
dwc_czx.Sort()
dwc_czx.SetFilter(ls_filter)
dwc_czx.filter()
当然也可以通过数据共享(ShareData)等方式操作子数据窗口中的数据。
访问复合数据窗口对象.方法：dw_dy.o b j e c t.dw_1.o b j e c t.对象
例子2 下拉数据窗口动态过滤
在数据窗口dw_1的ItemFocusChanged事件中写入如下脚本：
Integer rtncode
String ls_nowFld,ls_deptid,ls_sql
DataWindowChild fld_child
rtncode = dw_1.GetChild("Unit_id",fld_child) //获得Unit_id字段名下拉数据窗口的句柄
If rtncode = -1 Then MessageBox("错误!", "不是下拉数据窗口!")
fld_child.SetTransObject(SQLCA) //设置事务对象
ls_sql = Lower(fld_child.GetSQLSelect())// 获得DDDW的SQL语句
// 去除Sql 语句中的Where条件子句，如原Sql 语句中须有Where条件子句，此处则需进行较
//复杂的处理，应视具体情况而定。
if Pos(ls_sql, " where ")>0 then ls_sql = Left(ls_sql,Pos(ls_sql, " where "))
//重新设置Sql 语句中的Where条件子句
ls_deptid=dw_1.Object.dept_id[GetRow()] //取得当前dept_id选定值
ls_sql = ls_sql + " Where dept_id = '" +Trim(ls_deptid)+"'"
//重新设置Sql 语句
fld_child.SetSQLSelect(ls_sql)
fld_child.Retrieve()//取得满足条件的数据
28 从数据窗口中获取数据
单条：假设我们要读取dept_id字段的第一笔数据，可以用下列方式表示∶li_id = dw_1.o b j e c t.dept_id[1]
假设我们要读取第一行中第二个字段的数据，可以用下列方式表示∶ls_name = dw_1.o b j e c t.DATA[1,2]
假设我们要读取dept_id字段的所有数据，可以用下列方式表示∶li_array = dw_1.o b j e c t.dept_id.CURRENT
假设我们要读取过滤缓冲区(filter buffer) 内dept_id字段的第一笔数据，可以用下列方式表示∶li_id = dw_1.o b j e c t.dept_id.Filter
[1]
假设我们要读取从第二笔数据的第一个字段到第三笔数据的二个字段之间的数据，表示∶lstr_array = dw_1.o b j e c t.DATA[2,1,3,2]
假设我们要读取整个第二笔的数据，可以用下列方式表示∶lstr_dept = dw_1.o b j e c
t.DATA[2]
使用GetItemX ( )函数x为string number等
lstr_name = dw_1.getitemstring (li_count , "emp_name") li_count为哪一条
多条：string ls_name[ ]
ls_name = dw_ 1.o b j e c t.emp_name.current
数据的读取一般格式∶数据窗口控件.Retrieve ( ) 返回个数，-1为错误
增加数据数据窗口控件.InsertRow (行数) 参数为0加到最后
数据的删除数据窗口控件.Deleterow (行数)
数据的过滤l 数据窗口控件.SetFilter (条件字符串).
数据窗口控件.Filter ( ) 用法∶将主要缓冲区(Primary Buffer) 内不符合过滤条件的数据移到过滤缓冲区(Filter Buffer)
内。
例子：string ls_exp ls_exp = "dept_id = 100" dw_1.SetFilter (ls_exp) dw_1.Filter ( )
排序dw_1.SetSort ("dept_id") dw_1.Sort ( )
将数据从所有的缓冲区(Buffer) 中清除dw_1.ReSet ( )
计算数据数目。例如∶dw_1.Rowcount ( ) 类似：.DeletedCount ( ) .ModifiedCount
( ) .FilteredCount ( )
数据窗口的滚动数据窗口控件.ScrollToRow (行数)
29 数据窗口属性改变：
描述数据窗口对象本身颜色，可以表示如下∶long ll_color ll_color = dw_emplist.Describe ("DataWindow.Color")
描述数据窗口对象内标题dept_id_t 的颜色，可以表示如下∶long ll_color ll_color = dw_emplist.Describe ("dept_id_t.Color")
修改数据窗口对象本身颜色，可以表示如下:dw_emplist.Modify ("DataWindow.Color = 255")
修改数据窗口对象内标题dept_id 的颜色，可以表示如下∶dw_emplist.Modify ("dept_id_t.Color = 255")
假设当我们希望在程序运行阶段才给予下行条件∶薪水超过50000 时显示红色，低于50000 时显示黑色。程序的写法如下∶
ls_modstring = "Salary.Color = '0~tIf (Salary > 50000，255，0) '"
dw_1.modify (ls_modstring)
30 得到当前鼠标所指对象所在的带区
string str_band
str_band=GetBandAtPointer() //得到当前鼠标所指对象所在的带区
str_band=left(str_band,(pos(str_band,'~t') - 1))//得到"header"、"detail"等
if str_band<>'header' then return //单击非头区，退出
31 得到鼠标指向的列对象名
str_o b j e c t=GetObjectAtPointer() //得到当前鼠标所指对象名
str_o b j e c t=left(str_o b j e c t,(pos(str_o b j e c t,'~t') - 1))
//得到列对象名(默认为列名_t为列标题)
str_column=left(str_o b j e c t,(len(str_title) - 2))
//判断该名称是否为列名字
if this.describe(str_column+".band")='!' then return //非是列名，即列标题不是按正常规律起名的。
32 得到当前行、列，总行、列//this 针对数据窗口而言
li_col = this.GetColumn()
li_ColCount = long(describe(this,"datawindow.column.count"))
ll_row = this.GetRow()
ll_RowCount = this.RowCount()
//设置当前行、列
scrolltorow(this,ll_Row)
setrow(this,ll_Row)
setcolumn(this,li_col)
this.SetFocus()
33 得到所有列标题
ll_colnum = Long(dw_1.o b j e c t.datawindow.column.count)
for i = 1 to ll_colnum
//得到标题头的名字
ls_colname = dw_1.describe('#' + string(i) + ".name") + "_t"
ls_value = dw_1.describe(ls_colname + ".text")
next
34 如何用代码取得数据窗口汇总带计算列的值?
String ls_value
ls_value = dw_1.Describe("uate("'compute_1',1)")
如果是数值型，要转换。
35 取得单击的列标题、列名、数据库字段名
string ls_dwo
long ll_pos
string ls_type
string ls_title
string ls_column
string ls_dbname
if Not KeyDown(KeyControl!) then return
ls_dwo = https://www.doczj.com/doc/1a4805440.html,
if trim(ls_dwo) = '' or isnull(ls_dwo) then return
ls_type = This.describe(ls_dwo + '.type')
if ls_type = 'column' then
ls_title = This.describe(ls_dwo + '_t.text')//标题
ls_column = This.describe(ls_dwo + '.Name') //数据窗口列名
ls_dbname = This.describe(ls_dwo + '.dbname') //数据库中字段名
messagebox('信息', '标题文本：' + ls_title + &
'~r~n数据窗口列名：' + ls_column + &
'~r~n数据库中字段名：' + ls_dbname )
end if
36 窗口为w_gcde内，放入一个DW_1，如何得到dw_1内的某列值yuonghu_id列的内容方法：
long lng_column_count
integer i
string str_column[] //列名
string str_column_text[]//text的名字
//得到数据窗口的总列数
lng_column_count = long(dw_1.Describe("DataWindow.Column.Count"))
//循环依次读取
for i = 1 to lng_column_count
str_column[i] = dw_1.Describe("#"＋string(i)＋".name")
str_column_text[i] = dw_1.Describe(str_column[i] ＋"_t.text")
next
37 在DDDW中实现当前高亮行随鼠标移动
DataWindowChild ldwc_Child
String ls_Pointer
Long ll_Row
GetChild( "dept_id", ldwc_Child ) // Replace the column name "dept_id" as you needed
IF hwndchild = Handle( ldwc_child ) THEN
if notificationcode = 2311 then //DDDW的mousemove事件
//得到鼠标所在行
ls_Pointer = ldwc_Child.GetObjectAtPointer()
ll_Row=Long( Mid( ls_Pointer, Pos( ls_Pointer, "~t" ) + 1 ))
//移到鼠标所在行
IF ldwc_Child.GetRow() <> ll_Row AND ll_Row > 0 THEN
ldwc_Child.ScrollToRow( ll_Row )
END IF
end if
END IF
38 实现打印完一个DataWindow后不换页
首先将datawindow的print输出到一个打印文件中，把其他的print也输入这个prn，然后,打印这个打印文件就行了。
如：
datawindow_control1.object.datawindow.print.filename="c:printfilepathexam_1.prn" datawindow_control2.object.datawindow.print.filename="c:printfilepathexam_1.prn" dw_1.print()
dw_2.print()
run("print //d:\printservenamesharename "c:printfilepathexam_1.prn")
//d:\printservenamesharename打印机名
一、连接数据库 连接数据库也就是指定事务对象。PowerBuilder提供了两个函数：SetTrans()和SetTransObject()。 语法格式： dw_control.SetTrans(TransactionObject) dw_control.SetTransObject(TransactionObject) 其中，dw_control是所使用的数据窗口控件，transactionObject是所要指定的事务对象。 这两个函数有一个重要的区别就是在使用SetTrans()函数时，用户不需做任何数据初始化或事务对象初始化工作。用户只需要在这里填充一个事务对象，PB 就会自动完成对该事物对象的初始化以及和数据库连接的工作。而使用SetTransObject()函数时，用户必须首先把所用的事务对象连接到数据库上。但是，这并不意味着SetTrans()函数比SetTransObject()函数更好，使用SetTrans()函数时，每调用一次函数必须连接一次数据库，因为这个函数在每个事务处理的末端都会执行Disconnect语句。与此相反，使用SetTransObject()函数可以为数据库维持一个开放性的连接。因此在一般情况下，为了提高效率，总是采用SetTransObject()函数。 这两个函数都是成功时返回1，发生错误时返回-1。 二、检索数据 用于检索数据的函数只有一个，就是Retrieve()函数。 语法格式： dw_control.Retrieve() 如果数据窗口控件上的数据窗口对象是有检索参数的，就要在这个函数调用时加上检索参数。而且检索参数必须和数据窗口对象中定义顺序一致。 此函数返回一个长整型的数据，代表检索出来的数据行数。如果发生错误，将返回-1。 三、更新数据 当用户对数据窗口对象内的数据修改后，想把这些修改反映到数据库中去时，必须使用Update()函数。 语法格式： dw_control.Update() 这个更新可能成功，也可能失败。一般在这个函数被调用之后，总是要做一个检查。请看下面的例子： Int li_return
[PB]-动态数据窗口 〓创建动态数据窗口 若要动态创建数据窗口，需要使用函数Create，该函数的语法如下： dw_1.Create(syntax{,errorbuffer}) 其中，dw_1是数据窗口控件的名称，该数据窗口控件要和新创建的数据窗口对象相关联。syntax是用来描述创建数据窗口对象的确切语法的字符串。errorburrer是可选项，用来保存创建数据窗口对象过程中发生的错误信息。如果不指定该参数，就会在发生错误时显示一个错误信息的提示窗口。如果创建成功该函数返回1，否则返回-1，如果参数为null则函数返回null。 由于Create函数成功创建数据窗口对象后，要改变dw_1数据窗口控件所关联的数据窗口对象，因此，需要重新为数据窗口设置事务对象(使用函数SetTransObject或者SetTrans)。 获取创建数据窗口的语法有多种方法，可以对相关的SQL语句使用SyntaxFromSQL函数，也可以使用对已经创建好的数据窗口对象使用LibraryExport函数。因为创建数据窗口的语法比较复杂，即使使用了LibraryExport输出已有数据窗口对象的语法，操作起来也相当费劲。所以，更为通用的是前面一种方法。这种方法配合一定的编程技巧，让用户指定要创建的数据窗口对象的SQL语句，使用户有更多的自由和选择。使用这种方法，肯定用到函数 SyntaxFromSQL，它的语法是： transaction.SyntaxFromSQL(SQLselect,presetation,err) 其中，transaction是事务对象的名称，该事务对象必须正确地设置了相关参数，并且和数据库建立了联结。SQLselect是用来创建数据窗口的SQL语句，为String 类型。presentation是要创建的数据窗口对象的显示风格，为String类型。简单的格式是： Style(Type=presentationstyle) 其中Style和Type都是保留字，presentationstyle的取值有Tabular，Grid，Form，Graph，Group，Label和Nup，其中Tabular是缺省类型。err是用来保存函数执行时出错信息的string类型的变量。 *关于函数SyntaxFromSQL的参数presentation可以有更复杂的语法。其格式是："Style ( Type=value property=value ... ) DataWindow ( property=value ... ) Column ( property=value ... ) Group groupby_colnum1 Fby_colnum2 ... property ... ) Text property=value ... ) Title ( 'titlestring' )" 使用这样的格式，可以详细定义要创建的数据窗口对象的外观。 〓在很多情况下都需要一个数据窗口控件和不同的数据窗口对象关联。可以通过修改数据窗口控件的dataobject属性来实现。在修改了这一特性之后，数据窗口控件就不再具有与它相关的事务处理对象了，应该再重新为数据窗口设置事务
PB中下拉数据窗口带参数应用 在数据输入时，当用到下拉列表时，会发现有些数据是和别的数据相关的，这时我们会希望过滤掉那些不相关的数据。例如生成一个入库单，某种物料有多个供应商，我们要根据物料来过滤掉和这个物料不相关的供应商，这样会加快检索和输入的速度。 入库单表：billrec
1．以supply表，制作一个带参数的数据窗口，命名为d_supply_replace_list，参数列为item_id，字符型，隐藏物料代码列。 2．以billrec表，制作一个数据窗口，命名为billrec_maintain，将supply_id列的edit属性中的style type选定为DropDownDW，datawindow为d_supply_replace_list。 在窗口中放置数据窗口控件dw_1，将其与billrec_maintain数据窗口关联。 在窗口中定义实例变量datawindowchild idwc_child。 3．在dw_1的constructor事件中编写以下脚本： this.getchild("supply_id",idwc_child) //生成子数据窗口，supply_id为下拉列表列idwc_child.insertrow(0) idwc_child.settransobject(SQLCA) this.of_settransobject(SQLCA) this.insertrow(0) 4．在dw_1的itemchanged事件中编写以下脚本： long ll_getcolumn ll_getcolumn = this.getcolumn() //获得当前列 choose case ll_getcolumn case 7 //假设item_id列是第7列 dw_1.accepttext() is_id = dw_1.getitemstring(row,7) //获得物料代码 idwc_child.retrieve(is_id) //检索替代供应商 end choose 这样在输入不同的物料时，会像下图那样，只列出相关的供应商。
PB 数据窗口高级( DataWindow) 37个技巧 1. 使DataWindow列只能追加不能修改 如何使DataWindow中的数据只能追加新记录而不能修改，利用Column 的Protect 属性可以很方便的做到这一点，方法如下： 将每一列的Protect 属性设置为： If( IsRowNew(), 0, 1) ) 在PowerScript 中可以动态修改Protect 属性： dw_1.Modify("column_name_here.Protect='1~tIf(IsRowNew(),0,1)'") 这样，DataWindow 中只有新追加的记录可修改，而其他记录是只读的。 2 .如何在DataWindow中实现列的自动折行 我们在PowerBuilder应用程序的开发过程中, 使用DataWindow时, 经常会遇 到某列的数据太长, 不能同时全部显示的情况. 若采用自动水平滚动, 操作起 来又不够简便. 下面介绍一种方法, 实现列数据多行显示, 即实现列数据的自 动折行.具体步骤如下: 1) 在DataWindow Painter中打开此DataWindow.
2) 在需设定自动折行的列上双击鼠标, 弹开此列的属性窗口. 3) 选择Position标签, 选中Autosize Height 多选框. 4) 选择Edit标签, 不选中Auto Horz Scroll多选框. 5) 单击OK按钮, 保存所做的修改. 6) 点中Detail Band (即写有Detail的灰色长带), 单击鼠标右键, 选择Properties... 菜单项. 7) 选中Autosize Height多选框. 8) 单击OK按钮, 保存所做的修改. 9) 保存此DataWindow. 注意: 连在一起的汉字(中间没有标点或空格分隔), 系统将认为是一个单词, 不 会自动进行折行. 3. 在数据窗口中实现动画 要实现动画，必须要有定时器，在数据窗口中已经有了一个定时器，双击数据窗口将弹出的对话框，在Timer Interval中定义大于零的值就有定时器（可以精确到毫秒），有了这个定时器就可以实现动画了。比如要改变某字段的背景颜色，可设 ackgound.color=RGB(Integer(Right(string(now(),'hhmmssf'),1))*256/10,In teger(Right(string(now(),'hhmmssf'),1))*256/10,0) 当然，您不仅可以改变背景颜色，而且可以改变字体等等任何属
原文地址：PB数据窗口绝对技巧作者：千人急 1、如何让存储文件目录的列，显示图片？ 答：选择对应的column的display as picture属性为true 2、如何复制grid类型的所选择的行的数据到系统剪切板？ 答：string ls_selected ls_selected=dw_1.Object.DataWindow.Selected.Data clipbord(ls_selected) 4、如何设置的DW底色？ 在DW的editsource中改变color的值 5、如何将Grid风格改成自由格式？ 在DW的editsource中将processing=1的1改为0 6、要新建一个表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的某一列为空？
PB数据窗口绝对技巧 1、如何让存储文件目录的列，显示图片？ 选择对应的column的display as picture属性为true。 2、如何复制grid类型的所选择的行的数据到系统剪切板？ string ls_selected ls_selected=dw_1.Object.DataWindow.Selected.Data clipbord(ls_selected) 3：如何改变GRID数据窗口列位置（新手常见） 先preview，然后在预览窗口拖动位置即可。 4、如何设置DW的底色？ 在DW的editsource中改变color的值。 5、如何将Grid风格改成自由格式？ 在DW的editsource中将processing=1的1改为0。 6、要新建一个表A但风格和现有表B风格一样，怎么将A表快速设置成表B风格？ 复制B表C，在C表的DW中的editsource中将表名和字段名改成A表的，即可。 7、如何实现gird风格的datawindow的多栏表头？ 添加text到header带区，并设置band属性为foreground保存，edit source修改tex t的x和width属性表达式如下： x="100~t integer(describe('firstcol.x')" width="100~tinteger(describe('lastcol.x')) - int eger(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_temp 10、如何设置datawindow的单双行不同颜色间隔？ 在detail带区的color属性表达式中写上if(mod (getrow(),2)=1 ,rgb(255,0,0),rgb(0,25 5,0)),如果是当前行以第三种颜色表示，表达式如下：if(getrow()=current(), rgb(255,0,0),if(m od(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的打印大小？
PB]-子数据窗口操作 PB]-子数据窗口 **通常的子数据窗口也就是下拉数据窗口。子数据窗口也是普通的数据窗口对象，没有什么特殊的地方，它的创建方法、可以使用的控件、编程时可以使用的函数等，都和普通的数据窗口相同。特殊的地方只是因为它放在了父数据窗口中，需要和父窗口进行配合。 **当为数据窗口中某字段指定为下拉数据窗口编辑风格时，必须提供以下三个属性： a)子数据窗口名称。 b)显示字段名称：该字段中的内容显示在父数据窗口的字段上，只是显示。 c)数据字段名称：该字段中的内容要赋给父数据窗口的字段，要保存到数据库中。 分别对应数据窗口画板的Edit属性页中的：Eidt Style、Display Column、Data Column。 *子数据窗口不能再包含子数据窗口；父数据窗口可以对其包含的子数据窗口进行插入、删除、检索和保存等操作。 **获取子数据窗口的引用是进行其他操作的前提，使用函数GetChild来获取指定字段的子数据窗口。该函数的语法如下： dw_1.GetChild(name,dwchildvariable) 其中，dw_1.是数据窗口控件名称；name为字段名称，为string类型；dwchildvariable为datawindowchild 类型变量，该变量在函数正确执行后保存对子数据窗口的引用。该函数正确执行则返回1，否则返回-1。在获取了子数据窗口的引用之后，就可以捡索子数据窗口中的数据了。但是，检索子数据窗口的情况比较多，并且也有多种方法。 **保证子数据窗口中的数据更新 用户使用下拉数据窗口录入数据时，其中的数据并不一定有用户需要的。在某些情况下不允许用户再输入其他值，否则可能造成数据的不一致性，这时就可以不再编写其他的脚本。但在允许用户录入时，就需要把用户录入的数据保存在子数据窗口对应的数据表中，以便以后数据录入时不再重复输入该数据。这时就应该编写脚本保存该数据了。 **检索子数据窗口 在应用中，对子数据窗口的编程不是检索数据，就是更新其中的数据。检索数据时，如果只显示子数据窗口中同父数据窗口中某字段取值对应的数据，这时子数据窗口的定义就应该有检索参数。根据检索和更新数据这两个因素，可以将检索数据的情况划分成以下三种： a)没有条件限制，并且不允许更新。 b)没有条件限制，并且允许更新。 c)有条件限制，不管是否可以更新。
★SetTransObject 语法：dwcontrol.SetTransObject ( transaction ) 功能：给数据窗口或者datastore控件dwcontrol设置事务对象transaction，缺省事务对象是SQLCA。返回值：成功设置事务对象则返回1，执行过程中发生了错误则返回-1，有任意参数为Null时返回Null。 ★Retrieve 语法：dwcontrol.Retrieve ( {, argument, argument . . . } ) 功能：使用数据窗口控件的当前事务对象检索数据库中的数据。如果数据窗口控件对应的数据窗口对象定义了检索参数，则应该在该函数中指定检索参数，参数的个数和数据窗口对象的检索变量个数相等，对应的数据类型相兼容。 返回值：返回数据窗口控件主缓存区（PrimaryBuffer）中的记录数，如果检索数据时发生错误则返回-1，如果任意参数为Null则返回Null *该函数的参数和数据窗口对象定义的参数的顺序要相同，类型要兼容。个数不能少于数据窗口对象定义的参数，即可以等于和多于数据窗口对象定义的参数，多的参数忽略。 ★DeleteRow 语法：dwcontrol.DeleteRow ( row ) 功能：删除数据窗口dwcontrol中的第row行数据，如果row为0则表示删除当前行的数据。 返回值：执行成功则返回1，执行错误则返回-1，如果任意参数为Null则返回Null。 *该函数执行后只是将被删除的数据从数据窗口的主缓存区移放到Deleted缓冲区，在数据库中并没有真正删除数据，当正确执行了Update函数并且使用commit语句提交了事务后，才真正从数据库中删除该数据 ★InsertRow 语法：dwcontrol.InsertRow ( row ) 功能：在数据窗口dwcontrol的第row行前插入一行空白数据。当指定row为0时，表示在当前行之前插入一行空白数据。 返回值：返回插入的数据的行号，如果执行过程中发生错误则返回-1，如果任意参数为Null则返回Null ★Update 语法：dwcontrol.Update ( { accept {, resetflag } } ) 功能：提交数据窗口或者datastore中的数据。如果accept为True，表示在提交数据之前自动执行AccpetText函数，否则不执行该函数，该参数缺省为True；如果resetflag为True，表示数据提交后自动清除修改标识，该参数缺省为True。 返回值：执行成功则返回1，发生错误则返回-1，如果dwcontrol为Null则返回Null ★AcceptText 语法：dwcontrol.AcceptText ( ) 功能：该函数执行时，首先对当前编辑框中的内容进行对应字段的校验规则，能够通过校验规则，则保存在对应字段中，否则显示校验信息提示错误。需要执行该函数的原因是，当在某字段上的编辑框中输入内容而没有移动光标到别的字段上时，其他控件获得焦点，此时编辑框中的内容不能被保存到字段中，所以就应该在数据窗口失去焦点时执行该函数。 返回值：执行成功则返回1，执行过程中发生错误则返回-1，如果dwcontrol为Null则返回Null。 *该函数在数据窗口的ItemChanged事件中不起作用，因为项目改变是发生在接受编辑框中内容之后
pb中datawindow常用技巧一 (2009-04-16 17:09:07) 转载▼ 分类：PowerBuilder 标签： 杂谈 pb中datawindow常用技巧一 1、如何让存储文件目录的列，显示图片？ 答：选择对应的column的display as picture属性为true 2、如何复制grid类型的所选择的行的数据到系统剪切板？ 答：string ls_selected ls_selected=dw_1.Object.DataWindow.Selected.Data clipbord(ls_selected) 4、如何设置的DW底色？ 在DW的editsource中改变color的值 5、如何将Grid风格改成自由格式？ 在DW的editsource中将processing=1的1改为0 6、要新建一个表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_temp 10、如何设置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()
9．1 简介 在前面的内容当中，我们介绍了有关数据窗口的基本概念、功能和方法，下面我们将把使用数据窗口的一些高级技术介绍给大家。 这一章不需读者自己动手，因为需要用到很多的数据表格，这里没法都提供给读者，所以这一章只需要读者看明白就可以了，对于SCRIPT 中的语句，要是看不懂可以跳过，会在后面的章节中进行进一步的解答。 9．2 数据窗口与数据库 9．2．1 事务对象 我们知道事务对象在POWER BUILDER 当中占有非常重要的地位，POWER BUILDER的应用程序必须通过事务对象来实现与各种数据库的连接，所以在讨论数据窗口和数据库的关系之前，我们首先来介绍有关事物对象的基本内容。 在POWER BUILDER当中，要想对一个数据库进行操作，首先必须建立与这个数据库的连接。在一个POWER BUILDER数据库连接中，事务对象是一个特殊的不可视的对象，其功能就是为POWER BUILDER程序与数据库之间的通信提供一个通信区。事务对象当中定义了POWER BUI LDER用来与数据库进行连接的参数。在访问数据库之前，必须先建立一个事务对象，然后给这个事务对象的属性赋以合适的值，才能通过这个事务对象与数据库连接，完成所需的数据库操作。当一个应用程序开始运行时，POWER BUILDER 会自动创建一个名为SQLCA的默认全局事务对象。SQLCA是“SQL COMMUNICATIONS AREA”SQL通信区的缩写。可以在应用程序中使用这个默认的事务对象，也可以定义自己的事务对象。 POWER BUILDER提供了四条用来进行事务管理的语句 CONNECT：成功的CONNECT语句标志着一个事务的开始。在执行CONNECT语句之前，必须对一个已经存在的事务对象的用以连接DBMS的属性赋以合适的值。 DISCONNECT：这个语句标志着中止一个事务。 COMMIT：执行COMMIT将提交自该事务开始之后当前事务对数据库已做的所有尚未提交的更新操作。并开始一个新的事务。 ROLLBACK：执行ROLLBACK语句之后，当前事务已做的所有更新操作都将被撤消，并开始一个新的事务。 9．2．2 使用事务对象 有两种方法可以为一个数据窗口设置事务对象。 使用SETTRANS函数：SETTRANS函数将一个特定的事务对象拷贝到数据窗口控件的内部事务对象当中。在程序使用该函数的时候，数据窗口控件使用自己内部的事务对象并且根据需要
PB数据窗口 数据窗口控件-datawindow PB9.0提供了28个属性、35个默认事件、162个函数。注意与数据窗口对象的区分。 【其他】 ■脚本的执行效率 *尽量不要在RetrieveRow事件下编写脚本（包括注释）。 *如果数据窗口的DoubleClicked事件中编写了脚本，那么在数据窗口的C1icked事件中的脚本应该尽量短，否则双击事件中的脚本永远不可能得到执行。一般来说，Cliked中脚本的执行时间和两次击鼠标之间的间隔时间之和，不应该大于操作系统中所设定的鼠标双击时间间隔，否则双击事件永远不可能触发，双击时仅仅是接连两次触发c1icked事件。 *在数据窗口中录入数据时，事件EditChanged是触发频率最高的，每一个按钮都触发该事件；触发频率仅次于该事件的是ItemChanged事件和ItemFocusChanged，只要修改了单元中的内容，每次触发ItemFocusChanged事件都会触发ItemChanged事件。在这些事件下编写过长的脚本会非常影响录入工作的效率。同样，事件RowFocusChanged的触发频率也是相当高的。一般来说是可以避免在这四个事件中编写脚本的。 ■dw o参数使用 数据窗口的某些事件中可以使用一个称为dwo的变量，该变量保存数据窗口中的部分信息，用数据窗口的属性可以读取这些信息dwo.type：读取在dwo中保存的对象类型。对象类型可能有bitmap、button、column、compute、graph、groupbox、line、ole、ellipse、rectangle、roundrectangle、report、tableblob、text、datawindow(当用户没有单击特定对象时) https://www.doczj.com/doc/1a4805440.html,：column的列名 dwo.Primary[row]：column的数据 dwo.Selected：选中column的数据 ■数据缓冲区 数据窗口在运行时要创建四个缓冲区，分别是主缓冲区、删除缓冲区、过滤缓冲区和原始缓
PB 数据窗口数据导出到word,excel 博客分类： powerbuilder ExcelJ#Windows PB 数据窗口数据导出到word,excel, excel 可以自定义修改excel文档的列宽对齐方式,字体样式等 // dwsave2word 调用ole global type gf_exportdata2word from function_object end type forward prototypes global subroutine gf_exportdata2word (datawindow ad_datawindow) end prototypes global subroutine gf_exportdata2word (datawindow ad_datawindow);string ls_filepath ls_filepath=gf_getfilesavename() OleObject OleObjectWord OleObjectWord=Create OleObject // 连接word if OleObjectWord.ConnectToNewObject("Word.application") <> 0 then Messagebox("提示","ole连接错误！") return end if OleObjectWord.visible=false //word文档在操作数据过程中是否可见 Long col_colnum,col_rownum Constant Long wdTableBehavior=1 Constant Long wdAutoFitFixed=0 Constant Long wdCell=12 String str_value // 得到数据窗口数据的列数和行数（行数应该是数据行数＋1） col_colnum=Long(ad_datawindow.object.datawindow.column.count) col_rownum=ad_datawindow.rowcount() + 1 // 先在word文档中画好表格 SetPointer(HourGlass!) OleObjectWord.Documents.Add
[PB]-数据窗口对象(一) //////////////////////////////////////// 数据窗口对象的数据源 ---------- PB提供5种数据源：Quick Select(快速选择类型)、SQL Select(SQL选择类型)、Query(查询类型)、External(外部类型)和Stored Procedure(存储过程类型) ---------- Quick Select 只能从一个数据表或者视图中选取数据(无关联的表或者视图)？？ ---------- SQL Select 1、选择表 可以一次选择多个表 2、选择字段 Select All //选择所有字段 Select Tables //重新选择表 Convert to Syntax //进入SQL语法状态 Compute //计算字段，右键->Columns //选择字段 右键->Functions //选择函数 3、指定检索条件 Retrieval Arguments //定义检索参数变量的类型和名称 where //检索条件，右键->Columns //选择字段 右键->Functions //选择函数 右键->Arguments //选择参数 右键->Value //选择值 右键->Select //从其他表中选择 ---------- Query PB可以将特定的SQL语句保存为Query对象，不同的Query数据源的数据窗口都可以使用这些已经保存好的SQL语句来提取数据 ---------- External 当和不存在于数据库中的数据打交道或者要利用数据窗口的某些特性但不进行数据处理时，使用此数据源。无SQL语句。 ---------- Stored Procedure 使用已经定义好的存储过程来做数据源 ---------- //////////////////////////////////////// 数据窗口对象的显示样式 ----------
[PB]-子数据窗口 **通常的子数据窗口也就是下拉数据窗口。子数据窗口也是普通的数据窗口对象，没有什么特殊的地方，它的创建方法、可以使用的控件、编程时可以使用的函数等，都和普通的数据窗口相同。特殊的地方只是因为它放在了父数据窗口中，需要和父窗口进行配合。 **当为数据窗口中某字段指定为下拉数据窗口编辑风格时，必须提供以下三个属性： a)子数据窗口名称。 b)显示字段名称：该字段中的内容显示在父数据窗口的字段上，只是显示。 c)数据字段名称：该字段中的内容要赋给父数据窗口的字段，要保存到数据库中。分别对应数据窗口画板的Edit属性页中的：Eidt Style、Display Column、Data Column。 *子数据窗口不能再包含子数据窗口；父数据窗口可以对其包含的子数据窗口进行插入、删除、检索和保存等操作。 **获取子数据窗口的引用是进行其他操作的前提，使用函数GetChild来获取指定字段的子数据窗口。该函数的语法如下： dw_1.GetChild(name,dwchildvariable) 其中，dw_1.是数据窗口控件名称；name为字段名称，为string类型；dwchildvariable为datawindowchild类型变量，该变量在函数正确执行后保存对子数据窗口的引用。该函数正确执行则返回1，否则返回-1。 在获取了子数据窗口的引用之后，就可以捡索子数据窗口中的数据了。但是，检索子数据窗口的情况比较多，并且也有多种方法。 **保证子数据窗口中的数据更新 用户使用下拉数据窗口录入数据时，其中的数据并不一定有用户需要的。在某些情况下不允许用户再输入其他值，否则可能造成数据的不一致性，这时就可以不再编写其他的脚本。但在允许用户录入时，就需要把用户录入的数据保存在子数据窗口对应的数据表中，以便以后数据录入时不再重复输入该数据。这时就应该编写脚本保存该数据了。 **检索子数据窗口 在应用中，对子数据窗口的编程不是检索数据，就是更新其中的数据。检索数据时，如果只显示子数据窗口中同父数据窗口中某字段取值对应的数据，这时子数据窗口的定义就应该有检索参数。根据检索和更新数据这两个因素，可以将检索数据的情况划分成以下三种： a)没有条件限制，并且不允许更新。 b)没有条件限制，并且允许更新。 c)有条件限制，不管是否可以更新。 检索子数据窗口有两个时机，一个是在子数据窗口下拉时，另一个是在父数据窗
ls1= dwo.Primary[row] ★SetTransObject 语法：dwcontrol.SetTransObject ( transaction ) 功能：给数据窗口或者datastore控件dwcontrol设置事务对象transaction，缺省事务对象是SQLCA。返回值：成功设置事务对象则返回1，执行过程中发生了错误则返回-1，有任意参数为Null时返回Null。 ★Retrieve 语法：dwcontrol.Retrieve ( {, argument, argument . . . } ) 功能：使用数据窗口控件的当前事务对象检索数据库中的数据。如果数据窗口控件对应的数据窗口对象定义了检索参数，则应该在该函数中指定检索参数，参数的个数和数据窗口对象的检索变量个数相等，对应的数据类型相兼容。 返回值：返回数据窗口控件主缓存区（PrimaryBuffer）中的记录数，如果检索数据时发生错误则返回-1，如果任意参数为Null则返回Null *该函数的参数和数据窗口对象定义的参数的顺序要相同，类型要兼容。个数不能少于数据窗口对象定义的参数，即可以等于和多于数据窗口对象定义的参数，多的参数忽略。 ★DeleteRow 语法：dwcontrol.DeleteRow ( row ) 功能：删除数据窗口dwcontrol中的第row行数据，如果row为0则表示删除当前行的数据。 返回值：执行成功则返回1，执行错误则返回-1，如果任意参数为Null则返回Null。 *该函数执行后只是将被删除的数据从数据窗口的主缓存区移放到Deleted缓冲区，在数据库中并没有真正删除数据，当正确执行了Update函数并且使用commit语句提交了事务后，才真正从数据库中删除该数据 ★InsertRow 语法：dwcontrol.InsertRow ( row ) 功能：在数据窗口dwcontrol的第row行前插入一行空白数据。当指定row为0时，表示在当前行之前插入一行空白数据。 返回值：返回插入的数据的行号，如果执行过程中发生错误则返回-1，如果任意参数为Null则返回Null ★Update 语法：dwcontrol.Update ( { accept {, resetflag } } ) 功能：提交数据窗口或者datastore中的数据。如果accept为True，表示在提交数据之前自动执行AccpetText函数，否则不执行该函数，该参数缺省为True；如果resetflag为True，表示数据提交后自动清除修改标识，该参数缺省为True。 返回值：执行成功则返回1，发生错误则返回-1，如果dwcontrol为Null则返回Null ★AcceptText 语法：dwcontrol.AcceptText ( ) 功能：该函数执行时，首先对当前编辑框中的内容进行对应字段的校验规则，能够通过校验规则，则保存在对应字段中，否则显示校验信息提示错误。需要执行该函数的原因是，当在某字段上的编辑框中输入内容而没有移动光标到别的字段上时，其他控件获得焦点，此时编辑框中的内容不能被保存到字段中，所以
动态创建数据窗口 在实际应用中，经常需要根据用户需求来动态创建数据窗，一般方法是这样的。 在一个window中加入一个数据窗控件，如dw_new,但是该数据窗没有data object,(空白的)就可以用以下语法来创建： dw_new.create(ls_syntax,ls_error) // 创建语法，错误信息 ls_syntax可以用以下三种方法来形成： 一、动态由sql语法创建： // 连接到pb的example数据库 string ls_sql,ls_syntax,ls_error ls_syntax = 'select * from department' ls_syntax = sqlca.SyntaxFromSQL(ls_sql,'style(type=grid)',ls_error) if len(ls_error) >0 then messagebox('Error','SyntaxFromSQL Error:~r'+ls_error) else dw_new.create(ls_syntax,ls_error) if len(ls_error) >0 then MessageBox("Error", "Create have these errors: ~r" + ls_error) else dw_new.settransobject(sqlca) dw_new.retrieve() end if end if 二、由另一个数据窗的syntax来创建 string ls_syntax,ls_error ls_syntax = dw_test.describe('datawindow.syntax') dw_new.create(ls_syntax,ls_error) if ls_error '' then messagebox('Create Error',ls_error) else dw_new.settransobject(sqlca) dw_new.retrieve() end if 三、读取psr文件来创建 string ls_syntax,ls_error,ls_ret ls_ret = char(13)+char(10) //回车键 int li_fileNum long li_length li_FileNum = FileOpen("efef.psr",Streammode!, read!, shared!, Replace!) if li_filenum >0 then FileSeek(li_FileNum, 158, FromBeginning!) li_length = fileRead(li_filenum,ls_syntax) end if
pb9中数据窗口的XML特性 2009-07-07 13:10 本文转自：https://www.doczj.com/doc/1a4805440.html,/wu_07/archive/2005/12/22/559362.aspx 一、原理 从pb9开始，DataWindow开始支持直接从XML文档中导入数据，将检索到的数据保存为XML文档，以及使用XSL格式对象(XSL-FO) 的新功能。本文根据XML Features in PowerBuilder? 9.0相关内容节选翻译。这是第一部分。 1、数据窗口导出引擎（DataWindow Export Engine） 它是数据窗口新增的组件,主要利用导出模板（Export Templates）作为基础结构来转换行数据到XML格式数据。引擎通过分析模板内容格式化数据，然后输出到XML形式。因为模板本身也是XML文档，所以它首先也需要被解析。导出引擎通过XML解析器（XML Parser）的服务来分析模板文件。在低层，XML解析通过C++和Apache Xerces实现，利用一个适配器接口(pbxerces90.dll)来访问Xerces解析器。 2、导出模板（Export Templates） 一个导出模板定义了数据窗口元素（DataWindow elements）和XML对应关系。 下面的数据窗口对象可以使用在导出模板： ? 列（Column） ? 计算列（Computed Column） ? 文本（Text Control） ? 计算域（Computed Field） ? 内嵌报表（Nested Report） 上面的数据窗口对象可以被映射到以下的XML构造 ? 元素（Element） ? 属性（Attribute） 注意：注释（comments）和处理指令（processing instructions）可以被添加到模板的任意部分，但是不能和其建立映射。CDATA可以被添加到任何元素之内，但是也不能被映射。内嵌报表（Nested Report）只能和元素建立映射，不能是属性。 当导出引擎分析XML模板内容时，根据模板中已经定义的映射关系，将元素映射到实际的数据窗口控件和它们的文本内容。在映射操作成功完成后，引擎将借助