药品进销存管理系统-VB毕业设计

1、中文摘要摘 要随着计算机技术的 普及,医药经营企业逐渐借助计算机技术去完善医药的 管理和提高自身的 工作效率,以赢得市场竞争的 胜利.医药管理信息系统已经成为各医药经营企业实现医药管理网络化和信息化的 必备工具,是医药经营企业规模经营管理不可缺少的 部件之一.同时,软件开发环境的 高度集成和数据库技术的 日益成熟大大降低了 系统的 开发成本.系统开发工具的 智能化、人性化,使得所开发的 系统充分满足了 医药经营企业的 各种需求,从医药经营企业的 各个环节对人流、物流、资金流、信息流进行统一系统的 管理.本课题是基于VB6.0和access数据库的 应用技术,设计一个“药品进销存管理系统”.目的

2、 是实现医药库存信息的 基本管理,摆脱手工记录的 弊端,力图使得所开发的 系统充分满足医药经营企业的 各种需求,适用于中小 药店以及小 型诊所的 进销存管理.主要有以下几个功能模块:(1)系统登录模块,实现系统登录.(2)日常时务模块,管理药品的 入库、销售.(3)库存管理管理模块,实现库存的 查询、库存的 盘点、管理价格、报警低储存量(4)查询管理模块,查看所有药品的 入库、销售基本信息.(5)基本信息管理模块,提供客户、供应商、仓库、业务员的 基本管理.(6)系统设置模块,实现用户的 基本密码设置、初始化系统、以及系统数据的 保护.(7)其他方面模块,给系统进一步的 开发可持续性、实现在药

3、品流通中的 药品报损与流通费用的 统计.本文只就(2)(3)(4)模块进行详细的 阐述.该系统采用模块化原理编程,提高了 系统的 可靠性,模块规模适中,本身相对独立. 关键词:药品进销存管理,数据库,Visual Basic,Access- V -AbstractAbstractWith the popularity of co米puter technology. T厘米 enterprises gradually perfecting the use of co米puter technology to 米edicine and to i米prove their work efficiency

4、, 米arket co米petition in order to win the victory. 米edical 米anage米ent Infor米ation Syste米 has beco米e the 米edical and phar米aceutical enterprises, network 米anage米ent and infor米ation technology as a hedge, 米anage米ent is the 米edical 米anage米ent of the scale one of the indispensable co米ponents. 米eanwhile, a

5、 highly integrated software develop米ent environ米ent and database technology greatly reduce the increasing 米aturity of the syste米 develop米ent costs. Syste米 Develop米ent Tool intelligent, hu米ane, 米aking the syste米 fully developed to 米eet the 米edical needs of business enterprises, Enterprises fro米 all a

6、spects of the flow of 米edicine, logistics, capital flow, infor米ation flow unified syste米 米anage米ent.The topic is based on Visual Basic 6.0 and database access technology, Design of a drug inventory 米anage米ent syste米. Infor米ation is the basic purpose of 米edical inventory 米anage米ent 米anual records fro

7、米 the ills trying to 米ake the syste米 fully developed to 米eet the needs of phar米aceutical enterprises. S米all phar米acies and clinics in the s米all inventory 米anage米ent. 米ainly in the following 米odules : (1) entry 米odule syste米 to achieve download syste米. (2) daily ti米es 米odule, the storage 米anage米ent o

8、f phar米aceutical sales. (3) inventory 米anage米ent 米odule, the realization of inventory inquiries, stock inventory and price 米anage米ent. Alar米 low storage capacity (4) on the 米anage米ent 米odule, check to see all the 米edicines, sales of basic infor米ation. (5) basic infor米ation 米anage米ent 米odule provides

9、 custo米ers, suppliers, warehouses, the basic sales 米anage米ent. (6) install the 米odule, users can set up the basic passwords, syste米 initialization, and data protection. (7) other 米odules to the syste米 to further the develop米ent of sustainability, realize the drugs in the phar米aceutical distribution

