|
各模块如下： 1. 员工管理：主要包括员工登陆，修改密码，判别用户级别功能。 内容来自论文无忧网 www.paper51.com 2. 病人管理：主要包括病人的基本信息登记。 paper51.com 主要包括对病人基本信息的录入、查询和维护等操作。病人基本信息的录入窗口可以从就诊窗口进入，系统可以记忆当前就诊病人病历号以及当前录入员的姓名。 http://www.paper51.com 3. 就诊管理：主要包括对病人此次就诊病情的录入，过往病史的查询及检查和化验结果进行录入。 paper51.com
4. 模板管理：主要医生针对各种典型病种所开具的主诉、病历、处方录入、查询。 paper51.com 5. 化验检查管理：主要包括对病人每次所做化验和检查的结果进行录入、查询和维护。 内容来自www.paper51.com 6. 费用管理：主要包括预付款管理和费用管理。 http://www.paper51.com Ø 预付款管理：主要包括对预付金额进行录入、查询和维护等操作。并且可以根据支出情况进行费用统计、查询余额和缺钱警示。 copyright paper51.com
Ø 费用支出管理：主要包括对病人药费、检查、化验等支出进行录入、查询和维护等操作。 http://www.paper51.com 7. 报表打印：根据需要生成各种报表，并且打印出来。 paper51.com 首先在应用程序对象的变量定义窗口中定义全局变量，如intG_input_time 定义的变量是登录时输入用户名和密码的次数,string yg_name定义的是用户名，string yg_ygh定义的是员工号，string g_pwd定义的是密码，string g_blh 定义病历号，string g_jzid 定义病人的就诊号等等。 paper51.com
3.2 职工登录界面 http://www.paper51.com
应用程序运行后第一个出现的窗口就是w_login登陆窗口，界面如图5所示。 paper51.com
paper51.com
图5 职工登陆界面 paper51.com
用户必须通过职工登录窗口才能够进入主界面。系统登录窗口主要实现功能是确认用户身份及级别，并根据用户级别主界面菜单中该用户可以进行的操作。 copyright paper51.com 本系统根据医院具体情况将医院职工分为种5种职位，院长、医生、放射员收费员和化验员。其中，院长级别最高，可以使用主界面菜单中的任何一种操作，其他各种职位级别都只能享有各自级别的权限。医生可以进行病人就诊的信息录入、查询和维护，定义主诉病历处方模板的定义和查询，化验检验结果的查询、费用的查询等；收费员可以进行挂号收费及统计，预付费用的收缴和统计等；放射员可以对病人的各项检查结果进行录入、查询、维护等；化验员则是对病人的各项化验结果进行录入、查询、维护。 http://www.paper51.com
在登录界面的OPEN（）函数中定义一个游标declare guser cursor，该游标在ygb表中搜索ygm然后添加到员工名的下拉控件中，其代码如下： 内容来自www.paper51.com string ls_user paper51.com declare gusercursor for http://www.paper51.com select ygm copyright paper51.com from ygb http://www.paper51.com order by ygh; http://www.paper51.com open guser; paper51.com if SQLCA.SQLCode=-1then 内容来自论文无忧网 www.paper51.com MessageBox("数据错误",SQLCA.SQLErrText) http://www.paper51.com else do http://www.paper51.com ifls_user<>'' then ddlb_1.additem(ls_user) paper51.com fetchguser into :ls_user; copyright paper51.com loop while sqlca.sqlcode=0 http://www.paper51.com if sqlca.sqlcode=-1 then paper51.com messageBOX("数据错误",sqlca.sqlerrtext) copyright paper51.com end if 内容来自论文无忧网 www.paper51.com end if 内容来自www.paper51.com close guser; 内容来自论文无忧网 www.paper51.com ddlb_1.selectitem(0) 内容来自论文无忧网 www.paper51.com
在“确定”按纽中当判断员工登录条件正确时则根据员工的职位判断那些菜单功能将能被使用。 http://www.paper51.com |