数据库原理及应用课程设计--医院管理系统

1、数据库原理及应用课程设计-医院管理系统 课程设计说明书题 目 医院管理系统学生姓名 丛鑫伟学 院 理学院班 级 信计09-2指导教师 田毅二一二年七月四日内蒙古工业大学课程设计论文任务书课程名称 数据库原理及应用课程设计 学院 理学院 班级 信计09-2学生姓名 丛鑫伟 _ 学号 202120905041 指导教师 田毅 一题目医院管理系统二目的与意义课程设计综合设计的根本教学目的是培养学生综合运用所学知识和技能分析与解决实际问题的能力以及严肃认真的科学态度和严谨求实的工作作风ER图来表示由ER图建立适当的表并按照不同范式的定义对表进行标准化并在数据库管理系统中实现设计的数据库和表第五天到第七

2、天设计功能模块确定每个模块的功能以及各个模块之间的关系第八天到第十天对每个模块进行具体分析确定需要的用户界面以及结构完成软件的整体框架在开发环境下编程实现所开发的系统第十一天到第十二天综合调试去除软件中的bug美化应用程序的界面有能力的学生增加简单的数据校验在线错误处理和在线帮助的功能第十三天和第十五天撰写课程设计报告五主要参考文献郑阿奇主编SQL Server com电子工业出版社2021审核意见系教研室主任签字 指导教师下达时间 2021 年 6月 18日指导教师签字_摘 要医院管理系统是典型的管理信息系统 MIS 其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面对于前者

3、要求建立数据一致性和完整性强数据平安性好的数据库而对于后者那么要求应用程序功能完备易使用等特点计算机化的医院信息系统已成为现代化医院运营必不可少的根底设施与技术支撑环境就好象一个现代化医院的成功运行离不开功能完整美观舒适的建筑物技术娴熟的医护人员性能齐全高精尖的医疗设备一样它也离不开计算机化的医院信息系统经过分析如此情况我们使用VB 数据库等开发工具利用其提供的各种面向对象的开发工具尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象首先在短时间内建立系统应用原型然后对初始原型系统进行需求迭代不断修正和改良直到形成用户满意的可行系统 关键词原型法 面向对象 数据一致性 数据窗口 医院管理系统目

4、录第一章 绪 论121 开发环境231 系统的初步调查533系统总体流程图7第四章 系统设计841 模块设计84 2 功能模块843 数据流图944 数据库设计945 系统界面设计13系统主界面13用户管理界面14药品管理界面19挂号界面21划价界面23第五章 心得体会26参 考 文 献27第一章 绪 论 随着社会化大生产的不断扩大和社会对产品多样化的需求人们越来越重视信息在生产经营及企业管理中的作用并把它当做企业的一种极其重要的资源人们称之为信息资源信息资源的处理已经成为当今世界上一项主要的社会活动同样在医疗系统中也不例外其中加强对门诊信息的管理一方面能更好为病人效劳另一方面能加强对医院效益

5、的监控 本世纪以来由于社会生产力的迅速开展和科学技术的突飞猛进人们进行信息交流的深度和广度不断增加管理所需要的信息量急剧增长同时对信息的处理要求及时准确这导致了传统的信息处理方法和手段已不能适应现代管理的需要电子计算机的诞生和在信息处理中的应用标志着一个崭新时代信息时代的开始它使企业管理现代化成为可能课题目的 当今时代是飞速开展的信息时代在各行各业中离不开信息处理这正是计算机被广泛应用于信息管理系统的环境计算机的最大好处在于利用它能够进行信息管理使用计算机进行信息控制不仅提高了工作效率而且大大的提高了其平安性尤其对于复杂的信息管理计算机能够充分发挥它的优越性计算机进行信息管理与信息管理系统的开

