医院门诊挂号系统数据库设计与应用课程设计.docx
《医院门诊挂号系统数据库设计与应用课程设计.docx》由会员分享，可在线阅读，更多相关《医院门诊挂号系统数据库设计与应用课程设计.docx（9页珍藏版）》请在冰豆网上搜索。
医院门诊挂号系统数据库设计与应用课程设计
医院门诊挂号系统数据库设计与应用课程设计
医院门诊挂号系统班级：
软件2班姓名：
林苾湲学号：
xx2723日期：
评语：
签字：
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、1PB
11、5和SQLSERVERxx连接PB
11、5和SQLSERVERxx连接方式有两种，一种是通过ODBC数据源连接数据库，另一种是MSSSQLSERVER专用接口连接数据库。
前者首先在计算机ODBC数据源管理器中创建新的数据源，设置好DataSourceName（数据源名称）和DataBase（数据库文件名），然后在PB中建立数据库配置文件（配置文件就是命名了的一组连接到特定数据源或数据库的参数），输入ProfileName（配置文件的名字）和DataSource（定义好的ODBC数据源），点击Connect按钮即可。
此外，在通过专用接口连接数据库时还可以使用配置参数文件连接数据库。
配置参数文件主要包含数据库名，服务器地址，登录名，登录密码等内容。
2、2应用系统的对象在应用程序对象的Open事件中输入如下代码：
SQLC
A、DBMS="ODBC"SQLC
A、AutoCommit=FalseSQLC
A、DBParm="ConnectString='DSN=hmis;UID=hisl;PWD=123456'"//连接数据库ConnectusingSQLCA;ifsqlca、sqlcode<>0THENmessagebox（"数据库连接出错",SQLC
A、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_upwd<>sle_
2、textthenst_
4、text="提示：
输入的密码错误！
"sle_
2、text=''sle_
1、setfocus（）
returnendif
2、4系统主窗口和菜单的设计
2、4、1功能概述医院门诊挂号系统的主窗口是信息管理系统的重要部分，勾勒出整个应用程序的概况，系统的主要功能为：
病人首次就诊（即需要填写病人信息来办理就诊卡）、就诊卡就诊、当前科室挂号量以及挂号信息的查询医生信息管理（包括增删查改）、科室信息管理（包括增删查改）、用户信息管理，注销（可以切换用户）。
2、4、2主要技术要点
（1）
对主窗口中的功能按键进行了权限管理在本系统中实现的是当登录的用户不是超级管理员，即用户名为000的用户使，用户无法使用后台信息管理功能。
核心代码如下：
stringuseruser=profilestring（"user、ini","user","username",""）ifuser="000"thenm_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（"提示","就诊卡号不能为空！
"）
sle_
1、setfocus（）
returnendifstringreg_pid,reg_pname,reg_gender,reg_idcarddatereg_birthdayselectPid,Pname,Pgender,Pidcard,Pbirthdayinto:
reg_pid,:
reg_pname,:
reg_gender,:
reg_idcard,:
reg_birthdayfromTPatientwherePid=:
sle_
1、text;ifreg_pid=""thenmessagebox（"提示","无当前就诊卡号！
"）sle_
1、text=''sle_
1、setfocus（）
returnendif
（2）游标技术调入基本信息挂号科室，医生等值是通过游标技术来实现，挂号科室是在窗口的open事件中从数据库读取业务系统名，医生再通过科室信息那个ddlb的selectchange事件中从数据库根据选择科室的类型读取该科室下的医生的姓名。
核心代码如下：
stringls_doctorstringls_didselectDpmtidinto:
ls_didfromTDeptmentwhereDpmtname=:
ddlb_
1、text;ddlb_
3、reset（）declareget_doccursorforSELECTdistinctDnameFROMTDoctorwhereDpmtid=:
ls_did;openget_doc;fetchget_docinto:
ls_doctor;dowhilesqlca、sqlcode=0ddlb_
3、additem（ls_doctor）fetchget_docinto:
ls_doctor;loopcloseget_doc;
2、7科室挂号量查询功能
2、7、1功能概述用户可以通过该功能来查看当前各科室的挂号量或者所有科室的挂号量以及详细的挂号信息。
2、7、2主要技术要点
（1）
实现数据窗口对象的动态加载在查看界面中只有一个数据窗口，而数据窗口对象根据不同的查询方式实时动态地加载。
核心代码如下：
dw_
1、settransobject（SQLCA）ifddlb_
1、text<>"[全部]"thendw_
1、retrieve（ls_did）elsedw_
1、retrieve（"%"）endif实现在datasourse设置了查询功能SELECTtregister、rid,tregister、pid,tregister、rtypeid,tregister、dpmtid,tregister、did,tregister、registdateFROMtregisterWHEREtregister、dpmtidlike:
dpmtid
（2）总的挂号量的统计通过SQL语句中的Count（*）子句来统计所有科室的挂号量以及各个科室的挂号量stringls_didselectDpmtidinto:
ls_didfromTDeptmentwhereDpmtname=:
ddlb_
1、text;intnumselectcount（*）
into:
numfromTRegisterwhereDpmtid=:
ls_did;st_
5、text=string（num）
2、8医生信息管理
2、8、1功能概述该功能模块包括对医生信息的添加和修改，删除以及查询。
查询可以通过输入任何有关医生信息的子集，通过模糊查找即可查找跟该检索信息有关的医生信息
2、8、2主要技术要点
（1）
添加，修改，删除的数据库操作在本应用中采用数据库SQL语句的INSERT子句，UPDATE子句，DELETE子句，并且实现了数据窗口的实时更新，当做了诸如增删改的操作后。
核心代码如下：
stringreg_genderifrb_
1、checked=truethen//将复选框中的选中转换为可输入数据库的字符串reg_gender="男"endififrb_
2、checked=truethenreg_gender="女"endifdatedtdt=date（dp_
1、text）stringreg_deptid//医生信息插入数据库selectDpmtidinto:
reg_deptidfromTDeptmentwhereDpmtname=:
ddlb_
2、text;insertintoTDoctorvalues（:
sle_
2、text,:
sle_
1、text,:
reg_gender,:
dt,:
ddlb_
1、text,:
reg_deptid,:
sle_
4、text,:
sle_
3、text）;//更新数据窗口dw_
1、retrieve（）//修改信息updateTDoctorsetDid=:
sle_
2、text,Dname=:
sle_
1、text,Dgender=:
reg_gender,Dbirthday=:
dt,Dgrade=:
ddlb_
1、text,Dpmtid=:
reg_deptid,Dtel=:
sle_
4、text,Didcard=:
sle_
3、textwhereDid=:
st_id、text;//删除信息ifmessagebox（'提示：
是否删除？
',sle_
1、text,question!
yesno!
）=2thenreturnDELETEFROMTDoctorWHEREDid=:
st_id、text;dw_
1、retrieve（）
（2）
信息的模糊查询数据窗口的过滤条件是可以对字符串型的字段进行过滤的。
对于多个字段的过滤条件是通过OR逻辑关系进行连接。
以此实现多角度的查询。
核心代码如下：
stringls_filteriftrim（sle_
5、text）=""thenls_filter=""elsels_filter="Pos（Dname,'"+sle_
5、text+"',1）>0"+"orPos（Did,'"+sle_
5、text+"',1）>0"+"orPos（Dpmtid,'"+sle_
5、text+"',1）>0"+"orPos（Dgrade,'"+sle_
5、text+"',1）>0"endifdw_
1、setfilter（ls_filter）dw_
1、filter（）（3）编辑框的实时更新当用户在数据窗口中选中了某条记录，并双击该条记录，其详细信息关联显示到各对应的编辑框，并改变删除，修改按钮的使用状态为True，用户即可对信息进行编辑或删除stringch_dpmtid,ch_dpmtname,ch_dgenderifrow>0thensle_
1、text=dw_
1、object、dname[row]sle_
2、text=dw_
1、object、did[row]sle_
3、text=dw_
1、object、didcard[row]sle_
4、text=dw_
1、object、dtel[row]ddlb_
1、text=dw_
1、object、dgrade[row]ch_dpmtid=dw_
1、object、dpmtid[row]ch_dgender=dw_
1、object、dgender[row]ifch_dgender="男"thenrb_
1、checked=trueelserb_
2、checked=trueendifselectDpmtnameinto:
ch_dpmtnamefromTDeptmentwhereDpmtid=:
ch_dpmtid;ddlb_
2、text=ch_dpmtnamest_id、text=string（dw_
1、object、did[row]）
cb_
1、enabled=truecb_
2、enabled=trueendif（4）打印数据窗口的数据通过调用系统自带的打印接口来实现打印功能dw_
1、print（）
2、9科室信息管理
2、9、1功能概述对科室信息进行添加，删除，修改和查询
2、9、2主要技术要点与科室信息管理类似
2、10用户信息管理
2、
10、1主要技术要点该模块实现的是对用户信息的增删改查。
2、
10、2主要技术要点
（1）
设置retrieve参数实现范围检索retrieve参数是在数据窗口中定义的，因为数据窗口的过滤条件是无法对int型，datetime型等类型的字段值进行过滤，所以用它检索数字型字段的范围。
retrieve参数首先定义各个参数类型，选择数据库中字段与其进行对应，设置逻辑关系。
核心代码如下：
dw_
1、settransobject（sqlca）dw_
1、retrieve（“%”）至此，该应用程序在PB中所运用的技术要点已经介绍完毕，介于篇幅的限制，并没有完全介绍所有PB的使用的函数、方法和事件，其中详细的内容请参见后面的参考资料所述。
3系统运行截图图3-1应用系统登录界面3-2应用系统主界面3-3首次就诊界面3-4就诊卡就诊界面3-5挂号量查询3-6添加医生信息界面3-7医生信息管理界面3-8科室信息管理界面3-9用户信息管理界面
升级会员 