医院门诊挂号系统数据库设计与应用课程设计之欧阳光明创编Word格式文档下载.docx
《医院门诊挂号系统数据库设计与应用课程设计之欧阳光明创编Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《医院门诊挂号系统数据库设计与应用课程设计之欧阳光明创编Word格式文档下载.docx（15页珍藏版）》请在冰豆网上搜索。
表1-1用户信息表Tuser
编号
字段名
字段代码
字段类型
允许为空
主键
外键
1
用户名
Uid
Varchar（50）
N
Y
2
姓名
Uname
3
密码
Upwd
4
身份证
UIDcard
表1-2医生资料表TDoctor
医生编号
Did
Varchar（10）
Dname
性别
Dgender
Didcard
Varchar（20）
5
出生日期
Dbirthday
date
6
所属科室编号
Dpmtid
Varchar（5）
7
电话
Dtel
Varchar（11）
表1-3科室资料表TDepartment
科室编号
科室名称
Dpmtname
Warchar（50）
表1-4病人信息表TPatient
病人编号（就诊卡号）
Pid
Pname
Pgender
Pidcard
Pbirthday
Ptel
表1-5门诊挂号表TRegister
挂号
Rid
病人编号
挂号类型编号
Rtypeid
挂号日期
RegistDate
Datetime
表1-6门诊挂号类型表TRegisterType
类型编号
类型名称
Rtypename
varchar（50）
价格
Regprice
Money
2系统实现
2.1PB11.5和SQLSERVER2012连接
PB11.5和SQLSERVER2012连接方式有两种，一种是通过ODBC数据源连接数据库，另一种是MSSSQLSERVER专用接口连接数据库。
前者首先在计算机ODBC数据源管理器中创建新的数据源，设置好DataSourceName（数据源名称）和DataBase（数据库文件名），然后在PB中建立数据库配置文件（配置文件就是命名了的一组连接到特定数据源或数据库的参数），输入ProfileName（配置文件的名字）和DataSource（定义好的ODBC数据源），点击Connect按钮即可。
此外，在通过专用接口连接数据库时还可以使用配置参数文件连接数据库。
配置参数文件主要包含数据库名，服务器地址，登录名，登录密码等内容。
2.2应用系统的对象
在应用程序对象的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
应用程序运行后连接数据库，数据库连接好后就出现系统登录界面，否则退出系统，直至数据库连接成功.在应用程序对象的变量定义窗口中，定义全局变量用于应用程序不同对象间参数的传递。
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（"
）
iftrim（sle_1.text）<
then
sle_2.setfocus（）
sle_1.setfocus（）
（2）友情提示用户登录出错的原因
用户登录错误的原因可能包括用户名不存在，密码错误等等
核心代码如下：
t//判断输入的用户名是否存在。
密码是否正确
selectUid,Upwdinto:
lg_uid,:
lg_upwdfromTUserwhereUid=:
sle_1.text;
iflg_uid="
then
st_4.text="
提示：
当前输入的用户名不存在！
sle_1.text='
'
sle_2.text='
return
iflg_upwd<
sle_2.textthen
输入的密码错误！
2.4系统主窗口和菜单的设计
2.4.1功能概述
医院门诊挂号系统的主窗口是信息管理系统的重要部分，勾勒出整个应用程序的概况，系统的主要功能为：
病人首次就诊（即需要填写病人信息来办理就诊卡）、就诊卡就诊、当前科室挂号量以及挂号信息的查询医生信息管理（包括增删查改）、科室信息管理（包括增删查改）、用户信息管理，注销（可以切换用户）。
2.4.2主要技术要点
（1）对主窗口中的功能按键进行了权限管理
在本系统中实现的是当登录的用户不是超级管理员，即用户名为000的用户使，用户无法使用后台信息管理功能。
stringuser
user=profilestring（"
ifuser="
000"
m_main.m_后台管理.enabled=true
m_main.m_后台管理.enabled=false
（2）定义了计时器，可以随系统显示当前时间和当前使用这个系统的用户名
核心代码如下
datetimed1
selectgetdate（）into:
d1fromTuser;
this.title="
医院门诊挂号系统"
+"
"
+gs_username+"
+string（d1）
2.5首次就诊卡就诊
2.5.1功能概述
首次就诊卡就诊是门诊挂号管理中比较重要的模块，由于病人没有就诊卡号故先进行信息录入，并赋予一个就诊卡号，随之，即可进行挂号，选择挂号科室，类型，医生，还可以查询当前该科室的挂号人数，所有这些信息均会在一个框内打印出来，用户可以查看这些信息。
2.5.2主要技术要点
（1）挂号功能
由于该功能是将录入病人信息和挂号结合合在一起，故使得操作更为简便。
stringreg_gender
ifrb_1.checked=truethen
reg_gender="
男"
ifrb_2.checked=truethen
女"
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
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,:
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='
提示"
就诊卡号不能为空！
sle_1.setfocus（）
stringreg_pid,reg_pname,reg_gender,reg_idcard
datereg_birthday
selectPid,Pname,Pgender,Pidcard,Pbirthdayinto:
reg_pid,:
reg_pname,:
reg_idcard,:
reg_birthdayfromTPatientwherePid=:
ifreg_pid="
无当前就诊卡号！
（2）游标技术调入基本信息
挂号科室，医生等值是通过游标技术来实现，挂号科室是在窗口的open事件中从数据库读取业务系统名，医生再通过科室信息那个ddlb的selectchange事件中从数据库根据选择科室的类型读取该科室下的医生的姓名。
stringls_doctor
stringls_did
ls_didfromTDeptmentwhereDpmtname=:
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:
loop
closeget_doc;
2.7科室挂号量查询功能
2.7.1功能概述
用户可以通过该功能来查看当前各科室的挂号量或者所有科室的挂号量以及详细的挂号信息。
2.7.2主要技术要点
（1）实现数据窗口对象的动态加载
在查看界面中只有一个数据窗口，而数据窗口对象根据不同的查询方式实时动态地加载。
dw_1.settransobject（SQLCA）
ifddlb_1.text<
[全部]"
dw_1.retrieve（ls_did）
dw_1.retrieve（"
%"
实现在datasourse设置了查询功能
SELECTtregister.rid,
tregister.pid,
tregister.rtypeid,
tregister.dpmtid,
tregister.did,
tregister.registdate
FROMtregister
WHEREtregister.dpmtidlike:
dpmtid
（2）总的挂号量的统计
通过SQL语句中的Count（*）子句来统计所有科室的挂号量以及各个科室的挂号量
numfromTRegisterwhereDpmtid=:
st_5.text=string（num）
2.8医生信息管理
2.8.1功能概述
该功能模块包括对医生信息的添加和修改，删除以及查询。
查询可以通过输入任何有关医生信息的子集，通过模糊查找即可查找跟该检索信息有关的医生信息
2.8.2主要技术要点
（1）添加，修改，删除的数据库操作
在本应用中采用数据库SQL语句的INSERT子句，UPDATE子句，DELETE子句，并且实现了数据窗口的实时更新，当做了诸如增删改的操作后。
ifrb_1.checked=truethen//将复选框中的选中转换为可输入数据库的字符串
stringreg_deptid
//医生信息插入数据库
insertintoTDoctorvalues（:
sle_1.text,:
ddlb_1.text,:
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=:
（2）信息的模糊查询
数据窗口的过滤条件是可以对字符串型的字段进行过滤的。
对于多个字段的过滤条件是通过OR逻辑关系进行连接。
以此实现多角度的查询。
stringls_filter
iftrim（sle_5.text）="
ls_filter="
Pos（Dname,'
+sle_5.text+"
1）>
0"
orPos（Did,'
orPos（Dpmtid,'
orPos（Dgrade,'
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="
rb_1.checked=true
else
rb_2.checked=true
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
（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型等类型的字段值进行过滤，所以用它检索数字型字段的范
升级会员 