6、发密切相关系统的开发是系统管理的前提本系统就是为了更好管理门诊信息信息而设计的 当前医院作为病人就诊的地方有许多信息需要处理和管理现今有很多门诊信息都是初步开始使用甚至尚未使用计算机进行信息处理根据调查得知他们以前对信息管理的主要方式是基于文本表格等纸介质的手工处理对于医历等很多信息都是用人工计算手抄进行数据信息处理工作量大容易出错由于数据繁多容易丧失且不易查找总的来说缺乏系统标准的信息管理手段 数据处理手工操作工作量大出错率高出错后不易更改基于这此问题我认为有必要建立一个医院管理系统使医院管理工作标准化系统化程序化防止医院管理的随意性提高信息处理的速度和准确性能够及时准确有效的查询和修改医院

7、情况开发门诊管理系统的现实意义现在我国的多数诊所或小型医院的管理水平还停留在纸介质的根底上这样的机制已经不能适应时代的开展因为它浪费了许多人力和物力在信息时代这种传统的管理方法必然被计算机为根底的信息管理所取代 归纳起来好处大约有以下几点1 可以存储以往的门诊信息平安高效2 只需一到二名信息录入员即可操作系统节省大量人力3 可以迅速查到所需信息第二章相关技术介绍21 开发环境本系统采用面向对象的软件开发方法以Microsoft公司的可视开发环境Visual Basic 60作为主要开发工具使用Microsoft Access 2000作为关系数据库并在VB编程语言中采用ADO 数据库编程模型配

8、合功能强大的SQL查询语言实现建立关系数据库访问数据库对数据库的更新较好地实现了预定的需求功能com Visual Basic 60开发环境Visual Basic 60是一种可视化面向对象和采用事件驱动方式的结构化高级程序设计语言可用于开发Windows环境下的各类应用程序它简单易学效率高且功能强大在Visual Basic环境下利用事件驱动的编程机制新颖易用的可视化设计工具使用Windows内部的应用程序接口API函数以及动态链接库DLL动态数据交换DDE对象的链接与嵌入OLE开放式数据连接ODBC等技术可以高效快速地开发出Windows环境功能强大图形界面丰富的应用软件系统总的来看Vis

9、ual Basic有以下主要特点1可视化编程 Visual Basic提供了可视化设计工具把Windows界面设计复杂性封装起来开发人员不必为界面设计而编写大量程序代码只需要按设计要求的屏幕布局用系统提供的工具在屏幕上画出各种部件即图形对象并设置这些图形对象的属性Visual Basic自动产生界面设计代码程序设计人员只需要编写实现程序功能的那局部代码从而可以大大提高程序设计的效率2面向对象的程序设计在一般的面向对象程序设计语言中对象由程序代码和数据组成是抽象的概念而Visual Basic那么是应用面向对象的程序设计方法OOP把程序和数据封装起作为一个对象并为每个对象赋予应有的属性使对象成为

10、实在的东西在设计对象时不必编写建立和描述每个对象的程序代码而是用工具画在界面上Visual Basic自动生成对象的程序代码并封装起来每个对象以图形方式显示在界面上都是可视的3事件驱动编程机制Visual Basic通过事件来执行对象的操作一个对象可能会产生多个事件每个事件都可以通过一段程序来响应例如命令按钮是一个对象用户单击该按钮时将产生一个单击事件而产生该事件时将执行一段程序用来实现指定的操作在用Visual Basic设计大型应用软件时不必建立具有明显开始和结束的程序而是编写假设干个微小的子程序即过程这些过程分别面向不同的对象由用户操作引发某个事件来驱动执行某特定的功能或者由事件驱动程序

11、调用通用过程来执行指定的操作这样可以方便编程人员提高效率4访问数据库Visual Basic系统具有很强的数据库管理功能利用数据控件和数据库管理窗口可以直接建立或处理Microsoft Access格式的数据库并提供强大的数据存储和检索功能同时Visual Basic还能直接编辑和访问其他外部数据Visual Basic提供开放式数据连接Open DataBase Connectivity即ODBC功能它可通过直接访问或建立连接的方式使用并操作后台大型网络数据库如SQL ServerOracle等在应用程序中可以使用结构化查询语言SQL数据标准直接访问Server上的数据库并提供了简单的面向对

