1、中文摘要- I -摘 要随着计算机技术的普及，医药经营企业逐渐借助计算机技术去完善医药的管理和提高自身的工作效率，以赢得市场竞争的胜利。医药管理信息系统已经成为各医药经营企业实现医药管理网络化和信息化的必备工具，是医药经营企业规模经营管理不可缺少的部件之一。同时，软件开发环境的高度集成和数据库技术的日益成熟大大降低了系统的开发成本。系统开发工具的智能化、人性化，使得所开发的系统充分满足了医药经营企业的各种需求，从医药经营企业的各个环节对人流、物流、资金流、信息流进行统一系统的管理。本课题是基于 VB6.0 和 access 数据库的应用技术，设计一个“药品进销存管理系统”。目的是实现医药库存信
2、息的基本管理，摆脱手工记录的弊端，力图使得所开发的系统充分满足医药经营企业的各种需求，适用于中小药店以及小型诊所的进销存管理。主要有以下几个功能模块：（1）系统登录模块，实现系统登录。（2）日常时务模块，管理药品的入库、销售。（3）库存管理管理模块，实现库存的查询、库存的盘点、管理价格、报警低储存量（4）查询管理模块，查看所有药品的入库、销售基本信息。（5）基本信息管理模块，提供客户、供应商、仓库、业务员的基本管理。（6）系统设置模块，实现用户的基本密码设置、初始化系统、以及系统数据的保护。（7）其他方面模块，给系统进一步的开发可持续性、实现在药品流通中的药品报损与流通费用的统计。本文只就（2
3、）（3）（4）模块进行详细的阐述。该系统采用模块化原理编程，提高了系统的可靠性，模块规模适中，本身相对独立。 关键词:药品进销存管理，数据库，Visual Basic，AccessAbstract- II -AbstractWith 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 orde
4、r 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
5、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 medici
6、ne, 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
7、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
8、) 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, war
9、ehouses, 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 r
10、eported losses. Only on paper (2) (3) (4) modules are described in detail.The system uses modular programming principles to improve the reliability of Abstract- III -the system, module size and, in itself relatively independent. Key words : pharmaceutical inventory management, database, Visual Basic
11、, Access 目 录- IV -目 录摘 要 IAbstract.II第一章 系统概述 .11.1 开 发 背 景 .11.2 系 统 设 计 目 标 .11.3 系 统 设 计 环 境 .21.3.1 Visual Basic 介绍 21.3.2 Access 数据库介绍 3第二章 系统分析 .52.1 系 统 可 行 性 研 究 52.2 现 行 系 统 的 详 细 调 查 62.2.1 现行系统的管理职能 .62.2.2 业务流程分析 .62.3 现 行 药 品 销 售 管 理 存 在 的 问 题 .82.4 功 能 需 求 82.5 性 能 需 求 92.6 运 行 环 境 需 求
12、 .102.7 安 全 性 、 保 密 性 、 可 靠 性 的 要 求 .102.8 界 面 要 求 112.9 异 常 处 理 要 求 112.10 新 系 统 逻 辑 模 型 的 提 出 .11第三章 数据库设计与实现 133.1 数 据 库 分 析 （ E-R 图 ） 133.2 数 据 库 逻 辑 结 构 设 计 14第四章 系统各模块的编码与实现 194.1 日 常 时 务 模 块 194.1.1 入 库 单 操 作 界 面 19目 录- V -4.2 库 存 管 理 模 块 214.2.1 库存查询操作界面 214.2.2 库存盘点操作界面 224.2.3 价格管理主要操作界面 2
13、34.2.4 库存报警操作界面 244.3 查 询 统 计 模 块 254.3.1 入库查询操作界面 25第五章 系统测试与维护 295.1 系 统 测 试 295.2 系 统 维 护 29结 论 .31参考文献 .32致 谢 .33第一章 系统概述- 1 -第一章 系统概述1.1开发背景随着计算机技术的飞速发展，计算机在系统管理中的应用越来越普及，利用计算机实现各个系统的管理显得越来越重要。对于一些大中型管理部门来说，利用计算机支持管理高效率完成管理的日常事务，是适应现代管理制度要求、推动管理走向科学化、规范化的必要条件；而药品管理是一项琐碎、复杂而又十分细致的工作，药品数量之庞大、单价的变
14、化、进货厂商的不同，一般不允许出错，如果实行手工操作，每天进货的情况以及进货时间等等须手工填制大量的表格，这就会耗费药品管理工作人员大量的时间和精力，如果利用计算机进行这些管理工作，不仅能够保证各种核算准确无误、快速记录，而且还可以利用计算机对有关的各种信息进行统计，服务于财务部门其他方面的核算和财务处理，同时计算机具有手工管理所无法比拟的优点，例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高管理的效率,也是管理行业的科学化、正规化管理，与世界接轨的重要条件 1。如何利用现代信息技术使企业拥有快速、高效的市场反映能力和高度的效率，已是医药经营企业
15、，特别是医药连锁经营企业特别关心的问题。尽快建立一个功能齐备的药品进销存管理系统，完善现代企业的信息化管理机制，已成为医药企业生存发展的当务之急。1.2系统设计目标通过开发这个药品管理系统，使药品进销存管理工作系统化，规范化，自动化，从而达到提高管理效率的目的。本系统开发设计思想。尽量采用现有软硬件环境，及先进的管理系统开发方案，提高系统开发水平和应用效果的目的；系统应符合企业管理的规定，满足日常管理的需要，并达到操作过程中的直观，方便，实用，安全等要求；系统采用模块化程序设计第一章 系统概述- 2 -方法，这样既便于系统功能的各种组合，又便于未参与开发的技术维护人员补充，维护；系统应具备数据
16、库维护功能，及时根据用户需求进行数据的添加，删除，修改等操作 3。1.3系统设计环境1.3.1 Visual Basic 介 绍现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有很多，作为数据库系统的开发，Visual Basic 是一个非常理想选择。数据库是 MIS 中的重要支持技术，在 MIS 开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言 Visual Basic 6.0
17、 是 Microsoft 公司推出的基于 Windows 环境的计算机程序设计语言,它继承了 Basic 语言简单易学的优点，同时增加了许多新的功能。由于 Visual Basic 采用面向对象的程序设计技术，摆脱了面向过程语言的许多细节而将主要精力集中在解决实际问题和设计友好界面上，是开发Windows 应用程序更迅速、更简捷 2。1.提供了面向对象的可视化编程工具VB 把程序和数据封装在一起视作一个对象。设计程序时只需从现有的工具箱中“拖”出所需的对象，如按钮、滚动条等，并为每一个对象设置属性2.事件驱动的编程方式在 VB 中，程序员只需编写响应用户动作的代码，而各个动作之间不一定有联系，
18、这样的应用程序代码一般比较短，所以程序易于编写与维护。3.结构化的程序设计语言VB 具有丰富的数据类型和结构化程序结构，其特点是：(1)增强了数值和字符串处理功能，比传统的 BASIC 语言有许多的改进。(2)提供了丰富的图形及动画指令，可方便的绘制各种图形。第一章 系统概述- 3 -(3)提供了定长和动态数组，有利于简化内存管理。(4)增加了递归过程调用，使程序更为简练。(5)提供了一个可供应用程序调用的包含多种类型的图标库。(6)具有完善的调试、运行出错处理。4.提供了易学易用的应用程序集成开发环境在 VB 的集成开发环境中，用户可设计界面、编写代码、调试程序，直至将应用程序编译成可执行文
19、件在 Windows 上运行，使用户在友好的开发环境中工作。5.支持多种数据库系统的访问数据访问特性允许对包括 access 和其他企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。利用数据控件可访问 Microsoft Access、Dbase Microsoft FoxPro、Paradox 等，也可以访问 Microsoft Excel、Lotusl1-2-3 等多种电子表格。1.3.2 Access 数 据 库 介 绍 数据库技术是计算机领域中最重要的技术之一，是计算机软件学科的一个独立分支。数据库技术的出现使设计应用渗透到工农业、商业、行政、科研、工
20、程、国防军事等各部门，渗透到社会的每个角落，并且正在改善着人们的工作方式和思维方式。Access 数据库管理系统是 Microsoft Office 套件的重要组成部分，是Access 的最新版本，可在 Windows 95 环境下运行。Access 适用于小型商务活动，用以存贮和管理商务活动所需要的数据。Access 不仅是一个数据库，而且它具有强大的数据管理功能，它可以方便地利用各种数据源，生成窗体（表单），查询，报表和应用程序等。数据库是有结构的数据集合,它与一般的数据文件不同，(其中的数据是无结构的)是一串文字或数字流。数据库中的数据可以是文字、图象、声音等 4。 Microsoft
21、Access 是一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段第一章 系统概述- 4 -有一个字段名，字段名在一个表中不能重复。比如一个“产品”表的例子。“产品”表由 10 个记录组成，一个记录占一行，每一个记录由产品 ID、产品名称、库存量、订货量、单价和折扣率 6 个字段组成。 “产品 ID”是字段名，其下面的 1，2 等是字段的值。表与表之间可以建立关系（或称关联，连接） ，以便查询相关联的信息。Access 数据库以文件形式保存，文件的扩展名是MDB。Access 数据库由六种对象组成，它们是表、查询、窗体、报表、宏和
22、模块。与 Access 以前的版本比较，Access 新增了许多功能，字段类型增加了OLE 对象和超级链接，特别是与 Internet 的融合，在数据库中可以直接链接到指定的 Web 页面或网络文件，也可以把 Web 页面上的表格导入到数据库。Access 可以方便地利用各种数据源，包括 dBASE, FoxBase,FoxPro,Excel,Word 等。Access 增加了数据库访问的安全机制，可对表一级设置访问许可权。Access 还可以方便地利用 FoxPro 数据库、Excel电子表格的数据，还可以和 Word 混合使用，打印通用信函或信封。其主要特点如下： 1.存储方式单一 Acc
23、ess 管理的对象有表、查询、窗体、报表、页、宏和模块，以上对象都存放在后缀为（.mdb）的数据库文件种，便于用户的操作和管理。2.面向对象 Access 是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能对象化，将数据库管理的各种功能封装在各类对象中。它将一个应用系统当作是由一系列对象组成的，对每个对象它都定义一组方法和属性，以定义该对象的行为和外国，用户还可以按需要给对象扩展方法和属性。通过对象的方法、属性完成数据库的操作和管理，极大地简化了用户的开发工作。同时，这种基于面向对象的开发方式，使得开发应用程序更为简便。3.界面友好、易操作 Access 是一个可视化工具，其
24、风格与 Windows 完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成第一章 系统概述- 5 -器、查询生成器、报表设计器以及数据库向导、表向导、查询向导、窗体向导。第二章 系统分析- 5 -第二章 系统分析为了准确的确定目标系统所要完成的功能，必须全面的了解用户的需求，分析药品管理中的问题，借鉴现行相关管理系统的分析进一步明确了各种需求，从而提出新系统逻辑模型。2.1 系统可行性研究随着计算机技术的发展和普及,各行各业的管理机构需要由计算机处理大量的信息，逐步实现智能化，从以前的以人为主到今天的以机器为主。在我国药品品种繁多，规模甚大，以往的手工
25、记载、查询操作容易出错且工作效率低，浪费许多人力和物力，对管理人员会造成诸多的不便，还有可能疏忽一些细节，使顾客的利益将受到侵害。综上所述，药品进削存管理系统的开发及应用是有前景的，有意义的，且是势在必行的 6。库品进销存管理系统的目标是按照管理信息系统的原理和方法采用成熟的信息技术和手段支持管理中的各项工作。包括库存管理中的各项工作，其数据来源由用户通过键盘输入，从而提高了效率。从技术、资金与操作三方面就可行性进行分析。技术可行性：该系统在技术上是可行的。Visual Basic 6.0 是开发应用程序最为强大的工具之一，且有广泛的技术支持，Microsoft access 具有比较完备的数
26、据库管理功能。经济可行性：本系统属单机系统，需购置微机、打印机各一台以及各种相关软件，采用自主开发方式，所需费用不超过 4 万元，系统开发成功，正常运转，将减少药品积压，加快资金周转，杜绝药品浪费现象，更有效地保障药材公司库房的正常运行，所产生的 效 益 远 大 于 所 需 费 用 。操作可行性：只要仓库保管员有一定的计算机操作能力，不需要专门培训，在使用、维护中将不会遇到大的困 难 。第二章 系统分析- 6 -2.2 现 行 系 统 的 详 细 调 查2.2.1 现 行 系 统 的 管 理 职 能 现行系统在药品进销存方面基本上实现了药品的入库、销售管理，能够对药品进行查询，与价格管理。其管
27、理职能图如下：图 2-1 管理 职 能2.2.2 业 务 流 程 分 析此次业务分析主要是针对行政管理系统比如医院等部门进行的调研，但对单用户及小型的医药公司同样具有类似的流程。库存管理基础信息管理出入库管理入库管理销售管理客户管理供应商管理库存管理库存查询价格管理第二章 系统分析- 7 -图 2-2 业 务 流 程 图库存台帐统计报表主管部门领药单供应科入库单一不合格入库单一检验合格入库单入库、记帐入库帐 出库帐出库、记帐验证不合格领药单领药部门合格领药单记库存台帐第二章 系统分析- 8 -2.3 现 行 药品销售管理存在的问题在提出新的系统逻辑模型先对医药管理中存在的问题进行分析使我们作到
28、有的放矢，有针对性的进行系统设计，作到以最少的代价设计出最完美的系统。1.药品销售采用手工管理在手工管理条件下，由于商品编码无规律，要想从几万种商品中查找某一种产品所费的时间和精力极大。2.商品有效期须进行严格控制药品和化学试剂作为一种特殊的商品，时效性强。需要严格控制其有效期，对批次号的管理要求严格，而手工管理很难作到及时、准确。3.业务量大由于产品品种多、客户数量多，造成业务量很大。手工进行各项业务劳动效率极低，致使财务及管理部门所需的各种经营数据及经营分析报表无法及时得到。因此，在网络经济环境下，企业管理和运营效率已经成为企业成败的关键所在，手工方式的弊端毕现无遗。因此，从根本上改革管理
29、手段已经刻不容缓，经营和管理必须依托于一套完善的信息系统来开展。目前，医药销售管理系统成为医药企业规模经营管理的核心工具。医药管理系统需求分析所要做的工作就是深入描述系统的功能和性能，确定系统设计的限制和系统同其他系统元素的接口细节，定义系统的其他有效性需求。在对它进行需求分析的过程中，必须正确地表达和理解医药管理系统的数据功能，然后按自顶向下、逐层分解的方式对医药销售管理系统中所遇到的问题进行分解和不断细化，最好确定系统的总体需求。2.4 功能需求药品进销存管理系统通过各个子模块为用户提供药品管理数据的各种操作，并要保证数据的安全和一致。其中药品销售系统作为基本的系统，其基本流程第二章 系统
30、分析- 9 -是合法用户登陆 执行操作，系统功能图要求如下。失败图 2-4 系 统 功 能 图2.5 性能需求1.存储容量医药管理系统使用数据库管理数据。随着时间的推移和企业规模的扩大，数据必定越来越多，在原有磁盘容量不足的情况下，必须把以前的数据进行备份转存。而且，为了保证系统的正常运行，数据库的大小应该可以动态增长，并且保证在数据容量超过一定限制的时候，提示用户备份数据。2.响应时间这是一个主观的要求，不同用户对满意的响应时间有着不同的看法。在多用户同时操作的时候，必须把响应时间的长度限制在一定的范围内，让每个用户都满意。3.吞吐量入库管 理销售系统销 售管 理库 存管 理登陆系统主界面第
31、二章 系统分析- 10 -吞吐量主要用来衡量处理速度的快慢。当响应时间限制在一定长度范围内的时候，处理越多的数据，吞吐量就越大。由于采用 CS 的结构方式，吞吐量的瓶颈主要就在网络和数据库。网络方面可以通过建设快速局域网并对网络进行有效的管理，防止网络阻塞，从而得到实现。而且在数据库方面，对数据库服务器的速度、性能有着具体的要求，要求数据库可以快速地并发处理多个查询，使得整个系统有较高的吞吐量。2.6 运行环境需求1.运行软件平台WINDOWS 操作系统作为当今最流行的操作系统，得到了广泛的使用，由于这个原因，本系统采用 WIN32 平台开发，适用于 WIN98、WIN2000、WIN XP。
32、2.运行硬件平台医药管理系统的数据库运行在服务器上，而其应用程序则可以在 X86 兼容机上运行，同时要保证机器的存储容量足够放下应用程序。3.使用人员要求要求普通的操作人员具有适用 WINDOWS 系统的经验；而对数据库的管理人员则要求他们具有扎实的数据库理论基础和数据库管理经验，并且最重要的是他们要有良好的思想道德素质，保证数据不人为地外泄。2.7 安全性、保密性、可靠性的要求1.安全性和保密性数据库数据的安全应能确保当数据库系统死机时，当数据库数据存储媒体被破坏时以及当数据库用户误操作时，数据库中医药管理信息不至于丢失。并且，为了保护数据库系统不被非法用户侵入它，应尽可能地堵住潜在的各种漏
33、洞，防止非法用户利用它们侵入数据库系统 5。对于数据库数据的安全问题，数据库管理员必须参考有关系统双机热备份功能以及数据库的备份和恢复的资料。第二章 系统分析- 11 -2.可靠性系统应该为用户提供良好的可靠性，尽量减少投入运行后失效的概率，保证医药管理信息系统在除了操作系统崩溃外的其他时候能够稳定地运行。2.8界面要求医药管理信息系统采用图形用户界面（GUI）设计原则，界面直观、对用户透明：用户接触软件后对界面上对应的功能一目了然、不需要多少培训就可以方便使用本系统。界面设计员应该明白软件中用户是所有处理的核心，不应该由应用程序来决定处理过程，所以用户界面应当由用户来控制应用如何工作、如何响
34、应，而不是由开发者按自己的意愿把操作流程强加给用户。同时在界面设计中要保持界面的一致性。一致性既包括使用标准的控件，也指使用相同的信息表现方法，如在字体、标签风格、颜色、术浯、显示错误信息等方面确保一致。保证布局合理化的时候应注意在一个窗口内部所有控件的布局和信息组织的艺术性，使得用户界面美观。由于，系统是基于 Gul 操作的，因而不会提供命令行操作。2.9异常处理要求在运行过程中出现异常情况的时候，应采取相应的措施保证系统的稳定运行和数据的致性，并向用户显示相应的出错信息。首先，数据的范围限制、非法操作等检测由开发人员通过在应用程序中编写相关的代码完成。其次，数据输入的类型异常、关系约束等则
35、由数据库负责检查，并提示出错信息。最后，临时性和永久性的资源故障由操作系统负责对异常进行处理 3。2.10新系统逻辑模型的提出通 过 如 上 的 一 系 列 需 求 分 析 ， 同 时 与 此 课 题 的 其 他 模 块 的 同 学 协 作 沟 通 ，提 出 如 下 的 新 系 统 模 型 。第二章 系统分析- 12 -图 2-5 新 系 统 模 型销售管理系统日常时务管理入库管理销售管理库存管理库存查询价格管理库存盘点库存报警查询统计查询入库查询销售查询第三章 数据库设计与实现- 13 -第三章 数据库设计与实现3.1数据库分析（E-R 图）药品销售系统中用户的需求具体体现在各种信息的提供、
36、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输入和输出，收集基本数据以及数据处理的流程，组成一份详细的销售系统功能结构图。图 3-1 销售系统功能结构图由这个完整的销售功能结构图我们可以看出日常时务管理、库存管理还有查询统计都与药品有关，所以最基本的一个信息实体就是药品信息实体。针对药品销售信息系统的需求，通过工作过程的内容和数据流程分析，我们设计出销售管理系统日常时务管理入库管理销售管理库存管理库存查询价格管理库存盘点库存报警查询统计入库查询销售查询销售退单入库单入库退单销售单入库查询销售退货查询销售查询入库退货查询第三章 数据库设计与实现- 14 -药品信息实体的数据项和数据结
37、构：药品基本信息：药品名称、简称、批号、产地、规格、包装、单位、进价、库存、库存金额、备注。得到上面的数据项和数据结构以后，就可以设计出能满足用户需求的药品基本信息实体。药品基本信息实体（E-R 图）：.图 3-2 药品基本信息3.2数据库逻辑结构设计现在需要将上面的数据库概念转化为 access 数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。由于考虑到本系统是应用在单机系统上，另外根据药品进销存管理系统的规模我们只建立起一个数据库，在此数据库基础上建立起如下表：药品基本信息实体药品名称 简称 备注库存金额第三章 数据库设计与实现- 15 -表 3.1 库存表(kc)列名 数据类型
38、可否为空 说明商品名称 文本 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规格
39、文本 Not null包装 文本 Not null单位 数字 Not null数量 数字 Not null进价 数字 Not null金额 货币 Not null备注 文本 null第三章 数据库设计与实现- 16 -入库单表将新入库的药品保存在此表中，当要查询新入库药品是向系统提供查询数据。表 3.3 入库退单表（rktd）列名 数据类型 可否为空 说明商品名称 文本 Not null批号 文本 Not null产地 文本 Not null规格 文本 Not null包装 文本 Not null单位 文本 Not null数量 数字 Not null进价 数字 Not null金额 货币 N
40、ot null备注 文本 Not null供应商 文本 Not null日期 日期/时间 Not null经手人 数字 Not null票号 数字 Not null药品入库时会有一些不合格药品，入库退单就是将这些不合格药品记录在表中从而用户也可以从表中了解供应商的供货质量。当查询入库退货药品时向系统提供数据。第三章 数据库设计与实现- 17 -表 3.4 销售单（xsd）列名 数据类型 可否为空 说明商品名称 文本 Not null批号 文本 Not null产地 文本 Not null规格 文本 Not null包装 文本 Not null单位 文本 Not null数量 数字 Not nu
41、ll进价 数字 Not null金额 货币 Not null备注 文本 Not null客户 文本 Not null日期 日期/时间 Not null经手人 数字 Not null票号 数字 Not null销售单将向客户出售的药品记录在此表中，当系统查询某段时间内销售的药品时为系统提供数据。第三章 数据库设计与实现- 18 -表 3.5 销售退单（xstd）列名 数据类型 可否为空 说明商品名称 文本 Not null批号 文本 Not null产地 文本 Not null规格 文本 Not null包装 文本 Not null单位 文本 Not null数量 数字 Not null进价 数
42、字 Not null金额 货币 Not null备注 文本 Not null客户 文本 Not null日期 日期/时间 Not null经手人 数字 Not null票号 数字 Not null用户向客户销售药品可能有不完全符合客户要求的药品，那么这些药品将被记录在销售退单中以备查询退货药品时向系统提供数据。第四章 系统各模块的编码与实现- 19 -第四章 系统各模块的编码与实现4.1日常时务模块日常时务是该系统的基本模块，其中包括四个小的分支：入库单操作界面，入库退单操作界面，销售单操作界面，销售退单操作界面。四个分支所设计的操作界面相似。4.1.1入库单操作界面图 4-1 入库单说明：药
43、品入库时首先单击“登记”命令件，录入相应的信息后单击“保存”新购药品就被添加到入库(rk)数据库表中。票号与入库日期自动生成。任务拦中入库品种、合计数量、合计金额项自动生成。其中主要代码如下:Private Sub Form_Load()Data1.DatabaseName = App.Path & “yyjxc.mdb“Data2.DatabaseName = App.Path & “yyjxc.mdb“第四章 系统各模块的编码与实现- 20 -Data3.DatabaseName = App.Path & “yyjxc.mdb“以上代码为数据控件指定数据库名使其能自动识别数据库路径。Dat
44、a2.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 = Falsemf1.Text = text1.Text If mf1.Col =
45、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.RefreshIf text1.Text = “ Then grid1.Visible = False If Data1.Recordset.RecordCount 0 Then grid1.Visible = True 以
46、上代码表示当在 text1 的文本框中输入药品名称时，Data 控件会利用一查询语句来查询库存药品当符合条件的药品存在时会自动的显示。第四章 系统各模块的编码与实现- 21 -4.2库存管理模块库存管理模块主要实现对库存药品的日常管理，包括库存查询、库存盘点、价格管理、库存报警。4.2.1 库 存 查 询 操 作 界 面图 4-2 库存查询说明：库存查询实现对某一种药品的查询，可以通过商品名称、简称、批号实现查询。 “删除”可实现在查询界面内的直接删除。主要代码如下：Private Sub Form_Activate()Combo1.AddItem (“商品名称“)Combo1.AddItem
47、 (“简称“)Combo1.AddItem (“批号“)Combo1.ListIndex = 0frm_main.Enabled = True以上代码表示向 combo1 添加查询项目列表。第四章 系统各模块的编码与实现- 22 -Data1.DatabaseName = App.Path & “yyjxc.mdb“ 以上代码表示自动识别数据库路径Data1.RecordSource = “select * from kc where (kc.“ & Combo1.Text & “ “ & “like “ + Chr(34) + Text1.Text + “*“ + Chr(34) + “)“
48、Data1.Refresh以上代码实现库存信息的查询。 4.2.2 库 存 盘 点 操 作 界 面图 4-3 库存盘点说明：库存盘点实现的是将库存大于零的药品在当前窗体中显示。主要代码如下：Data1.DatabaseName = App.Path & “yyjxc.mdb“ 此代码表示自动识别数据库路径。Private Sub Command1_Click()第四章 系统各模块的编码与实现- 23 -Data1.RecordSource = “select * from kc where kc.库存0 “Data1.RefreshMS1.Col = 9: MS1.Sort = flexSor
49、tNumericAscending 以上代码表示查询库存中药品数量大于零的药品并显示，按照第 9 行按升序排序4.2.3 价 格 管 理 主 要 操 作 界 面图 4-4 价格管理说明：价格管理实现的是药品价格调整的过程，在市场中药品价格会有起伏，价格管理功能方便了用户调整价格。避免了手动在入库单中改动。其主要代码如下：Private Sub Form_Load() Data1.DatabaseName = App.Path & “yyjxc.mdb“Data2.DatabaseName = App.Path & “yyjxc.mdb“第四章 系统各模块的编码与实现- 24 -以上代码表示数据控件自动识别数据库路径。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以上代码