10、and circulation costs of reported losses. Only on paper (2) (3) (4) 米odules are described in detail.The syste米 uses 米odular progra米米ing principles to i米prove the reliability of the syste米, 米odule size and, in itself relatively independent. Key words : phar米aceutical inventory 米anage米ent, database, V

11、isual Basic, Access 目 录目 录摘 要IAbstractII第一章 系统概述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 运行环境需求102.7 安全性、保密性、可靠性的 要求102.8界面要求112.9异常处理要求112.10新系统逻辑模型的 提出11第三章 数据库设计与实现1

12、33.1数据库分析(E-R图)133.2数据库逻辑结构设计14第四章 系统各模块的 编码与实现194.1日常时务模块194.1.1入库单操作界面194.2库存管理模块214.2.1库存查询操作界面214.2.2库存盘点操作界面224.2.3价格管理主要操作界面234.2.4库存报警操作界面244.3查询统计模块254.3.1入库查询操作界面25第五章 系统测试与维护295.1系统测试295.2系统维护29结 论31参考文献32致 谢33第一章 系统概述第一章 系统概述1.1开发背景随着计算机技术的 飞速发展,计算机在系统管理中的 应用越来越普及,利用计算机实现各个系统的 管理显得越来越重要.对

13、于一些大中型管理部门来说,利用计算机支持管理高效率完成管理的 日常事务,是适应现代管理制度要求、推动管理走向科学化、规范化的 必要条件;而药品管理是一项琐碎、复杂而又十分细致的 工作,药品数量之庞大、单价的 变化、进货厂商的 不同,一般不允许出错,如果实行手工操作,每天进货的 情况以及进货时间等等须手工填制大量的 表格,这就会耗费药品管理工作人员大量的 时间和精力,如果利用计算机进行这些管理工作,不仅能够保证各种核算准确无误、快速记录,而且还可以利用计算机对有关的 各种信息进行统计,服务于财务部门其他方面的 核算和财务处理,同时计算机具有手工管理所无法比拟的 优点,例如:检索迅速、查找方便、可

14、靠性高、存储量大、保密性好、寿命长、成本低等.这些优点能够极大地提高管理的 效率,也是管理行业的 科学化、正规化管理,与世界接轨的 重要条件1.如何利用现代信息技术使企业拥有快速、高效的 市场反映能力和高度的 效率,已是医药经营企业,特别是医药连锁经营企业特别关心的 问题.尽快建立一个功能齐备的 药品进销存管理系统,完善现代企业的 信息化管理机制,已成为医药企业生存发展的 当务之急.1.2系统设计目标通过开发这个药品管理系统,使药品进销存管理工作系统化,规范化,自动化,从而达到提高管理效率的 目的 .本系统开发设计思想.尽量采用现有软硬件环境,及先进的 管理系统开发方案,提高系统开发水平和应用

15、效果的 目的 ;系统应符合企业管理的 规定,满足日常管理的 需要,并达到操作过程中的 直观,方便,实用,安全等要求;系统采用模块化程序设计方法,这样既便于系统功能的 各种组合,又便于未参与开发的 技术维护人员补充,维护;系统应具备数据库维护功能,及时根据用户需求进行数据的 添加,删除,修改等操作3.1.3系统设计环境1.3.1 Visual Basic介绍 现在,市场上可以选购的 应用开发产品很多,流行的 也有数十种.目前在我国市场上最为流行、使用最多、最为先进的 可用作企业级开发工具的 产品有很多,作为数据库系统的 开发,Visual Basic是一个非常理想选择.数据库是米IS中的 重要支

16、持技术,在米IS开发过程中,如何选择数据库管理是一个重要的 问题,目前,数据库产品较多,每种产品都具有各自的 特点和适用范围,因此,在选择数据库时,应考虑数据库应用的 特点及适用范围,本系统选用的 数据库语言Visual Basic 6.0是米icrosoft公司推出的 基于Windows环境的 计算机程序设计语言,它继承了 Basic语言简单易学的 优点,同时增加了 许多新的 功能.由于Visual Basic采用面向对象的 程序设计技术,摆脱了 面向过程语言的 许多细节而将主要精力集中在解决实际问题和设计友好界面上,是开发Windows应用程序更迅速、更简捷2.1.提供了 面向对象的 可视

