医院门诊挂号系统数据库设计与应用课程设计

成绩：数据库技术与应用课程设计题目：医院门诊挂号系统班级：软件2班姓名：林苾湲学号：20112723日期：评语：签字：1系统总体设计方案1.1系统实现目标本系统是一个功能强大、操作使用简单、智能化、可扩展性、集成有效性和垮平台的医院门诊挂号系统。1.2系统功能模块设计图1.2.1功能模块其中各模块的信息维护还包括对各类信息的增删改查操作。后台管理（权限管理）若为超级管理员，则可进行用户的增删改查由于多组合查询功能比较简单，只需输入相关查询的条件即可进行多组合模糊查询，因此在此并没有画出查询子系统的总体结构。1.3数据库设计1.3.1数据库表设计数据库表的命名是用表名的英文或英文缩写，编程实现简单易记。(1)用户信息表Tuser：保存系统使用者的信息，包括用户名及其密码。(2)医生资料表TDoctor:保存医生信息，包括医生所属的科室。(3)科室资料表TDepartment:保存科室分类信息，如分为内科、外科。(4)病人信息表TPatient:保存病人的基本信息，以后可以重复使用。(5)门诊挂号表TRegister:保存门诊病人挂号的信息。(6)门诊挂号类型表TRegisterType:保存门诊挂号类型分类信息及其挂号价格，如普通医院门诊挂号系统信息维护门诊管理院长查询医生信息维护科室信息维护首次挂号就诊卡挂号科室挂号量后台信息维护号、专家号。1.3.2数据库表设计格式说明在前章介绍的实体以及实体之间关系的基础上，形成数据库中表以及各个表之间的关系。医院门诊管理系统数据库中各个表格的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表。表1-1用户信息表Tuser编号字段名字段代码字段类型允许为空主键外键1用户名UidVarchar(50)NY2姓名UnameVarchar(50)Y3密码UpwdVarchar(50)N4身份证UIDcardVarchar(50)Y表1-2医生资料表TDoctor编号字段名字段代码字段类型允许为空主键外键1医生编号DidVarchar(10)NY2姓名DnameVarchar(50)Y3性别DgenderVarchar(10)Y4身份证DidcardVarchar(20)Y5出生日期DbirthdaydateY6所属科室编号DpmtidVarchar(5)YY7电话DtelVarchar(11)Y表1-3科室资料表TDepartment编号字段名字段代码字段类型允许为空主键外键1科室编号DpmtidVarchar(50)NY2科室名称DpmtnameWarchar(50)N表1-4病人信息表TPatient编号字段名字段代码字段类型允许为空主键外键1病人编号（就诊卡号）PidVarchar(20)NY2姓名PnameVarchar(50)Y3性别PgenderVarchar(10)Y4身份证PidcardVarchar(20)Y5出生日期PbirthdaydateY7电话PtelVarchar(11)Y表1-5门诊挂号表TRegister编号字段名字段代码字段类型允许为空主键外键1挂号RidVarchar(20)NY2病人编号PidVarchar(20)YY3挂号类型编号RtypeidVarchar(10)YY4科室编号DpmtidVarchar(5)YY5医生编号DidVarchar(10)YY6挂号日期RegistDateDatetimeY表1-6门诊挂号类型表TRegisterType编号字段名字段代码字段类型允许为空主键外键1类型编号RtypeidVarchar(10)NY2类型名称Rtypenamevarchar(50)Y3价格RegpriceMoneyY2系统实现2.1PB11.5和SQLSERVER2012连接PB11.5和SQLSERVER2012连接方式有两种，一种是通过ODBC数据源连接数据库，另一种是MSSSQLSERVER专用接口连接数据库。前者首先在计算机ODBC数据源管理器中创建新的数据源，设置好DataSourceName(数据源名称)和DataBase（数据库文件名），然后在PB中建立数据库配置文件（配置文件就是命名了的一组连接到特定数据源或数据库的参数），输入ProfileName(配置文件的名字)和DataSource（定义好的ODBC数据源），点击Connect按钮即可。此外，在通过专用接口连接数据库时还可以使用配置参数文件连接数据库。配置参数文件主要包含数据库名，服务器地址，登录名，登录密码等内容。2.2应用系统的对象在应用程序对象的Open事件中输入如下代码：SQLCA.DBMS=ODBCSQLCA.AutoCommit=FalseSQLCA.DBParm=ConnectString='DSN=hmis;UID=hisl;PWD=123456'//连接数据库ConnectusingSQLCA;ifsqlca.sqlcode0THENmessagebox(数据库连接出错,SQLCA.SQLerrtext)elseopen(w_login)endif应用程序运行后连接数据库，数据库连接好后就出现系统登录界面，否则退出系统，直至数据库连接成功.在应用程序对象的变量定义窗口中，定义全局变量用于应用程序不同对象间参数的传递。2.3登录模块2.3.1功能概述用户登录系统窗口是用户进入系统的唯一通道，它是进入应用系统的喉舌，在安全保密、系统维护中占有重要的地位，登录系统在外观界面上一定要美观、友好，登录系统就是要验证当前的用户名是否与该用户密码一致，用户类型是否正确，限制用户登录出错的次数，保留登录痕迹等工作。2.3.2主要技术要点(1)保留登录痕迹根据操作局部性原理，一般情况下用户上次登录之后还会继续登录，因此在程序中可以依照人机交互界面友好性原则保留用户登录时的用户名，控件sle_1用来显示用户名，profilestring是一个函数，用来读取profile文件中一组参数，核心代码如下://将登录名写入配置文件SetProfileString(user.ini,user,username,sle_1.text)gs_username=sle_1.text//将配置文件中的登录名写到用户名的编辑框中sle_1.text=profilestring(user.ini,user,username,)iftrim(sle_1.text)thensle_2.setfocus()elsesle_1.setfocus()endif(2)友情提示用户登录出错的原因用户登录错误的原因可能包括用户名不存在，密码错误等等核心代码如下：t//判断输入的用户名是否存在。密码是否正确selectUid,Upwdinto:lg_uid,:lg_upwdfromTUserwhereUid=:sle_1.text;iflg_uid=thenst_4.text=提示：当前输入的用户名不存在！sle_1.text=''sle_2.text=''sle_1.setfocus()returnendififlg_upwdsle_2.textthenst_4.text=提示：输入的密码错误！sle_2.text=''sle_1.setfocus()returnendif2.4系统主窗口和菜单的设计2.4.1功能概述医院门诊挂号系统的主窗口是信息管理系统的重要部分，勾勒出整个应用程序的概况，系统的主要功能为：病人首次就诊（即需要填写病人信息来办理就诊卡）、就诊卡就诊、当前科室挂号量以及挂号信息的查询医生信息管理（包括增删查改）、科室信息管理（包括增删查改）、用户信息管理，注销（可以切换用户）。2.4.2主要技术要点(1)对主窗口中的功能按键进行了权限管理在本系统中实现的是当登录的用户不是超级管理员，即用户名为000的用户使，用户无法使用后台信息管理功能。核心代码如下：stringuseruser=profilestring(user.ini,user,username,)ifuser=000thenm_main.m_后台管理.enabled=trueelsem_main.m_后台管理.enabled=falseendif(2)定义了计时器，可以随系统显示当前时间和当前使用这个系统的用户名核心代码如下datetimed1selectgetdate()into:d1fromTuser;this.title=医院门诊挂号系统++gs_username++string(d1)2.5首次就诊卡就诊2.5.1功能概述首次就诊卡就诊是门诊挂号管理中比较重要的模块，由于病人没有就诊卡号故先进行信息录入，并赋予一个就诊卡号，随之，即可进行挂号，选择挂号科室，类型，医生，还可以查询当前该科室的挂号人数，所有这些信息均会在一个框内打印出来，用户可以查看这些信息。2.5.2主要技术要点(1)挂号功能由于该功能是将录入病人信息和挂号结合合在一起，故使得操作更为简便。stringreg_genderifrb_1.checked=truethenreg_gender=男endififrb_2.checked=truethenreg_gender=女endifdatedtdt=date(dp_1.text)insertintoTPatient(Pid,Pname,Pgender,Pidcard,Pbirthday,Ptel)values(:sle_3.text,:sle_2.text,:reg_gender,:sle_5.text,:dt,:sle_1.text);datetimeregdtstringreg_deptid,reg_docid,regtype,regpriceselectgetdate()into:regdtfromTuser;stringtimes,rid,rstintitimes=string(regdt)fori=1to19rst=mid(times,i,1)ifisnumber(rst)=truethenrid=rid+rstendifnextselectDpmtidinto:reg_deptidfromTDeptmentwhereDpmtname=:ddlb_1.text;selectDidinto:reg_docidfromTDoctorwhereDname=:ddlb_3.text;selectRtypeid,Regpriceinto:regtype,:regpricefromTRegisterTypewhereRTypename=:ddlb_2.text;intnumselectcount(*)into:numfromTRegisterwhereDid=:reg_docid;insertintoTRegister(Rid,Pid,Rtypeid,Dpmtid,Did,RegistDate)values(:rid,:sle_3.text,:regtype,:reg_deptid,:reg_docid,:regdt);mle_1.text=姓名：+sle_2.text+~r~n就诊卡号：+sle_1.text+~r~n挂号：+rid+~r~n挂号科室：+ddlb_1.text+~r~n挂号类型：+ddlb_2.text+~r~n挂号医生：+ddlb_3.text+~r~n挂号费用：+regprice+~r~n~r~n前面还有+string(num)+人挂号+~r~n~r~n时间：~r~n+string(regdt)2.6就诊卡就诊2.6.1功能概述该功能也是门诊挂号系统的重要功能，用户只需要输入就诊卡号就可得到，该病人的主要信息，然后再进行挂号科室，挂号类型，挂号医生的选择，挂号的功能与首次挂号的功能类似。2.6.2主要技术要点（1）输入就诊卡号得到病人信息输入就诊卡号得到病人信息的功能是通过数据库查询技术实现的。SQL语句使用SELECT子句，FROM子句，WHERE子句。核心代码如下：ifsle_1.text=''thenmessagebox(提示,就诊卡号不能为空！)sl