12、象的库操作指令多用户数据库访问的加锁机制和网络数据库的SQL的编程技术为单机上运行的数据库提供了SQL网络接口以便在分布式环境中快速而有效地实现客户效劳器方案Visual Basic 60 是专门为Microsoft的32位操作系统设计的可用来建立32位的应用程序在Windows9xWindowsNT或Windows2000环境下用Visual Basic 60的编译器可以自动生成32位应用程序这样的应用程序在32位操作系统下运行速度更快更平安并且更适合在多任务环境下运行com Microsoft Access与 ADO作为应用程序与OLE DB连接的桥梁ActiveX Data Object

13、s ADO 为Visual Basic 60 下开发的应用程序访问本地或远程数据库提供了有效的手段Microsoft ActiveX Data Objects ADO 主要优点是易于使用高速度低内存支出和占用磁盘空间较少ADO 支持用于建立基于客户端效劳器和 Web 的应用程序的主要功能Structure Query Language的缩写是一种用于数据库查询和编程的语言已经成为关系型数据库普遍使用的标准使用这种标准数据库语言对程序设计和数据库的维护都带来了极大的方便广泛地应用于各种数据查询VB和其他的应用程序包括AccessFoxproOrcaleSQL Server等都支持SQL语言SQL

14、语言的常用操作有建立数据库数据表CREATE TABLE如本系统中的学生及成绩备份就用到该语句从数据库中筛选一个记录集SELECT这是最常用的一个语句功能强大能有效地对数据库中一个或多个数据表中的数据进行访问并兼有排序分组等功能在数据表中添加一个记录INSERT删除符合条件的记录DELETE更改符合条件的记录UPDATE VB中的数据库操作对象都提供了对SQL语句的支持其一般的用法是以VB的各种控件接收用户对数据库访问的请求在事件响应程序代码中将其转换成对数据库的SQL查询语句并以字符串的形式存在然后将其传递给相应的数据库操作对象最终完成对数据库的访问第三章 系统分析31 系统的初步调查com

15、 系统的初步调查系统的初步调查目标是在可行性分析的根底上进一步对原有系统进行的调查和分析弄清原有管理信息系统的运行状况发现其薄弱环节找出要解决问题的实质确保新系统比原系统更加有效可靠具体内容包括管理业务状况的调查分析数据流程的调查分析调查之后绘制出医院信息管理系统的业务流程图 查询结果 用户设置 设计要求 表单维护 统计结果comcom 系统逻辑模型的提出 为了实现管理信息系统的计算机化仅仅用业务流程图形象地描述信息的流动和存储还远远不够还要进一步调查分析舍去物质流抽象出信息流绘制出数据流程图并对各种数据的属性和各项处理功能进行详细分析系统分析的主要成果是系统的逻辑模型本系统主要是以数据流图数

16、据字典为主要描述工具来勾画系统的概貌com 数据流图 数据流图Data Flow Diagram是描述系统逻辑模型的主要工具之一它是在对系统的业务流程图进行分析的根底上用少数几种符号综合地反映出信息在系统中的流动存储和处理等情况并能将信息处理功能和彼此之间的联系自上而下逐层分解从逻辑上精确地描述出系统应具有的数据加工功能数据输入输出数据存储数据来源和去向等工程 图 3 1 3 com 数据字典32系统功能调查数据字典Data Dictionary是数据流图DFD上所有成分的定义和解释的文字集合它是系统分析阶段的重要文档它的作用是将数据流图中全部数据流及其组成局部的数据元素数据存储数据加工外部项

