PB入门-HIS控件(公共函数、控件)

1、BSHRP产品培训,公共函数、控件,2004-05-09,Gf_Begin_Transaction() 功能：开始一个事务,设置sqlca.AutoCommit = False 参数：1.ao_Environment(Ref) 事务对象 Gf_Commit_Transaction() 功能：提交事务，并设置sqlca.AutoCommit = True 参数：1.ao_Environment(Ref) 事务对象 Gf_Rollback_Transaction() 功能：回滚事务，并设置sqlca.AutoCommit = True 参数：1.ao_Environment(Ref) 事务对象 注

2、意：一个完整的事务必须包含这三个函数，这三个函数请写在同一函数或事件中。,公共函数,Gf_Center_Window() 功能：窗口相对于屏幕居中 参数：1.aw_Win 窗口对象 Gf_CenterWin_Inwin() 功能：窗口相对与MDI居中 参数：1.aw_base 基准MDIFrame窗体 2.aw_target 目标窗口 Gf_LayerWin() 功能：在Mdi主窗口中平铺非工作表(非OpenSheet)窗口(即将打开的窗口填满Mdi工作区) 参数：1.aw_MidWin Mdi主窗口 2.aw_LayerWin 待平铺窗口 3.ai_StateBarHeight Mdi主窗口

3、状态条高度,Gf_GetMdiWin() 功能：根据当前窗口获取系统Mdi主窗口 参数：1.aw_MidWin(Ref) Mdi主窗口 2.aw_CurWin 当前窗口 gf_Waiting() 功能：显示进度窗口函数 参数：1.An_Percent 为显示进度， 2.As_InfoText 为显示文本。 备注：an_Percent100或0时窗口关闭 Gf_Delay() 功能：延时函数 参数：1.ac_DelaySecs 需延时的秒数(可为小数),gf_GetPara() 功能：获取系统参数 参数：1.ai_xtsb 系统识别 2.as_csmc 参数名称 3.as_default 默认值

4、 4.as_bz 备注 备注：如果参数不存在则自动在GY_XTCS参数中插入一条记录 gf_SetPara() 功能：设置系统参数 参数：1.ao_environment 事务对象 2.an_systemid 系统识别 3.as_paraname 参数名称 4.as_value 参数值 5.as_comment 备注，说明参数的用途,gf_GetMax() 功能：取最大值 参数：1.ao_environment 事务对象 2.as_tablename 表名 3.an_needcount 最大值个数 备注：该函数中包含事务处理，所以在程序中调用该函数时需要注意一定要在事务开始前调用该函数，不能放

5、在事务处理过程中调用，否则当数据更新失败时会导致数据不完整。 gf_InsertFYMX() 功能：写ZY_FYMX表 参数：1.astr_fymx 费用明细结构体 备注：该函数中没有事务提交函数。,gf_Delete() 功能：删除数据表中符合条件的记录 参数：1.as_TableName 表名 2.as_WhereClause 数据删除条件 备注：该函数中没有事务提交函数，当Wher条件为空字符串时表示删除所有数据。 gf_Clear() 功能：删除表中所有数据 参数：as_TableName 备注：该函数通过调用gf_Delete(表名,),gf_Convert_Date_To_Chin

6、ese() 功能：该函数将日期转换成中文名称 参数：1.ad_currentdate 需要转换的日期 2.ai_returntype 返回类型：0.星期 1.年 2.年月 3.年月日 4.年月日星期 gf_ConvertChinese() Gf_dxzh() 功能：将金额转换为人民币大写 参数：1.an_number 金额 Gf_SetPrinter() 功能：切换 WINDOWS 默认的打印机,支持多台打印机,用于多票据、单据的打印 参数：as_printer 打印机名称,gf_FillLeft() 功能：在字符串左边补足指定字符到指定长度 参数：1.as_input 输入的字符串 2.as

7、_fillchar 需要填补的字符 3.ai_len 填补后字符串总长度 gf_FillRight() 功能：在字符串右边补足指定字符到指定长度 参数：1.as_input 输入的字符串 2.as_fillchar 需要填补的字符 3.ai_len 填补后字符串总长度 gf_Replace() 功能：字符串替换 参数：1.String as_curstr 需要进行处理的字符串 2.String as_oldstr 原字符串 3.String as_newstr 新字符串,gf_ModifySQLSelect() 功能：修改SQL语句，即将附加检索条件加到原SQL中 参数：1.as_SQLSel

