MIS课程设计报告诊所系统.docx

MIS课程设计报告诊所系统.docx

《MIS课程设计报告诊所系统.docx》由会员分享，可在线阅读，更多相关《MIS课程设计报告诊所系统.docx（46页珍藏版）》请在冰豆网上搜索。

MIS课程设计报告诊所系统

西安郵電學院

MIS课程设计报告书

（诊所系统分析设计）

系部名称

：

信息与管理工程系

学生姓名

：

杨杰

专业名称

：

信息管理与信息系统

班级

：

信管0801班

时间

：

2011年3月14日-2011年12月26日

目录：

一.可行性分析…………………………………………………………………4

二.系统分析部分………………………………………………………………4

1.业务流程图………………………………………………………………5

2.数据流程图………………………………………………………………5

3.功能分析图………………………………………………………………6

4.数据字典…………………………………………………………………7

5.数据加工处理的描述……………………………………………………8

6.管理信息系统流程设想图………………………………………………9

三.系统设计部分

1.功能结构图设计…………………………………………………………9

2.新系统信息处理流程设计………………………………………………9

3.输出设计（主要指打印输出设计）………………………………………9

4.存储文件格式设计（数据库结构设计）…………………………………9

5.输入设计（主要指数据录入卡设计）……………………………………12

6.代码设计（职工证号和部门代号等）……………………………………14

7.程序设计说明书…………………………………………………………14

四.系统实施部分

1.程序框图…………………………………………………………………14

2.源程序……………………………………………………………………18

3.模拟运行数据……………………………………………………………71

4.打印报表…………………………………………………………………72

5.系统使用说明书…………………………………………………………72

五.附录或参考资料

信管专业

2008级MIS课程设计任务书

1设计任务

1.1设计目的

通过本次设计，要求同学们能够将所学到的信息系统分析方法与软件设计技术及方法综合运用到实际信息系统的分析与设计中，提高同学们对软件的综合分析与设计能力，主要包括对数据的分析、组织能力，数据的提取、处理能力；软件结构的分析设计，复杂界面与输入输出设计能力；学习常用软件开发工具的使用。

1.2设计要求

结合所学习的系统分析与设计的具体方法，应用程序设计的基本知识和数据库知识进行详细的系统分析设计。

具体要求如下：

1、学习进行相对复杂数据的分析与设计，建立合理的数据模型。

2、学习使用VB的数据环境设计器和数据报表设计器进行报表输出设计。

3、学习使用visio工具进行常用软件图形的绘制。

4、进一步熟练进行软件系统的界面设计，深入掌握界面设计元素。

5、提供相应的软件设计报告。

报告要求有系统的需求分析、系统流程图、数据流程图、软件结构图、数据库设计说明和软件说明书。

6、提供与设计报告相一致的软件系统。

7、每四人为一个课题组，自由组合，检查相应的小组讨论，讨论结果计入平时成绩。

8、报告书写规范见附件。

2系统分析

2.1系统分析概述

系统分析就是根据系统调查中获得的原始资料，对用户组织内部整体管理状况和信息处理堆积进行分析，确定用户需求，并建立系统逻辑模型的过程，着重于信息系统“做什么”，而不是“怎么做”。

本部分就是在这个基础上对系统业务流程和系统数据流程图进行分析。

2.2可行性分析

2.2.1目标方案的可行性

随着计算机性能的不断提高，计算机化的医院信息系统已成为现代化医院运营过程中必不可少的基础设施与技术支撑环境。

医院信息系统利用电子计算机和通信设备为医院所属各部门提供病人诊疗信息和行政管理信息的收集、存储、处理、提取和数据交换的能力，并满足所有授权用户的所有功能需求。

2.2.2经济可行性

现在，计算机的价格已经十分低廉，性能却有了长足的进步。

而本系统的开发，为医院的工作效率带来了一个质的飞跃，为此主要表现有以下几个方面：

第一，本系统的运行可以代替人工进行许多繁杂的劳动；

第二，本系统的运行可以节省许多资源；

第三，本系统的运行可以大大的提高医院的工作效率；

第四，本系统可以使敏感文档更加安全，等等。

所以，本系统在经济上是可行的。

2.2.3技术可行性

本系统的开发利用MicrosoftSQLServer2000作为本系统的数据库，它是一个支持多用户的新型数据库，适用于大中规模的数据量需求。

学校校园网的建设也为新系统服务器/客户端的结构提供了硬件的支持。

使用VisualBasic6.0作为系统开发的开发环境，它作为一种现代的编程语言，提供完善的指令控制语句、类与对象的支持及丰富的数据类型，给开发高性能系统提供的保障为开发满足客户要求的系统，保证了代码的模块化要求，而代码模块化的提高，非常有利于以后对新系统的扩展与修改。

