zhis4公用库及常用模块使用说明

密级 公开（）普通（）秘密（）机密（）绝密（） ZHIS4 公用库及常用模块使用说明 文档编号： 文档归类： 作 者：李程扬 创建时间：2005-11-02 修改时间：2005-11-02 版 本 号：v1.0 文档传阅： 前言：本文主要讲述一些可重用/复用对象及与 HIS 业务相关的处理模块及注意事项 常用全局变量说明： GS_OPERATOR 登陆员工，姓名+工作牌号 GS_LOGIN_DEPT_CODE 登陆的工作科室代码 GS_SUBSYSTEM_CODE 登陆的子系统代码 GS_HOSPITAL_NAME 当前医院名称 公用库(Powerbase)： 公用库文件：ZHIS4SourcePowerbasebase.pbt PowerBase.pbl: 基本类库, 包括各类实用功能对象、祖先窗口及类库使用的数据窗口 PowerFrame.pbl: 框架库, 包括各种窗口框架 PowerButton.pbl: 按钮库, 包括常用按钮及各类数据窗口功能按钮 PowerControl.pbl:控件库, 包括各类系统控件及扩展控件 公用库使用配置：应用相关全局变量缺省定义要修改，如下： transaction n_transaction$ error n_error$ message n_message$ 窗口： w_main$ w_response$ w_mdi$ 窗口控件位置及大小自动缩放机制： 自动缩放机制原理：窗口打开前保存控件位置及大小，再依据控件布局设置要求进行位置 及大小的变化； 控件所在窗口必须继承自 w_main$ 据模块业务需要设置窗口变化时控制布局：设置控件 Tag 属性，格式如下： ToolTipsMove/Resize，分别是 提示帮助信息位置移动 /大小改变，其中 Move/Resize 的 值为(大小写无关)： Right 向右方移动/向右边扩展 Bottom 向下方移动/向下边扩展 Both 向右下方移动/向右下方扩展 None 不改变位置与大小 常用控件的缺省布局设置： u_ComandButton$ both/none 与窗口右下角位置保持不变，大小不变 u_Treeview$ none/bottom 位置不变，控件高度随窗口变化 u_DataWindow$ none/both 位置不变，控件高度与宽度随窗口变化 u_HsplitBar$ none/right 位置不变，控件宽度随窗口变化 u_VsplitBar$ none/bottom 位置不变，控件高度随窗口变化 几组控件分隔（Split）设置： 控件分隔原理：与控件自动缩放类似，在窗口打开前保存控件位置及大小，拖位分隔控制 时取相关控件设置变化 相关控件： u_HSplitBar$：水平分隔控制（即上下分隔） ，接口函数如下： of_registertop 注册上方控件，一般为数据窗口 of_registerbottom 注册下方控件，一般为数据窗口 of_registermove 注册要移动的控件，一般是控钮 u_VSplitBar$：垂直分隔控制（即左右分隔） ，接口函数如下： of_registerleft 注册左边控件，一般为树对象、数据窗口 of_registerright 注册右边控件，一般为数据窗口 of_registermove 注册要移动的控件，一般是控钮 使用说明： 界面设置时把水平或垂直分隔控制放置到要分隔的位置 一般是在分隔控件的 constructor 事件中使用接口函数注册要布局控件 控件最小缩放尺寸可设置控件属性 ii_minsize$ 数据窗口相关按钮：相关按钮放置到界面上，一般在按钮 constructor 事件中调用按钮接口 函数 of_setdw 设置此按钮关联的数据窗口 u_dwbutton_print$ 打印按钮 u_dwbutton_filter$ 过滤按钮 u_dwbutton_sort$ 排序按钮 u_dwbutton_excel$ 导出按钮 u_dwbutton_columnselect$列选择按钮 u_dwbuttom_find$： 查找按钮 其它常用按钮：使用公用库的按钮可支持上下文帮助提示，即设置按钮 Tag 属性为所需帮 助文本 u_cb_return$： 返回按钮 u_commandbutton$： 一般按钮，除特定功能按钮外，其它界面按钮都应从它继承 日期控件(u_datepicker$/u_daterange$)：支持 Windows 标准的日期选择控件，其主要接口 事件与函数如下 ue_changed 日期改变后会触发此事件 of_getdate 要获取当前控件显示日期时调用此函数 of_setdate 设置日期控件缺省值（注意：切记从数据库中取得当前时间） 树对象(u_treeview$)：公用库的树对象支持需要时才展开树节点，可提高效率,且支持树节 点定位 主要事件： ue_retrieve 刷新树节点信息(F5)，可在此事件中删除所有树节点（of_deleteallitem） 、 创建树根节点(of_addroot)并展开下一级(of_expandlevel)，外部刷新树按钮一般直接调用此 事件 ue_itempopulate 展开下一级节点，在此事件中增加下一级节点信息(of_additem) ue_child 判断这一级树节点是否有下一级节点，若有则返回 true，否则返回 false ue_selectionchanged 选择某一树节点时触发，一般在此事件中书写相关业务处理脚 本 ue_datatoparent 定位树节点用，在树堆栈中找到其上一级节点信息 ue_labletodata 定位树节点用，把输入文本转换为相关树节点 data 值，以便于比较 重要函数： of_deleteallitem 删除所有树节点 of_addroot 增加树的根节点 of_expandlevel 展开树的层次 of_additem 增加某一级树节点 相关对象： u_tv_locate$ 定位树节点用，设置相关树对象函数为 of_settv；若输入框可弹出拼音 码选择，则把控件属性 ib_spell_select$ st_tvdata 常用作树节点 data 参数 数据窗口对象(u_datawindow$) ： 常用函数如下： of_setrowselect 高亮显示选中的行 of_setmultiselect 行多选(Ctrl/Shift) 重要事件处理如下： ue_keydown 回车换行或按空格键或 F8 弹出拼音码选择处理 dberror 数据库 SQL 错误触发 itemerror 其它数据窗错误时触发，如数据校验不通过 拼音码选择(n_dw_spell$) ：重要函数如下 of_spell_dwc 弹出的拼音码选择窗口与参数设置的子数据窗口内容一样，但参数设置 的子数据窗口字段必须符合:code、name、spell_code 、sequence_no of_setdw 使用传列名参数的 of_spell_dwc 前必须选调用此函数 ZHIS4 常用函数： 获取系统参数：影响全院流程的参数配置，相关数据库表为 sys_parm f_getsysparm f_getsysparmx在事务处理中调用此函数，防止出错回滚(rollback) 添加系统参数时须注意做好相关 SQL 语法日志，其缺省值应是支持原来流程； 系统参数名称必须统一为小写 获取本地参数：可对某科室/个人/ 机器进行个性化参数设置，相关数据库表为 subsystem_localini_dict f_iniget f_inigetx 在事务处理中调用此函数 本地参数设置相关对象为 uo_ini，设置本地参数关联数据窗口应注意： 加对应的文本对象，其名称必须是列名+_t 列的 tag 值为当前参数的缺省值 本地参数名一般为大写 获取参数值后应注意进行有效性判断(系统参数也一样) ，如空值判断；并保证此参数缺省 值应是原来的流程控制方式，以保证业务兼容 数据库错误提示：f_sqlerr/f_sqlerror 应用级错误提示：f_msgerr 拼音码获取及五笔码获取: f_getspell/f_getspellx f_getwbzx 获取系统时间：f_getsysdatetime 菜单权限判断：f_checkpurview 字符串参数截取：f_stringmid，以分号;隔开各字符串参数 ZHIS4 业务相关组件： 应用主菜单设置： Tag 值设置：用于菜单权限控制，同一子系统每个菜单的 Tag 值不能一样，若是无须控制 权限的菜单(如退出系统菜单 )，Tag 值就设为 none； 隐式菜单：菜单不可见(visible=false) ，主要用于权限控制 读卡控件(uo_card) ：对外主要事件接口如下 ue_retrievesick 用户刷卡后触发此事件，一般在此取得此病人 ID 及相关功能处理 ue_reset 用户清除卡信息会触发此事件，一般在此设置某些控件不可用 病人基本信息控件(uo_sick_info$)：统一显示病人的基本信息，相关函数如下： 设计时区分门诊或住院：IB_DISP_FLAG/IB_RESI_FLAG uf_retrieve 传入病人 ID 获取病人信息 uf_reset 清空病人显示信息 公用子数据窗对象(n_create_dwc$): 一些常用子数据窗设置，便于支持拼音码选择 动态标签页：支持可视对象运行时定制显示(opentab 函数) ，标签页必须使用用户自定义可 视对象封装 相关数据库表：subsystem_dyantab_dict 打开的可视对象从 u_uobase 继承 重要函数处理： uf_init 初始化标签页对象 uf_reset 清空标签页对象 uf_retrieve 刷新标签页对象 ZHIS4 其它业务处理机制： 自动更新/版本升