17、等通过数据字典描述清楚以便于以后系统设计时使用com 医院管理信息系统的功能 根底数据维护对用户信息的管理药品管理主要对药品类别药品类型及药品信息的管理 挂号病人就医的主流程之一为每一个病人分配一个号码 划价计算药品的价格主要包括中药西药中成药等 门诊收费对各项收费进行汇总如中药西药中成药等 查询对挂号信息收费信息进行查询com 根底数据管理医院设置门诊信息药房信息药品信息常用根底数据药品价格药品数量挂号医师费等com 系统维护功能用户管理包括新增用户删除用户修改用户密码等数据库备份数据操作数据初始化初始化系统数据33系统总体流程图图33 系统总体流程图第四章 系统设计41 模块设计 本系统主

18、要针对医院管理主要有如下功能模块根底数据维护对用户信息的管理药品管理主要对药品类别药品类型及药品信息的管理 挂号病人就医的主流程之一为每一个病人分配一个号码 划价计算药品的价格主要包括中药西药中成药等 门诊收费对各项收费进行汇总如中药西药中成药等 查询对挂号信息收费信息进行查询4 2 功能模块管理信息系统设计阶段的主要目的是将系统分析阶段所提出的反映了用户信息需求的系统逻辑方案转换成可以实施的基于计算机与通信系统的物理技术方案具体要求对系统进行功能分解不断下去直到分解成含义明确功能单一的单元功能模块从而绘制出系统的功能模块图即HIPO图此管理信息系统的HIPO图如下43 数据流图 com 数据

19、流图44 数据库设计数据库设计是要在一个给定的应用环境DBMS中通过合理的逻辑设计和有效的物理设计构造较优的数据库模式子模式建立数据库和设计应用程序满足用户的各种信息需求1概念结构设计在数据库设计中先要对系统分析所得的数据字典中的数据存储进行分析然后得出系统的关系模式可以采用实体联系图简称ER图的方法进行数据结构的描述ER图由实体属性联系三局部组成ER图的有关符号说明如下图 com 用户E-R图 图 com 药品单位E-R图 com 药品类型E-R图 com 科室E-R图 com 医师E-R图 com 药品E-R图实体间主要关系如下 com 实体间主要关系图 2物理结构设计物理结构设计的原那么

20、如下1尽可能的减少数据冗余和重复2结构设计与操作设计相结合3数据结构具有相对的稳定性基于以上设计原那么本系统设计了一个数据库包含根本信息表如药品医师科室等及几个实体联系建模后的表如划价信息表收费信息表等为了加快系统访问的速度把这些表放在一个数据库中本系统中相关数据库表结构设计举例如下用户表p_user密码药品单位med_dw数量6应付款数值应付款7挂号ID数值挂号ID药品划价汇总表hj窗体和控件的属性见表主窗体及控件属性设置控件属性属性取值 Frmmainnamefrmmaincaption门诊收费管理系统startuppositoncenterscreen statusbarnamestat

21、usbar1Panels 1 XbrTextPanels 2 SrDatePanels 3 SbrTime用户管理界面此界面为本系统中较常用的一种界面结构主要由最上方的工具条中间的现有数据显示区及下方的新增内容区 在系统细节主要采用了一个ADOrecordset对象当增加保存时使用了其addnew及post方法当删除某一行数据时使用了其Deletepost方法用户管理窗体的界面如下列图示窗体用一个表格控件msf1exgrid一个工具条控件too1bar两个标签控件table组成各控件的属性如下表 用户管理窗体中各个控件的属性设置 控件 属性 属性取值 FormnameFrm用户管理captio

22、n用户管理startUpPositonCenterScreen Too1barNameToo1bar1Appeatance1-3DBorderstyle1-ccfixedSngleIndex 1增加Index 2删除Index 3修改Index 4退出 MSFlexridgNameDatagrid滚动条 S 3-Both选定模式 M 1-By Row允许用户调整大小 U 3-BothLable1Caption用户名Lable2Caption密码主要实现代码如下 Private Sub Form_Load Call ExcuteSql rec_user "select from p_u

23、ser" Call ShowInfo rec_user flexb End SubPublic Sub ShowInfo ByVal rs As ADODBRecordset ByVal searchList As MSHFlexGrid On Error Resume NextDim SumFields i jSumFields comt 该表的字段总数searchListClear 清空列表防止增加或修改调用时重复显示searchListBackColor HC0FFFF 设置网格背景颜色searchListCols SumFields 设置网格列数searchListRow 0

