一:知识介绍
最简单的方法:可以直接定义全局变量
主窗口、子窗口都可以直接对它操作
注意:全局变量值为主\子窗口最后赋值的值
在PowerBuilder中函数OpenWithParm,CloseWithReturn,OpenSheetWithParm,windowname.OpenUserObjectWithParm
等都有一个在进行窗口操作(打开或者关闭)时存入Message消息对象的参数parameter或returnvalue。
消息对象Message有三个属性用于存储这些函数传递给窗口的数据(依赖于窗口操作时参数赋予的类型)。
根据parameter / returnvalue参数数据类型的不同,该参数的值保存在Message对象的不同属性中。
parameter / returnvalue参数的类型与使用的Message对象属性的对应关系如下表:
参数类型 Message对象属性
Numeric(数值) Message.DoubleParm
PowerObject(PB对象,包括用户自定义的结构数据类型) Message.PowerObjectParm
String(字符串) Message.StringParm
应用程序根据OpenWithParm()等函数的parameter / returnvalue参数类型,从Message消息对象的不同属性中提取该函数并传送
给被打开窗口的值。
在PB中如果是传递一个参数,是很容易实现的。在调用脚本中,可以使用如下代码:
openwithparm(w_1,"独孤求败")
接着在打开窗口w_1的open事件中键入:
sle_1.Text = message.stringparm
如果需要传递多个参数,可以使用如下两种方法:
方法一
定义结构变量:lstr_para,其中包含你想传递的各种参数:
变量名 变量类型
ID string
Name string
Sex string
Loca string
在调用脚本中(本例使用才菜单clicked中),使用如下代码:
lstr_para lstr_Tranpara
lstr_Tranpara.id = "00000001"
lstr_Tranpara.name = "独孤求败"
lstr_Tranpara.sex = "男"
lstr_Tranpara.loca = "广东深圳"
openwithparm(w_2,lstr_Tranpara)
接下来在打开窗口w_2的open事件中,获取结构信息:
lstr_para lstr_Getpara
lstr_Getpara = message.powerobjectparm
sle_1.Text = lstr_Getpara.id
sle_2.Text = lstr_Getpara.name
sle_3.Text = lstr_Getpara.sex
sle_4.Text = lstr_Getpara.loca
其中,lstr_Getpara为用户自定义结构数据类型,是值传送的。
方法二
首先创建一个类用户对象
uo_para
在该用户对象中将你需要传递的各种参数申明成实例变量,例如:
public:
string id
string name
string sex
string loca
在调用脚本中(本例使用才菜单clicked中),使用如下代码:
uo_para uo_Tranpara
uo_Tranpara = create uo_para
uo_Tranpara.id = "00000001"
uo_Tranpara.name = "独孤求败"
uo_Tranpara.sex = "男"
uo_Tranpara.loca = "广东深圳"
OpenWithParm(w_3,uo_Tranpara)
接下来在打开窗口w_3的open事件中,获取用户对象信息:
uo_para uo_Getpara
uo_Getpara = message.powerobjectparm
sle_1.Text = uo_Getpara.id
sle_2.Text = uo_Getpara.name
sle_3.Text = uo_Getpara.sex
sle_4.Text = uo_Getpara.loca
以上两种方法比较而言,第一种方法虽然比较简单实用,但是如果遇上较复杂的数据时,便不能在一个结构数据中充分描述了;
第二种方法不但方便灵活,而且可以传送复杂的数据。当然,参数的传送不止以上的几种方法,你也可以使用全局变量或是公共可
访问的窗口实例变量来传送参数,或者在窗口中调用一个函数,并传递所需的参数,在此就不再赘述了。
另外,用Message传递参数必须注意以下几点:
1. 最好执行完窗口操作(打开或关闭)后马上将Message消息对象的值传给变量,这是因为Message是全局使用的对象,
每一次事件被触发或传送时都会被使用,其他Script 也有可能用到Message消息对象,因此它有被覆盖的危险。
2.避免传送NULL对象,以免程序出错。
二.实例应用
1.创建图中的绿色的结构,创建步骤:File/new/PB Object/Structure
本例子中创建两个结构参数,第一个为判断窗体是增删该查的哪一种,第二个为一个用于获取数据的表中字段
这样就能实现通过一个结构实现两个功能。
2.从部门简单介绍 那张表中获取deptcode,同时将其赋值给结构中的deptcode
-
//获取deptcode
-
integer no_line
-
no_line=dw_department.getrow()
-
string deptcode
-
deptcode=dw_department.GetItemString(no_line,"deptcode")
-
//查询部门,弹出查询部门模式窗口
-
//打开窗口时,同时传递一个参数
-
win_dept windept
-
windept.windowtype=ViewWindow
-
windept.deptcode=deptcode
-
openwithparm(w_departmentdetail,windept)
3.在弹出的模式窗口的open事件中编写代码
-
//在open事件中判断是新建,查看,修改,然后决定是否有保存按钮
-
//首先获取结构的信息
-
win_dept getwindept
-
getwindept=Message.powerobjectparm
-
Messagebox("结构",getwindept.windowtype)
-
string _windowtype,windeptcode
-
_windowtype=getwindept.windowtype
-
windeptcode=getwindept.deptcode
-
//1.判断窗体类型
-
IF _windowtype=ViewWindow THEN
-
cb_save.Enabled=false
-
sle_deptid.displayonly=true
-
sle_dbcenter.displayonly=true
-
sle_deptcode.displayonly=true
-
sle_parentid.displayonly=true
-
sle_deptname.displayonly=true
-
sle_description.displayonly=true
-
sle_address.displayonly=true
-
sle_status.displayonly=true
-
Else
-
cb_save.Enabled=true
-
//如果是修改的话,部门id和dbcenter不能修改,设置为只读
-
IF _windowtype=ModifyWindow THEN
-
sle_deptid.displayonly=true
-
sle_dbcenter.displayonly=true
-
END IF
-
END IF
-
//2.根据窗口类型判断是否填充数据
-
IF _windowtype<>NewWindow THEN
-
String _deptid,_dbcenter,_deptcode,_parentid,_deptname,_description,_address,_status
-
Select DeptID,DBCenter,DeptCode,ParentID,DeptName,Description,Address,Status
-
INTO :_deptid,:_dbcenter,:_deptcode,:_parentid,:_deptname,:_description,:_address,:_status
-
from HR_Department
-
WHERE DeptCode=:windeptcode;//加冒号!!因为是动态的变量
-
sle_deptid.text=_deptid
-
sle_dbcenter.text=_dbcenter
-
sle_deptcode.text=_deptcode
-
sle_parentid.text=_parentid
-
sle_deptname.text=_deptname
-
sle_description.text=_description
-
sle_address.text=_address
-
sle_status.text=_status
-
END IF
转自:https://blog.csdn.net/ClearLoveQ/article/details/81486103