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

成绩：

数据库技术与应用
课程设计

题目： 医院门诊挂号系统
班级： 软件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
用户名
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.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按钮即可。此外，在通过专用接口连接数据库时还可以使用配置参数文件连接数据库。配置参数文件主要包含数据库名，服务器地址，登录名，登录密码等内容。
2.2应用系统的对象
在应用程序对象的Open 事件中输入如下代码：
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=hmis;UID=hisl;PWD=123456'"
//连接数据库
Connect using SQLCA;
if sqlca.sqlcode<>0 THEN
messagebox("数据库连接出错",SQLCA.SQLerrtext)
else
open(w_login)
end if
应用程序运行后连接数据库，数据库连接好后就出现系统登录界面，否则退出系统，直至数据库连接成功.在应用程序对象的变量定义窗口中，定义全局变量用于应用程序不同对象间参数的传递。
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","")
if trim(sle_1.text)<>"" then
sle_2.setfocus()
else
sle_1.setfocus()
end if
(2) 友情提示用户登录出错的原因
用户登录错误的原因可能包括用户名不存在，密码错误等等
核心代码如下：
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=''
sle_1.setfocus()
return
end if
if lg_upwd<>sle_2.text then
st_4.text="提示：输入的密码错误！"
sle_2.text=''
sle_1.setfocus()
return
end if
2.4系统主窗口和菜单的设计
2.4.1功能概述
医院门诊挂号系统的主窗口是信息管理系统的重要部分，勾勒出整个应用程序的概况，系统的主要功能为：病人首次就诊（即需要填写病人信息来办理就诊卡）、就诊卡就诊、当前科室挂号量以及挂号信息的查询医生信息管理（包括增删查改）、科室信息管理（包括增删查改）、用户信息管理，注销（可以切换用户）。
2.4.2主要技术要点
(1) 对主窗口中的功能按键进行了权限管理
在本系统中实现的是当登录的用户不是超级管理员，即用户名为000的用户使，用户无法使用后台信息管理功能。
核心代码如下：
string user
user=profilestring("user.ini","user","username","")
if user="000" then
m_main.m_后台管理.enabled=true
else
m_main.m_后台管理.enabled=false
end if
(2)定义了计时器，可以随系统显示当前时间和当前使用这个系统的用户名
核心代码如下
datetime d1
select getdate() into : d1 from Tuser;
this.title="医院门诊挂号系统"+" "+gs_username+" "+string(d1)
2.5首次就诊卡就诊
2.5.1功能概述
首次就诊卡就诊是门诊挂号管理中比较重要的模块，由于病人没有就诊卡号故先进行信息录入，并赋予一个就诊卡号，随之，即可进行挂号，选择挂号科室，类型，医生，还可以查询当前该科室的挂号人数，所有这些信息均会在一个框内打印出来，用户可以查看这些信息。
2.5.2主要技术要点
(1) 挂号功能
由于该功能是将录入病人信息和挂号结合合在一起，故使得操作更为简便。
string reg_gender
if rb_1.checked=true then
reg_gender="男"
end if
if rb_2.checked=true then
reg_gender="女"
end if
date dt
dt=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 regdt
string reg_deptid,reg_docid,regtype,regprice
select getdate() into : regdt from Tuser;
string times,rid,rst
int i
times=string(regdt)
for i=1 to 19
rst=mid(times,i,1)
if isnumber(rst)=true then
rid=rid+rst
end if
next
select Dpmtid into :reg_deptid from TDeptment where Dpmtname=:ddlb_1.text;
select Did into :reg_docid from TDoctor where Dname=:ddlb_3.text;
select Rtypeid,Regprice into :regtype,:regprice from TRegisterType where RTypename=:ddlb_2.text;
int num
select count(*) into :num from TRegister where Did=:reg_docid;
insert into TRegister(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子句。核心代码如下：
if sle_1.text='' then
messagebox("提示","就诊卡号不能为空！")
sle_1.setfocus()
return
end if
string reg_pid,reg_pname,reg_gender,reg_idcard
date reg_birthday
select Pid ,Pname,Pgender,Pidcard ,Pbirthday into :reg_pid ,:reg_pname,:reg_gender,:reg_idcard,:reg_birthday from TPatient where Pid=:sle_1.text;
if reg_pid=""then
messagebox("提示","无当前就诊卡号！")
sle_1.text=''
sle_1.setfocus()
return
end if
(2)游标技术调入基本信息
挂号科室，医生等值是通过游标技术来实现，挂号科室是在窗口的open事件中从数据库读取业务系统名，医生再通过科室信息那个ddlb的selectchange事件中从数据库根据选择科室的类型读取该科室下的医生的姓名。核心代码如下：
string ls_doctor
string ls_did
select Dpmtid into :ls_did from TDeptment where Dpmtname=:ddlb_1.text;
ddlb_3.reset()
declare get_doc cursor for
SELECT distinct Dname
FROM TDoctor where Dpmtid=:ls_did;
open get_doc;
fetch get_doc into:ls_doctor;
do while sqlca.sqlcode=0
ddlb_3.additem(ls_doctor)
fetch get_doc into :ls_doctor;
loop
close get_doc;
2.7科室挂号量查询功能
2.7.1功能概述
用户可以通过该功能来查看当前各科室的挂号量或者所有科室的挂号量以及详细的挂号信息。
2.7.2主要技术要点
(1) 实现数据窗口对象的动态加载
在查看界面中只有一个数据窗口，而数据窗口对象根据不同的查询方式实时动态地加载。核心代码如下：
dw_1.settransobject(SQLCA)
if ddlb_1.text<>"[全部]" then
dw_1.retrieve(ls_did)
else
dw_1.retrieve("%")
end if
实现在datasourse设置了查询功能
SELECT tregister.rid,
tregister.pid,
tregister.rtypeid,
tregister.dpmtid,
tregister.did,
tregister.registdate
FROM tregister
WHERE tregister.dpmtid like :dpmtid
(2)总的挂号量的统计
通过SQL语句中的Count(*)子句来统计所有科室的挂号量以及各个科室的挂号量
string ls_did
select Dpmtid into :ls_did from TDeptment where Dpmtname=:ddlb_1.text;
int num
select count(*) into :num from TRegister where Dpmtid=:ls_did;
st_5.text=string(num)
2.8医生信息管理
2.8.1功能概述
该功能模块包括对医生信息的添加和修改，删除以及查询。查询可以通过输入任何有关医生信息的子集，通过模糊查找即可查找跟该检索信息有关的医生信息
2.8.2主要技术要点
(1) 添加，修改，删除的数据库操作
在本应用中采用数据库SQL语句的INSERT子句，UPDATE子句，DELETE子句，并且实现了数据窗口的实时更新，当做了诸如增删改的操作后。核心代码如下：
string reg_gender
if rb_1.checked=true then //将复选框中的选中转换为可输入数据库的字符串
reg_gender="男"
end if
if rb_2.checked=true then
reg_gender="女"
end if
date dt
dt=date(dp_1.text)
string reg_deptid
//医生信息插入数据库
select Dpmtid into :reg_deptid from TDeptment where Dpmtname=:ddlb_2.text;
insert into TDoctor values(:sle_2.text,:sle_1.text,:reg_gender,:dt,:ddlb_1.text,:reg_deptid,:sle_4.text,:sle_3.text);
//更新数据窗口
dw_1.retrieve()
//修改信息
update TDoctor set Did=: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.text where Did=:st_id.text;
//删除信息
if messagebox('提示：是否删除？',sle_1.text,question!,yesno!)=2 then return
DELETE FROM TDoctor WHERE Did=:st_id.text;
dw_1.retrieve()
(2) 信息的模糊查询
数据窗口的过滤条件是可以对字符串型的字段进行过滤的。对于多个字段的过滤条件是通过OR逻辑关系进行连接。以此实现多角度的查询。核心代码如下：
string ls_filter
if trim(sle_5.text)=""then
ls_filter=""
else
ls_filter="Pos(Dname,'"+sle_5.text+"',1)>0"+" or Pos(Did,'"+sle_5.text+"',1)>0"+" or Pos(Dpmtid,'"+sle_5.text+"',1)>0"+" or Pos(Dgrade,'"+sle_5.text+"',1)>0"
end if
dw_1.setfilter(ls_filter)
dw_1.filter()
(3)编辑框的实时更新
当用户在数据窗口中选中了某条记录，并双击该条记录，其详细信息关联显示到各对应的编辑框，并改变删除，修改按钮的使用状态为True，用户即可对信息进行编辑或删除
string ch_dpmtid,ch_dpmtname,ch_dgender
if row>0 then
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]
if ch_dgender="男" then
rb_1.checked=true
else
rb_2.checked=true
end if
select Dpmtname into :ch_dpmtname from TDeptment where Dpmtid=:ch_dpmtid;
ddlb_2.text=ch_dpmtname
st_id.text=string(dw_1.object.did[row])
cb_1.enabled=true
cb_2.enabled=true
end if
(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 用户信息管理界面