【PB】从数据窗口获得数据的方法总结

迈不过友情╰ 2023-07-10 11:28 8阅读 0赞

通过PowerBuilder的数据窗口对象属性，我们可以指定一定格式的表达式来直接从数据窗口中获得数据。这种直接的数据操作方法让我们能只需一条语句而不用调用许多方法，就可得到一定量甚至大量的数据。操作数据的表达式大致可分为三种，下面逐一介绍。  
\---------------------------------------------------------------------   
 1 ）在知道列或计算域名时得到数据得到某列中一行或全部的值，  
表达式：（如果rownum忽略，则可得到缓冲区或数据源的值）  
dwcontrol.Object.columnname  \{  .buffer  \}  \{  .datasource  \}  \{   \[ rownum \]  \}   
其中datasource 参数表示数据源，它有两个可选项，Current（缺省）和Original，由此参数我们可以指定数据是从当前数据窗口上还是从数据库中得到。对于计算域，它不能被改变也没有当前值，所以我们必须指定为此参数为Original。  
示例：  
因为缺省设置是在Primary缓冲区的当前值，下面语句是等价的，都是从第一行得到emp\_name列的值  
dw\_ 1 .Object.emp\_name\[ 1 \]  
dw\_ 1 .Object.emp\_name.Primary.Current\[ 1 \]  
下面语句设置emp\_name列的第一行值为“国防科技大学先进制造中心”  
dw\_ 1 .Object.emp\_name\[ 1 \]  =  "国防科技大学先进制造中心"  
下面语句得到所有emp\_name列的值，并将它们放入数组中  
string ls\_namearray\[\]  
ls\_namearray  =  dw\_ 1 .Object.emp\_name.Current  
下面语句得到emp\_name列在filter缓冲区的所有当前值  
string ls\_namearray\[\]  
ls\_namearray  =  dw\_ 1 .Object.emp\_name.Filter  
下面语句得到emp\_name在filter缓冲区的初始值（数据库中的值）  
string ls\_namearray\[\]  
ls\_namearray  =  dw\_ 1 .Object.emp\_name.Filter.Original  
下面语句得到emp\_name列在delete缓冲区的第14行的当前值  
string ls\_name  
ls\_name  =  dw\_ 1 .Object.emp\_name.Delete\[ 14 \]This statement gets the original  
下面语句得到emp\_name列在delete缓冲区的第14行的初始值（数据库中的值）  
string ls\_name  
ls\_name  =  dw\_ 1 .Object.emp\_name.Delete.Original\[ 14 \]  
下面语句得到review\_date计算域的所有值  
string ld\_review\[\]  
ld\_review  =  dw\_ 1 .Object.review\_date.Original  
得到被选择项的值  
表达式：dwcontrol.Object.columnname  \{  .Primary  \}\{  .datasource  \} .Selected  
示例：  
由于Primary缓冲区是程序本选择项所在的唯一缓冲区并且当前数据是缺省的，下面的语句作用是等价的，它们实现从emp\_name列中得到被选中行的值。  
dw\_ 1 .Object.emp\_name.Selected  
dw\_ 1 .Object.emp\_name.Primary.Selected  
dw\_ 1 .Object.emp\_name.Current.Selected  
dw\_ 1 .Object.emp\_name.Primary.Current.Selected  
下面语句从数据库中得到被选择行的数据  
dw\_ 1 .Object.emp\_name.Original.Selected  
dw\_ 1 .Object.emp\_name.Primary.Original.Selected  
下面语句设置emp\_name列的第一个被选中行的值为空字符串  
string ls\_empty\[\]  
ls\_empty\[ 1 \]  =  ""  
dw\_ 1 .Object.emp\_lname.Selected  =  ls\_empty  
下面语句可得到emp\_name列被选中行的初始值（从数据库中检索出的值），并将它放入一个字符串数组  
string ls\_namearray\[\]  
ls\_namearray  =  dw\_ 1 .Object.emp\_name.Original.Selected  
得到一定范围的值  
返回指定列的一个范围的行的值，并将它们放入数组  
表达式：  
dwcontrol.Object.columnname  \{  .buffer  \}  \{  .datasource  \}  \[ startrownum,  
endrownum \]  
示例：  
由于Primary缓冲区和当前数据是缺省选项，下面的语句式等价的  
dw\_ 1 .Object.emp\_name\[ 11 , 20 \]  
dw\_ 1 .Object.emp\_name.Primary\[ 11 , 20 \]  
dw\_ 1 .Object.emp\_name.Current\[ 11 , 20 \]  
dw\_ 1 .Object.emp\_name.Primary.Current\[ 11 , 20 \]  
下面语句将emp\_name列从11行到20行的值设置为空字符串  
string ls\_empty\[\]  
ls\_empty\[ 1 \]  =  ""  
dw\_ 1 .Object.emp\_name\[ 11 , 20 \]  =  &  \{  "","","","","","","","","","" \}   
 \---------------------------------------------------------------------   
