药品销售管理信息系统

1、摘 要随着医疗业的发展，引入全方位的电脑服务和电脑管理日益流行。同时，药店引入电脑服务和管理也取得了优良的经济效益和社会效益。药店在正常的运营中需要对药品进出库，药品销售数量等信息进行管理，利用药品销售管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率。默默现有的管理工作主要依靠手工完成，工作量大，且效率不高。为了能更好地利用现代信息技术的成果，提高管理工作的效率和水平，以适应企业发展的需要，决定开发药品销售管理系统。药品销售管理系统是目前应用于公司的典型代表，涉及到了药品管理中的几个重要方面，即进货、销售、存货。为了提高管理水平和工作效率，最大限度的减少手工操作带来的错误。于是，药

2、品销售管理系统应运而生。关键词：药品销售；实施；Visual FoxProAbstractAlong with the development of medical industry, the introduction of full range of computer service and computer management became increasingly popular. At the same time, the enterprise introducing computer service and management also achieved good economi

3、c and social benefits. In normal operation of enterprise needs to outbound drugs, drug sales quantity for the management, and use of drug sales management information system to realize the links of the change of information, and to improve the efficiency of management. Cut the current management wor

4、k mainly rely on done by hand, workload is big, and the efficiency is not high. In order to make better use of the modern information technology achievements, but also to improve the management efficiency and level, in order to adapt to the needs of the development of the enterprise, decided to deve

5、lop drugs sale management system. Drug sales management system is currently used in the typical representative of the company, involving the drug management of several important aspects, that is, purchase, sales and stock. In order to improve the level of management and work efficiency, minimize man

6、ual operation bring mistake. So, pharmaceutical sales management system came into being. Keywords: drug sales; implementation；Visual FoxPro目 录1 前言11.1 作业背景11.2 选题说明11.2.1 基本思路11.2.2 作业目标11.3 工作业绩11.3.1 个人主要工作21.3.2 主要收获21.3.3 自我评定21.3.4 小组成员任务分工情况22 系统规划32.1 项目名称32.2 问题定义与项目开发背景32.3 可行性分析32.4 结论33 系

7、统分析43.1 用户需求分析43.1.1 系统现状43.1.2 用户需求43.2 系统详细功能分析53.2.1 功能结构分析53.2.2 业务流程分析53.2.3 数据流程分析63.2.4 数据字典64 系统设计84.1 总体设计84.2 详细设计94.2.1 数据库需求分析94.2.2 数据库概念结构设计95 系统实施115.1 物理系统的实施115.2 程序编写115.2.1 创建“Splash”表单115.2.2 创建“系统登录”表单125.2.3 信息管理145.2.4 日常操作175.2.5 信息查询19结束语22参考文献23默默药品销售管理系统开发1 前言1.1 作业背景本文根据管

8、理信息系统开发实践课程要求而做。课程作业要求如下：用管理信息系统开发工具开发一个使用的小型管理信息系统。1. 根据合理的进度安排，按照系统开发的流程及方法，踏实的开展课程设计活动。2. 根据选题的具体需求，在开发各个环节中撰写相关的技术文档，最后提交详细的课程设计报告。3. 开发出可以运行的管理信息系统。1.2 选题说明管理信息系统软件能使您的公司在工作效率、管理水平有一个较大的提高，减少您不必要的浪费，使您对您的药品信息的收集、整理等做到心中有数，使您的决策、计划更科学、更合理，以适应当今竞争日趋激烈的环境。1.2.1 基本思路计算机进行药品的进销存以及财务、人事等管理工作，不仅能够保证药品

9、的进销存的核算正确无误，而且还可以严格规范企业的应收应付管理，并利用先进的管理模式，推动企业的快速发展。实现企业管理工作的系统化、规范化和自动化。1.2.2 作业目标由于医药产品种类繁多、销售模式特殊、业务量大，单凭手工记账很难适应工作的需要。医药作为一个关系到人们健康的特殊行业，国家对医药行业又有一些不同于其他行业的管理政策，这些都加大了管理的难度。如何尽快建立和完善现代企业的信息化管理机制，已成为医药企业生存发展的关键所在。1.3 工作业绩1.3.1 个人主要工作本人在这个小组里面的主要工作是负责系统实施中表单的设计与制作方面的内容。1.3.2 主要收获在这次课程设计中，主要工作是负责系统

10、实施中表单的设计与制作方面的内容。虽然在其中遇到了一些困难，但是通过查阅资料和请教其他同学，这些问题得到了解决。我掌握了如何制作表单，了解了系统实施的过程，对管理信息系统有了更深刻的了解。1.3.3 自我评定 优 良 中 及格 不及格1.3.4 小组成员任务分工情况本组为本次课程设计三班第2组，组长为：李欣，小组所有成员分工如下表：表1.1成员分工 学号姓名任务 备注李欣系统规划组长孙贺楠系统分析组员王飞虎系统设计组员王天琪系统实施组员李玲玮系统实施组员2 系统规划2.1 项目名称默默药品销售管理系统2.2 问题定义与项目开发背景 经调查，默默医药管理系统包括药品的进销存管理，还包括企业的财务