综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足的，因此，它在技术上是可行的。

2.2.4运行可行性

本系统为一个小型的诊所管理系统，所耗费的资源非常的小，诊所的电脑无论是硬件还是软件都能够满足条件，因此，本系统在运行上是可行的。

2.3系统需求分析

由于本系统设计针对小区诊所的具体情况，因此用户需求的目的是通过该小区诊所的需求调查，从中总结出诊所对管理信息系统的需求，然后根据这些需求设计出系统的方案。

诊所管理分为前台管理系统和后台管理系统两部分，诊所前台系统主要负责挂号、划价、收费工作，后台管理系统主要负责药品、库存信息的查询、门诊挂号的统计、以及病人资料的管理，系统的维护等工作。

所以该系统由基础维护、门诊管理、院长查询三大模块组成。

其中基础维护包括药品信息维护和收费项目维护，门诊管理包括挂号管理、划价管理、收费管理和药房发放，院长查询包括科室挂号量和库存统计。

2.4业务流程图

2.5数据流程图

2.6系统组织结构分析图

2.7业务流程分析

2.8数据流程分析

根据上述的业务流程，对其中的数据处理、数据存储以及数据流动过程进行抽象，得到了系统的逻辑模型，即系统的数据流程图。

2.9数据字典

药品库存表

编号

库房

药品编号

药品数量

备注

1

中药房

1001

10

2

中药房

1002

5

3

中药房

1003

31

4

中药房

1004

35

药品资料表

编号

名称

单价

分类

费用归类

拼音码

有效期

1001

青霉素

5

西药

西药类

QMS

3

1002

北豆根

12

西药

西药类

BDG

5

1003

止痛片

2

西药

西药类

ZTP

5

1004

感叹号

9

西药

西药类

GTH

5

门诊划价表

编号

科室

划价编号

医生

划价时间

划价员

20100000002

内科

20100000002

张为

2010-6-6

张三

20100000003

检查科

20100000003

李虹

2010-6-6

张三

20100000004

外科

20100000004

王新新

2010-6-6

张三

20100000012

内科

20100000012

郝燕丽

2010-6-6

张三

门诊划价明细表

编号

划价编号

药品编号

单价

数量

金额

4

20100000001

1002

12

3

36

2

20100000001

2004

3

1

3

3

20100000001

2002

3

1

3

5

20100000011

1002

12

1

12

2.10系统各模块详细的业务流程图

3系统设计

3.1系统设计概述及设计原则

系统设计阶段是开发管理信息系统的关键环节之一,因此它的工件质量直接影响到新系统的稳定性、可靠性、精确性和运行费用的高低。

所以，整个系统设计过程的各项工作都必须按照科学的方法和原则进行。

系统设计原则：

1）系统运行安全可靠，稳定性好；

2）系统的可管理性和可维护性好；

3）系统输入界面友好，操作简便易行，尽量减少用户的输入工作量；

4）允许多种数据输入方式，能实现多种查询，允许进行模糊查询；

5）数据具有规范性，整体性，方便数据之间的比较分析。

3.2系统设计模块

◆权限管理

主要是用户的等级和权限的划分。

分３级用户：

管理员用户、院长用户、普通用户，权限可以自定义添加和删除。

◆门诊挂号管理

建立和维护病人的索引信息，分配病人的ID号，确保病人信息的唯一性，为病人建立就诊卡，对门诊病人进行挂号，为门诊病人的后续活动以及门诊工作量统计提供信息。

◆门诊划价收费管理

用于门诊收费处记录病人的缴费信息，并执行相应的统计核算功能。

门诊划价用于完成门诊病人的各种处方、检查申请、治疗申请等诊治费用的计价工作；门诊收费用于完成门诊病人各种各种诊治费用的收取工作，能够依据划价单查询病人划价信息，进行费用收取处理，并保存操作记录备查。

◆药房管理

用于管理医院药房的采购、入库及出库等业务。

◆打印报表

可以打印病人的药品明细单和收费票据。

3.3编码设计

编码是指代表事物名称、属性、状态等的符号，它以简短的符号形式代替具体的文字说明。

如中国邮政编码采用了一种6位的编码来表示省市、地区等信息。

设计出一个好的编码方案对系统的开发工作具有重要作用。

1、编码能反映数据或信息间的逻辑关系，并使其具有唯一性。

2、信息编码化便于利用计算机进行信息或数据的识别和处理。

3、利用编码可以节省计算机课的存储空间、提高运行速度。

4、利用编码可以提高系统的可靠性。

