Oracle数据库-PL、SQL使用方法整理.pdfVIP

Oracle数据库-PL/SQL使用方法整理 --获取系统记录行数 go_block（‘T_WARITEMPRT’）； last_record; row_count:=:system.trigger_record; --system.cursor_record --execute_trigger（‘POST-CHANGE’）； --设置鼠标状态 set_application_property（cursor_style,BUSY‘）； --raise form_trigger_failure; --显示错误信息 exception when others then display_note（sqlerrm||sqlcode,:global.logon_user）； --decode decode（a.freightmode,0’，‘企业自付’，‘1’，‘供应商付费’，‘2’，‘企 业代付’，‘3’，‘供应商代付’，null） decode（qtyonhand - qtyinit,invtranqty,invtranqty,null） --导出路径 select * from t_parameter where f_name=LeanERPTempDir‘； select f_c_value from t_parameter where f_name =WebServer1’； --合同附件 select f_c_value from t_parameter where f_name=purorderaccesspath‘； select f_c_value from t_parameter where f_name=purorderaccessurl’； --设置值列表 SET_ITEM_PROPERTY（‘top.ORIGINALNO’，LOV_NAME,LOV_MSO‘）； LIST_VALUES; --下拉列表 n:=populate_group（rec_lb’）； populate_list（‘BLK_BUT.APPTYPE’，‘rec_lb’）； :bLK_BUT.APPTYPE:=0‘； --调用另一模块 DECLARE pl_id ParamList; v_string varchar2（1000）； v_itemname varchar2（1000）； BEGIN pl_id := Get_Parameter_List（calendar’）； IF NOT Id_Null（pl_id） THEN Destroy_Parameter_List（pl_id）； END IF; pl_id := Create_Parameter_List（‘calendar’）； v_itemname:=:system.current_block||‘。||:system.current_item; v_string:=name_in（v_itemname）； Add_Parameter（pl_id, p_str’，TEXT_PARAMETER,v_string）； Call_Form（‘input_str’，no_hide,no_replace,no_query_only,pl_id）； copy（：global.str,v_itemname）； Erase（：global.str）； END; --批量处理 set_application_property（cursor_style,BUSY‘）； SYNCHRONIZE; first_record; loop null; exit when :system.last_record = TRUE’； next_record; end loop; set_application_property（cursor_style,DEFAULT‘）； bell; display_note（SRMP035’，：global.logon_user）； -- 采购计划关闭完毕！ --对话框 IF display_stop（‘INV081’， :GLOBAL.logon_user） alert_button1 THEN RETURN; END IF; --取得货币名称 begin select currencydesc into v_currencydesc from t_c