VB+access药品供销存贮系统(系统+封面+开题报告+论文+任务书...

admin

摘  要
随着计算机技术的普及，医药经营企业逐渐借助计算机技术去完善医药的管理和提高自身的工作效率，以赢得市场竞争的胜利。医药管理信息系统已经成为各医药经营企业实现医药管理网络化和信息化的必备工具，是医药经营企业规模经营管理不可缺少的部件之一。同时，软件开发环境的高度集成和数据库技术的日益成熟大大降低了系统的开发成本。系统开发工具的智能化、人性化，使得所开发的系统充分满足了医药经营企业的各种需求，从医药经营企业的各个环节对人流、物流、资金流、信息流进行统一系统的管理。
本课题是基于VB6.0和access数据库的应用技术，设计一个“药品进销存管理系统”。目的是实现医药库存信息的基本管理，摆脱手工记录的弊端，力图使得所开发的系统充分满足医药经营企业的各种需求，适用于中小药店以及小型诊所的进销存管理。主要有以下几个功能模块：（1）系统登录模块，实现系统登录。（2）日常时务模块，管理药品的入库、销售。（3）库存管理管理模块，实现库存的查询、库存的盘点、管理价格、报警低储存量（4）查询管理模块，查看所有药品的入库、销售基本信息。（5）基本信息管理模块，提供客户、供应商、仓库、业务员的基本管理。（6）系统设置模块，实现用户的基本密码设置、初始化系统、以及系统数据的保护。（7）其他方面模块，给系统进一步的开发可持续性、实现在药品流通中的药品报损与流通费用的统计。本文只就（2）（3）（4）模块进行详细的阐述。
该系统采用模块化原理编程，提高了系统的可靠性，模块规模适中，本身相对独立。
关键词:药品进销存管理，数据库，Visual Basic，Access


Abstract
With the popularity of computer technology. TCM enterprises gradually perfecting the use of computer technology to medicine and to improve their work efficiency, market competition in order to win the victory. Medical Management Information System has become the medical and pharmaceutical enterprises, network management and information technology as a hedge, Management is the medical management of the scale one of the indispensable components. Meanwhile, a highly integrated software development environment and database technology greatly reduce the increasing maturity of the system development costs. System Development Tool intelligent, humane, making the system fully developed to meet the medical needs of business enterprises, Enterprises from all aspects of the flow of medicine, logistics, capital flow, information flow unified system management.
The topic is based on Visual Basic 6.0 and database access technology, Design of a "drug inventory management system." Information is the basic purpose of medical inventory management manual records from the ills trying to make the system fully developed to meet the needs of pharmaceutical enterprises. Small pharmacies and clinics in the small inventory management. Mainly in the following modules : (1) entry module system to achieve download system. (2) daily times module, the storage management of pharmaceutical sales. (3) inventory management module, the realization of inventory inquiries, stock inventory and price management. Alarm low storage capacity (4) on the management module, check to see all the medicines, sales of basic information. (5) basic information management module provides customers, suppliers, warehouses, the basic sales management. (6) install the module, users can set up the basic passwords, system initialization, and data protection. (7) other modules to the system to further the development of sustainability, realize the drugs in the pharmaceutical distribution and circulation costs of reported losses. Only on paper (2) (3) (4) modules are described in detail.
The system uses modular programming principles to improve the reliability of the system, module size and, in itself relatively independent.
Key words : pharmaceutical inventory management, database, Visual Basic, Access


目 录
摘  要        I
Abstract        II
第一章 系统概述        1
1.1开发背景        1
1.2系统设计目标        1
1.3系统设计环境        2
1.3.1 Visual Basic介绍        2
1.3.2 Access数据库介绍        3
第二章 系统分析        5
2.1 系统可行性研究        5
2.2 现行系统的详细调查        6
2.2.1现行系统的管理职能        6
2.2.2 业务流程分析        6
2.3现行药品销售管理存在的问题        8
2.4 功能需求        8
2.5 性能需求        9
2.6 运行环境需求        10
2.7 安全性、保密性、可靠性的要求        10
2.8界面要求        11
2.9异常处理要求        11
2.10新系统逻辑模型的提出        11
第三章 数据库设计与实现        13
3.1数据库分析（E-R图）        13
3.2数据库逻辑结构设计        14
第四章 系统各模块的编码与实现        19
4.1日常时务模块        19
4.1.1入库单操作界面        19
4.2库存管理模块        21
4.2.1库存查询操作界面        21
4.2.2库存盘点操作界面        22
4.2.3价格管理主要操作界面        23
4.2.4库存报警操作界面        24
4.3查询统计模块        25
4.3.1入库查询操作界面        25
第五章 系统测试与维护        29
5.1系统测试        29
5.2系统维护        29
结  论        31
参考文献        32
致  谢        33





第一章 系统概述
1.1开发背景
随着计算机技术的飞速发展，计算机在系统管理中的应用越来越普及，利用计算机实现各个系统的管理显得越来越重要。对于一些大中型管理部门来说，利用计算机支持管理高效率完成管理的日常事务，是适应现代管理制度要求、推动管理走向科学化、规范化的必要条件；而药品管理是一项琐碎、复杂而又十分细致的工作，药品数量之庞大、单价的变化、进货厂商的不同，一般不允许出错，如果实行手工操作，每天进货的情况以及进货时间等等须手工填制大量的表格，这就会耗费药品管理工作人员大量的时间和精力，如果利用计算机进行这些管理工作，不仅能够保证各种核算准确无误、快速记录，而且还可以利用计算机对有关的各种信息进行统计，服务于财务部门其他方面的核算和财务处理，同时计算机具有手工管理所无法比拟的优点，例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高管理的效率,也是管理行业的科学化、正规化管理，与世界接轨的重要条件[1]。
如何利用现代信息技术使企业拥有快速、高效的市场反映能力和高度的效率，已是医药经营企业，特别是医药连锁经营企业特别关心的问题。尽快建立一个功能齐备的药品进销存管理系统，完善现代企业的信息化管理机制，已成为医药企业生存发展的当务之急。
1.2系统设计目标
通过开发这个药品管理系统，使药品进销存管理工作系统化，规范化，自动化，从而达到提高管理效率的目的。
本系统开发设计思想。
尽量采用现有软硬件环境，及先进的管理系统开发方案，提高系统开发水平和应用效果的目的；系统应符合企业管理的规定，满足日常管理的需要，并达到操作过程中的直观，方便，实用，安全等要求；系统采用模块化程序设计方法，这样既便于系统功能的各种组合，又便于未参与开发的技术维护人员补充，维护；系统应具备数据库维护功能，及时根据用户需求进行数据的添加，删除，修改等操作[3]。
1.3系统设计环境
1.3.1 Visual Basic介绍
现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有很多，作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic 6.0是Microsoft公司推出的基于Windows环境的计算机程序设计语言,它继承了Basic语言简单易学的优点，同时增加了许多新的功能。由于Visual Basic采用面向对象的程序设计技术，摆脱了面向过程语言的许多细节而将主要精力集中在解决实际问题和设计友好界面上，是开发Windows应用程序更迅速、更简捷[2]。
1.提供了面向对象的可视化编程工具
VB把程序和数据封装在一起视作一个对象。设计程序时只需从现有的工具箱中“拖”出所需的对象，如按钮、滚动条等，并为每一个对象设置属性
2.事件驱动的编程方式
在VB中，程序员只需编写响应用户动作的代码，而各个动作之间不一定有联系，这样的应用程序代码一般比较短，所以程序易于编写与维护。
3.结构化的程序设计语言
VB具有丰富的数据类型和结构化程序结构，其特点是：
(1)        增强了数值和字符串处理功能，比传统的BASIC语言有许多的改进。
(2)        提供了丰富的图形及动画指令，可方便的绘制各种图形。
(3)提供了定长和动态数组，有利于简化内存管理。
(4)增加了递归过程调用，使程序更为简练。
(5)提供了一个可供应用程序调用的包含多种类型的图标库。
(6)具有完善的调试、运行出错处理。
4.提供了易学易用的应用程序集成开发环境
在VB的集成开发环境中，用户可设计界面、编写代码、调试程序，直至将应用程序编译成可执行文件在Windows上运行，使用户在友好的开发环境中工作。
5.支持多种数据库系统的访问
数据访问特性允许对包括access和其他企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。利用数据控件可访问Microsoft Access、Dbase Microsoft FoxPro、Paradox等，也可以访问Microsoft Excel、Lotusl1-2-3等多种电子表格。
1.3.2 Access数据库介绍
数据库技术是计算机领域中最重要的技术之一，是计算机软件学科的一个独立分支。数据库技术的出现使设计应用渗透到工农业、商业、行政、科研、工程、国防军事等各部门，渗透到社会的每个角落，并且正在改善着人们的工作方式和思维方式。
Access 数据库管理系统是Microsoft Office 套件的重要组成部分，是Access的最新版本，可在Windows 95环境下运行。Access适用于小型商务活动，用以存贮和管理商务活动所需要的数据。Access不仅是一个数据库，而且它具有强大的数据管理功能，它可以方便地利用各种数据源，生成窗体（表单），查询，报表和应用程序等。数据库是有结构的数据集合,它与一般的数据文件不同，(其中的数据是无结构的)是一串文字或数字流。数据库中的数据可以是文字、图象、声音等[4]。
Microsoft Access是一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。比如一个“产品”表的例子。“产品”表由10个记录组成，一个记录占一行，每一个记录由产品ID、产品名称、库存量、订货量、单价和折扣率6个字段组成。“产品ID”是字段名，其下面的1，2等是字段的值。表与表之间可以建立关系（或称关联，连接），以便查询相关联的信息。Access数据库以文件形式保存，文件的扩展名是MDB。Access 数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。与Access 以前的版本比较，Access 新增了许多功能，字段类型增加了OLE对象和超级链接，特别是与Internet的融合，在数据库中可以直接链接到指定的Web页面或网络文件，也可以把Web页面上的表格导入到数据库。Access 可以方便地利用各种数据源，包括dBASE, FoxBase,FoxPro,Excel,Word 等。Access 增加了数据库访问的安全机制，可对表一级设置访问许可权。Access 还可以方便地利用FoxPro数据库、Excel电子表格的数据，还可以和Word混合使用，打印通用信函或信封。其主要特点如下：
1.存储方式单一
Access管理的对象有表、查询、窗体、报表、页、宏和模块，以上对象都存放在后缀为（.mdb）的数据库文件种，便于用户的操作和管理。
2.面向对象
Access是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能对象化，将数据库管理的各种功能封装在各类对象中。它将一个应用系统当作是由一系列对象组成的，对每个对象它都定义一组方法和属性，以定义该对象的行为和外国，用户还可以按需要给对象扩展方法和属性。通过对象的方法、属性完成数据库的操作和管理，极大地简化了用户的开发工作。同时，这种基于面向对象的开发方式，使得开发应用程序更为简便。
3.界面友好、易操作
Access是一个可视化工具，其风格与Windows完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设计器以及数据库向导、表向导、查询向导、窗体向导。
第二章 系统分析
为了准确的确定目标系统所要完成的功能，必须全面的了解用户的需求，分析药品管理中的问题，借鉴现行相关管理系统的分析进一步明确了各种需求，从而提出新系统逻辑模型。
2.1 系统可行性研究
随着计算机技术的发展和普及,各行各业的管理机构需要由计算机处理大量的信息，逐步实现智能化，从以前的以人为主到今天的以机器为主。在我国药品品种繁多，规模甚大，以往的手工记载、查询操作容易出错且工作效率低，浪费许多人力和物力，对管理人员会造成诸多的不便，还有可能疏忽一些细节，使顾客的利益将受到侵害。综上所述，药品进削存管理系统的开发及应用是有前景的，有意义的，且是势在必行的[6]。
库品进销存管理系统的目标是按照管理信息系统的原理和方法采用成熟的信息技术和手段支持管理中的各项工作。包括库存管理中的各项工作，其数据来源由用户通过键盘输入，从而提高了效率。从技术、资金与操作三方面就可行性进行分析。
技术可行性：该系统在技术上是可行的。Visual Basic 6.0是开发应用程序最为强大的工具之一，且有广泛的技术支持，Microsoft access具有比较完备的数据库管理功能。
经济可行性：本系统属单机系统，需购置微机、打印机各一台以及各种相关软件，采用自主开发方式，所需费用不超过4万元，系统开发成功，正常运转，将减少药品积压，加快资金周转，杜绝药品浪费现象，更有效地保障药材公司库房的正常运行，所产生的效益远大于所需费用。
操作可行性：只要仓库保管员有一定的计算机操作能力，不需要专门培训，在使用、维护中将不会遇到大的困难。
2.2 现行系统的详细调查
2.2.1现行系统的管理职能
现行系统在药品进销存方面基本上实现了药品的入库、销售管理，能够对药品进行查询，与价格管理。其管理职能图如下：






图2-1 管理职能
2.2.2 业务流程分析
此次业务分析主要是针对行政管理系统比如医院等部门进行的调研，但对单用户及小型的医药公司同样具有类似的流程。







                  


























图2-2 业务流程图

2.3现行药品销售管理存在的问题
在提出新的系统逻辑模型先对医药管理中存在的问题进行分析使我们作到有的放矢，有针对性的进行系统设计，作到以最少的代价设计出最完美的系统。
1.药品销售采用手工管理
在手工管理条件下，由于商品编码无规律，要想从几万种商品中查找某一种产品所费的时间和精力极大。
2.商品有效期须进行严格控制
药品和化学试剂作为一种特殊的商品，时效性强。需要严格控制其有效期，对批次号的管理要求严格，而手工管理很难作到及时、准确。
3.业务量大
由于产品品种多、客户数量多，造成业务量很大。手工进行各项业务劳动效率极低，致使财务及管理部门所需的各种经营数据及经营分析报表无法及时得到。
因此，在网络经济环境下，企业管理和运营效率已经成为企业成败的关键所在，手工方式的弊端毕现无遗。因此，从根本上改革管理手段已经刻不容缓，经营和管理必须依托于一套完善的信息系统来开展。目前，医药销售管理系统成为医药企业规模经营管理的核心工具。医药管理系统需求分析所要做的工作就是深入描述系统的功能和性能，确定系统设计的限制和系统同其他系统元素的接口细节，定义系统的其他有效性需求。在对它进行需求分析的过程中，必须正确地表达和理解医药管理系统的数据功能，然后按自顶向下、逐层分解的方式对医药销售管理系统中所遇到的问题进行分解和不断细化，最好确定系统的总体需求。
2.4 功能需求
药品进销存管理系统通过各个子模块为用户提供药品管理数据的各种操作，并要保证数据的安全和一致。其中药品销售系统作为基本的系统，其基本流程是合法用户登陆执行操作，系统功能图要求如下。


                                                 失败











图2-4 系统功能图
2.5 性能需求
1.存储容量
医药管理系统使用数据库管理数据。随着时间的推移和企业规模的扩大，数据必定越来越多，在原有磁盘容量不足的情况下，必须把以前的数据进行备份转存。而且，为了保证系统的正常运行，数据库的大小应该可以动态增长，并且保证在数据容量超过一定限制的时候，提示用户备份数据。
2.响应时间
这是一个主观的要求，不同用户对满意的响应时间有着不同的看法。在多用户同时操作的时候，必须把响应时间的长度限制在一定的范围内，让每个用户都满意。
3.吞吐量
吞吐量主要用来衡量处理速度的快慢。当响应时间限制在一定长度范围内的时候，处理越多的数据，吞吐量就越大。由于采用C／S的结构方式，吞吐量的瓶颈主要就在网络和数据库。网络方面可以通过建设快速局域网并对网络进行有效的管理，防止网络阻塞，从而得到实现。而且在数据库方面，对数据库服务器的速度、性能有着具体的要求，要求数据库可以快速地并发处理多个查询，使得整个系统有较高的吞吐量。
2.6 运行环境需求
1.运行软件平台
WINDOWS操作系统作为当今最流行的操作系统，得到了广泛的使用，由于这个原因，本系统采用WIN32平台开发，适用于WIN98、WIN2000、WIN XP。
2.运行硬件平台
医药管理系统的数据库运行在服务器上，而其应用程序则可以在X86兼容机上运行，同时要保证机器的存储容量足够放下应用程序。
3.使用人员要求
要求普通的操作人员具有适用WINDOWS系统的经验；而对数据库的管理人员则要求他们具有扎实的数据库理论基础和数据库管理经验，并且最重要的是他们要有良好的思想道德素质，保证数据不人为地外泄。
2.7  安全性、保密性、可靠性的要求
1.安全性和保密性
数据库数据的安全应能确保当数据库系统死机时，当数据库数据存储媒体被破坏时以及当数据库用户误操作时，数据库中医药管理信息不至于丢失。并且，为了保护数据库系统不被非法用户侵入它，应尽可能地堵住潜在的各种漏洞，防止非法用户利用它们侵入数据库系统[5]。对于数据库数据的安全问题，数据库管理员必须参考有关系统双机热备份功能以及数据库的备份和恢复的资料。
2.可靠性
系统应该为用户提供良好的可靠性，尽量减少投入运行后失效的概率，保证医药管理信息系统在除了操作系统崩溃外的其他时候能够稳定地运行。
2.8界面要求
医药管理信息系统采用图形用户界面（GUI）设计原则，界面直观、对用户透明：用户接触软件后对界面上对应的功能一目了然、不需要多少培训就可以方便使用本系统。界面设计员应该明白软件中用户是所有处理的核心，不应该由应用程序来决定处理过程，所以用户界面应当由用户来控制应用如何工作、如何响应，而不是由开发者按自己的意愿把操作流程强加给用户。同时在界面设计中要保持界面的一致性。一致性既包括使用标准的控件，也指使用相同的信息表现方法，如在字体、标签风格、颜色、术浯、显示错误信息等方面确保一致。保证布局合理化的时候应注意在一个窗口内部所有控件的布局和信息组织的艺术性，使得用户界面美观。由于，系统是基于Gul操作的，因而不会提供命令行操作。
2.9异常处理要求
在运行过程中出现异常情况的时候，应采取相应的措施保证系统的稳定运行和数据的—致性，并向用户显示相应的出错信息。首先，数据的范围限制、非法操作等检测由开发人员通过在应用程序中编写相关的代码完成。其次，数据输入的类型异常、关系约束等则由数据库负责检查，并提示出错信息。最后，临时性和永久性的资源故障由操作系统负责对异常进行处理[3]。
2.10新系统逻辑模型的提出
通过如上的一系列需求分析，同时与此课题的其他模块的同学协作沟通，提出如下的新系统模型。










       


图2-5 新系统模型



第三章 数据库设计与实现
3.1数据库分析（E-R图）
药品销售系统中用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输入和输出，收集基本数据以及数据处理的流程，组成一份详细的销售系统功能结构图。












图3-1 销售系统功能结构图
由这个完整的销售功能结构图我们可以看出日常时务管理、库存管理还有查询统计都与药品有关，所以最基本的一个信息实体就是药品信息实体。针对药品销售信息系统的需求，通过工作过程的内容和数据流程分析，我们设计出药品信息实体的数据项和数据结构：
药品基本信息：药品名称、简称、批号、产地、规格、包装、单位、进价、库存、库存金额、备注。
得到上面的数据项和数据结构以后，就可以设计出能满足用户需求的药品基本信息实体。
药品基本信息实体（E-R图）：






        .
图3-2 药品基本信息
3.2数据库逻辑结构设计
现在需要将上面的数据库概念转化为access数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。由于考虑到本系统是应用在单机系统上，另外根据药品进销存管理系统的规模我们只建立起一个数据库，在此数据库基础上建立起如下表：

表3.1 库存表(kc)
列名        数据类型        可否为空        说明
商品名称        文本        Not null       
简称        文本        Not null       
批号        文本        Not null       
产地        文本        Not null       
规格        文本        Not null       
包装        文本        Not null       
单位        数字        Not null       
进价        数字        Not null       
库存        数字        Not null       
库存金额        数字        Not null       
库存表是此系统数据库中基本的表，新入库的药品除保存在入库单外也将被保存到此表中，当系统运行查询时务时向系统提供数据。
表3.2  入库单表（rkd）
列名        数据类型        可否为空        说明
商品名称        文本        Not null       
简称        文本        Not null       
批号        文本        Not null       
产地        文本        Not null       
规格        文本        Not null       
包装        文本        Not null       
单位        数字        Not null       
数量        数字        Not null       
进价        数字        Not null       
金额        货币        Not null       
备注        文本         null       
入库单表将新入库的药品保存在此表中，当要查询新入库药品是向系统提供查询数据。
表3.3  入库退单表（rktd）
列名        数据类型        可否为空        说明
商品名称        文本        Not null       
批号        文本        Not null       
产地        文本        Not null       
规格        文本        Not null       
包装        文本        Not null       
单位        文本        Not null       
数量        数字        Not null       
进价        数字        Not null       
金额        货币        Not null       
备注        文本        Not null       
供应商        文本        Not null       
日期        日期/时间        Not null       
经手人        数字        Not null       
票号        数字        Not null       
药品入库时会有一些不合格药品，入库退单就是将这些不合格药品记录在表中从而用户也可以从表中了解供应商的供货质量。当查询入库退货药品时向系统提供数据。

表3.4  销售单（xsd）
列名        数据类型        可否为空        说明
商品名称        文本        Not null       
批号        文本        Not null       
产地        文本        Not null       
规格        文本        Not null       
包装        文本        Not null       
单位        文本        Not null       
数量        数字        Not null       
进价        数字        Not null       
金额        货币        Not null       
备注        文本        Not null       
客户        文本        Not null       
日期        日期/时间        Not null       
经手人        数字        Not null       
票号        数字        Not null       
销售单将向客户出售的药品记录在此表中，当系统查询某段时间内销售的药品时为系统提供数据。



表3.5 销售退单（xstd）
列名        数据类型        可否为空        说明
商品名称        文本        Not null       
批号        文本        Not null       
产地        文本        Not null       
规格        文本        Not null       
包装        文本        Not null       
单位        文本        Not null       
数量        数字        Not null       
进价        数字        Not null       
金额        货币        Not null       
备注        文本        Not null       
客户        文本        Not null       
日期        日期/时间        Not null       
经手人        数字        Not null       
票号        数字        Not null       
用户向客户销售药品可能有不完全符合客户要求的药品，那么这些药品将被记录在销售退单中以备查询退货药品时向系统提供数据。







第四章 系统各模块的编码与实现
4.1日常时务模块
日常时务是该系统的基本模块，其中包括四个小的分支：入库单操作界面，入库退单操作界面，销售单操作界面，销售退单操作界面。四个分支所设计的操作界面相似。
4.1.1入库单操作界面
图4-1 入库单
说明：药品入库时首先单击“登记”命令件，录入相应的信息后单击“保存”新购药品就被添加到入库(rk)数据库表中。票号与入库日期自动生成。任务拦中入库品种、合计数量、合计金额项自动生成。
其中主要代码如下:
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\yyjxc.mdb"
Data2.DatabaseName = App.Path & "\yyjxc.mdb"
Data3.DatabaseName = App.Path & "\yyjxc.mdb"
以上代码为数据控件指定数据库名使其能自动识别数据库路径。
Data2.RecordSource = "select 供应商全称 from gys where ((gys.供应商全称  like " + Chr(34) + gys.Text + "*" + Chr(34) + ")or (gys.简称 like " + Chr(34) + gys.Text + "*" + Chr(34) + "))group by 供应商全称"
Data2.Refresh
以上代码利用查询语句为Dblist控件指定数据源，以便Dblist控件能够显示供应商信息。
DBList1.Visible = False
mf1.Text = text1.Text     
If mf1.Col = 1 Then
按简称或商品名称查询库存商品信息
Data1.RecordSource = "select * from kc where ((kc.简称 like " + Chr(34)
+ text1.Text + "*" + Chr(34) + ")or(kc.商品名称 like " + Chr(34)
text1.Text + "*" + Chr(34) + "))"
Data1.Refresh
If text1.Text = "" Then     
grid1.Visible = False   
If Data1.Recordset.RecordCount > 0 Then     
grid1.Visible = True            
以上代码表示当在text1的文本框中输入药品名称时，Data控件会利用一查询语句来查询库存药品当符合条件的药品存在时会自动的显示。

4.2库存管理模块
库存管理模块主要实现对库存药品的日常管理，包括库存查询、库存盘点、价格管理、库存报警。
4.2.1库存查询操作界面











图4-2 库存查询
说明：库存查询实现对某一种药品的查询，可以通过商品名称、简称、批号实现查询。“删除”可实现在查询界面内的直接删除。
主要代码如下：
Private Sub Form_Activate()
Combo1.AddItem ("商品名称")
Combo1.AddItem ("简称")
Combo1.AddItem ("批号")
Combo1.ListIndex = 0
frm_main.Enabled = True
以上代码表示向combo1添加查询项目列表。
Data1.DatabaseName = App.Path & "\yyjxc.mdb"     
以上代码表示自动识别数据库路径
Data1.RecordSource = "select * from kc  where (kc." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")"
Data1.Refresh
以上代码实现库存信息的查询。  
4.2.2库存盘点操作界面
图 4-3 库存盘点
说明：库存盘点实现的是将库存大于零的药品在当前窗体中显示。
主要代码如下：
Data1.DatabaseName = App.Path & "\yyjxc.mdb"   
此代码表示自动识别数据库路径。
Private Sub Command1_Click()
Data1.RecordSource = "select * from kc where kc.库存>0 "
Data1.Refresh
MS1.Col = 9: MS1.Sort = flexSortNumericAscending   
以上代码表示查询库存中药品数量大于零的药品并显示，按照'第9行按升序排序
4.2.3价格管理主要操作界面
图 4-4 价格管理
说明：价格管理实现的是药品价格调整的过程，在市场中药品价格会有起伏，价格管理功能方便了用户调整价格。避免了手动在入库单中改动。
其主要代码如下：
Private Sub Form_Load()   
Data1.DatabaseName = App.Path & "\yyjxc.mdb"
Data2.DatabaseName = App.Path & "\yyjxc.mdb"
以上代码表示数据控件自动识别数据库路径。
Private Sub Form_Activate()
Combo1.AddItem ("商品名称")
Combo1.AddItem ("简称")
Combo1.AddItem ("批号")
Combo1.ListIndex = 0
    以上代码表示向combo1添加查询项目列表。
Data2.RecordSource = "select count(*)as 品种,sum(库存)as 合计库存,sum(库存金额)as 合计库存金额 from kc "
Data2.Refresh
以上代码表示初始化查询统计库存商品信息。
4.2.4库存报警操作界面
图 4-5 库存报警
说明：在药品存储过程中常常由于某些原因而使某些药品储量较低，有可能造成药品短缺，报警功能的设计能及时的提醒用户。
其主要代码如下：
On Error GoTo errEnd
dbName = App.Path
If Right(dbName, 1) <> "\" Then dbName = dbName + "\"
dbName = dbName + "yyjxc.mdb"
connSTR = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName & "ersist Security Info=False"
Adodc1.ConnectionString = connSTR
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from [kc] where [库存] < 30"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
Exit Sub
errEnd:
MsgBox Err.Description, vbOKOnly + vbExclamation, "打开数据库出错"
以上代码主要利用查询语句实现了库存中药品数量小于30的药品。
4.3查询统计模块
查询模块实现了药品入库与销售的即时查询。其中包括四个小的分支：入库单查询操作界面，入库退货查询操作界面，销售查询操作界面，销售退货查询操作界面。四个分支所设计的操作界面相似。
4.3.1入库查询操作界面


图 4-6 日期选择
说明：使用查询功能模块首先选择查询时间，然后进入以下查询主界面。


图 4-7 入库查询
主要代码如下：
Private Sub Form_Activate()
Combo1.AddItem ("商品名称")
Combo1.AddItem ("批号")
Combo1.AddItem ("票号")
Combo1.ListIndex = 1
以上代码表示向combo1添加查询项目列表，combo1中默认查询项目是批号。
Data1.RecordSource = "select * from rkd  where ((rkd.日期 between " + Chr(35) + rq1.Text + Chr(35) + "and " + Chr(35) + rq2.Text + Chr(35) + "))"
Data1.Refresh
Private Sub Form_Load()     '自动识别数据库路径
Data1.DatabaseName = App.Path & "\yyjxc.mdb"
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
Private Sub Command1_Click()     '入库查询
Data1.RecordSource = "select * from rkd  where ((rkd.日期 between " + Chr(35) + rq1.Text + Chr(35) + "and " + Chr(35) + rq2.Text + Chr(35) + ")and(rkd." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + "))"
Data1.Refresh
以上代码表示当进入查询窗体时通过第一个询语句将所有的在此时间段里的所有入库药品显示在窗体中，当在文本框中输入要查询的药品时，利用第二个查询语句实现查询。
On Error Resume Next
Data1.Recordset.Delete
Data1.Refresh
End Sub
Private Sub Command3_Click()
frm_main.Enabled = True
Unload Me
以上代码表示删除药品信息。
由于入库退单查询、销售单查询、销售退单查询与入库单查询执行窗体相同，代码相似，不再重复阐述。









第五章 系统测试与维护
管理信息系统在完成系统实施、投入正常运行之后，就进入了系统测试与维护阶段[6]。系统测试与维护的目的是保证管理信息系统正常而可靠地运行，并能使系统不断得到改善和提高，以充分发挥作用。因此，系统维护就是为了保证系统中的各个要素随着环境的变化始终处于最新的、正确的工作状态。
5.1系统测试
该系统经过了单元测试、集成测试、系统测试、验收测试。其中，在验收测试中出现了一些主要问题。
1.用DBGrid控件报错"该部件的许可信息没有找到。在设计环境中,没有合适的许可证使用该功能”。
此问题曾经困扰了系统的开发，经过一系列的分析，终于找出原因。解决办法是在VB CD1中找到目录\COMMON\TOOLS\VB\CONTROLS下的DBGRID.REG文件，运行即可。其他部件类似，把此目录中的三个注册表全部导入即可。其中DBGrid部件的添加方法是在部件中把Miscrosoft Data Bound Grid Control选项勾上即可，若没有此选项，可以浏览\WINDOWS\SYSTEM32\DBGRID32.OCX；把它添加上，若没有DBGRID32.OCX那就只能下载或者从别人那里拷一个放到系统目录下了。
2.数据库连接问题
当用VB中的控件与ACCESS进行连接时，有时会出现“数据库无法识别”的问题，这时检查不出那里出错，只有重建数据库。
5.2系统维护
系统维护是面向系统中各种构成因素的，按照维护对象的不同，系统维护的内容可分为以下几类：
1.系统应用程序维护：系统的业务处理过程是通过应用程序的运行而实现的，一旦程序发生问题或业务发生变化，就必然地引起程序的修改和调整，因此系统维护的主要活动是对程序进行维护。
2.数据维护：业务处理对数据的需求是不断发生变化的，除了系统中主体业务数据的定期正常更新外，还有许多数据需要进行不定期的更新，或随环境或业务的变化而进行调整，以及数据内容的增加、数据结构的调整。此外，数据的备份与恢复等，都是数据维护的工作内容。
3.代码维护：随着系统应用范围的扩大、应用环境的变化，系统中的各种代码都需要进行一定程度的增加、修改、删除，以及设置新的代码。
4.硬件设备维护：主要是指对主机及外设的日常维护和管理，如机器部件的清洗、润滑，设备故障的检修，易损部件的更换等，都应由专人负责，定期进行，以保证系统正常有效地运行。


结  论
本文是结合运用软件开发工具visualbasic6.0开发的一款药品供销存系统----销售系统的实例，详细论述了面向对象方法及其在信息系统开发中的应用和一个系统开发的过程和步骤。
在本设计中我主要完成了以下工作。
1.        学习相关软件知识，熟悉面向对象开发环境。
2．调查药品供销存的业务流程，分析现行系统，制定本系统的管理职能流程图。
3．根据所要设计的模块规划出设计方案，划分用例，完成需求分析。
4．设计窗体编写相应代码，完成系统功能设计。
5．将小组其他成员的模块组合，完成整个系统的整和，实现整个系统的功能。
6．测试系统的可执行性与稳定性，修改完善系统。
7．完成毕业设计论文。
通过药品供销存管理系统的开发和毕业论文的写作，把以前所学的各种独立的课程融合起来，使我的理论知识和实际操作能力都有了一定程度的提高。加深了我对管理信息系统的了解、认识，巩固了以前学习的软件开发知识，尤其是对面向对象方法和快速原型法的认识，提高了开发水平，积累了经验，为今后学习、使用计算机打下了坚实基础。
另外我发现自己在软件开发的规范化和编程技巧方面还有很大的不足，特别是面向对象方法的运用还不够熟练，仍需花大力气去学习和研究。由于本人水平有限 ，文章中出现差错在所难免，恳请各位老师予以指正
参考文献
[1]周佩德.  数据库原理及应用.  北京:电子工业出版社,1999. 27-478
[2]李光明.  Visual Basic 6.0编程实例大制作.  华东:冶金工业出版社,2001. 45-421
[3]黄淼云.  VB6.0办公自动化编程. 北京:国防工业出版社,2000. 67-231
[4] 李大友. Visual Basic 程序设计. 北京:清华大学出版社，1999. 67-231
[5] EricBrierley.Visual Basic开发人员指南. 北京:机械工业出版社,2001. 56-247
[6] 陈明.   Visual Basic 程序设计. 北京:中央电大出版 ,2002.43-278
[7] 刘韬,骆娟. Visual Basic6.0实效编程百例. 北京:人民邮电出版社,2002. 67-302
[8] 徐孝凯. 数据结构（c++描述）. 北京：中央电大出版,2003. 78-231
[9] 萨师煊, 王珊. 数据库系统概论（第二版）. 广州：高等教育出版社,2002. 65-231
[10] 王兴晶.  Visual Basic 数据库开发典型实例. 西安：电子工业出版社,2001. 1-234
[11] Soren Lauesen. Software Requirements Styles and Techniques[M]. BeiJing: Publishing House of Electronics Industry,2002.10,25-90.
[12] Laura C.  Encyclopedia Of Database Technologies And Applications (Hardcover). Beijing:  Idea Group Publishing,2002. 56-265






致  谢
在本文将要结尾的时候，向我最敬爱的指导教师孙坤老师李全用老师致以最真诚最深切的谢意。老师们严谨的治学态度、活跃的学术思想、在科学研究上的献身和进取精神时刻鼓励着我，并对我的研究、学习和生活产生极大影响。
此外感谢在我大学学习生活中帮助过我的师长与同学，这一段美好的学习生活将会令我终生难忘。感谢机房的各位老师，他们为我提供了良好的学习氛围。同组的成员们对我的毕业设计的顺利完成提供了非常多的帮助，我在此表示感谢。
此刻谨向尊敬的导师致以最诚挚的敬意和最衷心的感谢。







       

一个大写的污

水B楼主，经验拿好

晨鳕熙熙

楼主听话，快到碗里来！

杜冷丁

今天没吃药感觉自己萌萌哒

青春舞曲

吊炸天的xx，调皮会死人的

青春舞曲

我只是来打酱油的

一个大写的污

今天没吃药感觉自己萌萌哒

吃土少女的小窝

楼主节操掉了，还不快捡起来

残阳铺水中

楼主节操掉了，还不快捡起来

wopata3329

吊炸天的xx，调皮会死人的