常用的编码主要有顺序码、区间码、助记码和缩写码。

下面对商品编号的编码设计进行介绍。

代码名称：

商品编号代码类型：

区间码代码长度：

8位

前三位代表类别,后五位为内部顺序码。

3.4输入/输出设计

系统输入/输出（I/O）设计是在系统设计中很容易被忽视的环节，又是一个很重要的环节，它对于用户和今后系统使用的方便和安全可靠性来说都是非常重要的。

一个好的输入系统设计可以为用户和系统双方带来良好的工作环境，一个好的输出系统可以为管理者提供简洁、明了、实用的管理和控制信息。

输入设计包括输入方式设计、用户界面设计。

在本系统中，输入几乎都是采用键盘输入，键盘输入与用户界面设计是紧密联系在一起的。

设计时本着方便用户的原则，主要采用了以下措施：

（1）注意保证各个模块的输入格式一致，方便用户使用不同的模块。

（2）严格的检错措施。

尽量减少用户的输入，以减少出错羁旅；对用户的输入内容作空格、非法字符等检验。

（3）使用菜单方式，使得条例清晰、逻辑性强。

（4）关键性的强调和警告：

对于数据库的更新、删除及用户登录等操作，利用提问的方式来帮助用户进一步来帮助用户进一步确认操作的有效性。

一个好的输出设计不仅可以赢得用户的好评，更重要的是可以为用户提供简洁、明了、有效、实用的管理和控制信息。

为适应诊所日常管理的需要提供对内对外的报告和单据，本系统主要采用屏幕输出和打印输出。

屏幕输出主要是满足日常管理的需要，用于查询结果的显示；而打印输出主要是为了提供对内对外的报告和单据。

4系统实施

4.1系统配置

（1）硬件环境CPU赛扬1.2，内存64Mb以上，硬盘3G以上。

（2）软件环境各种操作系统，如：

windows98/windowsxp/windos2000。

4.2系统菜单

系统菜单包括门诊管理、院长查询、项目信息、帮助。

门诊管理包含门诊挂号、门诊划价、门诊收费和药品发放子菜单：

院长查询包括科室挂号量、药品库存子菜单；项目信息包括药品库存和药品信息子菜单。

4.3系统窗口及源代码

登陆界面，代码如下：

PrivateSubbtnExit_Click（）

UnloadMe

EndSub

PrivateSubbtnLogin_Click（）

DimPsw1,Psw2,Psw3AsString

Psw1="user"

Psw2="lead"

Psw3="admin"

IfComboUser.Text="用户"Then

IftxbPsw.Text=Psw1Then

Me.Hide

frmAbout.Show

Else

MsgBox"密码错误！

"

txbPsw.Text=""

EndIf

QuanXian=1

EndIf

IfComboUser.Text="院长"Then

IftxbPsw.Text=Psw2Then

Me.Hide

frmAbout.Show

Else

MsgBox"密码错误！

"

txbPsw.Text=""

EndIf

QuanXian=2

EndIf

IfComboUser.Text="管理员"Then

IftxbPsw.Text=Psw3Then

Me.Hide

frmAbout.Show

Else

MsgBox"密码错误！

"

txbPsw.Text=""

EndIf

QuanXian=3

EndIf

DimdbAsNewDatabases

DimstrSQLAsString

strSQL="insertinto登录信息（用户类型编号,登录时间）values（'"

strSQL=strSQL+Trim（QuanXian）+"','"

strSQL=strSQL+CStr（Date）+"'）"

db.RunSelectSQL（strSQL）

EndSub

PrivateSubForm_Load（）

ComboUser.AddItem（"用户"）

ComboUser.AddItem（"院长"）

ComboUser.AddItem（"管理员"）

EndSub

PrivateSubTimer1_Timer（）

Label4.Caption=Format（Now,"AMPM（hh:

mm:

ss）"）

EndSub

所有用户进入系统简介界面

代码如下：

PrivateSubCommand1_Click（）

Me.Hide

frmMain.Show

EndSub

点击确定，进入系统主界面

代码如下：

PrivateSubmnCash_Click（）

DimfrmAsNewfrmCash

IfQuanXian=3Then

frm.Show

Else

MsgBox"你无权查看此信息！

"

EndIf

EndSub

PrivateSubExit_Click（）

End

EndSub

PrivateSubmnGHL_Click（）

DimfrmAsNewfrmGHL

IfQuanXian=1Then

MsgBox"你无权查看此信息！

"

Else

frm.Show

EndIf

EndSub

PrivateSubmnGuaHao_Click（）

DimfrmAsNewfrmGuaHao

frm.Show

EndSub

PrivateSubmnHuaJia_Click（）