8、ect 原SQL语句 2.as_WhereClause WHERE条件 备注：该函数主要用于动态修改数据窗口的SQL语句，数据窗口的检索条件需要动态变化时可通过该函数来转换SQL,使用方法如下： String ls_Where String ls_OriSQL String ls_NewSQL ls_Where = ls_OriSQL = dw_1.GetSQLSelect() ls_NewSQL = gf_ModifySQLSelect(ls_OriSQL,ls_Where) dw_1.SetSQLSelect(ls_NewSQL) dw_1.Retrieve(),gf_DTInSQL()

9、功能：将日期时间转化为字符串以适应不同数据库平台 参数：1.adt_curdt 需要转换的日期 备注：当我们要动态修改SQL并且该SQL中包含日期条件，由于SQL Server、Sybase、Oracle、ODBC对日期的表达式是不一样的，为了适应不同的数据库平台使用该函数进行转换。该函数在返回时已包含引号，所以在调用完后不需要在前后再加引号 不同数据库的日期格式： SQL、SYB: 2004-01-01 00:00:00 ORA: to_date(2004-01-01 00:00:00,yyyy-mm-dd hh24:mi:ss) ODBC: ts2004-01-01 00:00:00,gf

10、_SortForMultiGroups() 功能：将数据窗口按当前顺序分两组或三组排序(一般适用N_Up型数据窗口) 参数：1.adw_SortDW 排序数据窗口 2.ai_SortGroups 排序组数 3.as_SortColumnName 排序列名称 备注：排序列需要在设计数据窗口时定义一数值列，该函数需要使用该列作为临时排序列 gf_SplitParm() 功能：将以,作为分隔符的string型参数串as_parmstring分解成独立参数并放入变长数组 参数：1.as_parmstring：以,作分隔符的多参数组成的字符串(要求原始的string型 独立参数内不得含有,字符 2.as

11、_parm：存放分解后的独立参数,Vu_FindEdit：数据窗口查找控件 Boolean Initialize(DataWindow ao_Source,String as_EventName) 初始化函数。Ao_Source为查找的数据窗口；is_EventName为用户选中某一行后按Enter键触发的事件名（无参数），如无须触发事件，可传递“”。 Boolean SetFindColumn（String as_ColumnName，Integer an_ColumnType） 设查找列函数。As_ColumnName为查找列名，an_ColumnType为该列的类型（当前支持0-字符；1

12、-数值）。 CursorFollow(Boolean ab_CursorFollow) 设查找模式函数。ab_CursorFollow=True，为光标跟随模式；否则为Enter键触发模式。默认为Enter键触发模式。 GetFocus事件：清一次处理标志。 EditChange事件：清一次处理标志。 KeyEvent事件：查找匹配行，触发注册事件。,公共控件,Vu_Progress：进度条用户对象 Initialize(Integer ai_Width，Integer ai_Height，Integer ai_Space) 初始化函数。Ai_Width为进度条宽度，ai_Height为进度条

13、高度，ai_Space为进度块间隔宽度。对非间隔块的进度条，可不调用此函数。Ai_Space的通常选值为0-非间隔块；5，9-间隔块宽度。 SetProgress(Integer ai_Value) 设置进度函数。Ai_Value为进度值（0-100）。 Vu_DataListBox：可编辑查找下拉列表框控件 Integer AddItem(String as_Code, String as_Display, String as_PYDM) 加入元素函数。As_Code为代码值，as_Display为显示值，as_PYDM为拼音代码。返回此加入元素的索引号。 Integer GetSelect

14、ed(Ref String as_Code, Ref String as_PYDM) 取当前选中元素的信息函数。As_Code为代码值，as_PYDM为拼音代码。返回当前选中元素的索引号。 String GetCode() 取当前选中元素的代码值。,Vu_SplitterBar：分隔条静态文本控件 Boolean Initialize(Window ao_Window, Boolean ab_Custom, Boolean ab_Horizontal) 初始化函数。Ao_Window为窗口对象，Ab_Custom为是否定制分隔条外观，Ab_Horizontal为True，水平分隔；False为

15、垂直分隔。初始化成功返回True，否则False。 Boolean AddObject(DragObject ao_Object, String as_Position) 加入分隔条管理的对象函数。Ao_Object为对象引用，As_Position为对象位置说明： “L”-左边对象； “R”-右边对象； “T”-上边对象； “B”-下边对象。 加入成功返回True，否则False。,Vu_DateSelect：日期选择编辑掩码控件（YYYY.MM.DD格式） SetDate(Date ad_Date) 设置日期函数。 Date GetDate() 取日期函数。 Datetime GetDat

16、etime(Integer an_TimeMode) 取日期时间函数。 An_TimeMode=1，取”00:00:00”； An_TimeMode=2，取”23:59:59”。 Vu_DateSelect2：日期选择编辑掩码控件（YYYY.MM格式） SetDate(Date ad_Date) 设置日期函数。 SetDatetime(Datetime ad_Datetime) 设置日期函数。 Datetime GetDatetime(Integer an_TimeMode) 取日期时间函数。 An_TimeMode=1，取”00:00:00”； An_TimeMode=2，取”23:59:5

17、9”。 Date GetDate() 取日期函数。,Vu_LogicLevelTreeView：逻辑层次关系树视图控件 Boolean CreateTree(DataStore ao_DataStore, String as_NameColumn, String as_CodeColumn, String as_ParentColumn, String as_RootName) 生成树视图节点元素函数。Ao_DataStore为包含数据的DataStore引用，as_NameColumn为名称列，as_CodeColumn为代码列，as_ParentColumn为上级列，as_RootName

18、为树根名称。创建成功返回True，失败False。 Long GetChild(Long an_CurCode,Boolean ab_LeafOnly,Ref Long an_ChildArray) 取给定代码的所有子孙代码函数。An_CurCode为给定代码，ab_LeafOnly为是否只要叶子节点，an_ChildArray为引用返回的子孙代码数组。返回找到的子孙代码个数。 String GetCurItemName（）：取当前选中元素的名称函数。 Long GetDirectChild（Ref Long an_ChildArray） 取当前选中元素的直接子孙函数。An_ChildArra

19、y为引用返回的子孙代码数组。返回找到的子孙代码个数。 Long GetDirectChild（Ref Long an_ChildArray，Ref String as_NameArray） 取当前选中元素的直接子孙函数。An_ChildArray为引用返回的子孙代码数组，as_NameArray为引用返回的子孙名称数组。返回找到的子孙代码个数。 Boolean GetSelectedInfo（Ref Long an_CodeValue，Ref Boolean ab_IsLeaf） 取当前选中元素的信息函数。An_CodeValue为引用返回的当前选中元素代码，ab_IsLeaf为引用返回的当前

20、选中元素是否为叶子节点。返回取信息是否成功。,Vu_StatusBar：状态条 Initialize() 设置进度条uo_1初始状态，无返回值 Resize(Integer ai_Border) 调整状态条内各控件位置和大小，ai_Border为状态条边框大小，无返回值 SetHelp(String as_Help) 设置微帮助，as_Help为微帮助信息，无返回值 SetMessage(String as_Department,String as_User,Date ad_Date) 设置用户信息 as_Department：科室名称 as_User ：用户名称 ad_Date ：系统日期

21、无返回值 SetProgress(Integer ai_Value) 设置进度条，ai_Value ：进度值（0-100），无返回值,U_Class：非可视用户对象基类 Protected Boolean ib_CanWork 对象状态标志。 Protected String is_ClassName类名 String GetClassName() 取类名函数。 Boolean CanWork() 取对象状态函数。 对象能工作返回True,否则False。,U_SupportClass：系统支持类 BrowerLog()：查看日志函数 BrowserSysInfo()：查看系统信息函数 Che

22、ckVersion()：检查版本号函数 Boolean DBConnect (String as_IniFileName)：数据库连接函数。连接成功返回True，失败False。 Date GetDate()：取服务器日期函数，不检索。 DateTime GetDateTime()：取服务器日期时间函数，检索。 String GetHospitalName()：取医院名称函数。 Integer GetSystemID()：取当前系统的系统号函数。 String GetSystemName()：取当前系统的系统名称函数。 String GetUserID()：取当前用户的ID函数。 String

23、 GetUserName()：取当前用户的姓名函数。 Boolean Login(Integer an_SystemID)：系统登录函数。 Boolean Logout()：系统退出函数。 Password()：修改口令函数。 Right_Manager (Integer an_SystemID, Menu ao_Menu)：用户权限管理函数。 SetMenuRight(Menu ao_Menu)：生成菜单权限函数。 Boolean SetTransObject (Transaction ao_Environment)：设置事务环境函数。 User_Manager()：用户管理函数。 Bool

24、ean WriteLog(Long an_InfoCode，String as_ModuleName，String as_InfoText)：写信息日志函数。,U_PercentCom：取自负比例组件 Private u_Percent io_Percent自负比例类u_Percent对象。 Private u_IatricLimit io_Iatric费用禁用类u_IatricLimit对象。 Private u_PhysicLimit io_Physic药品禁用类u_PhysicLimit对象。 Private Transaction io_Environment事务环境引用。 Boole

25、an Initialize(Transaction ao_Environment)： 初始化函数。分配事务环境引用。此初始化函数中调用三个内嵌对象的初始化函数。返回：成功True，失败False。 Integer GetLocalPercent(Integer an_ObjectType, Long an_Attribute, Long an_ObjectCode, Long an_ChargeCode, Ref Double an_Percent) 1.从本地缓存数据中取自负比例函数。 An_ObjectType 费用类型为0，药品为1，2，3。 An_Attribute 病人性质。 An_

26、ObjectCode 费用序号或药品序号。 An_ChargeCode 所属的收费项目序号。 An_Percent 函数填充的自负比例值。 返回：-1，传入参数错； 1.填充的自负比例为明细费用比例； 2.填充的比例为汇总收费项目比例。,Integer GetServerPercent(Integer an_ObjectType, Long an_Attribute, Long an_ObjectCode, Long an_ChargeCode, Ref Double an_Percent) 从服务器取自负比例函数。 An_ObjectType 费用类型为0，药品为1，2，3。 An_Attr

27、ibute 病人性质。 An_ObjectCode 费用序号或药品序号。 An_ChargeCode 所属的收费项目序号。 An_Percent 函数填充的自负比例值（例0.3）。 返回： -1，传入参数错； 1.填充的自负比例为明细费用比例； 2.填充的比例为汇总收费项目比例。,U_LocalViewClass：本地数据视图类 Protected DataStore io_Object存储数据的DataStore对象。 Protected Long in_ObjectRows Io_Object的总计行。 Protected Transaction io_Environment事务环境引用

28、Protected Boolean ib_ReadOnly视图只读标志 Long SetObject（String as_ObjectName） 更新io_Object对象函数。(此函数可能改变状态标志)。 返回： -1，出错，无法工作； 0，出错，仍能使用旧对象； 1，更新成功。 Boolean GetItem（String as_ConditionString，String as_DestColumn，Any aa_Value） 由一给定字符串取一列值函数。 As_ConditionString为定位字符串， As_DestColumn为取值列名称， Aa_Value由函数填充。 返回：成

29、功True，失败False。,Boolean GetItem(Long an_Row, String as_ColumnName, Any aa_Value) 由指定的行、列取值函数。 An_Row 为指定行 As_ColumnName 为取值列名称 Aa_Value 由函数填充。 返回：成功True，失败False。 Long GetRow(String as_ConditionString)：由一给定字符串取匹配的行函数。As_ConditionString为定位字符串。返回：找到的行号，未找到返回0。 Void LocalFilter（String as_FilterString）：本地

30、过滤函数。 Void LocalTaxis（String as_TaxisString）：本地排序函数。 Long Refresh（）：从服务器检索数据函数。 Void SetEnvironment（Ref Transaction ao_Environment）：更新事务环境函数。 Boolean SetFilter（String as_FilterString，Long an_FilterMode）：更新过滤子句函数 Constructor（）构造事件硬编码类名，创建io_Object，置只读标志，清状态标志。 Destructor（）析构事件销毁io_Object。,U_CodeClass

31、：本地数据视图代码类 protected string is_CodeColumn代码列名称 protected string is_NameColumn名称列名称 protected string is_InputColumn输入列名称 protected boolean ib_HaveInputColumn是否有输入列 protected boolean ib_IsCodeDecimal代码列是否为数值型 SetColumn(String as_CodeColumn, Boolean ab_IsCodeDecimal, String as_NameColumn, String as_Inp

32、utColumn)： 设置列属性函数(此函数可能改变状态标志)。 As_CodeColumn为代码列名称， Ab_IsCodeDecimal为代码列类型 As_NameColumn为名称列名称， As_InputColumn为输入列名称。 SetColumn(String as_CodeColumn,Boolean ab_IsCodeDecimal, String as_NameColumn)： 设置列属性函数。(此函数可能改变状态标志)。 As_CodeColumn为代码列名称， Ab_IsCodeDecimal为代码列类型， As_NameColumn为名称列名称。 Any GetCode

33、ByName(String as_NameValue)：由给定名称取代码函数。 String GetNameByCode (Any aa_CodeValue)：由给定代码取名称函数。,U_LevelCodeClass：本地数据视图层次代码类 Protected String is_ParentColumn上级列名称。 Protected TreeViewItem io_TreeItem运行时使用的树节点元素变量。 Protected Long in_ChildCount运行时使用的子孙个数变量。 Protected s_NodeInfo ist_NodeInfo运行时树节点填充信息结构数组。 Boolean CreateTree(Ref TreeView ao_Tree, String as_RootName) 创建树函数。Ao_Tree为引用的树视图，As_RootName为树根名称。 Lo