下面语句的得到emp\_name列的初始值，并将它们放入一个字符串数组  
string ls\_namearray\[\]  
ls\_namearray  =  dw\_ 1 .Object.emp\_name.Original\[ 11 , 20 \]  
 \---------------------------------------------------------------------   
下面语句得到emp\_name列在过滤缓冲区从5行到8行的当前值，并且将它们放入到数组中  
string ls\_namearray\[\]  
ls\_namearray  =  dw\_ 1 .Object.emp\_name.Filter\[ 5 , 8 \]  
 \---------------------------------------------------------------------   
下面语句得到emp\_name列在过滤缓冲区从5行到8行的初始值，并且将它们放入到数组中  
string ls\_namearray\[\]  
ls\_namearray  =  dw\_ 1 .Object.emp\_name.Filter.Original\[ 5 , 8 \]  
 \---------------------------------------------------------------------   
下面语句得到emp\_name列在删除缓冲区从50行到200行的当前值，并且将它们放入到数组中  
string ls\_namearray\[\]  
ls\_namearray  =  dw\_ 1 .Object.emp\_name.Delete\[ 50 , 200 \]  
 \---------------------------------------------------------------------   
下面语句得到emp\_name列在删除缓冲区从50行到200行的初始值，并且将它们放入到数组中  
string ls\_namearray\[\]  
ls\_namearray  =  dw\_ 1 .Object.emp\_name.Delete.Original\[ 50 , 200 \]  
 \---------------------------------------------------------------------   
 2 ）得到已知列号列的值  
得到指定行号列号的值  
表达式：  
dwcontrol.Object.Data  \{  .buffer  \}  \{  .datasource  \}  \[ rownum, colnum \]  
示例：  
由于Primary缓冲区和当前值选项是缺省的，所以下面语句式等价的，都是得到第一行，第二列的数据  
dw\_ 1 .Object.Data\[ 1 , 2 \]  
dw\_ 1 .Object.Data.Primary.Current\[ 1 , 2 \]  
 \---------------------------------------------------------------------   
下面语句将Filter缓冲区的初始值中得第一行，第二列的值改为0  
dw\_ 1 .Object.Data.Filter.Original\[ 1 , 2 \]  =  0   
 \---------------------------------------------------------------------   
得到一定范围行的数据  
表达式：  
dwcontrol.Object.Data  \{  .buffer  \}  \{  .datasource  \}  \[ startrownum, startcolnum, endrownum, endcolnum \]  
示例：  
 \---------------------------------------------------------------------   
由于Primary缓冲区和当前值选项是缺省的，所以下面语句式等价的，都是得到第一行到第十行，第一列到第四列的值  
dw\_ 1 .Object.Data\[ 1 , 1 , 10 , 4 \]  
dw\_ 1 .Object.Data.Primary.Current\[ 1 , 1 , 10 , 4 \]  
 \---------------------------------------------------------------------   
下面语句得到employee Ids和 last names列在delete缓冲区的所有行的值，Ids和names列是第一第二列。得到的数据放在名为str\_namelist的一个结构中，此结构有两个属性，整形的id和字符串形的lastname。Ids和names被存放在文件deleted.txt中。  
integer li\_fileNum  
long ll\_deletedrows  
str\_namelist lstr\_namelist\[\]  
ll\_deletedrows  =  dw\_ 1 .DeletedCount()  
lstr\_namelist  =  &  
dw\_ 1 .Object.Data.Delete\[ 1 , 1 , ll\_deletedrows, 2 \]  
li\_fileNum  =  FileOpen("C:/HR/DELETED.TXT", &  
LineMode!, Write!)  
FOR ll\_count  =  1  to  UpperBound(lstr\_namelist)  
FileWrite(li\_fileNum, &  
String(lstr\_namelist.id)  \+  &  
" "  \+  &  
lstr\_namelist.lastname  \+  &  
"~r~n")  
NEXT  
FileClose(li\_fileNum)  
 \---------------------------------------------------------------------   
下面的语句使Ids和last names列的数据为NULL  
long ll\_n  
str\_namelist lstr\_namelist\[\]  
SetNull(lstr\_namelist\[ 1 \].id)  
SetNull(lstr\_namelist\[ 1 \].lastname)  
FOR ll\_n  =  2  to  dw\_ 1 .RowCount()  
lstr\_namelist\[ll\_n\]  =  lstr\_namelist\[ 1 \]  
NEXT  
dw\_ 1 .Object.Data\[ 1 , 1 , dw\_ 1 .RowCount(), 2 \]  =  lstr\_data  
 3 ）得到整行数据  