SetformHuaJia=NewfrmHuaJia

formHuaJia.Show

EndSub

PrivateSubmnKCL_Click（）

DimfrmAsNewfrmKCL

IfQuanXian=1Then

MsgBox"你无权查看此信息！

"

Else

frm.Show

EndIf

EndSub

PrivateSubmnLogin_Click（）

DimfrmAsNewfrmLoginCX

IfQuanXian=1Then

MsgBox"你无权查看此信息！

"

Else

frm.Show

EndIf

EndSub

PrivateSubmnMedicine_Click（）

DimfrmAsNewfrmMedicine

IfQuanXian=3Then

frm.Show

Else

MsgBox"你无权查看此信息！

"

EndIf

EndSub

PrivateSubmnShouFei_Click（）

DimfrmAsNewfrmShouFei

frm.Show

EndSub

PrivateSubmnZhuXiao_Click（）

Me.Hide

frmLogin.Show

EndSub

点击门诊管理门诊挂号，进入门诊挂号界面，该界面代码如下：

PrivateSubClear（）

Me.txbName.Text=""

Me.cbbSex.Text="男"

Me.txbAge.Text=""

Me.txbMoney.Text=""

Me.txbName.Text=""

Me.txbTime.Text=CStr（Date）

Me.txbNation.Text="汉族"

Me.cbbMoneyType.Text="自费"

Me.cbbRegType.Text="普通号"

DimdbAsNewDatabases

DimrsAsRecordset

Setrs=db.RunSelectSQL（"select编号,名称from科室资料"）

SetMe.cbbRoomType.RowSource=rs

Me.cbbRoomType.ListField="名称"

Setrs=db.RunSelectSQL（"select编号,姓名from医生资料"）

SetMe.cbbDoctor.RowSource=rs

Me.cbbDoctor.ListField="姓名"

EndSub

PrivateSubSave（）

DimiAgeAsInteger

iAge=0

iAge=CInt（Trim（txbAge.Text））

DimstrSQLAsString

strSQL="selectmax（编号）as编号"

strSQL=strSQL+"from病人信息库where编号like'"

strSQL=strSQL+CStr（Year（Date））+"%'"

DimdbAsNewDatabases

DimrsAsRecordset

DimstrTAsString

DimstrIdAsString

Setrs=db.RunSelectSQL（strSQL）

IfNotIsNull（rs（0））Then

strT=""

strId=CStr（CInt（Mid（rs（0）,5,7））+1）

Fori=Len（strId）To6

strT=strT+"0"

Nexti

strId=strT+strId

Else

strId="0000001"

EndIf

strId=CStr（Year（Date））+strId

strSQL="insertinto病人信息库（编号,姓名,性别,年龄,"

strSQL=strSQL+"民族,费用类型）values（'"+strId+"','"

strSQL=strSQL+Trim（txbName.Text）+"','"+Trim（cbbSex.Text）+"','"

strSQL=strSQL+Trim（txbAge.Text）+"','"+Trim（txbNation.Text）+"','"

strSQL=strSQL+Trim（cbbMoneyType.Text）+"'）"

db.RunSelectSQL（strSQL）

DimstrPatientIdAsString

strPatientId=strId

strSQL="selectmax（编号）as编号from门诊挂号where编号like'"

strSQL=strSQL+CStr（Year（Date））+"%'"

Setrs=db.RunSelectSQL（strSQL）

IfNotIsNull（rs（0））<>0Then

strT=""

strId=CStr（CInt（Mid（rs（0）,5,7）+1））

Fori=Len（strId）To7

strT=strT+"0"

Nexti

strId=strT+strId

Else

strId="0000001"

EndIf

strId=CStr（Year（Date））+strId

strSQL="insertinto门诊挂号（编号,病人编号,姓名,"

strSQL=strSQL+"性别,挂号科室,费用类型,挂号类型,挂号费用,医生,"

strSQL=strSQL+"时间,是否已划价）values（'"+strPatientId+"','"

strSQL=strSQL+strId+"','"+Trim（txbName.Text）+"','"

strSQL=strSQL+Trim（cbbSex.Text）+"','"+Trim（cbbRoomType.Text）

strSQL=strSQL+"','"+Trim（cbbMoneyType.Text）+"','"

strSQL=strSQL+Trim（Me.cbbRegType.Text）+"',"+Trim（Me.txbMoney.Text）

strSQL=strSQL+",'"+Trim（Me.cbbDoctor.Text）+"','"

strSQL=strSQL+Trim（Me.txbTime.Text）+"','否'）"

db.RunSelectSQL（strSQL）

Clear

EndSub

PrivateSubcbbRegType_