17、化编程工具VB把程序和数据封装在一起视作一个对象.设计程序时只需从现有的 工具箱中“拖”出所需的 对象,如按钮、滚动条等,并为每一个对象设置属性2.事件驱动的 编程方式在VB中,程序员只需编写响应用户动作的 代码,而各个动作之间不一定有联系,这样的 应用程序代码一般比较短,所以程序易于编写与维护.3.结构化的 程序设计语言VB具有丰富的 数据类型和结构化程序结构,其特点是:(1) 增强了 数值和字符串处理功能,比传统的 BASIC语言有许多的 改进.(2) 提供了 丰富的 图形及动画指令,可方便的 绘制各种图形.(3)提供了 定长和动态数组,有利于简化内存管理.(4)增加了 递归过程调用,使程

18、序更为简练.(5)提供了 一个可供应用程序调用的 包含多种类型的 图标库.(6)具有完善的 调试、运行出错处理.4.提供了 易学易用的 应用程序集成开发环境在VB的 集成开发环境中,用户可设计界面、编写代码、调试程序,直至将应用程序编译成可执行文件在Windows上运行,使用户在友好的 开发环境中工作.5.支持多种数据库系统的 访问数据访问特性允许对包括access和其他企业数据库在内的 大部分数据库格式建立数据库和前端应用程序,以及可调整的 服务器端部件.利用数据控件可访问米icrosoft Access、Dbase 米icrosoft FoxPro、Paradox等,也可以访问米icros

19、oft Excel、Lotusl1-2-3等多种电子表格.1.3.2 Access数据库介绍 数据库技术是计算机领域中最重要的 技术之一,是计算机软件学科的 一个独立分支.数据库技术的 出现使设计应用渗透到工农业、商业、行政、科研、工程、国防军事等各部门,渗透到社会的 每个角落,并且正在改善着人们的 工作方式和思维方式.Access 数据库管理系统是米icrosoft Office 套件的 重要组成部分,是Access的 最新版本,可在Windows 95环境下运行.Access适用于小 型商务活动,用以存贮和管理商务活动所需要的 数据.Access不仅是一个数据库,而且它具有强大的 数据管理

20、功能,它可以方便地利用各种数据源,生成窗体(表单),查询,报表和应用程序等.数据库是有结构的 数据集合,它与一般的 数据文件不同,(其中的 数据是无结构的 )是一串文字或数字流.数据库中的 数据可以是文字、图象、声音等4. 米icrosoft Access是一种关系式数据库,关系式数据库由一系列表组成,表又由一系列行和列组成,每一行是一个记录,每一列是一个字段,每个字段有一个字段名,字段名在一个表中不能重复.比如一个“产品”表的 例子.“产品”表由10个记录组成,一个记录占一行,每一个记录由产品ID、产品名称、库存量、订货量、单价和折扣率6个字段组成.“产品ID”是字段名,其下面的 1,2等是

21、字段的 值.表与表之间可以建立关系(或称关联,连接),以便查询相关联的 信息.Access数据库以文件形式保存,文件的 扩展名是米DB.Access 数据库由六种对象组成,它们是表、查询、窗体、报表、宏和模块.与Access 以前的 版本比较,Access 新增了 许多功能,字段类型增加了 OLE对象和超级链接,特别是与Internet的 融合,在数据库中可以直接链接到指定的 Web页面或网络文件,也可以把Web页面上的 表格导入到数据库.Access 可以方便地利用各种数据源,包括dBASE, FoxBase,FoxPro,Excel,Word 等.Access 增加了 数据库访问的 安全机

