医院门诊挂号系统数据库设计与应用课程设计.docx
- 文档编号:12893834
- 上传时间:2023-06-09
- 格式:DOCX
- 页数:17
- 大小:40.18KB
医院门诊挂号系统数据库设计与应用课程设计.docx
《医院门诊挂号系统数据库设计与应用课程设计.docx》由会员分享,可在线阅读,更多相关《医院门诊挂号系统数据库设计与应用课程设计.docx(17页珍藏版)》请在冰点文库上搜索。
医院门诊挂号系统数据库设计与应用课程设计
成果:
之老阳三干创作
创作时间:
二零二一年六月三十日
数据库技术与应用
课程设计
题目:
医院门诊挂号系统
班级:
软件2班
姓名:
林苾湲
学号:
20112723
日期:
评语:
签字:
1系统总体设计方案
本系统是一个功能强年夜、把持使用简单、智能化、可扩展性、集成有效性和垮平台的医院门诊挂号系统.
图1.2.1功能模块
其中各模块的信息维护还包括对各类信息的增删改查把持.
后台管理(权限管理)若为超级管理员,则可进行用户的增删改查
由于多组合查询功能比力简单,只需输入相关查询的条件即可进行多组合模糊查询,因此在此并没有画出查询子系统的总体结构.
数据库表的命名是用表名的英文或英文缩写,编程实现简单易记.
(1)用户信息表Tuser:
保管系统使用者的信息,包括用户名及其密码.
(2)医生资料表TDoctor:
保管医生信息,包括医生所属的科室.
(3)科室资料表TDepartment:
保管科室分类信息,如分为内科、外科.
(4)病人信息表TPatient:
保管病人的基本信息,以后可以重复使用.
(5)门诊挂号表TRegister:
保管门诊病人挂号的信息.
(6)门诊挂号类型表TRegisterType:
保管门诊挂号类型分类信息及其挂号价格,如普通号、专家号.
在前章介绍的实体以及实体之间关系的基础上,形成数据库中表以及各个表之间的关系.医院门诊管理系统数据库中各个表格的设计结果如下面的几个表格所示.每个表格暗示在数据库中的一个表.
表1-1用户信息表Tuser
编号
字段名
字段代码
字段类型
允许为空
主键
外键
1
用户名
Uid
Varchar(50)
N
Y
2
姓名
Uname
Varchar(50)
Y
3
密码
Upwd
Varchar(50)
N
4
身份证
UIDcard
Varchar(50)
Y
表1-2医生资料表TDoctor
编号
字段名
字段代码
字段类型
允许为空
主键
外键
1
医生编号
Did
Varchar(10)
N
Y
2
姓名
Dname
Varchar(50)
Y
3
性别
Dgender
Varchar(10)
Y
4
身份证
Didcard
Varchar(20)
Y
5
出身日期
Dbirthday
date
Y
6
所属科室编号
Dpmtid
Varchar(5)
Y
Y
7
德律风
Dtel
Varchar(11)
Y
表1-3科室资料表TDepartment
编号
字段名
字段代码
字段类型
允许为空
主键
外键
1
科室编号
Dpmtid
Varchar(50)
N
Y
2
科室名称
Dpmtname
Warchar(50)
N
表1-4病人信息表TPatient
编号
字段名
字段代码
字段类型
允许为空
主键
外键
1
病人编号(就诊卡号)
Pid
Varchar(20)
N
Y
2
姓名
Pname
Varchar(50)
Y
3
性别
Pgender
Varchar(10)
Y
4
身份证
Pidcard
Varchar(20)
Y
5
出身日期
Pbirthday
date
Y
7
德律风
Ptel
Varchar(11)
Y
表1-5门诊挂号表TRegister
编号
字段名
字段代码
字段类型
允许为空
主键
外键
1
挂号
Rid
Varchar(20)
N
Y
2
病人编号
Pid
Varchar(20)
Y
Y
3
挂号类型编号
Rtypeid
Varchar(10)
Y
Y
4
科室编号
Dpmtid
Varchar(5)
Y
Y
5
医生编号
Did
Varchar(10)
Y
Y
6
挂号日期
RegistDate
Datetime
Y
表1-6门诊挂号类型表TRegisterType
编号
字段名
字段代码
字段类型
允许为空
主键
外键
1
类型编号
Rtypeid
Varchar(10)
N
Y
2
类型名称
Rtypename
varchar(50)
Y
3
价格
Regprice
Money
Y
2系统实现
2.1PB11.5和SQLSERVER2012连接
PB11.5和SQLSERVER2012连接方式有两种,一种是通过ODBC数据源连接数据库,另一种是MSSSQLSERVER专用接口连接数据库.前者首先在计算机ODBC数据源管理器中创立新的数据源,设置好DataSourceName(数据源名称)和DataBase(数据库文件名),然后在PB中建立数据库配置文件(配置文件就是命名了的一组连接到特定命据源或数据库的参数),输入ProfileName(配置文件的名字)和DataSource(界说好的ODBC数据源),点击Connect按钮即可.另外,在通过专用接口连接数据库时还可以使用配置参数文件连接数据库.配置参数文件主要包括数据库名,服务器地址,登录名,登录密码等外容.
在应用法式对象的Open事件中输入如下代码:
SQLCA.DBMS="ODBC"
SQLCA.AutoCommit=False
SQLCA.DBParm="ConnectString='DSN=hmis;UID=hisl;PWD=123456'"
//连接数据库
ConnectusingSQLCA;
ifsqlca.sqlcode<>0THEN
messagebox("数据库连接犯错",SQLCA.SQLerrtext)
else
open(w_login)
endif
应用法式运行后连接数据库,数据库连接好后就呈现系统登录界面,否则退出系统,直至数据库连接胜利.在应用法式对象的变量界说窗口中,界说全局变量用于应用法式分歧对象间参数的传递.
用户登录系统窗口是用户进入系统的唯一通道,它是进入应用系统的喉舌,在平安保密、系统维护中占有重要的位置,登录系统在外观界面上一定要美观、友好,登录系统就是要验证以后的用户名是否与该用户密码一致,用户类型是否正确,限制用户登录犯错的次数,保管登录痕迹等工作.
(1)保管登录痕迹
根据把持局部性原理,一般情况下用户上次登录之后还会继续登录,因此在法式中可以依照人机交互界面友好性原则保管用户登录时的用户名,控件sle_1用来显示用户名,profilestring是一个函数,用来读取profile文件中一组参数,核心代码如下:
//将登录名写入配置文件
SetProfileString("user.ini","user","username",sle_1.text)
//将配置文件中的登录名写到用户名的编纂框中
sle_1.text=profilestring("user.ini","user","username","")
iftrim(sle_1.text)<>""then
sle_2.setfocus()
else
sle_1.setfocus()
endif
(2)友情提示用户登录犯错的原因
用户登录毛病的原因可能包括用户名不存在,密码毛病等等
核心代码如下:
t//判断输入的用户名是否存在.密码是否正确
selectUid,Upwdinto:
lg_uid,:
lg_upwdfromTUserwhereUid=:
sle_1.text;
iflg_uid=""then
st_4.text="提示:
以后输入的用户名不存在!
"
sle_1.text=''
sle_2.text=''
sle_1.setfocus()
return
endif
iflg_upwd<>sle_2.textthen
st_4.text="提示:
输入的密码毛病!
"
sle_2.text=''
sle_1.setfocus()
return
endif
医院门诊挂号系统的主窗口是信息管理系统的重要部份,勾勒出整个应用法式的概况,系统的主要功能为:
病人首次就诊(即需要填写病人信息来规画就诊卡)、就诊卡就诊、以后科室挂号量以及挂号信息的查询医生信息管理(包括增删查改)、科室信息管理(包括增删查改)、用户信息管理,注销(可以切换用户).
(1)对主窗口中的功能按键进行了权限管理
在本系统中实现的是当登录的用户不是超级管理员,即用户名为000的用户使,用户无法使用后台信息管理功能.
核心代码如下:
stringuser
user=profilestring("user.ini","user","username","")
ifuser="000"then
m_main.m_后台管理.enabled=true
else
m_main.m_后台管理.enabled=false
endif
(2)界说了计时器,可以随系统显示以后时间和以后使用这个系统的用户名
核心代码如下
datetimed1
selectgetdate()into:
d1fromTuser;
this.title="医院门诊挂号系统"+""+gs_username+""+string(d1)
首次就诊卡就诊是门诊挂号管理中比力重要的模块,由于病人没有就诊卡号故先进行信息录入,并赋予一个就诊卡号,随之,即可进行挂号,选择挂号科室,类型,医生,还可以查询以后该科室的挂号人数,所有这些信息均会在一个框内打印出来,用户可以检查这些信息.
(1)挂号功能
由于该功能是将录入病人信息和挂号结合合在一起,故使得把持更为简便.
stringreg_gender
ifrb_1.checked=truethen
reg_gender="男"
endif
ifrb_2.checked=truethen
reg_gender="女"
endif
datedt
dt=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);
datetimeregdt
stringreg_deptid,reg_docid,regtype,regprice
selectgetdate()into:
regdtfromTuser;
stringtimes,rid,rst
inti
times=string(regdt)
fori=1to19
rst=mid(times,i,1)
ifisnumber(rst)=truethen
rid=rid+rst
endif
next
selectDpmtidinto:
reg_deptidfromTDeptmentwhereDpmtname=:
ddlb_1.text;
selectDidinto:
reg_docidfromTDoctorwhereDname=:
ddlb_3.text;
selectRtypeid,Regpriceinto:
regtype,:
regpricefromTRegisterTypewhereRTypename=:
ddlb_2.text;
intnum
selectcount(*)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)
该功能也是门诊挂号系统的重要功能,用户只需要输入就诊卡号就可获得,该病人的主要信息,然后再进行挂号科室,挂号类型,挂号医生的选择,挂号的功能与首次挂号的功能类似.
(1)输入就诊卡号获得病人信息
输入就诊卡号获得病人信息的功能是通过数据库查询技术实现的.SQL语句使用SELECT子句,FROM子句,WHERE子句.核心代码如下:
ifsle_1.text=''then
messagebox("提示","就诊卡号不能为空!
")
sle_1.setfocus()
return
endif
stringreg_pid,reg_pname,reg_gender,reg_idcard
datereg_birthday
selectPid,Pname,Pgender,Pidcard,Pbirthdayinto:
reg_pid,:
reg_pname,:
reg_gender,:
reg_idcard,:
reg_birthdayfromTPatientwherePid=:
sle_1.text;
ifreg_pid=""then
messagebox("提示","无以后就诊卡号!
")
sle_1.text=''
sle_1.setfocus()
return
endif
(2)游标技术调入基本信息
挂号科室,医生等值是通过游标技术来实现,挂号科室是在窗口的open事件中从数据库读取业务系统名,医生再通过科室信息那个ddlb的selectchange事件中从数据库根据选择科室的类型读取该科室下的医生的姓名.核心代码如下:
stringls_doctor
stringls_did
selectDpmtidinto:
ls_didfromTDeptmentwhereDpmtname=:
ddlb_1.text;
ddlb_3.reset()
declareget_doccursorfor
SELECTdistinctDname
FROMTDoctorwhereDpmtid=:
ls_did;
openget_doc;
fetchget_docinto:
ls_doctor;
dowhilesqlca.sqlcode=0
ddlb_3.additem(ls_doctor)
fetchget_docinto:
ls_doctor;
loop
closeget_doc;
用户可以通过该功能来检查以后各科室的挂号量或者所有科室的挂号量以及详细的挂号信息.
(1)实现数据窗口对象的静态加载
在检查界面中只有一个数据窗口,而数据窗口对象根据分歧的查询方式实时静态地加载.核心代码如下:
dw_1.settransobject(SQLCA)
ifddlb_1.text<>"[全部]"then
dw_1.retrieve(ls_did)
else
dw_1.retrieve("%")
endif
实现在datasourse设置了查询功能
SELECTtregister.rid,
tregister.pid,
tregister.rtypeid,
tregister.dpmtid,
tregister.did,
tregister.registdate
FROMtregister
WHEREtregister.dpmtidlike:
dpmtid
(2)总的挂号量的统计
通过SQL语句中的Count(*)子句来统计所有科室的挂号量以及各个科室的挂号量
stringls_did
selectDpmtidinto:
ls_didfromTDeptmentwhereDpmtname=:
ddlb_1.text;
intnum
selectcount(*)into:
numfromTRegisterwhereDpmtid=:
ls_did;
st_5.text=string(num)
该功能模块包括对医生信息的添加和修改,删除以及查询.查询可以通过输入任何有关医生信息的子集,通过模糊查找即可查找跟该检索信息有关的医生信息
(1)添加,修改,删除的数据库把持
在本应用中采纳数据库SQL语句的INSERT子句,UPDATE子句,DELETE子句,而且实现了数据窗口的实时更新,当作了诸如增删改的把持后.核心代码如下:
stringreg_gender
ifrb_1.checked=truethen//将复选框中的选中转换为可输入数据库的字符串
reg_gender="男"
endif
ifrb_2.checked=truethen
reg_gender="女"
endif
datedt
dt=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!
)=2thenreturn
DELETEFROMTDoctorWHEREDid=:
st_id.text;
dw_1.retrieve()
(2)信息的模糊查询
数据窗口的过滤条件是可以对字符串型的字段进行过滤的.对多个字段的过滤条件是通过OR逻辑关系进行连接.以此实现多角度的查询.核心代码如下:
stringls_filter
iftrim(sle_5.text)=""then
ls_filter=""
else
ls_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"
endif
dw_1.setfilter(ls_filter)
dw_1.filter()
(3)编纂框的实时更新
当用户在数据窗口中选中了某条记录,并双击该条记录,其详细信息关联显示到各对应的编纂框,并改变删除,修改按钮的使用状态为True,用户即可对信息进行编纂或删除
stringch_dpmtid,ch_dpmtname,ch_dgender
ifrow>0then
sle_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="男"then
rb_1.checked=true
else
rb_2.checked=true
endif
selectDpmtnameinto:
ch_dpmtnamefromTDeptmentwhereDpmtid=:
ch_dpmtid;
ddlb_2.text=ch_dpmtname
st_id.text=string(dw_1.object.did[row])
cb_1.enabled=true
cb_2.enabled=true
endif
(4)打印数据窗口的数据
通过调用系统自带的打印接口来实现打印功能
dw_1.print()
2.9.1功能概述
对科室信息进行添加,删除,修改和查询
2.9.2主要技术要点
与科室信息管理类似
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用户信息管理界面
创作时
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 医院 门诊 挂号 系统 数据库 设计 应用 课程设计