搜索
成绩评定表学生姓名班级学号专业信息与计算科学课程设计题目病人住院管理系统评语组长签字：成绩日期2013年12月日课程设计任务书学院专业学生姓名班级学号课程设计题目病人住院管理系统实践教学要求与任务:通过集中性的编程训练，使学生系统的掌握如何将客观实际问题与计算机的算法对应起来，如何将客观信息与数据的逻辑结构和存储结构对应起来，将理论概念的学习转变成能够使用计算机高级语言解决实际问题的方法。要求学生做好预习，掌握设计过程中涉及到的算法，按设计流程编程，上机调试通过，验证结果并进行分析、完成论文。工作计划与进度安排:第15周：系统需求分析，设计E-R模型、逻辑模型，数据库设计和模块设计进行部分软件编码设计，实现各模块功能第16周：继续完成软件设计，调试与完善系统各项功能书写课程设计报告。验收与答辩。工作计划与进度安排:第一天：查阅文献第二天：程序设计第三、四天：程序实现第五天：论文写作、答辩指导教师：2013年12月1日专业负责人：2013年12月1日学院教学副院长：2013年12月1日摘要随着医院病人管理的日趋复杂和住院人员的增多，医院的病人管理变得越来越复杂。规范的医院病人管理是医院提高管理效益的重要保证，而传统的人工管理存在着效率低、不易统计、成本高和易出错等弊端，已经无法适应医院的需求。随着计算机技术和通信技术的迅速发展，将传统的人工管理计算机化，建立一个高效率的、无差错的住院病人管理系统，能够有效的帮助医院完成病人的住院情况，使医院的管理水平登上一个新的台阶。本系统采用VB+SQLServer开发。通过数据源管理工具把已创建的数据源与系统数据库相连，后台数据库采用sqlserve2008数据库，前台程序开发工具采用微软的VB6.0，实现了医院住院病人管理功能。关键词住院病人管理系统；SQL；数据库目录1系统功能概述...........................................................................................................................51.1系统的功能：...................................................................................................................51.2系统结构图：...................................................................................................................52数据库设计...............................................................................................................................62.1需求分析：.........................................................................................................................62.2表的结构设计：.................................................................................................................62.3E-R图：...........................................................................................................................113系统各功能模块的详细设计.................................................................................................123.1系统各窗体的设计：.......................................................................................................123.2系统功能使用简介：.......................................................................................................20总结................................................................................................................................................21参考文献.........................................................................................................................................221系统功能概述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图：病人姓名性别年龄电话住院医院医生n1住院日期出院日期住院费用身高血型病房号病人科室药品3系统各功能模块的详细设计3.1系统各窗体的设计：图3.1.11.此窗体设立了一个ADODC控件，以便访问和操作数据库，本控件连到数据库的密码表。以下各窗体除了主窗体外都有此控件来实现与数据库的连接。登陆窗体的源代码如下：DimmiCountAsIntegerPrivateSubCommand1_Click()IfTrim(Text1.Text)=ThenMsgBox用户名不能为空！,vbOKOnly+vbExclamation,警告Text1.SetFocusElseIfTrim(Text2.Text)=ThenMsgBox密码不能为空！,vbOKOnly+vbExclamation,警告Text2.SetFocusElseAdodc1.RecordSource=select*from普通密码表where用户名='&Trim(Text1.Text)&'and密码='&Trim(Text2.Text)&'Adodc1.RefreshIfAdodc1.Recordset.EOFThenMsgBox用户名或密码不正确，请重新输入！,vbOKOnly+vbExclamation,警告Text1.Text=Text2.Text=Text1.SetFocusElseForm2.ShowForm2.查询.Enabled=TrueUnloadMeEndIfEndIfmiCount=miCount+1IfmiCount=3ThenUnloadMeEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand3_Click()Form10.ShowEndSubPrivateSubForm_Load()EndSub图3.1.22.主窗体用菜单编辑器编辑菜单，是客户更轻松进入要看的窗体，源代码如下：PrivateSub病房信息_Click()Form4.ShowEndSubPrivateSub病人费用信息_Click()Form7.ShowEndSubPrivateSub病人信息_Click()Form4.ShowEndSubPrivateSub管理员用户_Click()Form3.ShowEndSubPrivateSub护士_Click()Form4.ShowEndSubPrivateSub科室_Click()Form4.ShowEndSubPrivateSub门诊挂号_Click()Form9.ShowEndSubPrivateSub手术安排_Click()Form4.ShowEndSubPrivateSub药品_Click()Form8.ShowEndSubPrivateSub医生信息_Click()Form4.ShowEndSub其中，浏览窗体，分别为住院病人信息、病人费用信息、医生信