药品存销信息管理系统

摘要在我国，随着医药卫生体制改革的深入，医药连锁经营的推行以及日趋激烈的商业角逐，越来越多的医药经营企业意识到提高企业管理水平的重要性,也迫切要求加快管理信息化的进程。药品信息管理系统是专门针对医药企业、药店的综合业务而开发的系统，集进、销、存、决策于一体，同时还集成了财务管理、报表打印、查询统计、备份恢复等多种实用的功能。在医药行业中，医药经营企业的物流管理以及相应的财务处理、信息处理，长期以来一直采用手工操作，但随着产业结构调整、全新的市场竞争环境，企业管理和运营效率已经成为企业成败的关键所在，手工方式的弊端毕现无遗。这就要求医药管理摆脱过去人手操作的烦琐，充分满足了医药经营企业的各种需求，从医药经营企业的各个环节对人流、物流、资金流、信息流进行统一系统的管理。市场的需求和技术的支持，最终会导致越来越多的优秀医药管理软件的出现，并在竞争中得到不断的完善和优化。系统采用二层C/S结构，前台开发工具选用性能比较稳定可靠的Visual

Basic，后台数据库选用目前比较流行MicrosoftSQLSever2000。整个系统从符

合操作简便、界面友好、灵活、实用、安全的要求出发，完成药品信息、药品信

息管理的全过程。目录TOC\o"1-5"\h\z摘要 1\o"CurrentDocument"一、绪论 3\o"CurrentDocument"1.1课题背景 3\o"CurrentDocument"二、可行性研究 4\o"CurrentDocument"可行性分析 4\o"CurrentDocument"2.1.1技术可行性 4\o"CurrentDocument"2.1.2操作可行性 4\o"CurrentDocument"2.1.3经济可行性 4\o"CurrentDocument"三、功能需求 5\o"CurrentDocument"3.1药品信息管理功能 5\o"CurrentDocument"3.2员工信息管理功能 5\o"CurrentDocument"3.3客户息管理功能 5\o"CurrentDocument"3.4出库入库管理功能 5\o"CurrentDocument"四、数据库设计 5\o"CurrentDocument"4.1设计思想 5系统用户表设计 6药品信息表设计 6员工信息表设计 6出库入库信息表设计 7客户信息表设计 7E-R图 8\o"CurrentDocument"五、系统流程 8\o"CurrentDocument"六、系统功能模块的设计与实现 9\o"CurrentDocument"6.1系统登录的实现 9\o"CurrentDocument"6.2注册用户模块设计 11\o"CurrentDocument"6.3系统主界面的设计 12\o"CurrentDocument"6.4更新信息子模块 13\o"CurrentDocument"查询信息子模块 14\o"CurrentDocument"七、心得与体会 16一、绪论课题背景如何利用现代信息技术使企业拥有快速、高效的市场反映能力和高度的效率，已是医药经营企业，特别是医药连锁经营企业特别关心的问题。尽快建立一个功能齐备的药品进、出库管理系统，完善现代企业的信息化管理机制，已成为医药企业生存发展的当务之急。通过开发这个药品管理系统，使药品进销存管理工作系统化，规范化，自动化，从而达到提高管理效率的目的。随着计算机技术的飞速发展，计算机在系统管理中的应用越来越普及，利用计算机实现各个系统的管理显得越来越重要。对于一些大中型管理部门来说，利用计算机支持管理高效率完成管理的日常事务，是适应现代管理制度要求、推动管理走向科学化、规范化的必要条件；而药品管理是一项琐碎、复杂而又十分细致的工作，药品数量之庞大、单价的变化、进货厂商的不同，一般不允许出错，如果实行手工操作，每天进货的情况以及进货时间等须手工填制大量的表格，这就会耗费药品管理工作人员大量的时间和精力，如果利用计算机进行这些管理工作，不仅能够保证各种核算准确无误、快速记录，而且还可以利用计算机对有关的各种信息进行统计，服务于财务部门其他方面的核算和财务处理，同时计算机具有手工管理所无法比拟的优点，例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高管理的效率,也是管理行业的科学化、正规化管理，与世界接轨的重要条件。基于以上的原因，有很多从事软件开发的人员，在试卷生成方面做了很大的研究。目前这一领域也以良好的发展姿态而不断进步，早期已经有了一些类似的系统，但经过软件开发人员不断的完善，大致形成了具备如下功能的系统：这个药品管理系统主要涉及医院药库的药品进、销、存等业务，以及入库、出库和库存管理，药品管理主要管理药库中所有药品的进出和内部统计计算，为药品会计提供基础数据，以及包括有效期的报警和下限报警。本系统开发设计思想就是实现药品管理的数字化。二、可行性研究2.1可行性分析当接受一个软件开发任务，就进入软件生命的第一个阶段，即进行可行性的研究。并不是所有问题都具有简单的解决办法，许多问题不能在预定的规模之内解决。可行性分析就是在系统调查的基础上，针对新系统的开发是否具备必要性和可能性，对新系统的开发从技术、经济、社会的方面进行分析和研究，以避免投资失误，保证新系统的开发成功。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决。2.1.1技术可行性根据客户提出的系统功能、性能及实现系统的各项约束条件，根据新系统目标，来衡量所需的技术是否具备。本系统主要采用数据库管理方法，服务器选用微软的SQLServer2005数据库，他是它是目前能处理所有中小型系统最方便的流行数据库，它能够处理大量数据，同时保持数据的完整性并提供许多高级管理功能。它的灵活性、安全性和易用性为数据库编程提供了良好的条件。硬件方面，该系统短小精悍对赢家没有太大要求，只要能够运行windowsxp就可以很好的运行该软件。另外在划单操作中可用磁条来触发事件的响应，这项技术也已经很成熟。2.1.2操作可行性操作可行性要考虑系统的操作方式在用户组织内是否能够实行。本系统采用基本数据库操作方式。本系统采用用户界面交互方式，并有必要的帮助信息，凡是熟悉电脑操作的人员无需培训均可短时间内掌握本系统的操作方法。2.1.3经济可行性估算新系统的成本效益分析，其中包括估计项目开发的成本，开发费用和今后的运行、维护费用，估计新系统将获得的效益，估算开发成本是否回高于项目预期的全部经费。并且，分析系统开发是否会对其它产品或利润带来一定影响。本系统作为一个课程设计因此无需考虑。三、功能需求药品信息管理功能管理员在初始化药品库存的时候，要先添加药品，建立药品库，对所有药品实行编码并生成相应的编号。药品添加要把药品所有信息进行添加，包括药品编号、药品名称、生产厂家、生产日期、保质期、用途、价格、数量、经手人等；对于添加的药品数据信息也可以进行相应的修改，或者删除，全凭用户需要。员工信息管理功能系统将记录每个员工的信息，包括员工编号、姓名、性别、年龄、学历、职务等，可以对员工信息进行更新，查询功能3.3客户息管理功能系统需对客户信息进行记录。包括客户编号、姓名、联系方式、购买时间、购买药品编号、名称、数量等.可以对客户信息进行查询，添加，删除，修改。3.4出库入库管理功能系统可以能对出库的详细信息进行记录，包括当前库存信息、药品存放位置、入库数量和出库数量的统计，以便统计库中个药品的库存量，了解各个药品的销售情况。并对库存进行准确的更新。四、数据库设计4.1设计思想数据库表以二维表的形式存储在硬盘中，可以方便的用select语句进行组合查询，进而用视图的形式显示所要信息。本系统分五个模块，需要用数据库建立五个表格，首先要设置用户表以便登入系统，还有分别对药品信息，员工信息，客户信息，出库入库信息进行单独管理。

