病房管理系统.docx
- 文档编号:2186144
- 上传时间:2022-10-27
- 格式:DOCX
- 页数:22
- 大小:654.74KB
病房管理系统.docx
《病房管理系统.docx》由会员分享,可在线阅读,更多相关《病房管理系统.docx(22页珍藏版)》请在冰豆网上搜索。
病房管理系统
成绩评定表
学生姓名
班级学号
专业
信息与计算科学
课程设计题目
病人住院管理系统
评
语
组长签字:
成绩
日期
2013年12月日
课程设计任务书
学院
专业
学生姓名
班级学号
课程设计题目
病人住院管理系统
实践教学要求与任务:
通过集中性的编程训练,使学生系统的掌握如何将客观实际问题与计算机的算法对应起来,如何将客观信息与数据的逻辑结构和存储结构对应起来,将理论概念的学习转变成能够使用计算机高级语言解决实际问题的方法。
要求学生做好预习,掌握设计过程中涉及到的算法,按设计流程编程,上机调试通过,验证结果并进行分析、完成论文。
工作计划与进度安排:
第15周:
系统需求分析,设计E-R模型、逻辑模型,数据库设计和模块设计
进行部分软件编码设计,实现各模块功能
第16周:
继续完成软件设计,调试与完善系统各项功能
书写课程设计报告。
验收与答辩。
工作计划与进度安排:
第一天:
查阅文献第二天:
程序设计第三、四天:
程序实现
第五天:
论文写作、答辩
指导教师:
2013年12月1日
专业负责人:
2013年12月1日
学院教学副院长:
2013年12月1日
摘要
随着医院病人管理的日趋复杂和住院人员的增多,医院的病人管理变得越来越复杂。
规范的医院病人管理是医院提高管理效益的重要保证,而传统的人工管理存在着效率低、不易统计、成本高和易出错等弊端,已经无法适应医院的需求。
随着计算机技术和通信技术的迅速发展,将传统的人工管理计算机化,建立一个高效率的、无差错的住院病人管理系统,能够有效的帮助医院完成病人的住院情况,使医院的管理水平登上一个新的台阶。
本系统采用VB+SQLServer开发。
通过数据源管理工具把已创建的数据源与系统数据库相连,后台数据库采用sqlserve2008数据库,前台程序开发工具采用微软的VB6.0,实现了医院住院病人管理功能。
关键词住院病人管理系统;SQL;数据库
目录
1系统功能概述5
1.1系统的功能:
5
1.2系统结构图:
5
2数据库设计6
2.1需求分析:
6
2.2表的结构设计:
6
2.3E-R图:
11
3系统各功能模块的详细设计12
3.1系统各窗体的设计:
12
3.2系统功能使用简介:
20
总结21
参考文献22
1系统功能概述
1.1系统的功能:
住院病人管理系统是利用计算机根据医生信息、医院病房信息、病人住院信息建立的,用vb6.0开发实现。
该系统能够进行住院院病人的注册、病人住院基本信息的浏览,能够按病人姓名、科室代码、病人编号或者电话等条件查询病人住院基本信息。
1.2系统结构图:
2数据库设计
2.1需求分析:
本系统是根据医院的病房情况和病人住院情况对病人进行登记和编辑的系统。
首先设计数据库时,需要知道所需信息:
病人的基本信息,包括姓名、性别、年龄、电话;医院的信息病人编号、病房号、病人费用等;病人住院则导致两实体之间有联系着建立一个住院的信息包括病人姓名、编号、年龄、费用、科室等。
在根据病人来建立一个普通用户密码表,使得每个病人有个自己登陆的账号密码,而且外来用户还可以通过注册新用户来登录系统。
并且病人离院时,我们可以通过该系统对病人住院费用进行结算等功能。
2.2表的结构设计:
1、病人费用信息表
创建病人费用信息表
createtable病人费用信息
(
病人编号char(8)primarykey,--病人编号
病人姓名char(8),--病人姓名
病人性别char
(2),--性别
病人年龄char
(2),--病人年龄
费用类型char
(2),--费用类型
科室代码char(8)--科室代码
)
2、病人信息表
创建病人信息表
createtable病人信息表
(
病人编号char(8)primarykey,--病人编号
科室代码char(8),--科室代码
病人姓名char(8)notnull,--病人姓名
病人性别char(4),--性别
病人年龄char(8),--病人年龄
身高char(8),--身高
血型varchar(4),--血型
电话varchar(20)--联系电话
)
3、病人用药信息表
病人用药情况表
createtable病人用药信息
(
病人编号char(8)primarykey,--病人编号
药品编号char(8),--药品编号
药品名称char(8),--药品名称
病人姓名char(8),--病人姓名
剂型char(8),--剂型
类别char(40),--类别
用药时间char(10)--用药时间
)
4、科室表
创建科室表
createtable科室
(
科室代码char(8)primarykey,--科室代码
科室名称char(20)notnull,--科室名称
病房编号char(8),--病房编号
床位数char(20),--床位数
科室主任char(8)--科室主任编号
)
5、药品信息表
创建药品表
createtable药品
(
药品编号char(8)primarykey,--药品编号
名称char(8),--名称
数量varchar(8),--计量单位
单价varchar(8),--单价
剂型char(8),--剂型
类别char(10)--类别
)
6、医生信息表
创建医生表
createtable医生信息
(
医生编号char(8)primarykey,--医生编号’
医生姓名char(8)notnull,--医生姓名
医生性别char
(2),--性别
医生年龄char(10),--年龄
科室代码char(8),--科室代码
学历char(20)--学历
)
7、密码表
createtable用户密码
(
用户名char(8),
密码char(8)
)
2.3E-R图:
n
1
3系统各功能模块的详细设计
3.1系统各窗体的设计:
图3.1.1
1.此窗体设立了一个ADODC控件,以便访问和操作数据库,本控件连到数据库的密码表。
以下各窗体除了主窗体外都有此控件来实现与数据库的连接。
登陆窗体的源代码如下:
DimmiCountAsInteger
PrivateSubCommand1_Click()
IfTrim(Text1.Text)=""Then
MsgBox"用户名不能为空!
",vbOKOnly+vbExclamation,"警告"
Text1.SetFocus
ElseIfTrim(Text2.Text)=""Then
MsgBox"密码不能为空!
",vbOKOnly+vbExclamation,"警告"
Text2.SetFocus
Else
Adodc1.RecordSource="select*from普通密码表where用户名='"&Trim(Text1.Text)&"'and密码='"&Trim(Text2.Text)&"'"
Adodc1.Refresh
IfAdodc1.Recordset.EOFThen
MsgBox"用户名或密码不正确,请重新输入!
",vbOKOnly+vbExclamation,"警告"
Text1.Text=""
Text2.Text=""
Text1.SetFocus
Else
Form2.Show
Form2.查询.Enabled=True
UnloadMe
EndIf
EndIf
miCount=miCount+1
IfmiCount=3ThenUnloadMe
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubCommand3_Click()
Form10.Show
EndSub
PrivateSubForm_Load()
EndSub
图3.1.2
2.主窗体用菜单编辑器编辑菜单,是客户更轻松进入要看的窗体,源代码如下:
PrivateSub病房信息_Click()
Form4.Show
EndSub
PrivateSub病人费用信息_Click()
Form7.Show
EndSub
PrivateSub病人信息_Click()
Form4.Show
EndSub
PrivateSub管理员用户_Click()
Form3.Show
EndSub
PrivateSub护士_Click()
Form4.Show
EndSub
PrivateSub科室_Click()
Form4.Show
EndSub
PrivateSub门诊挂号_Click()
Form9.Show
EndSub
PrivateSub手术安排_Click()
Form4.Show
EndSub
PrivateSub药品_Click()
Form8.Show
EndSub
PrivateSub医生信息_Click()
Form4.Show
EndSub
其中,浏览窗体,分别为住院病人信息、病人费用信息、医生信息等浏览窗体,住院病人信息表浏览窗体如下:
图3.1.3
系统管理员登陆时如下:
图3.1.4
添加删除界面如图:
图3.1.5
图3.1.6
其代码如下:
PrivateSubCmdAdd_Click()
Adodc1.Recordset.AddNew
CmdAdd.Enabled=False
CmdDel.Enabled=False
CmdOk.Enabled=True
CmdEsc.Enabled=True
IfLen(Text)>0Then
Adodc1.Refresh
IfAdodc1.Recordset.RecordCount=0Then
MsgBox("没有满足条件的信息!
")
Adodc1.Refresh
EndIf
Else
MsgBox("请添加查询信息!
")
EndIf
EndSub
PrivateSubCmdOK_Click()
Adodc1.Recordset.Update
CmdAdd.Enabled=True
CmdDel.Enabled=True
CmdOk.Enabled=False
CmdEsc.Enabled=False
EndSub
PrivateSubCmdDel_Click()
X=MsgBox("确实要删除当前记录吗?
",vbYesNo+vbQuest
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 病房 管理 系统