VB医药进销存管理系统(结构图+ER图)-论文.doc

VB医药进销存管理系统(结构图+ER图)-论文VB医药进销存管理系统(结构图+ER图)设计主要内容及目标：药品存销管理系统是典型的信息管理系统，本设计主要分为：库存药品管理、药品入库管理、药品出库管理。系统前端开发工具采用Visual Basic，后台数据库采用SQL Server2000。设计主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。其主要任务是用计算机对药品各种信息进行日常管理，如查询、修改、增加、删除，像药品信息系统、进口药品管理系统和出口药品管理系统。这部分可分为两段来写，前一段写内容，后一段写目标。本表在填写的过程中，不要改变原表格的大小。目 录（二字中间用空格）摘 要4第1章 绪论5第2章 需求分析62.1建立数据库62.2访问、操作并连接数据库62.3医药存销管理系统的结构图6第3章 数据库设计73.1概念模型设计73.1.1库存药品信息E/R模型73.1.2药品入库E/R模型73.1.3药品出库E/R模型83.2逻辑模型设计83.3 物理模型设计93.3.1建立库存药品信息（Drug_info）表93.3.2建立药品入库（Drug_import）表93.3.3建立药品出库（Drug_export）表10第4章 系统具体实现10第5章 结论13第6章 总 结14参考文献15附 录15摘 要计算机管理信息系统是一项系统工程，综合了计算机、网络、数据库、通讯技术，也包括了企业管理科学和众多丰富实践经验的总结。它是先进科学技术和现代企业经营管理结合的范例。它的产生和运行是企业经营管理发展到一定阶段、一定规模及特定经济环境下的必然要求。目前，全球药品市场竞争日益激烈，医药企业要想获得持续性的赢利取决于其是否能够赢得和保持相当的客户的满意度。经过分析，我们使用Visual Basic这项开发工具，利用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行系统。本软件是一个药物存销管理系统，是药厂管理系统中的一个重要组成部分。它不仅涉及的数据量巨大，而且要求具有极高的准确性、安全性和保密性，其建设成果的好坏直接关系到整个医院医务工作人员工作效率和数据的安全性。为此，本软件严格遵循软件工程规定的设计方法和步骤，采用面向对象的开发、分析技术，对系统进行了深入细致的研究。系统采用C/S模式开发，前台客户端采用Visual Basic开发，后台服务器采用SQL Server2000数据库。通过各客户端计算机接入医药库存的各项事务，实现库存管理规范性和安全性。同时作为医院信息系统的组成部分，将来可以有很好的扩展性和通用性。关键词：医院存销管理，SQL Server2000,Visual Basic 3-5个词 823VB医药进销存管理系统(结构图+ER图)第1章 绪论 随着我国市场经济的蓬勃发展和人们对医药产品需求的迅速增加,医药行业正处于一个高速发展的时期.行业的快速发展必然导致竞争的加剧,要想在激烈的市场竞争中谋求发展,客观上要求企业必须加强内部管理,提高运营销率.而我国大部分医药企业是由原来的国有零售药店改造或医药职工下海创办的,虽然经营实现了专业化,但是从信息机制上还没有摆脱原有的销售模式,企业内部没有形成完善、有效的激励和约束的信息化管理机制,企业发展的动力不足,从而影响了企业的持续、稳定、快速发展. 同时我国医药经营形式正在向集团化、连锁化发展.在这一发展过程中,旧的企业管理模式已不适应新型的社会主义市场经济的要求,而新的企业管理模式正在被广泛探讨、研究之中.这其中,如何利用现代信息技术使企业拥有快速、高效的市场反映能力和高度的效率,已是医药经营企业,特别是医药连锁经营企业特别关心的问题.再者,由于医药产品种类繁多、销售模式特殊、业务量大,单凭手工记账已很难适应工作的需要.医药作为一个关系到人们健康的特殊行业,国家对医药行业又有一些不同于其他行业的管理政策,这些都加大了管理的难度.如何尽快建立和完善现代企业的信息化管理机制问题,已成为医药企业发展的关键所在。 医药进销存管理系统是一个医疗单位不可缺少的部分，它的内容对于药品的管理是十分重要的。所以医药进销存管理系统不但为药品销售人员加快了工作的速度，而且也为企业提高了效益,但一直以来人们仍使用传统人工的方式管理药品，这种管理方式存在着许多缺点，如：效率低、工作量大等，而且，随着药品数量的增长，对于药品的查找，更新和维护都带来了不少的困难。 在人类跨入21世纪之际，席卷全世界的信息化浪潮正在全球范围内轰轰烈烈的上演，它已经深刻地渗透到现代社会的各个领域：通讯、经济、技术、政治等等。在医疗卫生领域，信息化概念的引入，尤其是医院信息系统的应用，大大改变了医院的管理模式和工作流程，对提高医院的管理水平、质量效益、经济效益、社会效益起到了巨大地促进作用。目前医药管理系统地应用已成为医院管理地重要工具和手段，它地引入有助于改变传统地工作方式，提高工作效率；提高经济效益；加强过程控制，提高医药管理质量；提高医院信誉，增强竞争能力；实现卫生资源共享；强化医院的科学管理。医药进销存管理系统是典型的信息管理系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。本系统的主要任务是用计算机对医药存销各种信息进行日常管理，如查询信息、修改信息、添加信息、删除信息等等，像库存药品信息系统、入库药品管理系统和出库药品管理系统。本设计主要分为五个阶段这其中包括：需求分析阶段，概念模型设计阶段，逻辑设计阶段，物理设计阶段及系统测试阶段，介绍程序的测试方法和测试结果。第2章 需求分析这里加一段文字，章部分一定要另起一页,这部分本文没写好。2.1建立数据库建立药品管理系统的数据库，在这个数据库中建立这三表，它们分别是库存药品信息表、药品入库表、药品出库表，并从中获得三个实体：2.2访问、操作并连接数据库这次药品存销管理系统一般按照以下三步曲进行：首先，是建立与药品存销管理系统的数据库的连接。其次，读取或查询数据库中记录，并显示在窗口中的各个可视控件中。最后，编辑数据并提交，完成数据插入、修改或删除等各种操作。以上三步完成以后，在进行与前台进行连接，在这之中，我们也可以进行数据的添加、修改、删除的操作，这样做可以完善数据库，同时，也要做药品存销管理管理系统的数据库备份，以便以后的操作。2.3医药存销管理系统的结构图：这个结构图主要是为了说明这个医药管理系统的基本信息，及这个数据库能实现的功能，还有能够通过此图，能够方便、快捷的了解本次数据库的药品存销管理系统的一些流程。图2-1结构图第3章 数据库设计这里应有一段文字说明数据库设计的必要性3.1概念模型设计这里也应用一段文字描述3.1.1库存药品信息E/R模型：（每个表都应该用E-R图）图3-1 库存药品信息E-R模型3.1.2药品入库E/R模型：图3-2 药品入库 E-R模型3.1.3药品出库E/R模型： 图3-3 药品出库 E-R模型VB医药进销存管理系统(结构图+ER图)3.2逻辑模型设计通过E/R模型到关系模型的转化，可以得到如下关系模式：库存药品信息实体集转换关系为: Drug_info (Drug_name, Drug_type, Import_price, Export_price, Drug_num, Import_time, Prodcom, Prodplace)药品入库进口实体集转换关系为:Drug_import(Import_name, Import_type, Import_num, Import_price, Import_time, Prodcom, Prodplace, Buyer)药品出库实体集转换关系为: Drug_export(export_name, export_type, export_num, export_price, export_time, Prodcom, Prodplace, Buyer, Patient_name, Patient_num)3.3 物理模型设计用SQL实现设计实现该设计的环境为 VB+SQLServer 2000.3.3.1建立库存药品信息（Drug_info）表：CREATE TABLE Drug_info ( Drug_type varchar(20) NOT NULL,Drug_name varchar(4), NOT NULL,Import_price money(8), NOT NULL,export_price money(8), NOT NULL,Import_num int(4), NOT NULL,Import_time date(10), NOT NULL,Prodcom varchar(10), NOT NULL,Prodplace varchar(10), NOT NULL,）3.3.2建立药品入库（Drug_import）表:CREATE TABLE Drug_import ( Import_name varchar(4), NOT NULL,Import_type varchar(20) NOT NULL,Import_num int(4) NOT NULL,Import_price money(8), NOT NULL,Import_time date(10), NOT NULL,Prodcom varchar(10), NOT NULL,Prodplace varchar(10), NOT NULL,Buyer varchar(4) NOT NULL, ）3.3.3建立药品出库（Drug_export）表:CREATE TABLE Drug_export (export_name varchar(4), NOT NULL,export_type varchar(20) NOT NULL,export_num int(4) NOT NULL,export_price money(8), NOT NULL,export_time date(10), NOT NULL,Prodcom varchar(10), NOT NULL,Prodplace varchar(10), NOT NULL,Buyer varchar(4) NOT NULL,Patient_name varchar(4), NOT NULL,Patient_num int(4) NOT NULL, ）第4章 系统具体实现 这部分应用一段文字说明（1）下面是程序运行时出现的登录窗口： 图4-1登录界面此程序的代号为aa 密码为空（2）在登录界面验证操作员密码后，将进入主程序界面。主程序界面主要实现如下功能：l选择主页面的菜单或工具栏，调用相应程序，进行相应操作。l显示当前系统的时间。 图4-2主程序界面（3）查询入库药品信息界面： 图4-3查询入库药品信息（4）查询库存药品信息界面： 图4-4查询库存药品信息（5）查询出库药品信息界面：图4-5查询出库药品信息VB医药进销存管理系统(结构图+ER图)第5章 结论医药进销存管理系统是一个医疗单位不可缺少的部分，它的内容对于药品的管理是十分重要的。所以医药进销存管理系统不但为药品销售人员加快了工作的速度，而且也为企业提高了效益,但一直以来人们仍使用传统人工的方式管理药品，这种管理方式存在着许多缺点，如：效率低、工作量大等，而且，随着药品数量的增长，对于药品的查找，更新和维护都带来了不少的困难。随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已被人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。并且，随着我国市场经济的蓬勃发展和人们对医药产品需求的迅速增加,医药行业正处于一个高速发展的时期.行业的快速发展必然导致竞争的加剧,要想在激烈的市场竞争中谋求发展,客观上要求企业必须加强内部管理,提高运营销率.而我国大部分医药企业是由原来的国有零售药店改造或医药职工下海创办的,虽然经营实现了专业化,但是从信息机制上还没有摆脱原有的销售模式,企业内部没有形成完善、有效的激励和约束的信息化管理机制,企业发展的动力不足,从而影响了企业的持续、稳定、快速发展。同时我国医药经营形式正在向集团化、连锁化发展.在这一发展过程中,旧的企业管理模式已不适应新型的社会主义市场经济的要求,而新的企业管理模式正在被广泛探讨、研究之中.这其中,如何利用现代信息技术使企业拥有快速、高效的市场反映能力和高度的效率,已是医药经营企业,特别是医药连锁经营企业特别关心的问题.再者,由于医药产品种类繁多、销售模式特殊、业务量大,单凭手工记账已很难适应工作的需要.医药作为一个关系到人们健康的特殊行业,国家对医药行业又有一些不同于其他行业的管理政策,这些都加大了管理的难度.如何尽快建立和完善现代企业的信息化管理机制问题,已成为医药企业发展的关键所在。医药管理系统是对医药信息进行管理的计算机网络软件系统，它可完成医院中各类药品信息的收集、传输、存储、使用。是融合了医院的管理思想、各部门的业务经验，以及对计算机技术的恰当运用的软件开发成果。药品管理是医院药品管理的核心，是节流增收最有潜力的环节。而在这管理系统中药品的存销管理也是非常重要的环节。 第6章 总 结药品存销管理系统是典型的信息管理系统 ，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。其主要任务是用计算机对药品各种信息进行日常管理，如查询、修改、增加、删除，像库存药品信息系统、入库药品管理系统和出库药品管理系统。本设计主要分为五个部分包括：需求分析，概念模型设计，逻辑设计，物理设计及系统测试，介绍程序的测试方法和测试结果。本医药进销存管理系统广泛适用于中、小型医药店。卫生站等场所。为方便医药药房药品批发零售和医药管理人员更有效的管理而开发。该系统可以帮助医药企业处理日常工作业务,规范管理工作和操作流程,是医药行业的得力助手。通过这次课程设计，我深深的认识到，如果仅仅只是运用理论知识，是远远不够的。我们必须理论联系实际，才能很好的将数据库设计这门课程学好，并用于实际案例中，也学到了不少的知识，在做实验中也遇到了不少的困难，最后都在老师的精心的指导下，解决了困难，也让我学到了许多解决问题的能力。同时，经过这次课程设计，我发觉自己的动手操作能力变强了，也为自己对以后的科研、工作充满信息和希望打下了良好的基础。参考文献1 闪四清.数据库系统原理与应用教程清华大学出版社, 2003:6-102 微软公司 .Microsoft SQL Server 2000北京电子出版社,2002:8-103 萨师煊、王珊.数据库系统理论高等教育出版社,2000.2:6-104 张艳Visual Basic 程序设计教程中国矿业大学出版社 10-135鲁荣江、王立丰Visual Basic项目案例导航科学出版社 10-13VB医药进销存管理系统(结构图+ER图)附 录登录窗口的代码如下：Public objRS As New ADODB.RecordsetPrivate Sub Command1_Click()If RTrim(objRS.Source) = RTrim(Text2.Text) Then Unload Mefrm_Main.ShowElse MsgBox 密码不正确，请您重新录入！, 0 + 64, 提示 End If End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Set objRS = Nothing objRS.Open select * from login where daihao= & Text1.Text & , cn, 3, 3 If objRS.EOF = True Then MsgBox 没有找到记录，请您重新录入！, 0 + 64, 提示 Exit Sub Else Label4.Caption = objRS!Name Text2.SetFocus End IfEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then SendKeys tabEnd IfEnd Sub主窗体的代码如下：Private Sub Form_Load()End SubPrivate Sub Menu_im_add_Click() frm_im_add.ShowEnd SubPrivate Sub Menu_im_del_Click() frm_im_del.ShowEnd SubPrivate Sub Menu_im_upd_Click() frm_im_upd.ShowEnd SubPrivate Sub Menu_im_que_Click() frm_im_que.ShowEnd SubPrivate Sub Menu_inf_add_Click() frm_inf_add.ShowEnd SubPrivate Sub Menu_inf_del_Click() frm_inf_del.ShowEnd SubPrivate Sub Menu_inf_upd_Click() frm_inf_upd.ShowEnd SubPrivate Sub Menu_inf_que_Click() frm_inf_que.ShowEnd SubPrivate Sub Menu_ex_add_Click() frm_ex_add.ShowEnd SubPrivate Sub Menu_ex_del_Click() frm_ex_del.ShowEnd SubPrivate Sub Menu_ex_upd_Click() frm_ex_upd.ShowEnd SubPrivate Sub Menu_ex_que_Click() frm_ex_que.ShowEnd SubPrivate Sub Menu_quit_Click() Unload MeEnd Sub声明数据库的代码如下：保存执行SQL语句的字符串Public SqlStmt As String服务器名称Public ServerName As String读取表中列值的变量Public ColVal As String保存药品入库信息Public Import As New Durg_import保存库存药品信息Public Information As New Drug_info保存药品出库信息Public Export As New Drug_exportPublic objConn As New ADODB.ConnectionPublic objRS As New ADODB.RecordsetPublic Sub OpenDB() objConn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=药品管理系统;Data Source=YE-1DE908B5D56F objConn.Open End SubPublic Sub CloseDB() objConn.CloseEnd Sub添加药品库存信息的代码如下：Private Sub Cmd_Add_Click() Dim strSQL As String OpenDB strSQL = Select * from Drug_info objRS.Open strSQL, objConn, adOpenDynamic, adLockOptimistic objRS.AddNew objRS.Fields(1).Value = Trim(Drug_name.Text) objRS.Fields(2).Value = Trim(Drug_type.Text) objRS.Fields(3).Value = Trim(Import_price.Text) objRS.Fields(4).Value = Trim(Export_price.Text) objRS.Fields(5).Value = Trim(Drug_num.Text) objRS.Fields(6).Value = Trim(Import_time.Text) objRS.Fields(7).Value = Trim(Prodcom.Text) objRS.Fields(8).Value = Trim(Prodplace.Text)VB医药进销存管理系统(结构图+ER图) objRS.Update objRS.Close CloseDB MsgBox 记录已添加!, vbOKOnlyUnload MeEnd SubPrivate Sub Fault_Click() Unload MeEnd Sub删除药品库存信息的代码如下：Private Sub Cmd_del_Click()Dim QueName As StringDim strSQL As String QueName = Trim(del_que.Text)If QueName = Then MsgBox 查询内容不能为空, vbOKOnly Exit SubElse OpenDB strSQL = Select * from Drug_info Where Drug_name = + QueName + objRS.Open strSQL, objConn, adOpenDynamic, adLockPessimistic If objRS.EOF Then MsgBox 没有所查询的药品, vbOKOnly objRS.Close CloseDB Exit Sub Else objRS.Close strSQL = Delete from Drug_info Where Drug_name= + QueName + objConn.Execute (strSQL) CloseDB MsgBox 记录已删除, vbOKOnly End If End IfEnd SubPrivate Sub Cmd_del_que_Click()Dim QueName As StringDim strSQL As String QueName = Trim(del_que.Text)If QueName = Then MsgBox 查询内容不能为空, vbOKOnly Exit SubElse OpenDB strSQL = Select * from Drug_info Where Drug_name = + QueName + objRS.Open strSQL, objConn, adOpenDynamic, adLockPessimistic If objRS.EOF Then MsgBox 没有所查询的药品, vbOKOnly objRS.Close CloseDB Exit Sub Else Drug_name.Text = objRS.Fields(1).Value Drug_type.Text = objRS.Fields(2).Value Import_price.Text = Str(objRS.Fields(3).Value) Export_price.Text = Str(objRS.Fields(4).Value) Import_time.Text = Str(objRS.Fields(5).Value) Drug_num.Text = Str(objRS.Fields(6).Value) Prodcom.Text = objRS.Fields(7).Value Prodplace.Text = objRS.Fields(8).Value End If End IfobjRS.CloseCloseDBEnd SubPrivate Sub Fault_Click()Unload MeEnd Sub修改药品库存信息的代码如下：Private Sub Cmd_upd_Click()Dim QueName As StringDim strSQL As String QueName = Trim(del_que.Text)If QueName = Then MsgBox 查询内容不能为空, vbOKOnly Exit SubElse OpenDB strSQL = Select * from Drug_info Where Drug_name = + QueName + objRS.Open strSQL, objConn, adOpenDynamic, adLockPessimistic If objRS.EOF Then MsgBox 没有所查询的药品, vbOKOnly objRS.Close CloseDB Exit Sub Else objRS.Fields(1).Value = Drug_name.Text objRS.Fields(2).Value = Drug_type.Text objRS.Fields(3).Value = CDbl(Import_price.Text) objRS.Fields(4).Value = CDbl(Export_price.Text) Import_time.Text = Str(objRS.Fields(6).Value objRS.Fields(5).Value = CDbl(Drug_num.Text) objRS.Fields(7).Value = Prodcom.Text objRS.Fields(7).Value = Prodplace.Text MsgBox 记录已修改, vbOKOnly objRS.Update objRS.Close CloseDB End If End IfEnd SubPrivate Sub Cmd_upd_que_Click()Dim QueName As StringDim strSQL As String QueName = Trim(del_que.Text)If QueName = Then MsgBox 查询内容不能为空, vbOKOnly Exit SubElse OpenDB strSQL = Select * from Drug_info Where Drug_name = + QueName + objRS.Open strSQL, objConn, adOpenDynamic, adLockPessimistic If objRS.EOF Then MsgBox 没有所查询的药品, vbOKOnly objRS.Close CloseDB Exit Sub Else Drug_name.Text = objRS.Fields(1).Value Drug_type.Text = objRS.Fields(2).Value Import_price.Text = Str(objRS.Fields(3).Value) Export_price.Text = Str(objRS.Fields(3).Value) Import_time.Text = Str(objRS.Fields(5).Value) Drug_num.Text = Str(objRS.Fields(2).Value) Prodcom.Text = objRS.Fields(7).Value Prodplace.Text = objRS.Fields(7).Value End If End IfobjRS.CloseCloseDBE