4.1.1系统用户表设计该表是存储管理员用户名和密码的信息表，以供登录时候用户名和密码的验证。列名数据类型长度允许空登录名Char10否密码Char10否药品信息表设计该表是存储药品信息的表，主要用来存储药品的药品编号、药品名称、生产厂家、生产日期、保质期、用途、价格、数量、经手人列名数据类型长度允许空药口口编号char10不药品名称char10不生产厂家varchar50不生成时间datetime8不保质期datetime8不用途varchar50不价格Int4不数量Int4不经手人char10不表1药品信息（药品编号为主键）员工信息表设计该表存放了员工的基本信息，包括汽车的员工编号、姓名、性别、年龄、学历、职务列名数据类型长度允许空员工编号char10否

姓名char10否性别char10否年龄int4是学历varchar50是职务varchar50否表2出库入库信息表设计该表主要存储了出库入库的信息，包括当前库存药品编号信息、药品存放位置、入库数量和出库数量。列名数据类型长度允许空药口口编号Char10否药品存放位置Char10否入库数量Int4是出库数量Int4是表3客户信息表设计该表主要存储了客户的信息，包括客户编号、姓名、联系方式、购买时间购买药品编号、名称、购买数量列名数据类型长度允许空客户编号char10否姓名Char10是联系方式Char10是购买时间Datetime8是购买药品编号Char10否

名称Char10否数量Int4是表44.2E-R图保质期姓名名称W性别编号家m药品生产家数量职务学历经手人提供拥有包括当前库姓名mn客尸药品存放数量名称购买药品编号生产日期价格丿//购保质期姓名名称W性别编号家m药品生产家数量职务学历经手人提供拥有包括当前库姓名mn客尸药品存放数量名称购买药品编号生产日期价格丿//购J买入库和出员工图1五、系统流程首先，管理员使用密码登录信息管理系统，登录后便可以对药品管理员工管理，顾客管理，出库入库管理，子系统进行相应的操作，如：查看、

