管理信息系统课程设计--药品库房管理系统.doc

辽 宁 工 业 大 学 管理信息系统设计课程设计报告（论文）题目： 药品库房系统的分析与设计 院（系）： 软件学院 专业班级： 软件工程114 学 号： 111301085 学生姓名： 安凯辰 指导教师： 谷宝华 教师职称： 教 授 起止时间： 2012.5.28-2012.6.8 课程设计（论文）任务及评语院（系）：软件学院 教研室：软件教研室学 号111301085学生姓名安凯辰专业班级软件工程114班课程设计（论文）题目药品库房系统的分析与设计课程设计（论文）任务管理信息系统课程设计作为独立的教学环节，是电子商务专业集中实践性环节系列之一，是学习完管理信息系统课程并进行完专业实习后进行的一次全面的综合练习。任务：采用结构化的系统开发方法，应用具体的计算机语言（如VB、Delphi）和数据库（SQL、Access）等技术，按照软件工程的思想，开发一个实用的中小型管理信息系统，完成药品库房理系统的分析设计实施工作，实现该系统药品管理、售药管理、系统分析等功能，并完成结合分析设计过程，撰写系统设计说明书（课设报告）。1根据课程设计时间选择适当规模大小的设计课题。采用专业实习的调研内容作为课程设计选题。2根据合理的进度安排，按照系统开发的流程及方法，踏实地开展课程设计活动。3课程设计过程中，根据选题的具体需求，在开发各环节中撰写相关的技术文档，最后提交详细的课程设计报告。4开发出可以运行的管理信息系统，通过上机运行检查。5设计说明书要求文档齐备，步骤全整，流程正确，说明详细，具有有可操作性。指导教师评语及成绩成绩： 指导教师签字： 2012 年 6 月 12 日辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）目 录第1章 系统分析11.1 建立系统的必要性11.2 业务流程分析21.3数据流程图31.4数据字典3第2章 系统设计62.1 总体设计62.1.1 功能设计62.1.2 运行环境设计62.2 代码设计72.3 数据库设计72.3.1 概念设计72.3.2 逻辑设计82.3.3 物理设计10第3章 系统实施113.1 程序实现113.2 系统测试12第4章 课设总结13参考文献14附录：15第1章 系统分析1.1 建立系统的必要性发达国家药材公司库房信息系统的开发实现已有三十多年的历史，至今有了长足的进步，有许多举世公认的成功的系统在药材公司库房有效地运转着。像盐湖城LDS药材公司库房的HELP系统，麻省总药材公司库房的COSTAR系统，退伍军人管理局的DHCP系统。纵观美国的医药库房发展历史，大约可分为三个阶段：第一个十年，集中在开发药材公司库房行政管理的功能上，像财务收费管理管理等。但到1972年Collen仍报告美国迄今为止连一个成功的已完成的全面药材公司库房(管理)计算机系统都没有。第二个十年，在继续完成和实现药材公司库房管理信息的计算机化的同时，开发者的努力已进入医疗信息的处理领域，像病人医疗处理系统，实验室系统等。到1985年，美国全国药材公司库房数据处理工作调查表明，100张床位以上的药材公司库房80%实现了计算机财务收费管理，70%的药材公司库房可支持病人挂号登记和行政事务管理，25%的药材公司库房有了较完整的MIS。药材公司库房信息系统正在经历着小型化(DownSizing)、智能化(Intellegence)和集成化(Integration)的改造过程。刺激美国药材公司库房采用计算机系统的重要因素。为病人提供更好、更快的服务，提高药材公司库房在医疗服务市场上的竞争力，以吸引更多病人到本院就医。人力工资的昂贵，迫使药材公司库房采用计算机以提高劳动效率。国家和保险公司为施行预付款制度(Prospective Payment System,PPS)而要求药材公司库房及时上交复杂的有关DRGs的报告，迫使药材公司库房采用计算机技术。我国药材公司库房信息系统的研发工作，从八十年代初期算起，至今也有十多年的历史，其中经历了单机单任务的阶段，多机多任务的阶段以及微机网络一体化的阶段，应该承认，这期间我们有了很大进步。HIS的应用已经涉及到许多方面，有些系统的功能(例如财务帐 目管理、药品库存管理、住院病人管理.等)也日趋完善。但是我国还没有在一家国家级的大型综合性药材公司库房真正实现完整的药材公司库房管理信息系统。药材公司库房对信息的需求永远是HIS发展的原动力。刺激我国药材公司库房广泛采用计算机信息系统的因素已经存在，并且会越来越广泛与强烈，其中较为突出的有：药材公司库房要强化自身的管理，逐步实现医疗价格评价与按成本收费，实现药材公司库房内按成本核算与全面财务计划，并体现在建立和优化药材公司库房内合理的分配制度上，为此，每个药材公司库房都迫切需要建立自己的以财务管理为中心的药材公司库房管理信息系统。药材公司库房要加强医疗服务质量的自我监督、自我控制的能力，为病人提供更快更好的服务，必然要依赖于计算机信息系统。医疗制度的改革正在把病人药材公司库房的二元关系改变为病人药材公司库房保险机构 政府监督的多元关系。大量的有关病人的诊断、治疗、用药、资源消耗的信息不仅在院内,而且要在许多部门之间流通、传递。这将是一件难以用手工完成的繁杂的任务。1.2 业务流程分析本药品库房管理系统是一个针对医药经营企业现状的库存管理系统，为了更清楚的说明框架，如图1.1所示。系统流程图展示了本系统所有功能模块之间的逻辑关系，其中的各个功能模块，基本上都代表了一个独立的页面。领药部门供应科 不合格领药单领药单入库单一不合格入库单一 验证检验合格领药单合格入库单 出库、记帐 入库、记帐 记库存台帐入库帐出库帐 库存台帐 统计 报表 主管部门 图1.1 业务运转图1.3数据流程图本药品库房管理系统是一个针对医药经营企业现状的库存管理系统，它从配送中心到门店的各个环节对人流、物流、资金流、信息流进行管理。由门店根据销售、库存生成缺货通知单，上传到配送中心，配送中心根据库存，对门店进行配送。同时，配送中心根据库存下限生成缺货分析，然后传到采购部，采购部对缺货分析修改后生成采购需求，进行采购。该系统业务运转图1.2如下：图1.2 程序流程图1.4数据字典 数据流图表达了数据和处理的关系，数据字典则是系统中各类数据描述的集合，是进行详细的数据收集和数据分析所获得的主要成果。数据字典在数据库设计中占有很重要的地位。在分析阶段，数据字典可以建立严密、一致的数据定义来使得分析员和用户之间的通信更加顺历。它是系统中一系列数据信息以及数据流图中包含的所有元素的定义的集合，主要的用途是提供给查询相关条目的解释。因此，数据字典的作用是在软件分析和设计的过程中给人员提供相关的数据描述信息。它包括数据流，数据元素，数据存储及处理过程。酒店管理系统中使用数据字典来提供数据查询的解释。数据元素系统名：药品库房管理系统 有关数据结构：药品入库表 药品出库表药品库存表 供应商表客户表 药品入库退货表 药品出库退货表数据元素系统名：药品库房管理系统表名：药品入库表别名：RKD定义：药品入库表=商品名称+简称+批号+产地+规格+包装+单位+数量+进价+金额+备注+供应商+日期+经手人+票号数据流条目数据元素系统名：药品库房管理系统 表名：药品入库退货表 别名：RKTD 定义：药品入库退货表=商品名称+简称+批号+产地+规格+包装+单位+数量+进价+金额+备注+供应商+日期+经手人+票号 数据元素系统名：药品库房管理系统 表名：药品出库退货表 别名：XSTD 定义：药品出库退货表=商品名称+批号+产地+规格+包装+单位+数量+进价+金额+备注+供应商+日期+经手人+票号 数据元素系统名：药品库房管理系统 表名：药品出库表别名：XSD 定义：药品出库表=商品名称+批号+产地+规格+包装+单位+数量+进价+金额+备注+供应商+日期+经手人+票号数据元素系统名：药品库房管理系统 表名：客户表别名：KH 定义：客户表=客户编号+客户全称+简称+地址+所属地区+邮政编号+电话+传真+联系人+联系人电话+开户银行+银行账号+纳税人登记+预付金额+实际金额+尚余欠款+网址邮箱+日期第2章 系统设计2.1 总体设计2.1.1 功能设计药品库房管理系统是一个针对医药经营企业现状的库存管理系统，本系统模块清晰，思路明确，本着各模块间的紧密联系，使得系统能够有效迅速得完成指定任务，从而提高了企业效率，结构如下图2.1所示。 药品库房管理系统日常业务库存管理查询统计基础信息系统设置药品入库药品出库入库单管理库存查询库存盘点仓库查询仓库退货查询数据恢复供应商管理客户管理初建密码密码设置数据备份图2.1 系统功能图2.1.2 运行环境设计（一）编程环境的选择Visual Basic 6.0是Windows应用程序开发工具，具有直观的开发界面、先进的程序设计思想，是目前最为广泛的、易学易用的面向对象的开发工具。VB还提供了软件发布功能，使得开发、调试到发布可以一步完成。故而，实现本系统VB是一个相对较好的选择。（二）关系型数据库的选择Access是一种功能强大的数据库开发工具，数据库汇集了信息以供查询、存储和检索。选择access数据库的最主要原因是，它支持网络数据库，现在企业规模的迅速扩大，车辆作为最主要的交通工具在企业中已经大量存在，为了合理控制这些信息，最佳的调配各部门的车辆使用，采用网络数据库是最理想的选择。Access服务器提供了可靠的数据保障，可以自动数据备份和访问日志的记录，可以进行详细的数据分析等操作。采用C/S模式的设计，可以更加合理的利用企业资源，使得数据集中在一台服务器上，从来节省了数据库管理的人力资源，也使得由于非专业人士的误操作，或者别的各种电脑意外而导致数据丢失，或者别的不必要损失，所以在数据库选择上采用了access2.2 代码设计系统为每个产品设计了代码，一方面可统计产品的特性，另方面是为了方便数据输入，在产品输入的输入产品代码即可文件名 表名 RKD 药品入库表RKTD 药品入库退货表XSD 药品出库表XSTD 药品出库退货表KC 药品库存表GYS 供应商表KH 客户表2.3 数据库设计2.3.1 概念设计由上面的数据项，可以设计出能够满足需求的各种实体及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。实体与实体之间的E-R图，图中省略了实体的属性，请参照以上实体的属性。 如图4.5所示：N11MMNPMN会员客户操作员仓库药品供应商供应销售存储管理图4.5 系统整体关系图2.3.2 逻辑设计建立数据库YPJXC.MDB，其中包括的表1如下所示：表2.1 数据库总体列表 表名 文件名药品入库表RKD 药品入库退货表RKTD药品出库表XSD药品出库退货表XSTD药品库存表KC供应商表GYS客户表KH表2.2 药品入库表（RKD）字段字段名中文含义 类型宽度小数位1商品名称商品名称文本502简称简称文本503批号批号文本104产地产地文本405规格规格文本506包装包装文本50表2.3 供应商表（GYBMB）字段字段名中文含义 类型宽度小数位1供应商编号供应商编号文本10 2供应商全称供应商全称文本1003简称简称文本204地址地址文本1005所属地区所属地区文本50表2.4 客户表（KH）字段字段名中文含义 类型宽度小数位1客户编号客户编号文本102客户全称客户全称文本1003简称简称文本204地址地址文本1005所属地区所属地区文本506邮政编码邮政编码文本6表2.5 药品出库退货表（XSTD）字段字段名中文含义 类型宽度小数位1商品名称商品名称文本502简称简称文本503批号批号文本104产地产地文本405规格规格文本50表2.6药品入库退货表（RKTD）字段字段名中文含义 类型宽度小数位1商品名称商品名称文本502简称简称文本503批号批号文本105规格规格文本506包装包装文本50表4.4 药品库存表（KC）字段字段名中文含义 类型宽度小数位1商品名称商品名称文本502简称简称文本503批号批号文本104产地产地文本405规格规格文本506包装包装文本507单位单位文本508进价进价货币1229库存库存数字12210库存金额库存金额货币1222.3.3 物理设计本系统中需要设计的基本信息表：出库管理表、单位管理表、费用支出表、科目设定表、库存盘点表、其它收入表、入库管理表和用户管理表。并且本系统运用到流行的可视化VB语言与access数据库和软件工程中的需求分析、数据库原理中所学到的知识，这使得初学者很容易在短时期内对软件熟练的应用和掌握，提高了系统的可操作性，更具有实用价值。E-R转换为关系模型一般遵循的原则:一个实体型转换为一个关系模型.实体的属性就是关系的属性,实体的码就是关系的码.第3章 系统实施 3.1 程序实现本系统的应用程序开发是在上述系统设计的基础上，用软件开发工具Visual Basic 6.0进行开发。开发步骤如下：1. 设计用户操作主界面如图3.1所示：图3.1设计用户操作主界面其中主要代码如下：Dim s, y, i 定义变量Dim mydb As Database 定义数据库Dim rs1 As Recordset 定义字段Dim rs2 As RecordsetDim lsph As Integer 定义一个整型变量Private Sub Form_Load()自动识别数据库路径Data1.DatabaseName = App.Path & yyjxc.mdbData2.DatabaseName = App.Path & yyjxc.mdbData3.DatabaseName = App.Path & yyjxc.mdbmf1.Rows = 102: mf1.Cols = 12 定义mf1表的总行数、总列数定义mf1表的列宽和表头信息 For i = 1 To 101 mf1.TextMatrix(i, 0) = i Next i rkrq.Text = Date 设置入库日期End SubPrivate Sub Form_Unload(Cancel As Integer) frm_main.Enabled = TrueEnd SubPrivate Sub gys_Change() DBList1.Visible = True DBList1.ReFill 查询供应商信息 Data2.RecordSource = select 供应商全称 from gys where (gys.供应商全称 like + Chr(34) + gys.Text + * + Chr(34) + )or (gys.简称 like + Chr(34) + gys.Text + * + Chr(34) + )group by 供应商全称 Data2.RefreshEnd Sub3.2 系统测试测试是一个为了寻找错误而运行程序的过程，一个好的测试用例是只可能找到迄今为止尚未发现错误的用例，一个成功的测试是揭示了迄今为止尚未发现的错误的测试。软件测试基本可分为白盒测试和黑盒测试。两种测试方法从不同的角度出发，反映了软件的不同侧面，也适用于不同的开发环境。白盒测试又称结构测试、逻辑驱动测试或基于程序本身的测试，也可称为测试员测试，主要应用于结构化开发环境。黑盒测试又称功能测试、数据驱动测试或基于规格说明的测试，也可被称为用户测试，主要应用于快速应用开发（RAD）环境。本例所用的是黑盒测试。在测试时，把程序看作一个不能打开的黑盆子，在完全不考虑程序内部结构和内部特性的情况下，测试者在程序接口进行测试，它只检查程序功能是否按照需求规格说明书的规定正常使用，程序是否能适当地接收输入数据而产生正确的输出信息，并且保持外部信息（如数据库或文件）的完整性。黑盒测试方法主要有等价类划分、边值分析、因果图、错误推测等，主要用于软件确认测试。“黑盒”法着眼于程序外部结构、不考虑内部逻辑结构、针对软件界面和软件功能进行测试。“黑盒”法是穷举输入测试，只有把所有可能的输入都作为测试情况使用，才能以这种方法查出程序中所有的错误。实际上测试情况有无穷多个，人们不仅要测试所有合法的输入，而且还要对那些不合法但是可能的输入进行测试。第4章 课设总结经过两周的努力，我的系统的设计与分析终于有所成就。Visual Basic提供可视化的开发环境，使用者可以像搭积木一样构建出程序的界面，而且Visual Basic提供丰富的控件组，省去了自己编写代码实现这些效果的麻烦，可以把更多的精力放在程序功能的实现上。本课设述了结合运用软件开发工具Visual Basic 6.0和Access实现开发药品库房管理系统的过程，详细论述了面向对象方法及其在信息系统开发中的应用和一个系统开发的过程和步骤。通过药品库房管理系统的开发和毕业论文的写作，把已前所学的各种独立的课程融合起来，让我的理论知识和实际操作能力都有了一定程度的提高。另外我也发现自己在软件开发的规范化和编程技巧方面还有很大的不足，特别是面向对象方法的运用还不够熟练。药品库房管理系统会与越来越好的被应用在各大药房管理中，既便于管理，又简捷方便，可见它有着很好的发展前途。通过本次实习，让我学到了许多课本上所学不到的知识。由于在这段时间里，我学到在校园中无法学习到的知识和技能，更好的理论联系了实践，也更提高了自己各方面的素质，如通用能力。同时实习也给了我一定的工作经验，为将来谋求一份更好的职业打下了基础。参考文献1 周佩德,数据库原理及应用.北京:电子工业出版社，1988:38-135 2 李光明,VisualBasic 6.0编程实例大制作.哈尔滨:冶金工业出版社，1988:40-833 黄淼云,VB6.0办公自动化编程.北京:国防工业出版社，1990:14-214 李大友,VisualBasic程序设计.北京:清华大学出版，1992:16-375. EricBrierley,Visual Basic开发人员指南.北京:机械工业出版社，1994:24-356 陈明,Visual Basic 程序设计.北京:中央电大出版，1987:42-567 刘韬、骆娟,Visual Basic6.0实效编程百例.北京:人民邮电出版社，1992:10-218 徐孝凯,数据结构（c+描述）.北京:中央电大出版，1988:32-469 张红VisualBasic 6.0中文版应用与开发指南.北京:人民邮电出版社，2006:71-9710 林立军.VisualBasic 6.0数据库开发指南.西安:电子科技大学出版社，2005:77-8911 张宏林VisualBasic 6.0.北京:人民邮电出版社，2006:90-12112 宋伟.中文VB6.0编程基础.北京:清华大学出版社，2005:35-6013 Jeffrey著.Visual Basic 6.0数据库存访问技术.电子科技大学出版社，2002:66-8714 吴秉柔. 精彩ACCESS2000中文版.北京:北京大学出版社，2003:95-12815 李俊民,高春燕.Access数据库开发实例解析.北京:机械工业出版社，附录：Dim x, i 定义变量Public Sub viewdata() 定义显示数据的函数 For i = 0 To 16 If Data1.Recordset.Fields(i) Then gys(i).Text = Data1.Recordset.Fields(i) Else gys(i).Text = Next iEnd SubPrivate Sub Form_Activate() 向combo1添加查询项目列表 x = Array(供应商编号, 供应商全称, 简称, 地址, 所属地区, 邮政编码, 电话, 传真) For i = 0 To 7 Combo1.AddItem (x(i) Next i Combo1.Text = 供应商全称初始化给gys(i)赋值 If Data1.Recordset.RecordCount 0 Then Call viewdata 调用函数 End IfEnd SubPrivate Sub Form_Load() Data1.DatabaseName = App.Path & yyjxc.mdb 自动识别数据库路径End SubPrivate Sub Form_Unload(Cancel As Integer) frm_main.Enabled = True Unload MeEnd SubPrivate Sub ComFind_Click()查询供应商信息 Data1.RecordSource = select * from gys where (gys. & Combo1.Text & & like + Chr(34) + Text1.Text + * + Chr(34) + ) Data1.Refresh Call viewdata 调用函数End SubPrivate Sub gys_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) 回车获得焦点 If KeyCode = vbKeyReturn And Index 0 Then If SSTab1.Tab = 2 And ComAdd.Enabled = False Then MsgBox (您正在处理数据,请取消数据处理,在执行本操作!) SSTab1.Tab = 0 Else End If End IfEnd SubPrivate Sub CmdMD_Click(Index As Integer) Select Case Index Case Is = 0 移到第一条记录 If Not Data