OracleForm开发手电筒查找功能实现

1、OracleForm开发手电筒查找功能实现OracleForm开发手电筒查找功能实现分类：ORACLEEBSFORM013-05-1010:46208人阅读更迨(0)收藏举报实现手电筒查找的功能首先，先按TEMPLATE其他功能先实现，然后再来实现查找的功能。手电筒查找的Effect有两二种，LOV形式，window形式。1、LOVS找模式：一般适用于查询结果只返回单条条件的查询(如主从数据块的界面)。创建一个parameter参数：TEST_P创建一个基于主键查询LOV-TEST_L并将主键字段映射给Parameter参数TEST_P在数据块中创建PRE-QUERY发器。IF:paramet

2、er.G_query_find='TRUE'THEN:BLOCKNAME.HEADER_ID:=:parameter.TEST_P;:parameter.G_query_find:='FALSE'endif;在数据块中再创建QUERY_FIND发器。beginapp_find.query_find('TEST_L');-调用LOVend;完成效果如下：2、WINDOW找模式：一般适用多条件查询，可以返回多条查询记录。打开在标准FORM-APPSTAND.fmb将对象组中的QUERY_FIND至待开发的FORMK这个地方要选择COPY凄盟一宣冲值工

3、皿也口巳壬刍.痛iTMfijaraijwTs何-ft三1Mm醒屏每覃据胡壮汗合；用百布gijivcQALrfim-SfAID.WJOUE：s卷甯,一-洋出打中由程群毕流重命名第一个数据块、画布、窗口（QUERY_*都是刚才自动创建的）。USERGUID说可以重命名，但我没有重命名成功。也懒得三折腾一个命名的问题。人丁打开QUERY_FIND布，改写“新建”、“查找”两个按钮WHEN-BUTTON-PRESS之中的代码。F.114痂C*IIRf.rEUrgruxJVM_Ji.nJetiALtNEWe钮代码:-app_find.new('Yourblocknamehere');ap

4、p_find.new('HEK_SALE_CUST_MANUAL');FIND按钮代码：:parameter.G_query_find:='TRUE'-app_find.find('yourblocknamehere');app_find.find('HEK_SALE_CUST_MANUAL');:parameter.G_query_find:='FALSE'设置QUERY_FIND据块的“前一导航数据块”，也就是要实现询查功能的数据块。教督W压理i嗝!曲扁C0MTBCLHEKSAL£U中导航器风格口前一

5、个导航薮据块修改QUERY_FIND据块KEY-NXTBL触发器代码:parameter.G_query_find:='TRUE'-app_find.find('yourblocknamehere');app_find.find('HEK_SALE_CUST_MANUAL');:parameter.G_query_find:='FALSE'修改QUERY_FIND口的标题及尺寸，并在QUERY_FIND布上创建要查找的条件ITEML在:实现查询的数据块(如：HEK_SALE_CUST_MANUfflL®PRE-QUERY

6、发器。清除EG查找（Iif:parameter.g_query_find='TRUE'thenapp_find.query_range(name_in('query_find.CUSTOMER_NUMBER'),name_in('query_find.CUSTOMER_NUMBER'),'HEK_SALE_CUST_MANUAL.CUST_CODE');app_find.query_range(:query_find.CUST_DATE,:query_find.CUST_DATE,'HEK_SALE_CUST_MANUAL

7、.TIME_ID');:parameter.G_query_find:='FALSE'endif;注：app_find.query_range参数前两个是QUERY_FIND的ITEM,后一个是查询块中的ITEM,在要实现查询的数据块（如：HEK_SALE_CUST_MANUAL）J建QUERY_FIND触发器。-APP_FIND.QUERY_FIND('','','');app_find.query_find('HEK_SALE_DEPT_MANUAL','QUERY_FIND','

8、;QUERY_FIND')完成效果如下:记录指示器切换标签页Effect:1、在该数据块中手工增加一个ITEMi*ftcsLzniu.而必CATD1：ufiF：rr：-F百行厂三日1灿£F旧0>3¥fnmno叶再加1叩EX席G加JKMLLOTk5aLiTiTMTZD3Tf1口JLimnCkTE;：=31±rSl_证师工MMEJI：.关言zMItSiC*wLKDLLOlEZOfE设置ITEM的属性：子类信息：设成DRILLDOWN_RECORD_INDICATOR库项：否.2 .在新增的ITEM的WHEN-MOUSE-CLICK：器力口入declare

9、v_ordernumber;beginv_order:=:block_name1.item;-block_name表示要切换tab的数据块ifvorderisnotnullthengo_block('block_name1');set_block_property('block_name1',DEFAULT_WHERE,'ORDER_NUMBER='|v_order);execute_query;endif;end;3 .这样就可以实现类似VB中的TAB切换了。由于ORACLEFORM有专门的TAB函数，只能如此曲折实现。PS:有的时候我们查找一

10、次之后，发现手电筒灰掉。需要做如下设置:©-AttachedLibranes6ataEbeles中靠QUEREHNDF尸摊HEADERS中鼬HEAC>ERS_PROM6>SbLINESt>ggLJrJES_PR.OMPT©JfeCONTROLaFQLDER.TOOLS©SgFOLDEFl.CONTRCiggeLK.PJCn盅市CALENDARR©SaPROGRESSJNDKCanvases-Editors©ObjectGroups由Parametersi+?-PcpupProgramUnitsi£>Proper

11、lyClassesRecordGroups-ReportsVisualAttributes1*-Winrfdk,v«曲园CUXFTBILLMenus-PL/QLLibrariesObjectLibrarfes-Datahafe.DatabaseDataBlockNoWEnFcrcsPrimaryKeyNojQueryAllowedJDataBlock:QUERY_FINDQuwry0mmSourceTypeMoreI-QueryDataSqufNameQuery。3t日SourteColumnsiQueryDataSourceArguments-Alias-*IncludeREFit

12、emNoWHEREClauseORDERBYClauseOptimizerHintjInsertAllowedYesUpdateAllowedYesILockingModeImmediateDelotgAllowedVes>KeyModeAutomatic'UpdateChangedColumnsOrly1MBMcNo一Canendusersandapplica-tionsexecuteaqueryinthtblock?将QUERYALLOWED为YES另外一种解决办法是：将要查找数据块的WHEN-NEW-RECORD-INSTANCE行等级改为AFTER-GeneraluNam

13、eWHEN-NEW-RE>SubclassInformation/CommentsLFunctionalqTriggerStylePL/SQLaTriggerText"reinEnter-QueryModeYesaExecutionHierarchyIk维L-，Help，DisplayinKeyboardHelp*NoKeyboardHelptTextTriggerWHEN-NEW-RECORD-INSTANCE-Alerts由AttachedLibrariesBlocksQUERY_FINDGHEADERSte/TriggersQPREQUERY-(P-POST-QUERY|WHENNEWBLOCIGINSTAN