得到数据窗口上的某行或全部行的数据  
表达式：  
dwcontrol.Object.Data  \{  .buffer  \}  \{  .datasource  \}  \{   \[ rownum \]  \}   
示例：  
 \---------------------------------------------------------------------   
由于Primary缓冲区和当前值选项是缺省的，所以下面语句式等价的，都是得到Primary缓冲区第五行的当前数据  
dw\_ 1 .Object.Data\[ 5 \]  
dw\_ 1 .Object.Data.Primary.Current\[ 5 \]  
下面语句将数据窗口Primary缓冲区的当前值放入到一个结构数组中  
any la\_dwdata  
la\_dwdata  =  dw\_ 1 .Object.Data  
下面语句得到数据窗口Delete缓冲区的当前值，并将它放入到一个结构数组中  
any la\_dwdata  
la\_dwdata  =  dw\_ 1 .Object.Data.Delete  
下面语句用数据窗口dw\_ 2 的Primary缓冲区的当前值覆盖嵌套报表的第二行的数据，在数据窗口dw\_ 2 中的列必须与嵌套报表中的列相同：  
dw\_ 1 .Object.NestRep\[ 2 \].Object.Data  =  dw\_ 2 .Object.Data  
 \---------------------------------------------------------------------   
得到选中行的数据  
表达式：  
dwcontrol.Object.Data  \{  .Primary  \}  \{  .datasource  \}  .Selected  
示例：  
由于Primary缓冲区和当前值选项是缺省的，所以下面语句式等价的，都是得到选中行的数据  
dw\_ 1 .Object.Data.Selected  
dw\_ 1 .Object.Data.Primary.Selected  
dw\_ 1 .Object.Data.Current.Selected  
dw\_ 1 .Object.Data.Primary.Current.Selected  
 =====================================================================   
下面语句得到被选中行的初始值  
dw\_ 1 .Object.Data.Original.Selected  
dw\_ 1 .Object.Data.Primary.Original.Selected  
 \---------------------------------------------------------------------   
下面语句得到dw\_ 2 中Primary缓冲区选中行的当前值，然后放到dw\_ 1 中的列useroption(下拉数据窗口)中  
dw\_ 1 .Object.useroptions.Object.Data  =  dw\_ 2 .Object.Data.Selected  
 4 ）从Crosstab数据窗口中获得点击域名和域值  
对于Crosstab类型的数据窗口，我们在前面已做了简要的介绍，但由于它的行列都可以随着后台数据库存放数据的改变而发生改变，所以在想得到它的某个行列定义的值时不能采用一般的方法，如GetItem××××和点操作符。  
通过数据窗口画板可以看到所有的列具有同样的列名，在程序运行时它们会自动的 \* 列名后加后缀的方法进行区别，格式为：列名\_列号~t行号，列号和行号之间通过‘~t’分隔，列名和列号通过‘\_’分隔。因此如果我们需要detail栏的任何一列的值，就需要将得到的信息进行解析，提取出选择的列名，列号和行号，然后才可以通过一般得数据的方法在数据窗口中获得需要的数据。下面我们以一个具体的例子来解说上面采用的方法。  
作用：在数据窗口（数据源为Crosstab）的Cliked事件中编程，当点击事件发生后将获得点击交 \* 表行列交叉点的值；  
程序：  
 // 定义变量  
string ls\_detail, ls\_name, ls\_col  
int li\_pos, li\_len, li\_row, li\_col  
 // 判断用户点击处是否为detail栏，如不是则退出  
 if  left(getbandatpointer(), 6 )  <>  "detail"  then  return  
 // 得到点击域的信息  
ls\_detail  =  geto b j e c tatpointer()  
 // 得到detail栏第二列的名称，第一列为数据窗口行信息  
ls\_name  =  Object.\# 2 .Name  
 // 将第二列列名和前面点击得到的点击域信息进行比较，如不是点击的第二列则退出  
 if  left(ls\_detail,len(ls\_name))  <>  ls\_name  then  return  
 // 得到点击域的行号  
li\_row  =  row  
li\_len  =  len(ls\_detail)  
 // 从前面得到点击域信息中得到关于列号的信息  
ls\_col  =  right(ls\_detail, li\_len  \-  len(ls\_name))  
 // 得到点击域的列号  
 if  left(ls\_col, 1 )  <>  "\_"  then   
li\_col  =  2   
 else   
li\_pos  =  pos(ls\_col,"~t")  
li\_col  =  integer(mid(ls\_col, 2 ,li\_pos  \-  1 ) )  \+  2   
 end  if   
 // 显示出点击域的值  
string(getitemnumber(li\_row,li\_col))