病房管理系统

1、成 绩 评 定 表学生姓名班级学号专 业信息与计算科学课程设计题目病人住院管理系统评语组长签字：成绩日期2013 年 12 月 日课程设计任务书学 院专 业学生姓名班级学号课程设计题目病人住院管理系统实践教学要求与任务:通过集中性的编程训练，使学生系统的掌握如何将客观实际问题与计算机的算法对应起来，如何将客观信息与数据的逻辑结构和存储结构对应起来，将理论概念的学习转变成能够使用计算机高级语言解决实际问题的方法。要求学生做好预习，掌握设计过程中涉及到的算法，按设计流程编程，上机调试通过，验证结果并进行分析、完成论文。工作计划与进度安排:第15周：系统需求分析，设计E-R模型、逻辑模型，数据库设计

2、和模块设计进行部分软件编码设计，实现各模块功能第16周： 继续完成软件设计，调试与完善系统各项功能书写课程设计报告。验收与答辩。工作计划与进度安排:第一天：查阅文献 第二天：程序设计 第三、四天 ：程序实现第五天：论文写作、答辩指导教师： 2013年 12月1日专业负责人：2013年 12月1日学院教学副院长：2013年 12月1日摘 要随着医院病人管理的日趋复杂和住院人员的增多，医院的病人管理变得越来越复杂。规范的医院病人管理是医院提高管理效益的重要保证，而传统的人工管理存在着效率低、不易统计、成本高和易出错等弊端，已经无法适应医院的需求。随着计算机技术和通信技术的迅速发展，将传统的人工管理

3、计算机化，建立一个高效率的、无差错的住院病人管理系统，能够有效的帮助医院完成病人的住院情况，使医院的管理水平登上一个新的台阶。 本系统采用VB + SQL Server开发。通过数据源管理工具把已创建的数据源与系统数据库相连，后台数据库采用sqlserve2008数据库，前台程序开发工具采用微软的VB6.0，实现了医院住院病人管理功能。关键词 住院病人管理系统；SQL；数据库目录1系统功能概述51.1 系统的功能：51.2系统结构图：52数据库设计62.1需求分析：62.2表的结构设计：62.3E-R图：113系统各功能模块的详细设计123.1系统各窗体的设计：123.2系统功能使用简介：20

4、总结21参考文献221 系统功能概述1.1 系统的功能：住院病人管理系统是利用计算机根据医生信息、医院病房信息、病人住院信息建立的，用vb6.0开发实现。该系统能够进行住院院病人的注册、病人住院基本信息的浏览，能够按病人姓名、科室代码、病人编号或者电话等条件查询病人住院基本信息。1.2 系统结构图：病人住院管理系统开始数据处理模块开始注 册开始用户登录模块病人用药信息病人信息病人费用普通用户登录模块管理员登录模块添加开始删除开始查询开始病人费用信息病人费用信息结算开始病人基本信息病人信息病人基本信息浏览退 出开始2 数据库设计2.1 需求分析：本系统是根据医院的病房情况和病人住院情况对病人进行

5、登记和编辑的系统。首先设计数据库时，需要知道所需信息：病人的基本信息，包括姓名、性别、年龄、电话；医院的信息病人编号、病房号、病人费用等；病人住院则导致两实体之间有联系着建立一个住院的信息包括病人姓名、编号、年龄、费用、科室等。在根据病人来建立一个普通用户密码表，使得每个病人有个自己登陆的账号密码，而且外来用户还可以通过注册新用户来登录系统。并且病人离院时，我们可以通过该系统对病人住院费用进行结算等功能。2.2 表的结构设计：1、病人费用信息表创建病人费用信息表create table 病人费用信息(病人编号 char(8) primary key , -病人编号病人姓名 char(8), -

6、病人姓名病人性别 char(2), -性别病人年龄 char(2), -病人年龄费用类型 char(2), -费用类型科室代码 char(8) -科室代码)2、 病人信息表创建病人信息表create table 病人信息表( 病人编号 char(8) primary key, -病人编号 科室代码 char(8), -科室代码 病人姓名 char(8) not null, -病人姓名 病人性别 char(4), -性别 病人年龄 char(8), -病人年龄 身高 char(8), -身高 血型 varchar(4), -血型 电话 varchar(20) -联系电话 ) 3、 病人用药信息表

7、病人用药情况表create table 病人用药信息(病人编号 char(8) primary key , -病人编号药品编号 char(8), -药品编号药品名称 char(8), -药品名称病人姓名 char(8), -病人姓名剂型 char(8), -剂型类别 char(40), -类别用药时间 char(10) -用药时间 )4、 科室表创建科室表create table 科室( 科室代码 char(8) primary key, -科室代码科室名称 char(20) not null, -科室名称病房编号 char(8), -病房编号床位数 char(20), -床位数科室主任 ch

8、ar(8) -科室主任编号) 5、 药品信息表创建药品表create table 药品( 药品编号 char(8) primary key, -药品编号名称 char(8), -名称数量 varchar(8), -计量单位单价 varchar(8), -单价剂型 char(8), -剂型类别 char(10) -类别)6、医生信息表创建医生表create table 医生信息(医生编号 char(8) primary key, -医生编号医生姓名 char(8) not null, -医生姓名医生性别 char(2), -性别医生年龄 char(10), -年龄科室代码 char(8), -科

9、室代码学历 char(20) -学历)7、密码表create table 用户密码(用户名 char(8) , 密码 char(8) )2.3 E-R图： 身高姓名 性别 年龄 电话血型病 人n住院日期住 院住院费用出院日期1 医 院病 人 病房号医 生 科室 药 品3 系统各功能模块的详细设计3.1 系统各窗体的设计：图1.此窗体设立了一个ADODC控件，以便访问和操作数据库，本控件连到数据库的密码表。以下各窗体除了主窗体外都有此控件来实现与数据库的连接。登陆窗体的源代码如下：Dim miCount As IntegerPrivate Sub Command1_Click()If Trim(

10、Text1.Text) = "" ThenMsgBox "用户名不能为空！", vbOKOnly + vbExclamation, "警告"Text1.SetFocusElseIf Trim(Text2.Text) = "" ThenMsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告"Text2.SetFocusElseAdodc1.RecordSource = "select * from 普通密码表 where 用户名