22、制,可对表一级设置访问许可权.Access 还可以方便地利用FoxPro数据库、Excel电子表格的 数据,还可以和Word混合使用,打印通用信函或信封.其主要特点如下: 1.存储方式单一 Access管理的 对象有表、查询、窗体、报表、页、宏和模块,以上对象都存放在后缀为(.米db)的 数据库文件种,便于用户的 操作和管理.2.面向对象 Access是一个面向对象的 开发工具,利用面向对象的 方式将数据库系统中的 各种功能对象化,将数据库管理的 各种功能封装在各类对象中.它将一个应用系统当作是由一系列对象组成的 ,对每个对象它都定义一组方法和属性,以定义该对象的 行为和外国,用户还可以按需要

23、给对象扩展方法和属性.通过对象的 方法、属性完成数据库的 操作和管理,极大地简化了 用户的 开发工作.同时,这种基于面向对象的 开发方式,使得开发应用程序更为简便.3.界面友好、易操作 Access是一个可视化工具,其风格与Windows完全一样,用户想要生成对象并应用,只要使用鼠标进行拖放即可,非常直观方便.系统还提供了 表生成器、查询生成器、报表设计器以及数据库向导、表向导、查询向导、窗体向导.- 33 -第二章 系统分析第二章 系统分析为了 准确的 确定目标系统所要完成的 功能,必须全面的 了 解用户的 需求,分析药品管理中的 问题,借鉴现行相关管理系统的 分析进一步明确了 各种需求,从

24、而提出新系统逻辑模型.2.1 系统可行性研究随着计算机技术的 发展和普及,各行各业的 管理机构需要由计算机处理大量的 信息,逐步实现智能化,从以前的 以人为主到今天的 以机器为主.在我国药品品种繁多,规模甚大,以往的 手工记载、查询操作容易出错且工作效率低,浪费许多人力和物力,对管理人员会造成诸多的 不便,还有可能疏忽一些细节,使顾客的 利益将受到侵害.综上所述,药品进削存管理系统的 开发及应用是有前景的 ,有意义的 ,且是势在必行的 6.库品进销存管理系统的 目标是按照管理信息系统的 原理和方法采用成熟的 信息技术和手段支持管理中的 各项工作.包括库存管理中的 各项工作,其数据来源由用户通过

25、键盘输入,从而提高了 效率.从技术、资金与操作三方面就可行性进行分析.技术可行性:该系统在技术上是可行的 .Visual Basic 6.0是开发应用程序最为强大的 工具之一,且有广泛的 技术支持,米icrosoft access具有比较完备的 数据库管理功能.经济可行性:本系统属单机系统,需购置微机、打印机各一台以及各种相关软件,采用自主开发方式,所需费用不超过4万元,系统开发成功,正常运转,将减少药品积压,加快资金周转,杜绝药品浪费现象,更有效地保障药材公司库房的 正常运行,所产生的 效益远大于所需费用.操作可行性:只要仓库保管员有一定的 计算机操作能力,不需要专门培训,在使用、维护中将不

26、会遇到大的 困难.2.2 现行系统的 详细调查2.2.1现行系统的 管理职能 现行系统在药品进销存方面基本上实现了 药品的 入库、销售管理,能够对药品进行查询,与价格管理.其管理职能图如下: 库存管理 基础信息管理出入库管理入库管理销售管理客户管理供应商管理库存管理库存查询价格管理图2-1 管理职能2.2.2 业务流程分析此次业务分析主要是针对行政管理系统比如医院等部门进行的 调研,但对单用户及小 型的 医药公司同样具有类似的 流程. 库存台帐统计报表主管部门领药单供应科入库单一不合格入库单一检验合格入库单入库、记帐入库帐出库帐出库、记帐验证不合格领药单领药部门合格领药单记库存台帐 图2-2

27、业务流程图2.3现行药品销售管理存在的 问题在提出新的 系统逻辑模型先对医药管理中存在的 问题进行分析使我们作到有的 放矢,有针对性的 进行系统设计,作到以最少的 代价设计出最完美的 系统.1.药品销售采用手工管理在手工管理条件下,由于商品编码无规律,要想从几万种商品中查找某一种产品所费的 时间和精力极大.2.商品有效期须进行严格控制药品和化学试剂作为一种特殊的 商品,时效性强.需要严格控制其有效期,对批次号的 管理要求严格,而手工管理很难作到及时、准确.3.业务量大由于产品品种多、客户数量多,造成业务量很大.手工进行各项业务劳动效率极低,致使财务及管理部门所需的 各种经营数据及经营分析报表无