24、With searchList FillStyle flexFillSingle ScrollTrack True AllowUserResizing flexResizeColumns FixedRows 1 FixedCols 0 SelectionMode flexSelectionByRowEnd With设置第一行的各列标题For i 0 To SumFields - 1 searchListCol i searchListTextMatrix 0 i rsFields i Name searchListColAlignmentFixed i 3 searchListBackColo

25、r H8000000FNext i设置第一行的各列标题文字格式For i 0 To SumFields - 1 searchListCol i searchListCellAlignment 4 searchListCellFontBold True searchListCellForeColor vbBlue j TextWidth rsFields i DefinedSize 8 设置标题宽度防止局部长文字不显示 If j searchListColWidth i Then searchListColWidth i j End IfNext i循环开始-显示所有符合条件记录rsMoveLa

26、stsearchListRows rsRecordCount 1 其中标题占一行rsMoveFirstsearchListRow 0While Not rsEOF searchListRow searchListRow 1 增加一行用于写入内容 For i 0 To SumFields - 1 searchListCol i If searchListCol 0 Then searchListCellBackColor H8000000F End If searchListCellAlignment 4 读入内容 If Not IsNull rsFields i Value Then sear

27、chListText rsFields i Value Else searchListText "" End If Next i rsMoveNextWend循环结束-显示所有符合条件记录End SubPrivate Sub tblOperator_ButtonClick ByVal Button As MSComctlLibButton Select Case ButtonKey Case "add" Call Form3setType "add" Form3Show vbModal Case "modify"

28、Call Form3setType "modify" Form3Show vbModal Case "exit" Unload Me Case "delete" rec_userDelete rec_userUpdate End Select Call ShowInfo rec_user flexb End SubPrivate Sub flexb_DblClick If Not rec_userEOF ThenDim f As New Form3Call fsetType "modify" fShow vbMod

29、alCall ShowInfo rec_user flexb End IfEnd SubPrivate Sub flexb_SelChange Dim strID strFind Call GetFlexGridFirstColValue flexb strID If strID Empty Then strFind "ID " Trim strID If Not rec_userEOF And rec_userBOF Then rec_userMoveFirst rec_userFind strFind 实时的移动记录 DebugPrint "Move to &

30、quot; strID End If End IfEnd Sub药品管理界面本界面主要实现对药品信息的管理如药品编码药品名称型号规格有效期等能进行完备的药品编辑操作各控件的属性如下表 药品管理窗体中各个控件的属性设置 控件 属性 属性取值 FormnameFrm药品管理caption药品管理startUpPositonCenterScreen Too1barNameToo1bar1Appeatance1-3DBorderstyle1-ccfixedSngleIndex 1增加Index 2删除Index 3修改Index 4退出 MSFlexridgNameDatagrid滚动条 S 3-Bo

31、th选定模式 M 1-By Row允许用户调整大小 U 3-BothLable 1Caption药品编码Lable 2Caption药品名称Lable 3Caption型号规格Lable 4Caption单位Lable 5Caption单价Lable 6Caption库存量Lable 7Caption有效期主要代码如下Private Sub tblOperator_ButtonClick ByVal Button As MSComctlLibButton Select Case ButtonKey Case "add" Call Form13setType "ad

32、d" Form13Show vbModal Case "modify" Call Form13setType "modify" Form13Show vbModal Case "exit" Unload Me Case "delete" rec_medDelete rec_medUpdate End Select Call ShowInfo rec_med flexb End SubPrivate Sub flexb_DblClick If Not rec_medEOF ThenDim f As New

33、Form13Call fsetType "modify" fShow vbModalCall ShowInfo rec_med flexb End IfEnd SubPrivate Sub flexb_SelChange Dim strID strFind Call GetFlexGridFirstColValue flexb strID If strID Empty Then strFind "ID " Trim strID If Not rec_medEOF And rec_medBOF Then rec_medMoveFirst rec_medFi

