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

辽 宁 工 业 大 学

管理信息系统设计课程设计报告（论文）

题目： 药品库房系统的分析与设计

院（系）： 软件学院 专业班级： 软件工程114 学 号： 111301085 学生姓名： 安凯辰 指导教师： 谷宝华 教师职称： 教 授 起止时间： 2012.5.28--2012.6.8

课程设计（论文）任务及评语

院（系）：软件学院 教研室：软件教研室 学 号 课程设计（论文）题目 111301085 学生姓名 安凯辰 专业班级 软件工程114班 药品库房系统的分析与设计 管理信息系统课程设计作为独立的教学环节，是电子商务专业集中实践性环节系列之一，是学习完《管理信息系统》课程并进行完专业实习后进行的一次全面的综合练习。 任务：采用结构化的系统开发方法，应用具体的计算机语言（如VB、Delphi）和数据库（SQL、Access）等技术，按照软件工程的思想，开发一个实用的中小型管理信息系统，完成药品库房理系统的分析设计实施工作，实现该系统药品管理、售药管理、系统分析等功能，并完成结合分析设计过程，撰写系统设计说明书（课设报告）。 1．根据课程设计时间选择适当规模大小的设计课题。采用专业实习的调研内容作为课程设计选题。 2．根据合理的进度安排，按照系统开发的流程及方法，踏实地开展课程设计活动。 3．课程设计过程中，根据选题的具体需求，在开发各环节中撰写相关的技术文档，最后提交详细的课程设计报告。 4．开发出可以运行的管理信息系统，通过上机运行检查。 5．设计说明书要求文档齐备，步骤全整，流程正确，说明详细，具有有可操作性。 成绩： 指导教师签字： 2012 年 6 月 12 日 课程设计（论文）任务 指导教师评语及成绩 辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

目 录

第1章 系统分析 ............................................................. 1

1.1 建立系统的必要性 ................................................ 1 1.2 业务流程分析 .................................................... 2 1.3数据流程图 ...................................................... 3

1.4数据字典 ........................................................ 3 第2章 系统设计 ............................................................. 6

2.1 总体设计 ........................................................ 6

2.1.1 功能设计 ...................................................... 6 2.1.2 运行环境设计 .................................................. 6 2.2 代码设计 ........................................................ 7

2.3 数据库设计 ...................................................... 7 2.3.1 概念设计 ...................................................... 7 2.3.2 逻辑设计 ...................................................... 8 2.3.3 物理设计 ..................................................... 10

第3章 系统实施 ............................................................ 11

3.1 程序实现 ....................................................... 11

3.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

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

1.2 业务流程分析

本药品库房管理系统是一个针对医药经营企业现状的库存管理系统，为了更清楚的说明框架，如图1.1所示。系统流程图展示了本系统所有功能模块之间的逻辑关系，其中的各个功能模块，基本上都代表了一个独立的页面。

供应科 领药部门 不合格 不合格 入库单领药单 领药单 入库单一 检验 验证 合格领药单 合格入库单 出库、记帐 入库、记帐 记库存 出库帐 入库帐 台帐 库存台帐 统计 报表 主管部门 图1.1 业务运转图

2

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

1.3数据流程图

本药品库房管理系统是一个针对医药经营企业现状的库存管理系统，它从配送中心到门店的各个环节对人流、物流、资金流、信息流进行管理。由门店根据销售、库存生成\缺货通知单\，上传到配送中心，配送中心根据库存，对门店进行配送。同时，配送中心根据库存下限生成\缺货分析\，然后传到采购部，采购部对\缺货分析\修改后生成\采购需求\，进行采购。

该系统业务运转图1.2如下：

图1.2 程序流程图

1.4数据字典

数据流图表达了数据和处理的关系，数据字典则是系统中各类数据描述的集合，是进行详细的数据收集和数据分析所获得的主要成果。数据字典在数据库设计中占有很重要的地位。在分析阶段，数据字典可以建立严密、一致的数据定义来使得分析员和用户之间的通信更加顺历。它是系统中一系列数据信息以及数据流图中包含的所有元素的定义的集合，主要的用途是提供给查询相关条目的解释。因此，数据字典的作用是在软件分析和设计的过程中给人员提供相关的数据描述信息。它包括数据流，数据元素，数据

3

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

存储及处理过程。酒店管理系统中使用数据字典来提供数据查询的解释。

