精华区文章阅读

发信人: lyfe (修身养性), 信区: HITSY
标  题: PB窗口之间传递多参数的方法(转载)
发信站: 哈工大紫丁香 (2002年04月06日13:18:53 星期六), 站内信件

【以下文字转载自 Database 讨论区】
【原文由 liujq 所发表】
电脑工作室
                                                                出版日期：99
-9-20　总期号：859　本年期号：69
  　　PB窗口之间传递多参数的方法
  　　
  　　潘亚
  在PowerBuilder中函数OpenWithParm，CloseWithReturn，OpenSheetWithParm，
  windowname.OpenUserObjectWithParm等都有一个在进行窗口操作（打开或者关闭）时
存入Message
  消息对象的参数parameter或returnvalue。
  消息对象Message有三个属性用于存储这些函数传递给窗口的数据（依赖于窗口操作时
参数赋予的类
  型）。根据parameter / returnvalue参数数据类型的不同，该参数的值保存在Messa
ge对象的不同
  属性中。parameter / returnvalue参数的类型与使用的Message对象属性的对应关系
如下表：
       参数类型
                          Message对象属性
   Numeric(数值)
                     Message.DoubleParm
   PowerObject(PB
   对象，包括用户
   自定义的结构数
   据类型)
                     Message.PowerObjectParm
   String(字符串)
                     Message.StringParm
  应用程序根据OpenWithParm()等函数的parameter / returnvalue参数类型，从Messa
ge消息对象的
  不同属性中提取该函数并传送给被打开窗口的值。
  在PB中如果是传递一个参数，是很容易实现的。在调用脚本中，可以使用如下代码：

  openwithparm(w—wantparm,parmtotrans)
  接着在打开窗口w—wantparm的open事件中键入：
  string ls—getparm
  ls—getparm=message.stringparm
  …
  如果需要传递多个参数，可以使用如下两种方法：
  方法一
  定义结构变量：lstr—declaredstr，其中包含你想传递的各种参数：
  变量名变量类型
  ID Unsignedlong
  Name Character
  Email Character
  Homepage Character
  … …
  在调用脚本中，使用如下代码：
  lstr—declaredstr lstr—parmtotrans
  lstr—parmtotrans.id=1
  lstr—paramtotrans.name=″panya″
  lstr—paramtotrans.email=″panya@163.net″
  lstr—paramtotrans.homepage=″http://panya.163.net″
  …
  openwithparm(w_wantparm,parmtotrans)
  接下来在打开窗口w—wantparm的open事件中，获取结构信息：
  lstr—declaredstr lstr—getparm
  integer li—getid
  string ls—getname
  string ls—getemail
  string ls—gethomepage
  lstr—getparm=message.powerobjectparm
  li—getid=lstr—getparm.id
  ls—getname= lstr—getparm.name
  ls—geemail= lstr—getparm.email
  ls—gethomepage= lstr—getparm.homepage
  …
  其中，lstr—declaredstr为用户自定义结构数据类型，是值传送的。
  方法二
  首先创建一个类用户对象
  u—n—parmtostore
  在该用户对象中将你需要传递的各种参数申明成实例变量，例如：
  Public:
  Integer ID
  String Name
  String Email
  String Homepage
  ...
  打开窗口w—wantparm，并传递多个参数：
  u—n—parmtostore lnv_paramtotrans
  lnv—paramtotrans.id=1
  lnv—paramtotrans.name=″panya″
  lnv—paramtotrans.email=″panya@163.net″
  lnv—paramtotrans.homepage=″http://pbnet.126.com″
  …
  OpenWithParm ( w—wantparm, lnv—paramtotrans )
  在 w—wantparm 的 open 事件中访问传来的参数：
  u—n—parmtostore lnv—getparam
  integer li—getid
  string ls—getname
  string ls—getemail
  string ls—gethomepage
  lnv—getparam = Message.PowerObjectParm
  li—getid=lnv—getparam.id
  ls—getname=lnv—getparam.name
  ls—gethomepage=lnv—getparam.homepage
  ls—getemail=lnv—getparam.email
  …
  以上两种方法比较而言，第一种方法虽然比较简单实用，但是如果遇上较复杂的数据
时，便不能在
  一个结构数据中充分描述了；第二种方法不但方便灵活，而且可以传送复杂的数据。
当然，参数的
  传送不止以上的几种方法，你也可以使用全局变量或是公共可访问的窗口实例变量来
传送参数，或
  者在窗口中调用一个函数，并传递所需的参数，在此就不再赘述了。
  另外，用Message传递参数必须注意以下几点：
  1. 最好执行完窗口操作（打开或关闭）后马上将Message消息对象的值传给变量，这
是因为Message
  是全局使用的对象，每一次事件被触发或传送时都会被使用，其他Script 也有可能用
到Message消
  息对象，因此它有被覆盖的危险。
  2.避免传送NULL对象，以免程序出错。

--
※ 来源:．紫丁香 bbs.hit.edu.cn．[FROM: 202.118.229.84]
--
※ 转载:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: 202.118.226.245]

HITSY 版 (精华区)