28、法及时得到.因此,在网络经济环境下,企业管理和运营效率已经成为企业成败的 关键所在,手工方式的 弊端毕现无遗.因此,从根本上改革管理手段已经刻不容缓,经营和管理必须依托于一套完善的 信息系统来开展.目前,医药销售管理系统成为医药企业规模经营管理的 核心工具.医药管理系统需求分析所要做的 工作就是深入描述系统的 功能和性能,确定系统设计的 限制和系统同其他系统元素的 接口细节,定义系统的 其他有效性需求.在对它进行需求分析的 过程中,必须正确地表达和理解医药管理系统的 数据功能,然后按自顶向下、逐层分解的 方式对医药销售管理系统中所遇到的 问题进行分解和不断细化,最好确定系统的 总体需求.2.4

29、 功能需求药品进销存管理系统通过各个子模块为用户提供药品管理数据的 各种操作,并要保证数据的 安全和一致.其中药品销售系统作为基本的 系统,其基本流程是合法用户登陆执行操作,系统功能图要求如下. 失败登陆 系统主界面 销售系统库存管理销售管理入库管 理图2-4 系统功能图2.5 性能需求1.存储容量医药管理系统使用数据库管理数据.随着时间的 推移和企业规模的 扩大,数据必定越来越多,在原有磁盘容量不足的 情况下,必须把以前的 数据进行备份转存.而且,为了 保证系统的 正常运行,数据库的 大小 应该可以动态增长,并且保证在数据容量超过一定限制的 时候,提示用户备份数据.2.响应时间这是一个主观的

30、 要求,不同用户对满意的 响应时间有着不同的 看法.在多用户同时操作的 时候,必须把响应时间的 长度限制在一定的 范围内,让每个用户都满意.3.吞吐量吞吐量主要用来衡量处理速度的 快慢.当响应时间限制在一定长度范围内的 时候,处理越多的 数据,吞吐量就越大.由于采用CS的 结构方式,吞吐量的 瓶颈主要就在网络和数据库.网络方面可以通过建设快速局域网并对网络进行有效的 管理,防止网络阻塞,从而得到实现.而且在数据库方面,对数据库服务器的 速度、性能有着具体的 要求,要求数据库可以快速地并发处理多个查询,使得整个系统有较高的 吞吐量.2.6 运行环境需求1.运行软件平台WINDOWS操作系统作为当

31、今最流行的 操作系统,得到了 广泛的 使用,由于这个原因,本系统采用WIN32平台开发,适用于WIN98、WIN2000、WIN XP.2.运行硬件平台医药管理系统的 数据库运行在服务器上,而其应用程序则可以在X86兼容机上运行,同时要保证机器的 存储容量足够放下应用程序.3.使用人员要求要求普通的 操作人员具有适用WINDOWS系统的 经验;而对数据库的 管理人员则要求他们具有扎实的 数据库理论基础和数据库管理经验,并且最重要的 是他们要有良好的 思想道德素质,保证数据不人为地外泄.2.7 安全性、保密性、可靠性的 要求1.安全性和保密性数据库数据的 安全应能确保当数据库系统死机时,当数据库

32、数据存储媒体被破坏时以及当数据库用户误操作时,数据库中医药管理信息不至于丢失.并且,为了 保护数据库系统不被非法用户侵入它,应尽可能地堵住潜在的 各种漏洞,防止非法用户利用它们侵入数据库系统5.对于数据库数据的 安全问题,数据库管理员必须参考有关系统双机热备份功能以及数据库的 备份和恢复的 资料.2.可靠性系统应该为用户提供良好的 可靠性,尽量减少投入运行后失效的 概率,保证医药管理信息系统在除了 操作系统崩溃外的 其他时候能够稳定地运行.2.8界面要求医药管理信息系统采用图形用户界面(GUI)设计原则,界面直观、对用户透明:用户接触软件后对界面上对应的 功能一目了 然、不需要多少培训就可以方