11、、人事等的管理。它是企业信息化管理的重要组成部分.医药管理是一项琐碎、复杂而又十分细致的工作。手工进行企业日常的进销存等工作，容易出现“开空单”的现象，且呆账、错账时有发生。正是医药管理的这种重复性、规律性、时间性，使得医药管理计算机信息化成为可能。计算机进行药品的进销存以及财务、人事等管理工作，不仅能够保证药品的进销存的核算正确无误，而且还可以严格规范企业的应收应付管理，并利用先进的管理模式，推动企业的快速发展。实现企业管理工作的系统化、规范化和自动化。2.3 可行性分析1.技术可行性分析：现行的网络技术和计算机技术完全能满足进销存管理信息系统的功能要求。管理信息系统在国内外是一个技术上成熟

12、的系统，有可行的技术保证。2.经济可行性分析：该公司用于系统开发的预算可满足设备的投入和人力投入。3.组织管理可行性分析：该企业的领导层准备采用具体的措施落实人员、资金等方面的保证。管理人员已充分认识到对药品进销存实现规范的计算机管理的重要性，企业内部管理机构健全，管理制度比较完善，能保证系统所需要的基础数据准确、真实。2.4 结论综上所述，该药品销售管理信息系统具备可开发的条件，项目可行，建议开始开发。3 系统分析3.1 用户需求分析3.1.1 系统现状目前药品公司没有药品管理系统，全部工作都是手工进行登记记录，但随着数据的增加，业务的增加，竞争的加剧，传统的手工管理的缺点就明显的暴露出来：

13、处理时间长，数据容易遗漏、错报，丢失。相反，计算机信息化管理有着储存信息量大、速度快等许多优点完全弥补了手工管理的不足，同时也提高了我们工作人员的自身素质。3.1.2 用户需求用户希望通过使用药品销售管理系统得到所需信息，达到提高管理水平的目的，希望新系统具有以下功能：1.信息管理药品信息管理：用来管理系统中要用来进货、出货操作的药品的信息，包括添加、修改、删除和查询信息。2.日常操作（1）药品进货操作：用来完成药品的进货操作。（2）药品出货操作：用来完成药品的出货操作。3.信息查询（1）库存信息查询：用来查询库存的商品信息，可以按照药品的编号、药品名称和药品类别来查询，可以将查询结果打印输出

14、。（2）进货信息查询：用来查询药品的进货记录，可以按照药品编号、药品名称、药品类别、经手人和进货日期查询，可以将查询结果打印输出。（3）出货信息查询：用来查询药品的出货记录，可以按照药品编号、药品名称、药品类别、经手人和出货日期查询，可以将查询结果打印输出。4.系统管理（1）修改密码：用来修改登录系统用户的密码，长时间地使用一个密码可能会使密码不安全，导致整个系统的不安全，因此有必要定期修改密码。（2）退出系统：对销售的相关信息进行录入、查看、修改，添加后可以点击退出系统。3.2 系统详细功能分析3.2.1 功能结构分析经过对药品销售公司整体的管理水平进行分析，明确它的销售管理组织结构图。如图

15、3.1所示：药品销售系统销售信息销管理销售日常操作销售信息查询销售系统管理存货信息查询商品信息管理商品进货操作商品出货操作出货信息查询进货信息查询修改密码退出系统图3.1 系统结构分析图3.2.2 业务流程分析通过对药品公司进行调查分析，得出药品公司销售管理系统业务流程图如下。业务流程图的图例说明如下图：系统外部实物或单据处理实物或信息流动方向数据存储图3.2 业务流程图的图例库存查询药品采购营业员充足库存表药品出库药品和现金顾客现金药品入库不充足库存表库存表图3.3 系统主要业务流程图3.2.3 数据流程分析数据流程图的图例说明如下图2.7：外部项(S)数据加工(P)数据存储(D)数据流(F

16、)图3.4 数据流程图的图例一级数据流程图，一级数据流程图是对顶层数据流程图的第一次分解，确定实现系统功能的主要数据处理过程，给出药品销售管理系统的基本结构。S1营业员查询库存P1D1F1不足库存信息P2药品采购查询库存P4S1营业员D2库存信息检查库存是否充足信息F2充足库存信息药品出库P3S2顾客F3药品和现金图3.5 一级DFD3.2.4 数据字典数据字典是对数据流程图中所出现的所有数据元素给出定义。包含数据项、数据结构、数据流、数据存储、处理逻辑、外部实体六个条目。4 系统设计4.1 总体设计药品销售管理系统开发需要投资费用和未来的运行维护费用，其中投资费用主要包括设备费用、人员费用、