数据元素 系统名：药品库房管理系统 有关数据结构：药品入库表 药品出库表 药品库存表 供应商表 客户表 药品入库退货表 药品出库退货表 数据元素 系统名：药品库房管理系统 表名：药品入库表 别名：RKD 定义：药品入库表=商品名称+简称+批号+产地+规格+包装+单位+数量+进价+金额+ 备注+供应商+日期+经手人+票号

数据流条目

数据元素 系统名：药品库房管理系统 表名：药品入库退货表 别名：RKTD 定义：药品入库退货表=商品名称+简称+批号+产地+规格+包装+单位+数量+进价+金 额+备注+供应商+日期+经手人+票号 数据元素 系统名：药品库房管理系统

表名：药品出库退货表

别名：XSTD

定义：药品出库退货表=商品名称+批号+产地+规格+包装+单位+数量+进价+金额+备

注+供应商+日期+经手人+票号

4

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

数据元素 系统名：药品库房管理系统 表名：药品出库表 别名：XSD 定义：药品出库表=商品名称+批号+产地+规格+包装+单位+数量+进价+金额+备注+供应商+日期+经手人+票号 数据元素 系统名：药品库房管理系统 表名：客户表 别名：KH 定义：客户表=客户编号+客户全称+简称+地址+所属地区+邮政编号+电话+传真+联系人+联系人电话+开户银行+银行账号+纳税人登记+预付金额+实际金额+尚余欠款+网址邮箱+日期 5

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

第2章 系统设计

2.1 总体设计

2.1.1 功能设计

药品库房管理系统是一个针对医药经营企业现状的库存管理系统，本系统模块清晰，思路明确，本着各模块间的紧密联系，使得系统能够有效迅速得完成指定任务，从而提

高了企业效率，结构如下图2.1所示。

药品库房管理系统 日常业务 库存管理 查询统计 基础信息 系统设置 药品入库 药品出库 入库单管理 库存查询 库存盘点 仓库查询 仓库退货查询 供应商管理 客户管理 初建密码 密码设置 数据备份 数据恢复

图2.1 系统功能图

2.1.2 运行环境设计

（一）编程环境的选择

Visual Basic 6.0是Windows应用程序开发工具，具有直观的开发界面、先进的程序设计思想，是目前最为广泛的、易学易用的面向对象的开发工具。VB还提供了软件发布功能，使得开发、调试到发布可以一步完成。故而，实现本系统VB是一个相对较好的选择。

6

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

（二）关系型数据库的选择

Access是一种功能强大的数据库开发工具，数据库汇集了信息以供查询、存储和检索。选择access数据库的最主要原因是，它支持网络数据库，现在企业规模的迅速扩大，车辆作为最主要的交通工具在企业中已经大量存在，为了合理控制这些信息，最佳的调配各部门的车辆使用，采用网络数据库是最理想的选择。Access服务器提供了可靠的数据保障，可以自动数据备份和访问日志的记录，可以进行详细的数据分析等操作。采用C/S模式的设计，可以更加合理的利用企业资源，使得数据集中在一台服务器上，从来节省了数据库管理的人力资源，也使得由于非专业人士的误操作，或者别的各种电脑意外而导致数据丢失，或者别的不必要损失，所以在数据库选择上采用了access

2.2 代码设计

系统为每个产品设计了代码，一方面可统计产品的特性，另方面是为了方便数据输入，在产品输入的输入产品代码即可

文件名 表名 RKD 药品入库表 RKTD 药品入库退货表 XSD 药品出库表 XSTD 药品出库退货表 KC 药品库存表 GYS 供应商表 KH 客户表

2.3 数据库设计

2.3.1 概念设计

由上面的数据项，可以设计出能够满足需求的各种实体及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。

实体与实体之间的E-R图，图中省略了实体的属性，请参照以上实体的属性。 如图4.5所示：

7

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

第4章 课设总结

经过两周的努力，我的系统的设计与分析终于有所成就。Visual Basic提供可视化的开发环境，使用者可以像搭积木一样构建出程序的界面，而且Visual Basic提供丰富的控件组，省去了自己编写代码实现这些效果的麻烦，可以把更多的精力放在程序功能的实现上。

本课设述了结合运用软件开发工具Visual Basic 6.0和Access实现开发药品库房管理系统的过程，详细论述了面向对象方法及其在信息系统开发中的应用和一个系统开发的过程和步骤。通过药品库房管理系统的开发和毕业论文的写作，把已前所学的各种独立的课程融合起来，让我的理论知识和实际操作能力都有了一定程度的提高。另外我也发现自己在软件开发的规范化和编程技巧方面还有很大的不足，特别是面向对象方法的运用还不够熟练。