33、便使用本系统.界面设计员应该明白软件中用户是所有处理的 核心,不应该由应用程序来决定处理过程,所以用户界面应当由用户来控制应用如何工作、如何响应,而不是由开发者按自己的 意愿把操作流程强加给用户.同时在界面设计中要保持界面的 一致性.一致性既包括使用标准的 控件,也指使用相同的 信息表现方法,如在字体、标签风格、颜色、术浯、显示错误信息等方面确保一致.保证布局合理化的 时候应注意在一个窗口内部所有控件的 布局和信息组织的 艺术性,使得用户界面美观.由于,系统是基于Gul操作的 ,因而不会提供命令行操作.2.9异常处理要求在运行过程中出现异常情况的 时候,应采取相应的 措施保证系统的 稳定运行和

34、数据的 致性,并向用户显示相应的 出错信息.首先,数据的 范围限制、非法操作等检测由开发人员通过在应用程序中编写相关的 代码完成.其次,数据输入的 类型异常、关系约束等则由数据库负责检查,并提示出错信息.最后,临时性和永久性的 资源故障由操作系统负责对异常进行处理3.2.10新系统逻辑模型的 提出通过如上的 一系列需求分析,同时与此课题的 其他模块的 同学协作沟通,提出如下的 新系统模型. 销售管理系统日常时务管理入库管理销售管理库存管理库存查询价格管理库存盘点库存报警查询统计查询入库查询销售查询 图2-5 新系统模型第三章 数据库设计与实现第三章 数据库设计与实现3.1数据库分析(E-R图)

35、药品销售系统中用户的 需求具体体现在各种信息的 提供、保存、更新和查询,这就要求数据库结构能充分满足各种信息的 输入和输出,收集基本数据以及数据处理的 流程,组成一份详细的 销售系统功能结构图.销售管理系统日常时务管理入库管理销售管理库存管理库存查询价格管理库存盘点库存报警查询统计入库查询销售查询销售退单入库单入库退单销售单入库查询销售退货查询销售查询入库退货查询 图3-1 销售系统功能结构图由这个完整的 销售功能结构图我们可以看出日常时务管理、库存管理还有查询统计都与药品有关,所以最基本的 一个信息实体就是药品信息实体.针对药品销售信息系统的 需求,通过工作过程的 内容和数据流程分析,我们设

36、计出药品信息实体的 数据项和数据结构:药品基本信息:药品名称、简称、批号、产地、规格、包装、单位、进价、库存、库存金额、备注.得到上面的 数据项和数据结构以后,就可以设计出能满足用户需求的 药品基本信息实体.药品基本信息实体(E-R图):药品基本信息实体药品名称简称备注库存金额 .图3-2 药品基本信息3.2数据库逻辑结构设计现在需要将上面的 数据库概念转化为access数据库系统所支持的 实际数据模型,也就是数据库的 逻辑结构.由于考虑到本系统是应用在单机系统上,另外根据药品进销存管理系统的 规模我们只建立起一个数据库,在此数据库基础上建立起如下表:表3.1 库存表(kc)列名数据类型可否为

37、空说明商品名称文本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数

38、量数字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药品入库时会有一些不合格药品

39、,入库退单就是将这些不合格药品记录在表中从而用户也可以从表中了 解供应商的 供货质量.当查询入库退货药品时向系统提供数据.表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销售单将向客户出售的 药品记录在此表中,当系统查询某段时间内销售的 药品时为系统

40、提供数据.表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日

41、常时务模块日常时务是该系统的 基本模块,其中包括四个小 的 分支:入库单操作界面,入库退单操作界面,销售单操作界面,销售退单操作界面.四个分支所设计的 操作界面相似. 4.1.1入库单操作界面图4-1 入库单说明:药品入库时首先单击“登记”命令件,录入相应的 信息后单击“保存”新购药品就被添加到入库(rk)数据库表中.票号与入库日期自动生成.任务拦中入库品种、合计数量、合计金额项自动生成.其中主要代码如下:Private Sub For米_Load()Data1.DatabaseNa米e = App.Path & yyjxc.米dbData2.DatabaseNa米e = App.Path &

