form手电筒lov和窗口查询创建.pdf

Creater：blackhaha 一、手电筒实现 lov查询实现 1. 创建 lov SYF_PATH_SIGNED_FIND_LOV LOV 的值 map 映射 注意这要映射给参数，不是映射给数据块中的 item，后面再把参数的值赋给 item，这两 种映射方式有不同的效果，接下来演示效果。 1).直接映射给数据块的 item。点击手电筒查找后会提示是否要保存所做的更改 Creater：blackhaha 2).通过复值给参数，在把参数传给 item 就没有这提示。 2.在数据块下创建 pre-query trigger，添加如下代码 --把参数传给数据块。 IF :parameter.G_query_find = TRUE THEN :SYF_CONTRACT_PATH.SIGNED_UNIT_CODE := :parameter.SYF_PATH_SIGNED_PARA; :SYF_CONTRACT_PATH.START_DATE_ACTIVE := :parameter.SYF_PATH_STARTDATE_PARA; :parameter.G_query_find := FALSE; end if; Creater：blackhaha 3.在数据块下创建 user_named 触发器，改名为 QUERY_FIND，添加如下代码 app_find.query_find(SYF_PATH_SIGNED_FIND_LOV);--参数是 lov 的名字。 4.完成 二、手电筒窗口查询 1.打开 APPSTAND.fmb，把 Object Groups 下的 QUERY_FIND 对象组拖动到自己的 form 中的 Object Groups 下，点击 copy。 Creater：blackhaha 2. 这时在 block、 canvases 和 windows 下多了 QUERY_FIND 修改Data Blocks的QUERY_FIND下NEW按钮和 FIND按钮的when-button-pressd的代码， New 下的代码：（SYF_CONTRACT_PATH 是要查找的数据块名）; app_find.new(SYF_CONTRACT_PATH); FIND 下的代码： :parameter.G_query_find := TRUE; app_find.find(SYF_CONTRACT_PATH); Creater：blackhaha :parameter.G_query_find := FALSE; 3. 修改 QUERY_FIND 数据块下的 KEY-NXTBLK 的代码，如下： :parameter.G_query_find := TRUE; app_find.find(SYF_CONTRACT_PATH); :parameter.G_query_find := FALSE; 4. 在 QUERY_FIND 画布下添加需要的 item，item 创建在 QUERY_FIND 下 5. 设置 QUERY_FIND 的 Previous 导航，为查询的数据块，这不设置会导致查找窗口关闭不 正常。 6. 在数据块下创建 user_named 触发器，改名为 QUERY_FIND，添加如下代码 Creater：blackhaha app_find.query_find(CONTRACT_PATH_V,QUERY_FIND,QUERY_FIND); 第一个参数 CONTRACT_PATH_V 为主窗口的窗口名 第二个参数 QUERY_FIND 为查找所在的窗口名（拖拽时在 windows 下自动生成的） 第三个参数 QUERY_FIND 为 QUERY_FIND 数据块名（拖拽时在 data block 下自动生成的） 7.在所要查找的数据块下添加 pre-query tirgger，代码如下 if :parameter.g_query_find = TRUE then app_find.query_range(name_in(query_find.SIGNED_UNIT_CODE), name_in(query_find.SIGNED_UNIT_CODE),SYF_CONTRACT_PATH.SIGNED_UNIT_CODE); app_find.query_range(:query_find.START_DATE_ACTIVE,:query_find.START_DATE_ACTIVE, SYF_CONTRAC