1、后台管理(权限管理)若为超级管理员,则可进行用户的增删改查由于多组合查询功能比较简单,只需输入相关查询的条件即可进行多组合模糊查询,因此在此并没有画出查询子系统的总体结构。1.3数据库设计1.3.1数据库表设计数据库表的命名是用表名的英文或英文缩写,编程实现简单易记。 (1) 用户信息表Tuser:保存系统使用者的信息,包括用户名及其密码。(2) 医生资料表TDoctor:保存医生信息,包括医生所属的科室。(3) 科室资料表TDepartment:保存科室分类信息,如分为内科、外科。(4) 病人信息表TPatient:保存病人的基本信息,以后可以重复使用。(5) 门诊挂号表TRegister:
2、保存门诊病人挂号的信息。(6) 门诊挂号类型表TRegisterType:保存门诊挂号类型分类信息及其挂号价格,如普通号、专家号。1.3.2数据库表设计格式说明在前章介绍的实体以及实体之间关系的基础上,形成数据库中表以及各个表之间的关系。医院门诊管理系统数据库中各个表格的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表。表1-1用户信息表Tuser编号字段名字段代码字段类型允许为空主键外键1用户名UidVarchar(50)NY2姓名Uname3密码Upwd4身份证UIDcard表1-2医生资料表TDoctor医生编号DidVarchar(10)Dname性别DgenderDidc
3、ardVarchar(20)5出生日期Dbirthdaydate6所属科室编号DpmtidVarchar(5)7 电话DtelVarchar(11)表1-3科室资料表TDepartment科室编号科室名称DpmtnameWarchar(50)表1-4病人信息表TPatient病人编号(就诊卡号)PidPnamePgenderPidcardPbirthdayPtel表1-5 门诊挂号表 TRegister挂号Rid病人编号挂号类型编号Rtypeid挂号日期RegistDateDatetime表1-6门诊挂号类型表 TRegisterType类型编号类型名称Rtypenamevarchar(50)
4、价格RegpriceMoney2 系统实现2.1 PB11.5和SQL SERVER 2012连接PB11.5和SQL SERVER 2012连接方式有两种,一种是通过ODBC数据源连接数据库,另一种是MSS SQL SERVER专用接口连接数据库。前者首先在计算机ODBC数据源管理器中创建新的数据源,设置好Data Source Name(数据源名称)和DataBase(数据库文件名),然后在PB中建立数据库配置文件(配置文件就是命名了的一组连接到特定数据源或数据库的参数),输入ProfileName(配置文件的名字)和Data Source(定义好的ODBC数据源),点击Connect按钮
5、即可。此外,在通过专用接口连接数据库时还可以使用配置参数文件连接数据库。配置参数文件主要包含数据库名,服务器地址,登录名,登录密码等内容。2.2应用系统的对象在应用程序对象的Open 事件中输入如下代码:SQLCA.DBMS = ODBCSQLCA.AutoCommit = FalseSQLCA.DBParm = ConnectString=DSN=hmis;UID=hisl;PWD=123456/连接数据库Connect using SQLCA;if sqlca.sqlcode0 THEN messagebox(数据库连接出错,SQLCA.SQLerrtext)else open(w_log
6、in)end if应用程序运行后连接数据库,数据库连接好后就出现系统登录界面,否则退出系统,直至数据库连接成功.在应用程序对象的变量定义窗口中,定义全局变量用于应用程序不同对象间参数的传递。2.3登录模块2.3.1功能概述用户登录系统窗口是用户进入系统的唯一通道,它是进入应用系统的喉舌,在安全保密、系统维护中占有重要的地位,登录系统在外观界面上一定要美观、友好,登录系统就是要验证当前的用户名是否与该用户密码一致,用户类型是否正确,限制用户登录出错的次数,保留登录痕迹等工作。2.3.2主要技术要点(1) 保留登录痕迹根据操作局部性原理,一般情况下用户上次登录之后还会继续登录,因此在程序中可以依照
7、人机交互界面友好性原则保留用户登录时的用户名,控件sle_1用来显示用户名,profilestring是一个函数,用来读取profile文件中一组参数,核心代码如下:/将登录名写入配置文件SetProfileString(user.ini,userusername,sle_1.text)gs_username=sle_1.text/将配置文件中的登录名写到用户名的编辑框中sle_1.text=profilestring()if trim(sle_1.text) then sle_2.setfocus() sle_1.setfocus()end if (2) 友情提示用户登录出错的原因用户登录错
8、误的原因可能包括用户名不存在,密码错误等等核心代码如下:t /判断输入的用户名是否存在。密码是否正确select Uid,Upwd into :lg_uid,:lg_upwd from TUser where Uid=:sle_1.text;if lg_uid=then st_4.text=提示:当前输入的用户名不存在! sle_1.text= sle_2.text= returnif lg_upwdsle_2.text then输入的密码错误!2.4系统主窗口和菜单的设计2.4.1功能概述医院门诊挂号系统的主窗口是信息管理系统的重要部分,勾勒出整个应用程序的概况,系统的主要功能为:病人首次就
9、诊(即需要填写病人信息来办理就诊卡)、就诊卡就诊、当前科室挂号量以及挂号信息的查询医生信息管理(包括增删查改)、科室信息管理(包括增删查改)、用户信息管理,注销(可以切换用户)。2.4.2主要技术要点(1) 对主窗口中的功能按键进行了权限管理在本系统中实现的是当登录的用户不是超级管理员,即用户名为000的用户使,用户无法使用后台信息管理功能。string useruser=profilestring(if user=000 m_main.m_后台管理.enabled=true m_main.m_后台管理.enabled=false(2)定义了计时器,可以随系统显示当前时间和当前使用这个系统的用
10、户名核心代码如下datetime d1select getdate() into : d1 from Tuser;this.title=医院门诊挂号系统+ +gs_username+string(d1)2.5首次就诊卡就诊2.5.1功能概述首次就诊卡就诊是门诊挂号管理中比较重要的模块,由于病人没有就诊卡号故先进行信息录入,并赋予一个就诊卡号,随之,即可进行挂号,选择挂号科室,类型,医生,还可以查询当前该科室的挂号人数,所有这些信息均会在一个框内打印出来,用户可以查看这些信息。2.5.2主要技术要点(1) 挂号功能由于该功能是将录入病人信息和挂号结合合在一起,故使得操作更为简便。string reg_genderif rb_1.checked=true then reg_gender=男 if rb_2.checked=true then女date dtdt=date(dp_1.text)insert into TPatient(Pid,Pname,Pgender,Pidcard,Pbirthday,Ptel) values (:sle_3.text,:sle_2.text,:reg_gender,:sle_5.text,:dt,:sle_1.text);datetime regdtst
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1