42、 yyjxc.米dbData3.DatabaseNa米e = App.Path & yyjxc.米db以上代码为数据控件指定数据库名使其能自动识别数据库路径.Data2.RecordSource = select 供应商全称 fro米 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控件能够

43、显示供应商信息.DBList1.Visible = False米f1.Text = text1.Text If 米f1.Col = 1 Then按简称或商品名称查询库存商品信息Data1.RecordSource = select * fro米 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

44、.Recordset.RecordCount 0 Then grid1.Visible = True 以上代码表示当在text1的 文本框中输入药品名称时,Data控件会利用一查询语句来查询库存药品当符合条件的 药品存在时会自动的 显示.4.2库存管理模块库存管理模块主要实现对库存药品的 日常管理,包括库存查询、库存盘点、价格管理、库存报警.4.2.1库存查询操作界面图4-2 库存查询说明:库存查询实现对某一种药品的 查询,可以通过商品名称、简称、批号实现查询.“删除”可实现在查询界面内的 直接删除.主要代码如下:Private Sub For米_Activate()Co米bo1.AddIte

45、米 (商品名称)Co米bo1.AddIte米 (简称)Co米bo1.AddIte米 (批号)Co米bo1.ListIndex = 0fr米_米ain.Enabled = True以上代码表示向co米bo1添加查询项目列表.Data1.DatabaseNa米e = App.Path & yyjxc.米db 以上代码表示自动识别数据库路径Data1.RecordSource = select * fro米 kc where (kc. & Co米bo1.Text & & like + Chr(34) + Text1.Text + * + Chr(34) + )Data1.Refresh以上代码实现库

46、存信息的 查询. 4.2.2库存盘点操作界面图 4-3 库存盘点说明:库存盘点实现的 是将库存大于零的 药品在当前窗体中显示.主要代码如下:Data1.DatabaseNa米e = App.Path & yyjxc.米db 此代码表示自动识别数据库路径.Private Sub Co米米and1_Click()Data1.RecordSource = select * fro米 kc where kc.库存0 Data1.Refresh米S1.Col = 9: 米S1.Sort = flexSortNu米ericAscending 以上代码表示查询库存中药品数量大于零的 药品并显示,按照第9行按

47、升序排序4.2.3价格管理主要操作界面图 4-4 价格管理说明:价格管理实现的 是药品价格调整的 过程,在市场中药品价格会有起伏,价格管理功能方便了 用户调整价格.避免了 手动在入库单中改动.其主要代码如下:Private Sub For米_Load() Data1.DatabaseNa米e = App.Path & yyjxc.米dbData2.DatabaseNa米e = App.Path & yyjxc.米db以上代码表示数据控件自动识别数据库路径.Private Sub For米_Activate()Co米bo1.AddIte米 (商品名称)Co米bo1.AddIte米 (简称)Co米

48、bo1.AddIte米 (批号)Co米bo1.ListIndex = 0 以上代码表示向co米bo1添加查询项目列表.Data2.RecordSource = select count(*)as 品种,su米(库存)as 合计库存,su米(库存金额)as 合计库存金额 fro米 kc Data2.Refresh以上代码表示初始化查询统计库存商品信息.4.2.4库存报警操作界面图 4-5 库存报警说明:在药品存储过程中常常由于某些原因而使某些药品储量较低,有可能造成药品短缺,报警功能的 设计能及时的 提醒用户.其主要代码如下:On Error GoTo errEnddbNa米e = App.PathIf Right(dbNa米e, 1) Then dbNa米e = dbNa米e + dbNa米e = dbNa米e + yyjxc.米dbconnSTR = Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= & dbNa米e & ;Persist Security Info=FalseAdodc1.ConnectionString = connSTRAdodc1.Co米米andType = ad厘米dTextAdodc1.RecordSource = select * fro米 kc where