药品库房管理系统会与越来越好的被应用在各大药房管理中，既便于管理，又简捷方便，可见它有着很好的发展前途。

通过本次实习，让我学到了许多课本上所学不到的知识。由于在这段时间里，我学到在校园中无法学习到的知识和技能，更好的理论联系了实践，也更提高了自己各方面的素质，如通用能力。同时实习也给了我一定的工作经验，为将来谋求一份更好的职业打下了基础。

13

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

参考文献

[1] 周佩德,数据库原理及应用.北京:电子工业出版社，1988:38-135

[2] 李光明,VisualBasic 6.0编程实例大制作.哈尔滨:冶金工业出版社，1988:40-83 [3] 黄淼云,VB6.0办公自动化编程.北京:国防工业出版社，1990:14-21 [4] 李大友,VisualBasic程序设计.北京:清华大学出版，1992:16-37

[5]. EricBrierley,Visual Basic开发人员指南.北京:机械工业出版社，1994:24-35 [6] 陈明,Visual Basic 程序设计.北京:中央电大出版，1987:42-56

[7] 刘韬、骆娟,Visual Basic6.0实效编程百例.北京:人民邮电出版社，1992:10-21 [8] 徐孝凯,数据结构（c++描述）.北京:中央电大出版，1988:32-46

[9] 张红VisualBasic 6.0中文版应用与开发指南.北京:人民邮电出版社，2006:71-97 [10] 林立军.VisualBasic 6.0数据库开发指南.西安:电子科技大学出版社，2005:77-89 [11] 张宏林VisualBasic 6.0.北京:人民邮电出版社，2006:90-121 [12] 宋伟.中文VB6.0编程基础.北京:清华大学出版社，2005:35-60

[13] Jeffrey著.Visual Basic 6.0数据库存访问技术.电子科技大学出版社，2002:66-87 [14] 吴秉柔. 精彩ACCESS2000中文版.北京:北京大学出版社，2003:95-128 [15] 李俊民,高春燕.Access数据库开发实例解析.北京:机械工业出版社，

14

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

附录：

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 i End Sub

Private 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 If End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path & \自动识别数据库路径 End Sub

Private Sub Form_Unload(Cancel As Integer) frm_main.Enabled = True Unload Me End Sub

Private Sub ComFind_Click() '查询供应商信息

Data1.RecordSource = \& \

Data1.Refresh

Call viewdata '调用函数 End Sub

Private Sub gys_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) '回车获得焦点

If KeyCode = vbKeyReturn And Index < 16 Then gys(Index + 1).SetFocus If KeyCode = vbKeyReturn And Index = 9 Then SSTab1.Tab = 1 If KeyCode = vbKeyReturn And Index = 16 Then ComSaveM.SetFocus End Sub

Private Sub SSTab1_Click(PreviousTab As Integer) If Data1.Recordset.RecordCount > 0 Then

15

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

If SSTab1.Tab = 2 And ComAdd.Enabled = False Then

MsgBox (\您正在处理数据,请取消数据处理,在执行本操作!\ SSTab1.Tab = 0 Else End If End If End Sub

Private Sub CmdMD_Click(Index As Integer) Select Case Index

Case Is = 0 '移到第一条记录

If Not Data1.Recordset.BOF Then Data1.Recordset.MoveFirst Case Is = 1 '移到上一条记录

If Data1.Recordset.RecordCount <> 0 Then

If Data1.Recordset.BOF = False Then Data1.Recordset.MovePrevious If Data1.Recordset.BOF = True Then Data1.Recordset.MoveFirst End If

Case Is = 2 '移到下一条记录

If Data1.Recordset.RecordCount <> 0 Then

If Data1.Recordset.EOF = False Then Data1.Recordset.MoveNext If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast End If

Case Is = 3 '移到最后一条记录

If Data1.Recordset.RecordCount <> 0 Then

If Data1.Recordset.EOF = False Then Data1.Recordset.MoveNext If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast End If End Select

Call viewdata '调用函数 End Sub

Private Sub ComAdd_Click() '允许用户添加新记录 For i = 0 To 16

gys(i).Text = \

gys(i).Enabled = True Next i

ComSaveM.Visible = True: ComSaveA.Visible = False: ComSaveM.Enabled = True: ComEsc.Enabled = True

For i = 0 To 3

CmdMD(i).Enabled = False Next i

ComAdd.Enabled = False: ComModify.Enabled = False: ComDelete.Enabled = False

SSTab1.Tab = 0: gys(0).SetFocus End Sub

16

本文来源：https://www.bwwdw.com/article/ys7h.html