17、材料费用及其他费用，如由于工作方式改变需要增加的其他开支，通常为了保证新系统运行的可靠性，要求手工和计算机处理在长时间并存。系统的收益主要通过新系统销售来实现，但有些指标也是难以计算的，例如如下指标： 货物管理中节省的人力，减轻的劳动强度。 降低的成本及其他成本。 改进薄弱环节，提高了工作效率。 提高数据处理的及时性和准确性。 其他各种有利方面。 图4.1 系统功能模块图4.2 详细设计4.2.1 数据库需求分析系统开发的总体任务是实现宾馆各种信息的系统化、规范化和自动化。主要完成功能： 进货信息中要包括药品信息。 出货信息中要包括药品信息。 库存信息中要包括药品信息。 药品信息中要包含唯一值

18、的字段。经过上述系统功能分析和需求总结，考虑到将来功能上的扩展，设计如下面所示的数据项和数据结构： 药品信息，包含药品编号、药品名称、药品单位、药品单价、类别、产地及说明等。 进货信息，包含进货编号、药品编号、进货单价、进货数量、进货时间、经手人、供货单位等。 出货信息，包含出货编号、药品编号、出货单价、出货数量、出货时间、经手人、接收人及说明等。 库存信息，包含药品编号、库存说明和说明等。 系统设置，包含药品类别等。 用户信息，包含用户名、密码等。4.2.2 数据库概念结构设计根据设计规划出的实体包括“药品信息”实体、“进货信息”实体、“出货信息”实体、“库存信息”实体和“用户信息”实体。各

19、个实体的具体的描述E-R图介绍如下。 图4.2“药品信息”实体的E-R图 图4.3“进货信息”实体的E-R图 图4.4“出货信息”实体E-R图 图4.5“库存信息”实体E-R图 图4.6“用户信息”实体E-R图5 系统实施系统实施是药品销售系统开发工作的最后一个阶段。在本小组中我的任务是创建表单与代码编写。所谓实施指的是将系统设计阶段在计算机上实现。将原来纸面上的，类似于设计图似的房源信息查询系统开发方案换成可执行的应用软件系统。5.1 物理系统的实施 按照系统物理配置方案的要求，进行系统的硬件、软件及网络的购置、安装、调试及设置，完成本系统的工作平台的建立。 硬件：CPU选用奔腾4，2.8

20、内存2G，硬盘80G软件：Visual FoxPro 6.0,Windows XP5.2 程序编写5.2.1 创建“Splash”表单“Splash”表单用于程序的第一个界面，来显示程序的名称。“Splash”表单运行结果如下：图5.1“Splash”表单“Splash”表单中“Timer”事件代码如下： ISFORM.label2.left=thisform.width thisform.label2.left=0 else thisform.label2.left=thisform.label2.left+1 endif i=int(rand()*255) j=int(rand()*255

21、) k=int(rand()*255) thisform.label1.forecolor=rgb(i,j,k)“Splash”表单中“进入”按钮的“Click”事件代码如下： do form logon Thisform.release5.2.2 创建“系统登录”表单“系统登录”表单是用于检验用户是否有正确的用户名与密码，为系统安全提供一层保护。图5.2“系统登录”表单“系统登录”表单中“确定”按钮的“Click”事件代码如下：set exact onif alltrim(thisform.textuser.value)= messagebox(请输入用户名,48,药品销售管理) thisf

22、orm.textuser.setfocus returnendifUSER_N=alltrim(thisform.textuser.value)user_p=alltrim(thisform.textuser.value) local is_useris_user=.F.select 用户信息go topdo while .NOT.eof() is_user=(user_n=用户信息.用户名).and.(user_p=用户信息.密码) if is_user exit else skip endifenddoif is_user cCurUser=ALLTRIM(THISFORM.TextUse

23、r.Value) DO FORM MainForm THISFORM.RELEASE else messagebox(用户名或用户密码不正确!,0+16,药品销售管理) thisform.textuser.value= thisform.textpass.value= thisform.textuser.setfocus endif set exact off “系统登录”表单中“取消”按钮的“Click”事件代码如下： thisform.release clear events quit“系统登录”表单中“先浏览看看”按钮的“Click”事件代码如下： DO FORM MAINFORM TH

24、ISFOEM.RELEASE5.2.3 信息管理创建“商品信息管理”表单“商品信息管理”表单用来管理系统中的商品信息，包括：浏览、添加、修改和删除商品记录。“商品信息管理”表单：图5.3“商品信息管理”表单“商品信息管理”表单中“查询”按钮的“Click”事件代码如下：do form searchkey“商品信息管理”表单中“添加”按钮的“Click”事件代码如下：select 药品信息thisform.oldreord=recno()append blankselect 药品信息thisform.formmdethisform.setmodethisform.refresh“商品信息管理”表