增加、删除、修改等。也可以在执行操作结束后突出系统。用户登录药品信息操作工信息操作顾客信息操作出库入库信息操作药品信息操作工信息操作顾客信息操作出库入库信息操作退出系统图2流程图六、系统功能模块的设计与实现6.1系统登录的实现系统登录界面也是药品信息管理系统的第一个界面，其界面如图3图3用户可以通过这个界面进入主页面对其他模块进行管理，如对药品相关信息进行修改，添加，查询，删除。同样，在主页面中，以后可以修改自己密码，或者注册新的用户。用户要登录本系统，首先需要输入用户名和密码，在登录过程中验证用户名和密码是否正确，是否为空，如果不正确或者为空，就会弹出相应的对话框，提示用户输入错误，不能进入该系统。当用户名和密码都输入正确，打开数据库，进入系统管理界面。登录代码如下：PrivateSubCommand1_Click()sql="select*from用户表where登录名='"&Text1.Text&"'and密码='"&Text2.Text&"'"DimmessageinfoAsString'Setrs=ExecuteSQL(sql,messageinfo)rs.OpenTrim$(sql),conn,adOpenKeyset,adLockOptimisticIfrs.EOF()=TrueThenMsgBox"用户名或密码有误"ElseMsgBox"登录成功”"frm_Main.ShowUnloadMeEndIfrs.CloseEndSub

注册用户模块设计当需要添加新的用户的时候，进入添加新的用户界面，输入需要添加的用户的用户名和密码，用户名不能和数据库中已有的用户名相同，两次输入的密码必须一致，然后点击添加按钮，即可完成对管理员用户的添加，添加用户设计界面如图4：图4实现功能部分关键代码如下：sql="insertinto用户表values('"&Text1.Text&"','"&Text2.Text&"')"IfText2.Text=Text3.TextThenconn.ExecutesqlEndIfIfText1.Text=""OrText2.Text=""ThenMsgBox"输入有误"ElseIfText2.Text=Text3.TextThenMsgBox"注册成功"Form1.ShowUnloadMeElseMsgBox"密码不一致"EndIf系统主界面的设计系统主界面，也就是程序主窗体frm_main,它是整个系统的主要操作界面，也是在登录之后出现的系统操作界面，采用菜单结构，简单明了，主要包括系统，药品信息，员工信息，客户信息，出库入库信息4个模块，管理员可以通过这个界面进入到相应的模块里面，完成对药品信息，员工信息，客户信息，出库入库信息的管理工作。主界面所拥有的功能是通过整个系统子程序的调用,提供工具菜单中的操作方式，方便管理员用户根据需要选择进入不同的模块，如图5：药品倍息员工洁息客户倍息出库入库信息迎进入药品存销管理系统药品存销管理耒薮退出药品倍息员工洁息客户倍息出库入库信息迎进入药品存销管理系统药品存销管理耒薮退出I返回登录界面I力”起腾.图5调用子模块代码如下：PrivateSubMenu_yg_add_Click()frm_yg_add.ShowEndSub更新信息子模块在药品管理中，更新新的药品信息是一件很平常的事情。在添加药品信息子模块的设计时候,使用text文本框添加汽车信息,药品编号、药品名称、生产厂家、生产日期、保质期、用途、价格、数量、经手人进入更新操作，此功能可分为添加药品、修改药品和删除药品。添加药品时输入相应的药品信息点添加即可完成。修改药品时，先输入选择要修改的药品信息，在又边的表中搜查找。删除药品时，也同样要输入药品信息，在表中药品中，选择要删除的药品信息。如图6：图6实现功能部分关键代码如下：添加sql="insertintoypxxvalues('"&yp_sno.Text&"','"&yp_name.Text&"','"&Prodcom.Text&"','"&yp_time.Text&"','"&bzq.Text&"','"&yt.Text&"','"&yp_price.Text&"','"&yp_cout.Text&"','"&Checker.Text&"')"conn.ExecutesqlMsgBox"成功添加"sql="select*fromypxx"rs.Closers.OpenTrim$(sql),conn,adOpenKeyset,adLockOptimisticSetDataGrid1.DataSource=rs修改rs.Fields(0)=yp_sno.Textrs.Fields(1)=yp_name.Textrs.Fields(2)=Prodcom.Textrs.Fields(3)=yp_time.Textrs.Fields(4)=bzq.Textrs.Fields(5)=yt.Textrs.Fields(6)=yp_price.Textrs.Fields(7)=yp_cout.Textrs.Fields(8)=Checker.Textrs.UpdateDataGrid1.Refresh删除DimaskAsIntegerask=MsgBox("真的要删除吗"，vbYesNo+vbQuestion)Ifask=6Thenrs.Deleters.UpdateDataGrid1.RefreshEndIf与数据库连接代码：PrivateSubForm_Load()connStr="Provider=SQLOLEDB.1;PersistSecurityInfo=False;"_&"UserID=sa;PWD=sa;InitialCatalog=py"EndSub查询信息子模块进入查询界面，输入想要查询的药品编号，点击查询，将会列出相应的药品信息。图7实现功能部分关键代码如下：Setconn=NewADODB.Connectionconn.Open"Provider=SQLOLEDB.1;DataSource=(local);UserID=sa;password=sa;InitialCatalog=py"DimsqlcmdAsStringsqlcmd="SELECT*FROMypxxWHEREsno='"&yp_que.Text&"'"DimrssAsNewADODB.Recordsetrss.CursorLocation=adUseClientrss.