




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
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
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 三资企业承包经营合同
- 婚前单方购房产协议书
- 中学总务处工作总结3
- 浙教版八年级下册科学4.6 保护土壤课件
- 2025年度离婚协议书有子女共同财产分割与处理
- 二零二五年度测绘数据保密保护措施合同
- 二零二五年度企业销售人员劳动合同(健康医疗行业拓展)
- 二零二五年度房屋继承房屋产权公证及分配协议
- 2025年度绿色能源项目利润分配协议书
- 二零二五年度航空航天自愿入股合作协议
- 泸州老窖股权激励方案案例分析
- 火电厂厂用电系统与厂用电接线运行特点分析
- 部编版小学语文三年级(下册)学期课程纲要
- _重大事故后果分析(精)
- 水泥搅拌桩施工监理质量控制要点
- 初级诊断师培训课程QC基础知识
- 第7章 吸附课件
- 四川省高中毕业生登记表模板含成绩单家庭情况调查表
- 夫妻婚内借款协议
- 中医医院重症医学科建设与管理指南
- 唤醒护理读书报告会ppt
评论
0/150
提交评论