医院信息管理系统.docx
《医院信息管理系统.docx》由会员分享，可在线阅读，更多相关《医院信息管理系统.docx（25页珍藏版）》请在冰豆网上搜索。
医院信息管理系统
医院管理信息系统设计
设计主要内容：
一、开发平台：
VB+SQLSERVER2000
二、功能要求：
1、设计内容
设计一个医院管理信息系统，该系统的用户由一般用户和管理员组成，然后不同的用户拥有不同的权限，各自完成各自的管理功能，首先是欢迎界面，然后选择登陆，登录的时候首先要判断用户的身份，合法的用户然后进入到系统的主界面中，不同的用户看到不同的系统功能。
用sqlsever2000创建后台数据库，然后利用程序设计语言（VB）编写程序实现对数据库的操作，按照要求完成所有的功能和模块。
2、医院管理信息系统主要功能
（1）用户管理：
用户登录界面，用户注册界面，病人资料登记界面（添加，打印等），职工资料查询界面（一定条件），门诊挂号登记界面（添加，打印等），病人资料查询界面（一定条件），病院病床查询界面（一定条件），药剂信息查询界面（添加，打印等），药剂信息选购界面（选购），科室界面（查询），本用户密码的修改界面
（2）管理员管理：
管理员登录界面，管理员注册界面，职工资料管理界面（添加，修改，删除），病人资料管理界面（增加，修改，删除），用户信息管理界面（添加，删除），病院病床管理界面（修改，删除），病院病床管理界面（添加，修改，删除），药剂管理界面（修改，删除），科室管理（修改，删除）。
3、医院管理信息系统数据库表单
（1）用户信息表单：
用户名，密码，用户身份（管理员和普通用户）
（2）职工信息表单：
员工号，所属科室，员工姓名，性别，现任职务，出身年月，开始工作时间，年龄，工资，科室编号，备注
（3）病人信息表单：
病人编号，病人姓名，病人性别，，病人年龄，职业，登记日期，证件号码，过敏史，体重，血型，联系电话，家庭住址，婚姻状况。
（4）科室表单：
科室名称，地点，员工号，科室主任，病房数，是否显示
（5）病院病床表单：
病床代号，所属科室，是否空闲
（6）药品信息表单：
药品编号，药品名称，规格名称，计量单位，单价，主治症状
（7）医疗仪器管理表单：
仪器代号，仪器名称，仪器价格，仪器数量
（8）门诊挂号表：
编号，病人编号，姓名，性别，挂号科室，费用类型，挂号费用，是否已划价
三、课程设计报告主要内容：
1医院管理信息系统需求分析（给出系统的功能模块图，对各个功能作出详细介绍）
2医院管理信息系统界面设计（给出界面截图及其主要控件的属性设置表格）
3医院管理信息系统数据库设计（给出数据库各个表单中数据的字段名，数据类型
及其相应的说明）
4医院管理信息系统程序设计（按照功能模块给出详细的程序代码，并给出重点语句
注释）
1.轿车销售管理信息系统需求分析
图1.1医院管理信息系统
1.1欢迎登陆界面
1.1.1选中管理员登录后便进入管理员登陆界面
1.1.2选中用户登陆后便进入用户登陆界面
1.1.3选中新用户注册后便进入用户注册界面，管理员注册
1.2管理员界面
可以进行职工资料管理，病人资料管理，病院病床管理，药剂资料管理，科室信息管理，医疗仪器管理，用户信息管理。
1.2.1职工资料管理
利用VB界面，管理员可以查询职工资料信息，添加信息，更新信息，删除
记录，从而改变了数据库中的信息。
1.2.2病人资料管理
管理员可以查询，修改，删除，添加病人资料，在VB界面中修改了数据库中的信息。
1.2.3病院病床信息管理
管理员可以根据需要对病床使用的情况进行查询，添加，删除和更新，从而改变数据库中的信息。
1.2.4药剂资料管理管理
管理员可以根据需要对药剂的情况进行添加，删除和更新，从而改变数
据库中的信息。
1.2.5科室信息管理
管理员可以根据需要对科室信息的情况进行删除和更新，从而改变数
据库中的信息。
1.2.6医疗仪器管理
管理员可以根据各种库存的医疗仪器进行添加，查询，更新，删除，从而改变数据库中的信息。
1.2.7用户信息管理
管理员可以添加，删除，更新，查询各用户的信息，从而改变数据库中的信息。
1.3用户界面
用户可以查看病院病床信息、药剂信息查询，，药剂选购，科室信息查询，门诊挂号登记，职工信息查询，病人信息登记，用户密码修改
1.3.1医疗信息查询
用户进入界面后可看到病院病床信息，药剂信息，，药剂选购，科室信息。
1.3.2门诊挂号登记
进入界面后用户挂号登记。
1.3.3人员信息查询
用户进入界面后可看到所有工作人员的信息和可以查询，并且科根据病人的证件号码查询病人信息。
1.3.4本用户密码修改
用户通过输入和确认新密码来更改自己的密码。
2．医院信息管理系统界面设计
图2.1欢迎登陆界面
图2.2用户登陆界面
图2.3管理员登陆界面
、
图2.4新用户注册界面
图2.5管理员注册界面
图2.6管理员服务界面
图2.7用户服务界面
图2.8用户密码修改界面
表2.1用户密码修改界面属性表
对象
属性
设置值
Label1
caption
修改密码
Label2
caption
旧密码
Label3
caption
新密码
Label4
caption
新密码确认
图2.9药剂选购界面
表2.2药剂选购界面属性表
对象
属性
设置值
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
yaojixinxi
visible
false
Label1
Caption
类型选择
Label1
Caption
购买数量
Label1
Caption
您的总金额
Label1
Caption
商品选购及结算
Label1
Caption
RMB
图2.10科室信息查询界面
表2.2科室信息查询界面属性表
对象
属性
设置值
dadagrid
datasource
Adodc1
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
keshixinxi
visible
false
Option1
Caption
员工号
Option2
Caption
主任
Label1
Caption
查询条件
frame
Caption
科室信息查询
图2.11病人资料登记界面
表2.3病人资料界面属性表
对象
属性
设置值
dadagrid
datasource
Adodc1
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
bingrenziliao
visible
false
Label1
Caption
姓名
Label2
Caption
性别
Label3
caption
患者编号
Label4
Caption
年龄
Label5
caption
体重
Label6
Caption
血型
Label7
Caption
证件号码
Label8
Caption
职业
Label9
Caption
婚姻状况
Label10
Caption
联系电话
Label11
Caption
联系地址
Label12
Caption
登记日期
Label13
Caption
过敏史
frame
Caption
病人信息登记
图2.12职工信息查询界面
表2.4职工信息界面属性表
对象
属性
设置值
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
职工信息
visible
false
Option1
Caption
姓名
Option2
Caption
员工表
Label1
caption
查询条件
Label2
caption
姓名
Label3
caption
性别
Label4
caption
员工号
Label5
caption
科室编号
Label6
caption
科室
Label7
caption
年龄
Label8
Caption
职务
Label9
Caption
备注
Label0
Caption
工资
Label1
Caption
入职时间
Label2
caption
请输入查询条件
图2.13病人信息查询界面
表2.5病人信息查询界面属性表
对象
属性
设置值
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
Bingrenziliao
visible
false
Label1
Caption
病人信息中心
Label2
Caption
姓名
Label3
Caption
年龄
Label4
Caption
性别
Label5
Caption
病号
Label6
Caption
登记日期
Label7
caption
家庭住址
Label8
caption
职业
Label9
caption
联系电话
Label10
caption
婚姻状况
Label11
caption
血型
Label12
caption
体重
Label13
caption
过敏史
图2.14门诊挂号登记界面
表2.6门诊挂号登记界面属性表
对象
属性
设置值
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
guahao
visible
false
Label1
caption
病人编号
Label2
caption
编号
Label3
caption
姓名
Label4
caption
挂号科室
Label5
caption
性别
Label6
caption
时间
Label7
caption
费用类型
Label8
caption
挂号费用
Label9
caption
医生
Label10
caption
是否划价
图2.15科室信息管理界面
表2.7科室信息管理界面属性表
对象
属性
设置值
dadagrid
datasource
Adodc1
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
keshixinxi
visible
false
Label1
caption
科室信息管理
Label2
caption
科室名称
Label3
caption
科室编号
Label4
caption
员工号
Label5
caption
病房数
Label6
caption
科室地点
Label7
caption
系主任
图2.16用户信息管理界面
表2.8用户信息管理界面属性表
对象
属性
设置值
dadagrid
datasource
Adodc1
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
User1
visible
false
Label1
caption
用户名
Label2
caption
密码
Label3
caption
用户类型
图2.17病人资料管理界面
表2.9病人资料管理界面属性表
对象
属性
设置值
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
Bingrenziliao
visible
false
Label1
Caption
病人信息中心
Label2
Caption
姓名
Label3
Caption
年龄
Label4
Caption
性别
Label5
Caption
病号
Label6
Caption
登记日期
Label7
caption
家庭住址
Label8
caption
职业
Label9
caption
联系电话
Label10
caption
婚姻状况
Label11
caption
血型
Label12
caption
体重
Label13
caption
过敏史
图2.18药品资料管理界面
表2.10药品资料管理界面属性表
对象
属性
设置值
dadagrid
datasource
Adodc1
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
Yaojixinxi
visible
True
Label1
caption
药品编号
Label2
Caption
药品规格
Label3
caption
caption药品名称
Label4
Caption
药品数量
Label5
Caption
主治症状
Label6
Caption
单价
Label7
caption
所属药房
图2.19管理员密码修改界面
表2.11管理员密码修改界面属性表
对象
属性
设置值
Label1
caption
管理员修改密码中心
Label2
caption
旧密码
Label3
caption
新密码
Label4
caption
新密码确认
3．医院管理信息系统数据库设计
医院管理信息管理系统总共涉及8张表，分别是用户信息表，病床信息表，病人资料表，挂号登记表，科室信息表，药剂信息表，仪器管理信息表和员工信息表。
表3.1用户信息表
字段名称
标始名称
数据类型
是否允许为空
字段说明
用户名
用户名
Char
否
主码
密码
密码
nvarChar
否
身份
身份
Char
是
表3.2病床信息表
字段名称
标始名称
数据类型
是否允许为空
字段说明
病床代号
病床代号
Int
否
主码
所属科室
所属科室
Char
是
是否空闲
是否空闲
Char
是
表3.3病人资料信息表
字段名称
标始名称
数据类型
是否允许为空
字段说明
姓名
姓名
Int
否
年龄
年龄
samllint
是
性别
性别
chai
是
登记日期
登记日期
datetime
是
证件号码
证件号码
nvarChar
是
病号
病号
int
否
主码
家庭住址
家庭住址
nvarChar
是
联系电话
联系电话
Char
是
过敏史
过敏史
nvarChar
是
职业
职业
nvarChar
是
婚姻状况
婚姻状况个
Char
是
血型
血型
Char
是
体重
体重
char
是
表3.4挂号登记表
字段名称
标始名称
数据类型
是否允许为空
字段说明
编号
编号
Int
否
主码
病人编号
病人编号
Char
是
姓名
姓名
Char
是
性别
性别
Char
是
挂号科室
挂号科室
nvarChar
是
费用类型
费用类型
Char
是
挂号费用
挂号费用
Float
是
医生
医生
Char
是
时间
时间
datetime
是
是否划价
是否划价
Char
是
表3.5科室信息表
字段名称
标始名称
数据类型
是否允许为空
字段说明
科室名称
科室名称
nvarChar
否
地点
地点
nvarChar
是
员工号
员工号
Int
是
外码
科室编号
科室编号
Char
是
主码
科室主任
科室主任
Char
是
病房数
病房数
int
是
表3.6药剂信息表
字段名称
标始名称
数据类型
是否允许为空
字段说明
药品编号
药品编号
Int
否
主码
药品名称
药品名称
nvarchar
否
规格名称
规格名称
Char
是
单价
单价
Char
是
主治症状
主治症状
nvarchar
是
所属药房
所属药房
Char
是
药品数量
药品数量
flaot
是
表3.7仪器信息表
字段名称
标始名称
数据类型
是否允许为空
字段说明
仪器代号
仪器代号
Int
否
主码
仪器名称
仪器名称
nvarChar
是
仪器价格
仪器价格
Char
是
仪器数量
仪器数量
int
是
所属科室
所属科室
nvarChar
是
表3.8员工信息表
字段名称
标始名称
数据类型
是否允许为空
字段说明
员工号
员工号
int
否
主码
姓名
姓名
Char
是
性别
性别
Char
是
年龄
年龄
Smallint
是
所属科室
所属科室
nvarChar
是
现任职务
现任职务
nvarChar
是
开始工作时间
开始工作时间
datetime
是
工资
工资
float
是
科室编号
科室编号
int
否
外码
备注
备注
nvarChar
是
4．医院管理信息系统程序设计（部分代码）
4.1欢迎界面
欢迎界面是整个系统的首页，用户可通过它进入到登陆系统。
4.2登陆界面
进入此界面后，使用者可根据自己的身份选择登陆方式。
普通用户选择用户登陆，管理员选择管理员登陆。
4.3用户登陆和新用户注册界面程序设计
普通用户在此界面输入自己的姓名和密码通过验证后方可进入下一个界面。
部分重要代码如下
PrivateSubCommand1_Click（）
DimstrselectnameAsString
DimstrAsString
DimstrselectpasswordAsString
str=Trim（Text1.Text）
strselectname="select用户名fromuser1where用户名="&"'"&str&"'"
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=chenyan;DataSource=（local）"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource=strselectname'从用户信息表中查询所有的用户姓名
Adodc1.Refresh
IfAdodc1.Recordset.EOF=TrueThen
ret=MsgBox（"姓名错误！
",48,"warming!
"）'如果用户输入的姓名与用户信息表中姓名不一致，就会出现该对话框提醒用户重新输入
Text1.Text=""
Text2.Text=""
ExitSub
EndIf
strselectpassword="select密码fromuser1where用户名="&"'"&Trim（Text1.Text）&"'"
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=chenyan;DataSource=（local）"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource=strselectpassword
Adodc1.Refresh
IfTrim（Adodc1.Recordset.Fields（"密码"）.Value）<>Trim（Text2.Text）Then
ret=MsgBox（"密码错误！
",48,"warming!
"）'如果用户输入的密码与用户信息表中的密码不一致就会出现该对话框
Text2.Text=""
Text2.SetFocus
ExitSub
Else
'Text1.Text=""
'Text2.Text=""
form2.Hide
form1.Show
EndIf
EndSub
PrivateSubCommand2_Click（）
Text1.Text=""
Text2.Text=""
EndSub
PrivateSubCommand3_Click（）
Text1.Text=""
Text2.Text=""
form2.Hide
Form20.Show
EndSub
PrivateSubForm_Load（）
Text1.Text=""
Text2.Text=""
EndSub
新用户还可以通过此界面进行注册，新用户只要输入自己的姓名，注册密码并确认注册便可以成功注册，同时该用户的信息也被写入到了用户信息表中（部分代码如下）
PrivateSubCommand1_Click（）
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=chenyan;DataSource=（local）"
Adodc1.CommandType=adCmdTable
Adodc1.RecordSource="select用户名fromuser1where用户名='"&Trim（Text1.Text）&"'"
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen
MsgBox"用户名已经存在！
请重新输
升级会员 