药品库房管理系统的管理信息系统课程设计.docx

辽宁工业大学管理信息系统设计课程设计汇报（论文）题比药物库房系统的分析与设计院（系软件学院专业班级：软件工程114学号：学生姓名：安凯辰指导教师：谷宝华教师职称：教授起止时间：2023.5.282023.6.8课程设计（论文）任务及评语学号学生姓名安凯辰专业班级软件工程114班课程设计（论文）题目药物库房系统的分析与设计课程设计(论文)任务管理信息系统课程设计作为独立的教学环节，是电子商务专业集中实践性环节系列之一，是学习完管理信息系统课程并进行完专业实习后进行的一次全面的综合练习。任务：采用构造化的系统开发措施，应用品体的计算机语言（如VB.Delphi）和数据库（SQL、Access）等技术，按照软件工程的思想，开发一种实用的中小型管理信息系统，完毕药物库房理系统的分析设计实行工作，实现该系统药物管理、售药管理、系统分析等功能，并完毕结合分析设计过程，撰写系统设计阐明书（课设汇报）。1 .根据课程设计时间选择合适规模大小的设计课题。采用专业实习的调研内容作为课程设计选题。2 .根据合理的进度安排，按照系统开发的流程及措施，踏实地开展课程设计活动。3 .课程设计过程中，根据选题的详细需求，在开发各环节中撰写有关的技术文档，最终提交详细的课程设计汇报。4 .开发出可以运行的管理信息系统，通过上机运行检查。5 .设计阐明书规定文档齐备，环节全整，流程对时，阐明详细，具有有可操作性。院（系）：软件学院教研室：软件教研室指导教师评语及成绩成绩：指导教师签字：2012年6月12日第1章系统分析错误!未定义书签。1.1 建立系统的必要性错误!未定义书签。1.2 业务流程分析错误!未定义书签。1. 3数据流程图错误!未定义书签。1.4数据字典错误!未定义书签。第2章系统设计错误!未定义书签。2. 1总体设计错误!未定义书签。功能设计错误!未定义书签。运行环境设计错误!未定义书签。2.2 代码设计错误!未定义书签。2.3 数据库设计错误!未定义书签。概念设计错误!未定义书签。逻辑设计错误!未定义书签。物理设计错误!未定义书签。第3章系统实行错误!未定义书签。3. 1程序实现错误!未定义书签。3.2系统测试错误!未定义书签。第4章课设总结错误!未定义书签。参照文献错误!未定义书签。附录:.错误!未定义书签。第1章系统分析1.1 建立系统的必要性发达国家药材企业库房信息系统的开发实现已经有三十数年0历史，至今有了长足0进步，有许多举世公认0成功0系统在药材企业库房有效地运转着。像盐湖城LDS药材企业库房0HELP系统，麻省总药材企业库房0COSTAR系统，退伍军人管理局的DHCP系统。纵观美国的医药库房发展历史，大概可分为三个阶段：第一种十年，集中在开发药材企业库房行政管理的功能上，像财务收费管理管理等。但到1972年COIIerl仍汇报美国迄今为止连一种成功0已完毕0全面药材企业库房（管理）计算机系统都没有。第二个十年，在继续完毕和实现药材企业库房管理信息0计算机化的同步，开发者0努力己进入医疗信息的处理领域，像病人医疗处理系统，试验室系统等。到1985年，美国全国药材企业库房数据处理工作调查表明，100张床位以上的药材企业库房80%实现了计算机财务收费管理，7(W向药材企业库房可支持病人挂号登记和行政事务管理，25%的药材企业库房有了较完整的MIS。药材企业库房信息系统正在经历着小型化(DOWnSiZing)、智能化(InteIIegenCe)和集成化(IntegratiOn)0¾改造过程。刺激美国药材企业库房采用计算机系统0重要原因。为病人提供更好、更快的服务，提高药材企业库房在医疗服务市场上B¾竞争力，以吸引更多病人到本院就医。人力工资的昂贵，迫使药材企业库房采用计算机以提高劳动效率。国家和保险企业为施行预付款制度(PrOSPCCtiVCPaymentSystem,PPS)而规定药材企业库房及时上交复杂0有关DRGs0汇报，迫使药材企业库房采用计算机技术。我国药材企业库房信息系统的研发工作，从八十年代初期算起，至今也有十数年时历史，其中经历了单机单任务日勺阶段，多机多任务的阶段以及微机网络一体化的阶段,应当承认，这期间我们有了很大进步。HlS的应用已经波及到许多方面，有些系统的功能(例如财务帐目管理、药物库存管理、住院病人管理等)也日趋完善。不过我国还没有在一家国家级的大型综合性药材企业库房真正实现完整09药材企业库房管理信息系统。药材企业库房对信息0需求永远是HIS发展B原动力。刺激我国药材企业库房广泛采用计算机信息系统0原因已经存在，并且会越来越广泛与强烈，其中较为突出0¾有：药材企业库房要强化自身的管理，逐渐实现医疗价格评价与按成本收费，实现药材企业库房内按成本核算与全面财务计划，并体目前建立和优化药材企业库房内合理的分派制度上，为此，每个药材企业库房都迫切需要建立自己的以财务管理为中心0药材企业库房管理信息系统。药材企业库房要加强医疗服务质量的自我监督、自我控制的能力，为病人提供更快更好的服务，必然要依赖于计算机信息系统。医疗制度的改革正在把病人一一药材企业库房的二元关系变化为病人一一药材企业库房一一保险机构一一政府监督0多元关系。大量B有关病人B诊断、治疗、用药、资源消耗的信息不仅在院内，并且要在许多部门之间流通、传递。这将是一件难以用手工完毕的繁杂的任务。1.2 业务流程分析本药物库房管理系统是一种针对医药经营企业现实状况的库存管理系统，为了更清晰的阐明框架，如图L1所示。系统流程图展示了本系统所有功能模块之间的逻辑关系，其中0各个功能模块，基本上都代表了一种独立0页面。IX供应科IV不合格 1?合格入座盛 二Z领药部门 领药单不合格F LS合格箍药堂.7出库、记帐入库、记帐主管部门图L1业务运转图1.3 数据流程图本药物库房管理系统是一种针对医药经营企业现实状况0库存管理系统，它从配送中心到门店0各个环节对人流、物流、资金流、信息流进行管理。由门店根据销售、库存生成缺货告知单，上传到配送中心，配送中心根据库存，对门店进行配送。同步,配送中心根据库存下限生成缺货分析，然后传到采购部，采购部对缺货分析修改后生成采购需求，进行采购。该系统业务运转图1.2如下：1.4 数据字典数据流图体现了数据和处理的关系，数据字典则是系统中各类数据描述的集合，是进行详细的数据搜集和数据分析所获得的重要成果。数据字典在数据库设计中占有很重要的地位。在分析阶段，数据字典可以建立严密、一致的数据定义来使得分析员和顾客之间的通信愈加顺历。它是系统中一系列数据信息以及数据流图中包括的所有元素的定义的集合，重要的用途是提供应查询有关条目的解释。因此，数据字典的作用是在软件分析和设计的过程中给人员提供有关的数据描述信息。它包括数据流，数据元素，数据存储及处理过程。酒店管理系统中使用数据字典来提供数据查询的解释。数据元素系统名：药物库房管理系统有关数据构造：药物入库表药物出库表数据元素系统名：药物库房管理系统表名：药物入库表数据流条目数据元素系统名：药物库房管理系统表名：药物入库退货表别名：RKTD数据元素系统名：药物库房管理系统表名：药物出库退货表别名：XSTD定义：药物出库退货表二商品名称+批号+产地+规格+包装+单位+数量+进价+金额+备数据元素系统名：药物库房管理系统表名：药物出库表别名：XSD数据元素系统名：药物库房管理系统表名：客户表别名：KH第2章系统设计2.1 总体设计2.1.1 功能设计药物库房管理系统是一种针对医药经营企业现实状况的库存管理系统，本系统模块清晰，思绪明确，本着各模块间0紧密联络，使得系统可以有效迅速得完毕指定任务，从而提高了企业效率，构造如下图2.1所示。图2.1系统功能图2. 1.2运行环境设计（一）编程环境的选择ViSUaIBaSiC6.O是WindOWS应用程序开发工具，具有直观0开发界面、先进0程序设计思想，是目前最为广泛的、易学易用B面向对象B¾开发工具。VB还提供了软件公布功能，使得开发、调试到公布可以一步完毕。故而，实现本系统VB是一种相对很好的选择。（二）关系型数据库的选择AeCeSS是一种功能强大0数据库开发工具，数据库汇集了信息以供查询、存储和检索。选择access数据库日勺最重要原因是，它支持网络数据库，目前企业规模日勺迅速扩大,车辆作为最重要的交通工具在企业中已经大量存在，为了合理控制这些信息，最佳的调配各部门的车辆使用，采用网络数据库是最理想的选择。ACCeSS服务器提供了可靠的数据保障，可以自动数据备份和访问日志的记录，可以进行详细时数据分析等操作。采用C/S模式0设计，可以愈加合理的运用企业资源，使得数据集中在一台服务器上，历来节省了数据库管理0人力资源，也使得由于非专业人士0误操作，或者别0多种电脑意外而导致数据丢失，或者别的不必要损失，因此在数据库选择上采用了access2.2 代码设计系统为每个产品设计了代码，首先可记录产品的特性，另方面是为了以便数据输入，在产品输入的输入产品代码即可文献名表名RKD药物入库表RKTD药物入库退货表XSD药物出库表XSTD药物出库退货表KC药物库存表GYS供应商表KH客户表2.3 数据库设计2.3.1概念设计由上面的数据项，可以设计出可以满足需求的多种实体及它们之间的关系，为背面0逻辑构造设计打下基础。这些实体包括多种详细信息，通过互相之间B作用形成数据的流动。实体与实体之间的E-R图，图中省略了实体的属性，请参照以上实体的属性。如图4.5所示：图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供应商编号供应商编号文本102供应商全称供应商全称文本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数据库和软件工程中的需求分析、数据库原理中所学到的知识,这使得初学者很轻易在短时期内对软件纯熟B应用和掌握，提高了系统0可操作性，更具有实用价值。E-R转换为关系模型一般遵照的原则:一种实体型转换为一种关系模型.实体的属性就是关系的属性,实体的码就是关系的码.第3章系统实行3.1程序实现本系统的应用程序开发是在上述系统设计的基础上，用软件开发工具ViSUalBasic6. O进行开发。开发环节如下:1 .设计顾客操作主界面如图3.1所示:图3.1设计顾客操作主界面其中重要代码如下：DimS,y,i'定义变量DimmydbAsDatabase定义数据库DimrslAsRecordset，定义字段Dimrs2AsRecordsetDimIsphAsInteger，定义一种整型变量PrivateSubForm_Load()'自动识别数据库途径Data1.DatabaseName=App.Path&"yyjxc.mdb"Data2.DatabaseName=App.Path&yyjxc.mdb"Data3.DatabaseName=App.Path&"yyjxc.mdb"mfl.Rows=102:mfLCoIs=12，定义mfl表B总行数、总列数定义mfl表0¾列宽和表头信息Fori=1ToIOlmfl.TextMatrix(i,O)=iNextirkrq.Text=Date'设置入库日期EndSubPrivateSubForm_Unload(CancelAsInteger)frm_main.Enabled=TrueEndSubPrivateSubgys_Change()DBListl,Visible=TrueDBListLReFiIl'查询供应商信息Data2.RecordSource=select供应商全称fromgyswhere(gys.供应商全称like+Chr(34)+gys.Text÷',*n+Chr(34)+”)or(gys.简称like“+Chr(34)+gys.Text+"*u+Chr(34)÷,')groupby供应商全称”Data2.RefreshEndSub3.2系统测试测试是一种为了寻找错误而运行程序时过程，一种好的测试用例是只也许找到迄今为止尚未发现错误0用例，一种成功0测试是揭示了迄今为止尚未发现0错误0测试。软件测试基本可分为白盒测试和黑盒测试。两种测试措施从不一样的角度出发，反应了软件时不一样侧面，也合用于不一样日勺开发环境。白盒测试又称构造测试、逻辑驱动测试或基于程序自身的测试，也可称为测试员测试，重要应用于构造化开发环境。黑盒测试又称功能测试、数据驱动测试或基于规格阐明的测试，也可被称为顾客测试，重要应用于迅速应用开发(RAD)环境。本例所用的是黑盒测试。在测试时，把程序看作一种不能打开的黑盆子，在完全不考虑程序内部构造和内部特性0¾状况下，测试者在程序接口进行测试，它只检查程序功能与否按照需求规格阐明书的规定正常使用，程序与否能合适地接受输入数据而产生对时时输出信息，并且保持外部信息(如数据库或文献)的完整性。黑盒测试措施重要有等价类划分、边值分析、因一果图、错误推测等，重要用于软件确认测试。“黑盒”法着眼于程序外部构造、不考虑内部逻辑构造、针对软件界面和软件功能进行测试。“黑盒”法是穷举输入测试，只有把所有也许0输入都作为测试状况使用，才能以这种措施查出程序中所有0错误。实际上测试状况有无穷多种，人们不仅要测试所有合法0输入，并且还要对那些不合法不过也许的输入进行测试。第4章课设总结通过两周的努力，我的系统的设计与分析终于有所成就。ViSUaIBaSiC提供可视化的开发环境，使用者可以像搭积木同样构建出程序的界面，并且ViSUaIBaSiC提供丰富0控件组，省去了自己编写代码实现这些效果0麻烦，可以把更多0精力放在程序功能时实现上。本课设述了结合运用软件开发工具ViSUalBasic6.O和ACCeSS实现开发药物库房管理系统的过程，详细论述了面向对象措施及其在信息系统开发中的应用和一种系统开发的过程和环节。通过药物库房管理系统时开发和毕业论文的写作，把已前所学的多种独立的课程融合起来，让我的理论知识和实际操作能力均有了一定程度的提高。此外我也发现自己在软件开发0规范化和编程技巧方面尚有很大0¾局限性，尤其是面向对象措施的运用还不够纯熟。药物库房管理系统会与越来越好的被应用在各大药房管理中，既便于管理，又简捷以便，可见它有着很好的发展前途。通过本次实习，让我学到了许多书本上所学不到时知识。由于在这段时间里，我学到在校园中无法学习到0知识和技能，更好0理论联络了实践，也更提高了自己各方面B素质，如通用能力。同步实习也给了我一定0工作经验，为未来寻求一份更好0职业打下了基础。参照文献1|周佩德，数据库原理及应用.北京：电子工业出版社，1988:38-1352李光明，VisualBasic6.O编程实例大制作.哈尔滨:冶金工业出版社，1988:40-833黄淼云,VB6.0办公自动化编程.北京：国防工业出版社，1990:14-214李大友,VisualBasic程序设计.北京:清华大学出版，1992:16-375.EricBrierley,VisualBasic开发人员指南.北京:机械工业出版社，1994:24-356陈明，VisualBasic程序设计.北京：中央电大出版，1987:42-567刘韬、骆娟,VisualBasic6.0实效编程百例.北京:人民邮电出版社，1992:10-218徐孝凯,数据构造（c+描述）.北京：中央电大出版，1988:32-469张红ViSUaIBaSiC6.0中文版应用与开发指南.北京:人民邮电出版社，2023:71-9710林立军.VisualBasic6.0数据库开发指南.西安：电子科技大学出版社,2023:77-8911张宏林ViSUaIBaSiC6.O.北京:人民邮电出版社，2023:90-12112宋伟.中文VB6.O编程基础.北京:清华大学出版社，2023:35-6013Jeffrey著.VisualBasic6.O数据库存访问技术.电子科技大学出版社，2023:66-8714|吴秉柔.精彩AeCESS2023中文版.北京:北京大学出版社，2023:95-12815李俊民,高春燕.Access数据库开发实例解析.北京:机械工业出版社，附录：DimX,i'定义变量PublicSubviewdata()'定义显示数据的函数Fori=OTo16IfDatal.Recordset.Fields(i)O”"Thengys(i).TextDatal.Recordset.Fields(i)Elsegys(i).Text="”NextiEndSubPrivateSubForm_Activate(),向combo1添加查询项目列表X=Array(供应商编号，供应商全称，简称，地址，所属地区，邮政编码，)Fori=0To7Combol.AddItem(x(i)NextiCombo1.Text=供应商全称'初始化给gys(i)赋值IfDatal.Recordset.RecordCount>0ThenCallviewdata'调用函数EndIfEndSubPrivateSubForm_Load()Datal.DatabaseName=App.Path&"yyjxc.mdb"'自动识别数据库途径EndSubPrivateSubFormUnload(CancelAsInteger)frm_main.Enabled-TrueUnloadMeEndSubPrivateSubComFind_Click()'查询供应商信息Datal.RecordSource="select*fromgyswhere(gys.&Combol.Text&&z,like"+Chr(34)+Textl.Text+"*+Chr(34)+")"Datal.RefreshCallviewdata'调用函数EndSubPrivateSubgys_KeyDown(IndexAsInteger,KeyCodeAsInteger,ShiftAsInteger)'回车获得焦点IfKeyCode=VbKeyReturnAndIndex<16Thengys(Index+1).SetFocusIfKeyCode=VbKeyReturnAndIndex=9ThenSSTabl.Tab=1IfKeyCode=VbKeyReturnAndIndex=16ThenComSaveM.SetFocusEndSubPrivateSubSSTabl_Click(PreviousTabAsInteger)IfDatal.Recordset.RecordCount>OThenIfSSTabl.Tab=2AndComAdd.Enabled=FalseThenMsgBox(您正在处理数据,请取消数据处理,在执行本操作！)SSTabLTab=OElseEndSubPrivateSubCmdMD_Click(IndexAsInteger)SelectCaseIndexCaseIs=O'移到第一条记录CaseIs=1'移到上一条记录IfDatal.Recordset.RecordCountO0ThenEndIfCaseIs=2'移到下一条记录IfDatal.Recordset.RecordCountO0ThenEndIfCaseIs=3'移到最终一条记录IfDatal.Recordset.RecordCountO0ThenEndSelectCallviewdata'调用函数EndSubPrivateSubComAdd_Click()'容许顾客添加新记录Fori=0To16gys(i).Text="”gys(i).Enabled=TrueNextiComSaveM.Visible-True:ComSaveA.Visible=False:ComSaveM.Enabled-True:ComEsc.Enabled=TrueFori=OTo3CmdMD(I).Enabled=FalseNextiComAdd.Enabled=False:ComModify.Enabled-False:ComDelete.Enabled-FalseSSTabl.Tab=O:gys(O).SetFocusEndSub