25、单中“编辑”按钮的“Click”事件代码如下：if this.caption=编辑 select 药品信息 thisform.oldreord=recno() thisform.formmde=.t. thisform.setmode thisform.refresh returnendifif this.caption=保存 if empty(alltrim(thisform.txt药品编号.value) messagebox(药品编号不能为空,48,药品销售管理) thisform.txt药品编号.setfocus return endif if empty(alltrim(thisfor

26、m.txt药品名称.value) messagebox(药品名称不能为空,48,药品销售管理) thisform.txt药品名称.setfocus return endif if empty(alltrim(thisform.txt药品单位.value) messagebox(药品单位不能为空,48,药品销售管理) thisform.txt药品单位.setfocus return endif if thisform.txt药品单价.value0 go thisform.oldreord endif thisform.formmde=.f. thisform.setmode thisform.r

27、efresh endif return endif if this.caption=删除 yn=messagebox(确认删除,4+32,药品销售管理) if yn=6 select 药品信息 delet pack thisform.checkempty endif endif“商品信息管理”表单中“退出”按钮的“Click”事件代码如下：Thisform.release5.2.4 日常操作以创建“商品出货操作”表单为例“商品出货操作”表单用来进行商品出货操作。“商品出货操作”表单：图5.4“商品出货操作”表单“商品出货操作”表单中“确定”按钮的“Click”事件代码如下：outno=allt

28、rim(thisform.txt出货编号.value)pno=thisform.cmb药品编号.valueoutcount=thisform.txt出货数量.valueoutprice=thisform.txt出货单价.valueouttime=thisform.txt出货时间.valueoutperson=alltrim(thisform.txt经手人.value)outdanwei=alltrim(thisform.txt接收人.value)outnote=thisform.edt说明.valueif pno= messagebox(药品编号为空或者错误,48,药品销售管理) thisfo

29、rm.cmb药品编号.setfocus returnendifdimension recnum(1)recnum=2select count(*) from 药品信息 where 药品编号=pno into array recnumif recnum1 messagebox(药品编号错误,48,药品销售管理) thisform.cmb药品编号.setfocus returnendifif thisform.txt库存数量.value=0 messagebox(该药品没有库存,48,药品销售管理) thisform.cmb药品编号.value= thisform.cmb药品编号.setfocus

30、 returnendifif outcount=0 messagebox(出货数量错误,48,药品销售管理) thisform.txt出货数量.setfocus returnendifif outprice=0 messagebox(出货单价错误,48,药品销售管理) thisform.txt出货单价.setfocus returnendifif outperson= messagebox(经手人不能为空,48,药品销售管理) thisform.txt经手人.setfocus returnendifbegin trans Insert into 出货信息 values(outno,pno,ou

31、tcount,outprice,outtime,outdanwei,outperson,outnote) update 库存信息 set 库存数量=库存数量-outcount where 药品编号=pnoend transif thisform.check1.value=1 report form outview for 出货编号=thisform.txt出货编号.value previewendifmessagebox(出货成功,64,药品销售管理)thisform.initthisform.refresh“商品出货操作”表单中“取消”按钮的“Click”事件代码如下：Thisform.re

32、fresh5.2.5 信息查询“药品销售系统”中的信息查询模块由“进货信息查询”、“出货信息查询”和“库存信息查询”3个功能组成，分别由“进货信息查询”、“出货信息查询”和“库存信息查询”3个表单完成。以创建“进货信息查询”表单为例“进货信息查询”表单用来查询“进货信息”表中的进货记录，并以“InView”视图为查询对象。“进货记录查询”表单运行结果如下图5.5“进货记录查询”表单“进货记录查询”表单中“Init”事件代码如下：public searchfiltersearchfilter=.t.select inviewset filter tothisform.refresh“进货记录查询

33、”表单中“查询”按钮的“Click”事件代码如下：searchfilter=.t.if not empty (alltrim(thisform.txt药品编号.value) searchfilter=searchfilter + and + alltrim(thisform.txt药品编号.value) + $药品编号endifif not empty (thisform.txt药品名称.value) searchfilter=searchfilter + and + alltrim(thisform.txt药品名称.value) + $药品名称endifif not empty (alltrim(thisform.cmb药品类别.value) searchfilter=searchfilter + and + alltrim(thisform.cmb药品类别.value) + $类别endifif not empty (alltrim(thisform.txt经手人.value) searchfilter=searchfilter + and + alltrim(thisform.txt经手人.value) + $经手人endifi