第9章 用户自定义事件

命令按钮的用户事件编程。 利用第5章中所创建的XSCJ数据库，设计如下窗口，如图9.5所示。希望当焦点落在命 令按钮上时，按Enter键能代替鼠标。在数据窗口中，按Enter键可以跳到下一个输入项，而 不是下一行。当在最后一行的最后一列按Enter键时，将增加一个空行。在最后一行按向下 的箭头键↓时，也增加一个空行。
第9章 用户自定义事件
9.1 定义用户事件 9.2 用户事件号 9.3 删除用户事件 9.4 触发用户事件 9.5 用户事件编程实例
9.1 定义用户事件
事件是从属于某个对象的，因此定义用户事件，首先要选定好所在的对象，然后打开 Script窗口，再选择New Event，如图9.1所示，将出现事件定义窗口，如图9.2所示。
图9.3 增加、插入、删除参数
在定义用户事件时，选择的事件标识应与所在的对象吻合，否则用户事件不起作用。用 户事件定义好后，可以像对象的其他标准事件一样编程和使用。
9.2 用户事件号
PowerBuilder没有提供事件标识的说明手册，但大部分可以从标识名推断其含义。表 9.1列出了部分常用事件标识的前缀及其含义，表9.2列出了部分常用事件标识及其含义。
cb_1.EVENT Clicked（） //触发控件cb_1的鼠标单击事件，等价于cb_1.TriggerEvent（Clicked!） w_1.Event u_display（4，"math"） //触发窗口w_1的用户自定义事件u_dispaly，它带两个参数。只能用这种方法触发。
9.5 用户事件编程实例IF NhomakorabeaKeyDown（keyenter!） THEN //如果按了回车键，则触发clicked事件 THIS.Event clicked（） END IF
I. 给显示记录的命令按钮cb_retrieve的clicked事件编写代码：
dw_1.Retrieve（ ）
9.5 用户事件编程实例
J. 给cb_retrieve定义一个用户事件u_keydown，事件号为pbm_keydown，当焦点落 在该控件上时，按任意键都将触发u_keydown。给u_keydown编写代码：
图9.2 定义用户事件属性
9.1 定义用户事件
可以为用户事件定义参数及返回值。在 Return Type中选择返回值类型，在Argument Type中选择参数类型，在Argment Name中输入 参数名。在图9.2中，单击鼠标右键，将弹出一个 选单，如图9.3所示，可以增加参数（Add Parameter）、插入参数（Insert Parameter）、 删除参数（Delete Parameter）。 定义带参数的用户事件，其事件号必须选 None，若选择其他的事件号，则定义的参数无效。 因为其他事件号的参数个数及类型都是由 PowerBuilder确定的，用户不能修改。
图9.1 定义用户事件
9.1 定义用户事件
在图9.2中，用户事件名和用户事件号是必须要输的，其他则由用户决定。为区别于系 统预定义事件，用户事件名一般以“u_”或“ue_”开头。 用户事件号是以pbm_为前缀的事件标识，绝大多数事件标识都对应于特定的Windows 消息。其中pbm_custom01到pbm_custom75的事件标识不对应于任何Windows消息，它的 触发由用户在编程时决定，其功能类似于函数；而其他的事件标识都有特定的含义，它们 对应于特定的Windows消息，这类事件的触发由系统决定，类似于系统预定义事件如 Cilcked!、rbuttondown!等。也可以将事件号选为none，表示无事件号。
IF KeyDown（keyenter!） THEN //如果按了回车键，则触发clicked事件 THIS.triggerevent（clicked!） END IF
K. 给存盘的命令按钮cb_update的clicked事件编写代码：
dw_1.UpDate （）
L .给cb_update定义一个用户事件u_keydown，事件号为pbm_keydown，当焦点落 在该控件上时，按任意键都将触发u_keydown。给u_keydown编写代码：
9.4 触发用户事件
在定义用户事件时，可以定义事件参数。但TriggerEvent和PostEvent不能带事件参数 （但可以给Message传送用户消息），因此需用下面的格式触发：
object_name. [Trigger | Post] [Static | Dynamic] EVENT event_name（ [para_list] ）
w_1.TriggerEvent（Clicked!） //触发窗口w_1的鼠标单击事件 w_1.TriggerEvent（“u_key”） //触发窗口w_1的用户自定义事件u_key
TriggerEvent和PostEvent的区别在于：TriggerEvent立即触发该事件，而PostEvent则 把事件排在事件队列的末尾。
定义的用户事件号及名称不能更改，只能删除。在该事件的代码编辑窗口，点击鼠标右 键，将弹出一个选单（如图9.4），选择Delete Event，将删除该事件。要注意的是， PowerBuilder对该删除操作不做提醒，一经选择Delete Event，就立刻删除，因此若事件已 有代码，则应小心。只有用户事件才能删除。
表9.1 常用事件标识的前缀
前 缀 pbm_cb pbm_dw pbm_dde pbm_e pbm_lb pbm_lv pbm_tv pbm_ 含 义 通用对话框消息 数据窗口 动态数据交换（DDE） 编辑控件 列表框 列表视图（Listview） 树形视图（Treeview） 窗口
9.3 删除用户事件
Open（w_uevent）
B. 给窗口w_1的open事件编写代码：
SQLCA.AutoCommit =TRUE sqlca.DBMS= "odbc" sqlca.database= "XSCJ" sqlca.dbpass="dba" erid="sql" sqlca.servername = "" sqlca.dbparm = "Connectstring='DSN=XSCJ;UID=dba;PWD=sql;'" sqlca.logid="" sqlca.logpass="" CONNECT; IF sqlca.sqlcode<>0 THEN messagebox（"=====错误信息提示====="，"不能连结数据库! ~r~n~r~n请询问系统管理 员"，stopsign!） RETURN END IF dw_1.SetTransObject（SQLCA）
图9.4 删除事件
9.4 触发用户事件
定义了用户事件后，就需要设计事件处理程序，就像其他系统常用事件一样，没有事件 处理程序，即使发生了该事件，应用程序也不做任何处理。如果选用的事件号对应于某个 Windows消息（见表9.2） ，则事件何时发生，将由系统决定，就像其他系统常用事件一样 被自动触发。但若选用的事件号为pbm_custom01到pbm_custom75，即不对应于任何 Windows消息，则必须编程时使用代码触发该事件，就像函数调用一样。 触发用户事件有3种格式，前两种是我们介绍控件时已讲的2个函数：
图9.5 用户事件编程实例
9.5 用户事件编程实例
为实现图9.5的功能，可用自定义事件。 （1）创建一个student.pbl，其中ApplicationObject为stu，再建一个窗口w_uevent， 窗口上的控件分别为dw_1、cb_append、cb_insert、cb_delete、cb_retrieve、 cb_update、cb_return。 （2）编写代码 A. 给应用对象stu的open事件编写代码：
9.5 用户事件编程实例
C. 给增加记录的命令按钮cb_append的clicked事件编写代码：
Long row row=dw_1.InsertRow（0） dw_1.SetRow（row） dw_1.ScrollToRow（row） dw_1.SetFocus（） //成功时，返回插入行的行号 //设置数据窗口的当前行 //滚动到指定的行
IF KeyDown（keyenter!） THEN //如果按了回车键，则触发clicked事件 THIS.triggerevent（clicked!） END IF
M. 给返回的命令按钮cb_return的clicked事件编写代码：
Close（PARENT）
N. 给cb_return定义一个用户事件u_keydown，事件号为pbm_keydown，当焦点落在 该控件上时，按任意键都将触发u_keydown。给u_keydown编写代码：
E. 给插入记录的命令按钮cb_insert的clicked事件编写代码：
Long row row=dw_1.InsertRow（dw_1.getrow（）） dw_1.SetRow（row） dw_1.ScrollToRow（row） dw_1.SetFocus（）
9.5 用户事件编程实例
F.给cb_insert定义一个用户事件u_keydown，事件号为pbm_keydown，当焦点落在该 控件上时，按任意键都将触发u_keydown。给u_keydown编写代码：
IF KeyDown（keyenter!） THEN //如果按了回车键，则触发clicked事件 cb_insert.Event clicked（） END IF
G. 给删除记录的命令按钮cb_delete的clicked事件编写代码： dw_1.DeleteRow（dw_1.GetRow（）） H. 给cb_delete定义一个用户事件u_keydown，事件号为pbm_keydown，当焦点落在 该控件上时，按任意键都将触发u_keydown。给u_keydown编写代码：