11、='"& Trim(Text1.Text) &"' and 密码='"& Trim(Text2.Text) &"'"Adodc1.RefreshIf Adodc1.Recordset.EOF ThenMsgBox "用户名或密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"Text1.Text = ""Text2.Text = ""Text1.SetFocusEl

12、seForm2.ShowForm2.查询.Enabled = TrueUnload Me End IfEnd If miCount = miCount + 1 If miCount = 3 Then Unload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Form10.ShowEnd SubPrivate Sub Form_Load()End Sub图2.主窗体用菜单编辑器编辑菜单，是客户更轻松进入要看的窗体，源代码如下：Private Sub 病房信息_Click()For

13、m4.ShowEnd SubPrivate Sub 病人费用信息_Click()Form7.ShowEnd SubPrivate Sub 病人信息_Click()Form4.ShowEnd SubPrivate Sub 管理员用户_Click()Form3.ShowEnd SubPrivate Sub 护士_Click()Form4.ShowEnd SubPrivate Sub 科室_Click()Form4.ShowEnd SubPrivate Sub 门诊挂号_Click()Form9.ShowEnd SubPrivate Sub 手术安排_Click()Form4.ShowEnd Sub

14、Private Sub 药品_Click()Form8.ShowEnd SubPrivate Sub 医生信息_Click()Form4.ShowEnd Sub其中，浏览窗体，分别为住院病人信息、病人费用信息、医生信息等浏览窗体，住院病人信息表浏览窗体如下：图系统管理员登陆时如下：图添加删除界面如图：图图其代码如下：Private Sub CmdAdd_Click()CmdAdd.Enabled = FalseCmdDel.Enabled = FalseCmdOk.Enabled = TrueCmdEsc.Enabled = TrueIf Len(Text) > 0 ThenAdodc1

15、.RefreshIf = 0 Then MsgBox ("没有满足条件的信息！") Adodc1.Refresh End IfElseMsgBox ("请添加查询信息!")End IfEnd SubPrivate Sub CmdOK_Click()CmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub CmdDel_Click()X = MsgBox("确实要删除当前记录吗？", vb

16、YesNo + vbQuestion, "确认")If X = vbYes Then If Adodc1.Recordset.EOF Then End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub CmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub Command1_Click()Form6.ShowEnd SubPri

17、vate Sub Command2_Click()Form6.ShowEnd SubPrivate Sub Form_Load()Combo1.AddItem "男"Combo1.AddItem "女"End Sub图按条件查询界面其代码如下：Private Sub Combo1_Change()If KeyCode = vbKeyReturn Then Text1.SetFocusEnd SubPrivate Sub Command1_Click()If Len(Text1.Text) > 0 ThenAdodc1.RecordSource =

18、"select * from 病人信息表 where (病人信息表."& Combo1.Text &" like + '" + Text1.Text + "'+'%')" '1Adodc1.Refresh If = 0 Then MsgBox ("没有满足条件的信息！") Adodc1.Refresh End IfElseMsgBox ("请添加查询信息!")End IfEnd SubPrivate Sub Command2_Click()

19、Form11.ShowForm6.HideEnd SubPrivate Sub Command3_Click()Form11.ShowForm6.HideEnd SubPrivate Sub Form_Load() Combo1.AddItem "病人姓名" Combo1.AddItem "科室代码" Combo1.AddItem "病人编号" Combo1.AddItem "电话"Combo1.Text = Combo1.List(0)End Sub图出院时病人费用结算界面代码：Dim miCount As In

20、tegerPrivate Sub Cmdzhuce_Click()Dim sqlstr As StringDim strcode As StringDim strsure As StringDim strname As Stringsqlstr = Text1.Textstrname = sqlstrIf sqlstr = "" Then MsgBox "请输入病人编号！", vbExclamation, "提示" Text1.SetFocus Exit SubElseAdodc1.RecordSource = "Selec

21、t * from 病人费用信息 where 病人编号='"& Text1 &"'"End Ifstrcode = Trim(Text2.Text)strsure = Trim(Text3.Text)equ = StrComp(strcode, strsure)If Text2 = "" Then MsgBox "病人姓名不能为空！", vbExclamation, "请重新输入" Text2.SetFocusElse Adodc1.Recordset.Fields("病人编号") = Text1 Adodc1.Recordset.Fields("病人姓名") = Trim(Text2) Adodc1.Recordset.Fields("费用") = Trim(Text3) MsgBox "成功！", vbInformation, "错误"End IfEnd SubPrivate Sub CmdCancel_Click()Unload MeEnd SubPrivate S