医院管理信息系统课程设计

..----《管理信息系统》课程设计报告医院HIS管理系统班 级：姓 名学 号：指导教师：目 录第一章 系统概述 3第二章 系统分析 3：需求分析… 3：可行性分析… 4：组织结构分析… 5：业务流程分析… 5：数据流程分析… 82.6：数据字典… 10第三章系统设计… 113.1：开发工具的选择… 123.2：处理流程… 123.3：总体结构… 123.4：E-R图… 133.5：输入设计… 163.6：输出设计… 173.7：软件结构… 173.8：数据库设计… 19第四章系统实施… 22：登录工作台操作… 22：登陆数据库… 224.3：部分代码… 23第五章结束语… 26一．系统概述0绵阳市第二大综合医院。医院编制床位670张，开放床位1100张。人员编制739104650眼耳鼻咽喉科、药学部、影像科、医学超声、医学检验、病理等。眼耳鼻咽喉科、药学部、影像科、医学超声、医学检验、病理等。管理医院所有数据。用的的read公司的HIS系统，配套oracle数据库和另外几个附加的软件一起管理医院所有数据。医院信息系统（HISHospitalInformationSystem）是指利用计算机软硬件技术、网络通讯技术等现代化手段，对医院及HIS二.系统分析方法来表达新系统的逻辑方案，建立新系统的逻辑模型。：需求分析一所医院的主要构成分为两个部分，一是门诊部门，二是住院部门，医院的所有日常工作都是围绕着这两大部门进行的。主任医师、普通医师或教授、副教授、其他之分。为了支持这两大部门的工作，医院还设置了药库、中心药房、门诊药房、制行政部门等。：可行性分析在分析设计之前，本文先对绵阳404医院HIS医院管理系统做如下可行性分析：：技术可行性为了使平台具有更好的实用性和安全性，本平台基于当今广泛使用的Windows7oracle,服务器选用了微软公司的IISWDreamweaver：经济可行性oracle，这两个软件已经是市面上比较常见，技术上比较成熟的两个：管理可行性理上可行。：组织结构分析404HIS医院管理系统的组织结构图，如图所示。医院管理系统医院管理系统药品管理人员管理挂号管理就诊开方药品采购权限认证与授权部门管理用户管理角色管理资源管理证：业务流程分析等。规定的符号及连线来表示某个具体业务处理过程。绵阳404医院HIS医院管理系统的业务流程图如图所示：：门诊业务流程图初诊病人初诊病人IC卡复诊病人就诊排号预约挂号预交金,结帐病历管理划价,收费暂存款不足处方审核,配药,发药取药开处方,检查,检验单药品申领电子病历操作药品库存管理病案检索检查检验药品出库接受检查申请接受检验申请药品入库回填检查结果回填检验结果药品管理检查记账检验记账..从另一病区转入 转至另一病区入院入院入科登记病人基本信息排床转床转科预交款、记账结账录入维护执行医嘱出院出科办理出院手续出院登记手术处理手术申请手术通知2.4.2：住院业务流程安排手术日程打印发药科室寄药图：麻醉纪录术中医嘱药品申领寄药回收材料、器械记账药品库存管理药品出库接受检查申请接受检验申请药品入库回填检查结果回填检验结果药品管理--检查记账检验记账..----：数据流程分析404HIS医院管理系统的数据流程分析，得到以下数据流程图，如图所示。：数据字典数据结构：处方信息含义说明：定义了病人病情及相关结果。组 成：病人姓名、性别、日期、门诊号、处方号、病史、病况及方。数据项：日期含义说明：病人就诊时间。取值方法：病人挂号时系统的日期和时间。数据项：门诊号含义说明：病人看病的类别及次序。取值方法：挂号时自动生成。数据项：处方号取值范围：000001~999999取值方法：由电脑自动生成数据项：病史含义说明：病人曾经的得病记录数据项：病况含义说明：病人目前的得病情况数据项：处方含义说明：医生根据病人的得病情况做出的诊断数据结构：划价单含义说明：药品价格合计组 成：项目名称、规格、数量、单价、库存数量、所属部门合计金额。数据项：项目名称含义说明：唯一标识药品的数据项，不能重名。数据项：规格含义说明：该药品对应的型号和类别。数据项：数量含义说明：记录药品的多少。数据项：单价含义说明：该药品在计量单位下的价格。数据项：库存数量含义说明：描述该药品在药库中的多少。数据项：所属部门含义说明：该种药品所属类别。数据项：合计金额含义说明：病人所需付的药品费用总和。取值方法：合计金额=单价1*数量1+单价2*数量2数据结构：收费单含义说明：病人付款凭证组 成：项目名称、规格、数量、单价、库存数量、所属部门所付金额。数据项：项目名称含义说明：唯一标识药品的数据项，不能重名。数据项：规格含义说明：该药品对应的型号和类别。数据项：数量含义说明：记录药品的多少。数据项：单价含义说明：该药品在计量单位下的价格。数据项：库存数量含义说明：描述该药品在药库中的多少。数据项：所属部门含义说明：该种药品所属类别。数据项：所付金额含义说明：病人所实付的药品费用总和。数据结构：门诊药房售药报表含义说明：每隔一定时间送给药库管理系统的售药情况表。组 成：药品编号、药品名称、规格、单价、售药数量/售药剂量数据项：药品编号含义说明：唯一标识该药品的关键域。取值方法：由药品条形码标识数据项：售药数量/售药剂量含义说明：某种药品一定时间内售出的数量或剂量类 型：数字三：系统设计系统设计的基本目标就是要使所设计的系统必须满足系统逻辑模型的各项可变更性、系统的通用性、系统的可靠性。：开发工具的选择PTeeLr，Access2000VB.NET和oracle：处理流程系统启动时，激活身份验证模块；..置各全局变量；模块；各项功能执行完毕后重新进入消息循环系统状态；由关闭系统事件激活关闭系统模块，退出系统。医院管理系统挂号划医院管理系统挂号划价收费药房药库--财住门医师系务院诊护士统处系系人员维理统统管护划修收发价改费药划价单..----：E-RE-R实体及相应的属性：实体及相应的属性门诊医师(医师号,科室、工作时间,姓名,专业技术职称,性别,出生日期,年龄,婚姻状况,职业,出生地,民族,身份证号,国籍,住址,电话,邮政编码,户口地址,备注)挂号单(挂号号、挂号类别、挂号日期、挂号科室、主治医师、病人姓名)处理方案（处理方案号、开出时间、处理方案内容、主治医师，病人姓名）门诊病历（病历号、病人姓名、病历内容、诊断时间、主治医师）处方（处方号、处方内容、主治医师、病人姓名、病人性别、病人年龄、附注（）门诊病人(病人号,姓名,性别,出生日期,年龄,婚姻状况,职业,出生地,民族,身份证号,国籍,工作单位及地址,电话,邮政编码,户口地址,联系人姓名,联系人地址,联系人关系，是否住院,联系人电话);检验项目（果，检验收费情况）检查项目（果、检查收费情况）工作时间安排（工作时间、所属科室、主治医师）E-R实体及相应的属性：病人(身份证号,姓名,出生日期,性别,年龄,婚姻状况,职业,出生地,民族,国籍,工作单位及地址,电话,邮政编码,户口地址,联系人姓名,联系人地址,联系人电话,是否住院)住院病人(住院号,姓名,入院科别,入院时间)住院医生(姓名,医师编号,所属科室,是否当值)院日期,住院天数,交费方式)住院处方(处方号,诊断序号,处方内容,主治医师,病人姓名,住院号,附注)手术项目(手术序号,诊断序号,手术名称,手术室号,病人姓名,住院号,主刀医师,手术日期,麻醉方式,切口情况,手术持续时间,手术结果)E-R实体及属性：供应商：{供应商号，地址，电话，信贷状况}；订 单订单号供应商号订货项数订货日期交货日期生产地点药 品：{小类编号，品名，规格，单位，数量，单价，金额，生产日期，保质期}；药 库：{药库号，负责人，类别，面积}；药品请领单：{编号，领用单位，药品名称，规格，领药量，单价，金额}。：输入设计的方式有许多优点。满足操作员不同的需求。无需记忆药品的价格。如发现输入处方错误可按“删除”键进行修改。：输出设计输出方式按照实际需要设计，如门诊划价单、门诊收费单等。：软件结构：顶层数据流院长院长病人门诊处理系统会计处理系统药库处理系统药库处理系统：二层数据流图院长院长会计处理系门诊划价系药库处理系会计处理系门诊划价系药库处理系门诊门诊病人门诊：三层数据流图：数据库设计表3-1用户表（user）列名注释类型长度是否为空是否主键Userid用户编码Int×√Username用户名称Varchar2200××Password密码Varchar2200××secrecy安全问题Varchar2100××secrecyanswer安全答案Varchar2200××Email电子邮件Varchar2200××Credits积分Varchar2200××RegetimeRegip注册时间注册IPDateVarchar2200××××logtimeslastlogip登录次数上次登录IPIntVarchar2200××××lastlogtimeNickname最后登陆时间昵称DateDate××××..----表3-2角色表列名注释类型长度是否为空是否主键Roleid角色编码Int×√Rolename角色名称Varchar2200××Description描述Varchar21024××Masterid创建这个角色用户IDInt××Mastername创建这个角色用户名称Varchar2200××Createdate创建日期Date××表3-3资源表列名Moduleid注释资源编码类型Int长度是否为空×是否主键√Moduleme资源名称Varchar2200××Description描述Varchar21024××Parentid父节点编码Int××Isleaf是否叶子节点Int××表3-4用户角色映射列名注释类型长度是否为空是否主键id编码Int×√Userid用户编码Varchar2200××Username用户姓名Varchar21024××Roleid角色编码Int××Rolename角色姓名Varchar2200××pirororder优先顺序Int××表3-5角色自由映射列名注释类型长度是否为空是否主键id编码Int×√moduleid资源编码Varchar2200××modulename资源名称Varchar21024××Roleid角色编码Int××Rolename角色姓名Varchar2200××privilege权限Int××extendrole是否继承角色1 继承0不继承Int××princialtype主体类型varchar220××表3-6药材表Table3-6medicinetable列名注释类型长度是否为空是否主键idName药材编码名称IntVarchar200××√×PricePress价格生产地VarcharInt1024××××Description描述Varchar200××TypeType类型Varchar200××表4-3采购表Table3-7caigouTable列名注释类型长度是否为空是否主键IdKahao挂号编码挂号编码IntVarchar200××√×Cretetime挂号时间Createtime××Lururen录入人Varchar200××Kaiyaocontent开药内容Varchar200××Descripiton描述Varchar2000表3-8挂号表Table3-8predoctortable列名注释类型长度是否为空是否主键id编码Int×√Name名称Varchar200××Age年龄Varchar1024××BirthplaceKeshi籍贯科室DatetimeVarchar200××××Createtimesex录入时间性别DatetimeVarchar200××××Descrioption描述Varchar2000××Yuyue预约Varchar200××四．系统实施：登录工作台操作登录页面的功能主要是供合法的用户根据自己的用户类型进行登录。绵阳404医院HIS系统登录模块运行的结果如下图所示。：登陆数据库：部分代码oracleDimoleDbConnection1AsOleDb.OleDbConnectionDimstrConnectAsString="Provider=MSDAORA;DataSource=hisser;UserID=hrip;Password=123456;"oleDbConnection1=NewSystem.Data.OleDb.OleDbConnection(strConnect)oleDbConnection1.Open()oracleSQL查找select字) fromdict_emplyeewhererownum<10 (empname='ddd')select*fromFACILITY_DETAILforupdateselect*fromdict_employeeewheree.empnamelike'李%静'selectDOORfromFACILITY_DETAILwhererownum<20select*fromdict_employeedwhered.loginname='SYS'删除deletefromdict_emplyeewhere...delete fromFACILITY_DETAIL whereserialnumber='667'更新updatedict_emplyeesetempname='ddd' where...updateFACILITY_DETAILfdsetDOOR='sgwsgsd' wherefd.serialnumber='667'插入insertintodict_emplyee(empname)values('ddd')where...insertintoFACILITY_DETAIL(DOOR)VALUES('财务部')用户更改密码代码'名称：病人帐户密码确认界面'说明：'*****************************************************************************************ImportsRDNET.DataImportsRDNET.UTIL.HISImportsRDNET.UTIL.HIS.CTL.PASImportsRDNET.UTIL.HIS.ENT.PASImportsRDNET.UTIL.HIS.FCTL.PASImportsRDNET.UTIL.HIS.FENT.PASImportsRDNET.TOOLS.FORMS.FORMImportsRDNET.TOOLS.FORMS.CONTROLPublicClassfrmAccountCheckPasswordInheritsSystem.Windows.Forms.FormPrivatemTranobjAscCardsAccountManagePrivatemAccountPasswordAsString#Region"Windows窗体设计器生成的代码"PublicSubNew()MyBase.New()'该调用是Windows窗体设计器所必需的。InitializeComponent()'在InitializeComponent()调用之后添加任何初始化EndSub'窗体重写处置以清理组件列表。ProtectedOverloadsOverridesSubDispose(ByValdisposingAsBoolean)IfdisposingThenIfNot(componentsIsNothing)Thencomponents.Dispose()EndIfEndIfMyBase.Dispose(disposing)EndSub'Windows窗体设计器所必需的PrivatecomponentsAsSystem.ComponentModel.IContainer'注意：以下过程是Windows窗体设计器所必需的'可以使用Windows窗体设计器修改此过程。'不要使用代码编辑器修改它。FriendWithEventsbtnCancelAsSystem.Windows.Forms.ButtonFriendWithEventsbtnOkAsSystem.Windows.Forms.ButtonFriendWithEventstxtPasswordEnterAsRDNET.TOOLS.FORMS.CONTROL.RDLabelTextFriendWithEventstxtPasswordCheckAsRDNET.TOOLS.FORMS.CONTROL.RDLabelText<System.Diagnostics.DebuggerStepThrough()>PrivateSubInitializeComponent()Me.txtPasswordEnter=NewRDNET.TOOLS.FORMS.CONTROL.RDLabelTextMe.txtPasswordCheck=NewRDNET.TOOLS.FORMS.CONTROL.RDLabelTextMe.btnCancel=NewSystem.Windows.Forms.ButtonMe.btnOk=NewSystem.Windows.Forms.ButtonMe.SuspendLayout()''txtPasswordEnter'Me.txtPasswordEnter.Distance=NewDecimal(NewInteger(){0,0,0,0})Me.txtPasswordEnter.HelpDispPos=RDNET.TOOLS.FORMS.CONTROL.cInputHelp.FormDispPosEnum.fdpCenterMe.txtPasswordEnter.LabelTextType=RDNET.TOOLS.FORMS.CONTROL.EnumLabelTextType.NormalMe.txtPasswordEnter.LabelValue="密 码"Me.txtPasswordEnter.Location=NewSystem.Drawing.Point(4,8)Me.txtPasswordEnter.Margin=NewDecimal(NewInteger(){0,0,0,0})Me.txtPasswordEnter.Name="txtPasswordEnter"Me.txtPasswordEnter.Size=NewSystem.Drawing.Size(188,25)Me.txtPasswordEnter.TabIndex=0Me.txtPasswordEnter.TextHeight=NewDecimal(NewInteger(){21,0,0,0})''txtPasswordCheck'Me.txtPasswordCheck.Distance=NewDecimal(NewInteger(){0,0,0,0})Me.txtPasswordCheck.HelpDispPos=RDNET.TOOLS.FORMS.CONTROL.cInputHelp.FormDispPosEnum.fdpCenterMe.txtPasswordCheck.LabelTextType=RDNET.TOOLS.FORMS.CONTROL.EnumLabelTextType.NormalMe.txtPasswordCheck.LabelValue="密码确认"Me.txtPasswordCheck.Location=NewSystem.Drawing.Point(4,40)Me.txtPasswordCheck.Margin=NewDecimal(NewInteger(){0,0,0,0})Me.txtPasswordCheck.Name="txtPasswordCheck"Me.txtPasswordCheck.Siz