34、nd strFind 实时的移动记录 DebugPrint "Move to " strID End If End IfEnd Sub挂号界面挂号是系统主要流程的第一步它的主要功能是为病人人分配一个唯一的编号在以后的流程中这个编号即挂的号为划价收费的根底在具体的实现中在医师输入框后放置了一命令按钮方便用户快速的查找医师的信息医师的信息也是以后查询医师的业绩的主要标识挂号窗体中放置了一个组合框控件两个命令按钮三个标签和两个文本框各控件的属性见下表 挂号窗体控件属性表 控件属性属性取值 FormNameFrm挂号Caption挂号startUpPsitonCenterScree

35、nTextBoxName医师TextBoxName挂号费ComboBoxNameCmb类型 CommandButton NameCmdSaveCaption保存CommandButtonNameCmdCancelCaption退出Lable1Caption类型Lable2Caption医师Lable3Caption挂号费主要代码如下Private Sub Command1_Click Dim c_gl As StringIf Trim Text1 "" ThenText1SetFocusEnd IfIf t_ "add" And Text1Text &q

36、uot;init" Thenc_gl Now c_gl Replace c_gl "-" "" c_gl Replace c_gl "" "" c_gl Replace c_gl " " "" Call ExcuteSql rec_gh "select from med_gl" If rec_ghState adStateOpen Thenrec_ghAddNewrec_ghFields "类型" Trim Combo1Tex

37、t rec_ghFields "医师ID" Trim Text1 rec_ghFields "挂号费" Trim Text3 rec_ghFields "编号" Trim c_gl rec_ghUpdateMsgBox "你的挂号号码" c_gl Text1 "init"Text2 ""Text3 ""End IfEnd IfIf t_ "modify" ThenIf rec_ghState adStateOpen Thenrec_gh

38、Fields "类型" Trim Combo1Text rec_ghFields "医师ID" Trim Text1 rec_ghFields "挂号费" Trim Text3 rec_ghUpdaterec_ghUpdateEnd IfEnd IfIf ckValue 1 ThenUnload MeEnd IfEnd Sub划价界面 所谓的划价就是将医生所给的药品清单以系统中拟定的价格计算应收款的过程主要包括医人的挂号信息药品信息等在实现上要求用户首先选择一挂号信息然后翻开此编号对应的划价的信息用户可以增加也可以在已有的根底上进行修

39、改和删除 药品划价窗体如下列图所示该窗体由一个表格控件十个文本框控件三个按钮控件十一个标签控件和一个组合控件组成各控件的属性如下表 药品划价窗体控件属性表控件属性属性取值 FormNameFrm部门信息Caption部门信息startUpPositonCenterScreen MSFlexgridNameDatagrid滚动条 S 3-Both选定模式 M 1-By Row允许用户调整大小 U 3-BothCommandButtonCaption增加CommandButtonCaption删除CommandButtonCaption翻开TextBoxNameTxt类型TextBoxNameTx

40、t医师TextBoxNameTxt编号TextBoxNameTxt药品编码TextBoxNameTxt药品名称TextBoxNameTxt型号规格TextBoxNameTxt数量TextBoxNameTxt总计TextBoxNameTxt预付TextBoxNameTxt找补Lable1Caption类型Lable2Caption医师Lable3Caption编号Lable4Caption药品编码Lable5Caption药品名称Lable6Caption型号规格Lable7Caption数量Lable8Caption 总计Lable9Caption预付Lable10Caption类型主要代码如下Private Sub Command5_Click 翻开按钮对应代码If Text10Text "init" ThenCall ExcuteSql rec_hj "select from hj where 类型 " Combo2Text "and 挂号ID " Text10 If rec_hjRecordCount 0 Thenrec_hjAddNewrec_hjFields "类型" Combo2Textrec_hjFields "挂号ID" Text10rec_hjF