PowerBuilder课程设计1.ppt

1、dw_1的Click事件 3.4 数据窗口相关事件编码 if row0 then //高亮显示当前行 dw_1.selectrow(0,false) dw_1.selectrow(row,true) sle_4.text=string(row) //设置dw_2与dw_1同步显示 dw_2.ScrollToRow(row) end if 2、dw_1的RowfocusChanged事件 3.4 数据窗口相关事件编码 if currentrow0 then //高亮显示当前行 dw_1.selectrow(0,false) dw_1.selectrow(currentrow,true) sle_4.text=string(currentrow) //设置dw_2与dw_1同步显示 dw_2.ScrollToRow(currentrow) end if 3、如何在DW_2中使用回车键转移焦点 3.4 数据窗口相关事件编码 基本思路： 利用PB API的KEY_event函数声明一个局部函数 在dw_2中定义用户自定义事件 利用该用户自定义事件捕获用户键盘输入 如果是回车键，则掉入程序陷阱 根据与定义顺序转移焦点 3、如何在DW_2中使用回车键转移焦点 3.4 数据窗口相关事件编码 基本思路： 利用PB API的KEY_event函数声明一个局部函数 SUBROUTINE keybd_event(INT bvk,INT bscan,INT dwFlags,INT dwextrainfo) LIBRARY user32.dll 3、如何在DW_2中使用回车键转移焦点 3.4 数据窗口相关事件编码 基本思路： 在dw_2中定义用户自定义事件 3、如何在DW_2中使用回车键转移焦点 3.4 数据窗口相关事件编码 基本思路： 利用该用户自定义事件捕获用户键盘输入 如果是回车键，则掉入程序陷阱 根据与定义顺序转移焦点 string ls_lm Ls_lm=GetColumnName() //得到当前列名 if ls_lm=fbtz then //如果是最后一列 设成第一列 this.SetColumn(xm) return 1 end if //向系统发出处理TAB的消息 send(Handle(this),256,9,long(0,0)) return 1 三、 编码 3.1应用程序对象编码 3.2窗口w_txl的open事件 3.3窗口w_txl的closequery事件 3.4数据窗口相关事件 3.5单选按钮rb_1、rb_2、rb_3clicked事件 3.6按钮（Button）的clicked事件 1、主要作用 Dw_1按照指定方式重新排序 3.5单选按钮rb_1、rb_2、rb_3clicked事件 2、处理流程 Dw_1按照指定方式重新排序 重新选中当前行 数据窗体排序函数：SetSort（） 3.5单选按钮rb_1、rb_2、rb_3clicked事件 integer dwcontrol.SetSort ( string format ) string——排序字段 format——升序为A，降序为D 例如： dw_1.SetSort(“xm A) Rb_1的Clicked事件： 3.5单选按钮rb_1、rb_2、rb_3clicked事件 //按姓名排序 dw_1.SetSort(xm A) dw_1.Sort() //重新选择行 dw_1.selectrow(0,false) dw_1.selectrow(dw_1.getrow(),true) 课堂练习：编写rb_2,rb_3的clicked事件，并运行测试 三、 编码 3.1应用程序对象编码 3.2窗口w_txl的open事件 3.3窗口w_txl的closequery事件 3.4数据窗口相关事件 3.5单选按钮rb_1、rb_2、rb_3clicked事件 3.6按钮（Button）的clicked事件 3.6Button的Clicked事件 1、新增（cb_2）流程分析： 在dw_1中插入一条新记录 在dw_2中同步显示该记录 将dw_2设为输入焦点 函数：Insertrow（） long dwcontrol.InsertRow ( long row ) Row：插入点的行号，0表示在末行 返回值：-1表示失败，其他值为新记录行号 该函数只是在缓存区插入数据，并为保存到数据库中 3.6Button的Clicked事件 1、新增（cb_2）clicked事件： long ll_newrowid //捕获新记录行号 ll_newrowid=dw_1.insertrow(0) //判断是否插入