《毕业设计（论文）基于VB的药品供销存系统的设计与实现现.doc》由会员分享，可在线阅读，更多相关《毕业设计（论文）基于VB的药品供销存系统的设计与实现现.doc（36页珍藏版）》请在三一办公上搜索。
1、目 录目 录I摘 要IIIAbstractIV第一章 系统概述11.1开发背景11.2系统设计目标11.3系统设计环境21.3.1 Visual Basic介绍21.3.2 Access数据库介绍3第二章 系统分析52.1 药品管理系统简介及行业情况52.2 系统可行性研究52.3 现行系统的详细调查62.3.1现行系统的管理职能62.3.2 业务流程分析72.4现行药品销售管理存在的问题82.5 功能需求82.6 性能需求92.7运行环境需求102.8 安全性、保密性、可靠性的要求102.9界面要求102.10异常处理要求112.11新系统逻辑模型的提出11第三章 数据库设计与实现123.1
2、数据库分析（E-R图）123.2数据描述13第四章 系统各模块的编码与实现174.1登录模块174.2日常时务模块19 4.2.1入库单操作界面194.3库存管理模块214.3.1库存查询操作界面214.3.2库存盘点操作界面224.3.3价格管理主要操作界面234.3.4库存报警操作界面244.4查询统计模块254.3.1入库查询操作界面25第五章 系统测试与维护285.1系统测试285.2系统维护28结 论30参考文献31致 谢32诚信承诺书33药品供销存系统的设计与实现摘 要随着计算机技术的普及，医药经营企业逐渐借助计算机技术去完善医药的管理和提高自身的工作效率，以赢得市场竞争的胜利。医
3、药管理信息系统已经成为各医药经营企业实现医药管理网络化和信息化的必备工具，是医药经营企业规模经营管理不可缺少的部件之一。同时，软件开发环境的高度集成和数据库技术的日益成熟大大降低了系统的开发成本。系统开发工具的智能化、人性化，使得所开发的系统充分满足了医药经营企业的各种需求，从医药经营企业的各个环节对人流、物流、资金流、信息流进行统一系统的管理。本课题是设计一个“药品进销存管理系统”。目的是实现医药库存信息的基本管理，摆脱手工记录的弊端，力图使得所开发的系统充分满足医药经营企业的各种需求，适用于中小药店以及小型诊所的进销存管理。主要有以下几个功能模块：（1）系统登录模块，实现系统登录。（2）日
4、常时务模块，管理药品的入库、销售。（3）库存管理管理模块，实现库存的查询、库存的盘点、管理价格（4）查询管理模块，查看所有药品的入库、销售基本信息。（5）基本信息管理模块，提供客户、供应商、仓库、业务员的基本管理。关键词:药品进销存管理，数据库，Visual Basic，AccessDrug supply and storage system design and implementationAbstractWith the popularity of computer technology. Pharmaceutical enterprises gradually with computer
5、 technology to improve medical management and enhance their working efficiency, in order to win the competition in the market. Medical Management Information System has become the pharmaceutical enterprises realize medical management network and information necessary tools,medical management enterpr
6、ise scale management is one of the indispensable parts. Meanwhile, software development environment of highly integrated and database technology is increasingly mature greatly reduce the cost of development of the system. System Development Tool intelligent, humane development tools, make the system
7、 fully meets the needs of the business medicine, pharmaceutical enterprises from the aspects of abortion, logistics, cash flow, information management system for unity.This task is to design a drug purchase-sell-stock management system. Purpose is to achieve the basic medical inventory information m
8、anagement, get rid of the manual recording , trying to make the system fully satisfy all the needs of pharmaceutical enterprises, Applicable to small and medium-sized and small clinic drugstore purchase-sell-stock management . The following main function modules: (1) login module system, realize the
9、 system login. (2) daily management module, the medicine men and sales incoming. (3) inventory management, inventory management module of the inquiry, inventory management, inventory prices (4) query management module, check all incoming, sales of the drug basic information. (5) the basic informatio
10、n management module, provide customers, suppliers, warehouse, the basic management salesman. Key words : pharmaceutical inventory management, database, Visual Basic, Access 第一章 系统概述1.1开发背景随着计算机技术的飞速发展，计算机在系统管理中的应用越来越普及，利用计算机实现各个系统的管理显得越来越重要。对于一些大中型管理部门来说，利用计算机支持管理高效率完成管理的日常事务，是适应现代管理制度要求、推动管理走向科学化、规
11、范化的必要条件；而药品管理是一项琐碎、复杂而又十分细致的工作，药品数量之庞大、单价的变化、进货厂商的不同，一般不允许出错，如果实行手工操作，每天进货的情况以及进货时间等等须手工填制大量的表格，这就会耗费药品管理工作人员大量的时间和精力，如果利用计算机进行这些管理工作，不仅能够保证各种核算准确无误、快速记录，而且还可以利用计算机对有关的各种信息进行统计，服务于财务部门其他方面的核算和财务处理，同时计算机具有手工管理所无法比拟的优点，例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高管理的效率,也是管理行业的科学化、正规化管理，与世界接轨的重要条件1。
12、如何利用现代信息技术使企业拥有快速、高效的市场反映能力和高度的效率，已是医药经营企业，特别是医药连锁经营企业特别关心的问题。再者，由于医药产品种类繁多、经营模式特殊、业务量大，单凭手工记账已很难适应工作的需要。医药作为关系到人们健康的特殊行业，国家对医药行业又有一些不同于其他行业的管理政策，这些都加大了管理的难度。这就把药店的信息化管理摆上日程，药店急需一套既能够有效管理药品，又能够实时提供足够市场信息的药店管理信息系统。如何尽快建立和完善现代企业的信息化管理机制问题，已成为药品经营企业发展的关键所在。1.2系统设计目标通过开发这个药品管理系统，使药品进销存管理工作系统化，规范化，自动化，从而
13、达到提高管理效率的目的，能集中处理药品的供销存业务，严格规范公司的应收应付管理，并利用先进的管理模式对提高仓储管理的工作效率和对市场的反应能力进行帮助，能高效益、低库存、保证服务质量的满足药品销售日常管理的需要，使其采用现代化管理手段以适应药品销售的发展。本系统开发设计思想。尽量采用现有软硬件环境，及先进的管理系统开发方案，提高系统开发水平和应用效果的目的；系统应符合企业管理的规定，满足日常管理的需要，并达到操作过程中的直观，方便，实用，安全等要求；系统采用模块化程序设计方法，这样既便于系统功能的各种组合，又便于未参与开发的技术维护人员补充，维护；系统应具备数据库维护功能，及时根据用户需求进行
14、数据的添加，删除，修改等操作3。1.3系统设计环境1.3.1 Visual Basic介绍 现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有很多，作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic 6.0是Microsoft公司推出的基于Windows
15、环境的计算机程序设计语言,它继承了Basic语言简单易学的优点，同时增加了许多新的功能。由于Visual Basic采用面向对象的程序设计技术，摆脱了面向过程语言的许多细节而将主要精力集中在解决实际问题和设计友好界面上，是开发Windows应用程序更迅速、更简捷2。1.提供了面向对象的可视化编程工具VB把程序和数据封装在一起视作一个对象。设计程序时只需从现有的工具箱中“拖”出所需的对象，如按钮、滚动条等，并为每一个对象设置属性2.事件驱动的编程方式在VB中，程序员只需编写响应用户动作的代码，而各个动作之间不一定有联系，这样的应用程序代码一般比较短，所以程序易于编写与维护。3.结构化的程序设计语
16、言VB具有丰富的数据类型和结构化程序结构，其特点是：(1) 增强了数值和字符串处理功能，比传统的BASIC语言有许多的改进。(2) 提供了丰富的图形及动画指令，可方便的绘制各种图形。(3)提供了定长和动态数组，有利于简化内存管理。(4)增加了递归过程调用，使程序更为简练。(5)提供了一个可供应用程序调用的包含多种类型的图标库。(6)具有完善的调试、运行出错处理。4.提供了易学易用的应用程序集成开发环境在VB的集成开发环境中，用户可设计界面、编写代码、调试程序，直至将应用程序编译成可执行文件在Windows上运行，使用户在友好的开发环境中工作。5.支持多种数据库系统的访问数据访问特性允许对包括a
17、ccess和其他企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。1.3.2 Access数据库介绍 数据库技术是计算机领域中最重要的技术之一，是计算机软件学科的一个独立分支。数据库技术的出现使设计应用渗透到工农业、商业、行政、科研、工程、国防军事等各部门，渗透到社会的每个角落，并且正在改善着人们的工作方式和思维方式。Access 数据库管理系统是Microsoft Office 套件的重要组成部分，是Access的最新版本，可在Windows 95环境下运行。Access适用于小型商务活动，用以存贮和管理商务活动所需要的数据。Access不仅是一个数据库，而
18、且它具有强大的数据管理功能，它可以方便地利用各种数据源，生成窗体（表单），查询，报表和应用程序等。数据库是有结构的数据集合,它与一般的数据文件不同，(其中的数据是无结构的)是一串文字或数字流。数据库中的数据可以是文字、图象、声音等4。 Microsoft Access是一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。比如一个“产品”表的例子。“产品”表由10个记录组成，一个记录占一行，每一个记录由产品ID、产品名称、库存量、订货量、单价和折扣率6个字段组成。“产品ID”是字段名，其下面的1
19、，2等是字段的值。表与表之间可以建立关系（或称关联，连接），以便查询相关联的信息。Access数据库以文件形式保存，文件的扩展名是MDB。Access 数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。与Access 以前的版本比较，Access 新增了许多功能，字段类型增加了OLE对象和超级链接，特别是与Internet的融合，在数据库中可以直接链接到指定的Web页面或网络文件，也可以把Web页面上的表格导入到数据库。Access 增加了数据库访问的安全机制，可对表一级设置访问许可权。其主要特点如下： 1.存储方式单一 Access管理的对象有表、查询、窗体、报表、页、宏和模块，以
20、上对象都存放在后缀为（.mdb）的数据库文件种，便于用户的操作和管理。2.面向对象 Access是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能对象化，将数据库管理的各种功能封装在各类对象中。它将一个应用系统当作是由一系列对象组成的，对每个对象它都定义一组方法和属性，以定义该对象的行为和外国，用户还可以按需要给对象扩展方法和属性。通过对象的方法、属性完成数据库的操作和管理，极大地简化了用户的开发工作。同时，这种基于面向对象的开发方式，使得开发应用程序更为简便。3.界面友好、易操作 Access是一个可视化工具，其风格与Windows完全一样，用户想要生成对象并应用，只要使用
21、鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设计器以及数据库向导、表向导、查询向导、窗体向导。第二章 系统分析2.1 药品管理系统简介及行业情况21世纪是信息时代，在这个信息时代里竞争异常激烈，所以实现药品的信息智能化管理特别重要。通过药品管理系统可以让药品监督部门有效的管理各地方的售药机构；其次，让顾客增加对售药机构的可信度；再次，各个售药机构可以方便的了解到这一段时间的售药情况，顾客消费情况和顾客满意程度等等；更重要的是统一的药价管理机制，与顾客之间建立了友好的关系，增进了与顾客之间的交流，为售药机构自身发展提供有力的支持。药品管理系统是为了加强药品管理，以便更好
22、地对药品进行监督和管理，对售药机构人员的工作，起到了高效性、准确性管理而开发。本系统主要包含供货商管理，客户管理，业务员管理，仓库管理，药品报损，密码设置，流通资金等。药品管理系统是以合理、全面、准确的药品，供货商，客户编码体系为基础，提供了对药品数量、金额、有效期的全面管理，统一的药价管理机制规范了药品的价格。系统能随时提供药库的库存、药品流向和消耗，还能根据现有库存，药品有效期提供采购计划或应暂停采购的药品清单，以提高资金的利用率，避免不必要的损失，方便快捷的途径对药品基本信息进行定期的更新和删除等管理。为了准确的确定目标系统所要完成的功能，必须全面的了解用户的需求，分析药品管理中的问题，
23、借鉴现行相关管理系统的分析进一步明确了各种需求，从而提出新系统逻辑模型。2.2 系统可行性研究随着计算机技术的发展和普及,各行各业的管理机构需要由计算机处理大量的信息，逐步实现智能化，从以前的以人为主到今天的以机器为主。在我国药品品种繁多，规模甚大，以往的手工记载、查询操作容易出错且工作效率低，浪费许多人力和物力，对管理人员会造成诸多的不便，还有可能疏忽一些细节，使顾客的利益将受到侵害。综上所述，药品进削存管理系统的开发及应用是有前景的，有意义的，且是势在必行的6。库品进销存管理系统的目标是按照管理信息系统的原理和方法采用成熟的信息技术和手段支持管理中的各项工作。包括库存管理中的各项工作，其数
24、据来源由用户通过键盘输入，从而提高了效率。从技术、资金与操作三方面就可行性进行分析。技术可行性：该系统在技术上是可行的。Visual Basic 6.0是开发应用程序最为强大的工具之一，且有广泛的技术支持，Microsoft access具有比较完备的数据库管理功能。经济可行性：本系统属单机系统，需购置微机、打印机各一台以及各种相关软件，采用自主开发方式，所需费用不超过4万元，系统开发成功，正常运转，将减少药品积压，加快资金周转，杜绝药品浪费现象，更有效地保障药材公司库房的正常运行，所产生的效益远大于所需费用。操作可行性：只要仓库保管员有一定的计算机操作能力，不需要专门培训，在使用、维护中将不
25、会遇到大的困难。2.3 现行系统的详细调查2.3.1现行系统的管理职能 现行系统在药品进销存方面基本上实现了药品的入库、销售管理，能够对药品进行查询，与价格管理。其管理职能图如下：图2.1 管理职能2.3.2 业务流程分析此次业务分析主要是针对行政管理系统比如医院等部门进行的调研，但对单用户及小型的医药公司同样具有类似的流程。库存台帐统计报表主管部门领药单供应科入库单一不合格入库单一检验合格入库单入库、记帐入库帐出库帐出库、记帐验证不合格领药单领药部门合格领药单记库存台帐 图2.2 业务流程图2.4现行药品销售管理存在的问题在提出新的系统逻辑模型先对医药管理中存在的问题进行分析使我们作到有的放
26、矢，有针对性的进行系统设计，作到以最少的代价设计出最完美的系统。1.药品销售采用手工管理在手工管理条件下，由于商品编码无规律，要想从几万种商品中查找某一种产品所费的时间和精力极大。2.商品有效期须进行严格控制药品和化学试剂作为一种特殊的商品，时效性强。需要严格控制其有效期，对批次号的管理要求严格，而手工管理很难作到及时、准确。3.业务量大由于产品品种多、客户数量多，造成业务量很大。手工进行各项业务劳动效率极低，致使财务及管理部门所需的各种经营数据及经营分析报表无法及时得到。因此，在网络经济环境下，企业管理和运营效率已经成为企业成败的关键所在，手工方式的弊端毕现无遗。因此，从根本上改革管理手段已
27、经刻不容缓，经营和管理必须依托于一套完善的信息系统来开展。目前，医药销售管理系统成为医药企业规模经营管理的核心工具。医药管理系统需求分析所要做的工作就是深入描述系统的功能和性能，确定系统设计的限制和系统同其他系统元素的接口细节，定义系统的其他有效性需求。在对它进行需求分析的过程中，必须正确地表达和理解医药管理系统的数据功能，然后按自顶向下、逐层分解的方式对医药销售管理系统中所遇到的问题进行分解和不断细化，最好确定系统的总体需求。2.5 功能需求药品进销存管理系统通过各个子模块为用户提供药品管理数据的各种操作，并要保证数据的安全和一致。其中药品销售系统作为基本的系统，其基本流程是合法用户登陆执行
28、操作，系统功能图要求如下。 图2.4 系统功能图2.6 性能需求1.存储容量医药管理系统使用数据库管理数据。随着时间的推移和企业规模的扩大，数据必定越来越多，在原有磁盘容量不足的情况下，必须把以前的数据进行备份转存。而且，为了保证系统的正常运行，数据库的大小应该可以动态增长，并且保证在数据容量超过一定限制的时候，提示用户备份数据。2.响应时间这是一个主观的要求，不同用户对满意的响应时间有着不同的看法。在多用户同时操作的时候，必须把响应时间的长度限制在一定的范围内，让每个用户都满意。3.吞吐量吞吐量主要用来衡量处理速度的快慢。当响应时间限制在一定长度范围内的时候，处理越多的数据，吞吐量就越大。由
29、于采用CS的结构方式，吞吐量的瓶颈主要就在网络和数据库。网络方面可以通过建设快速局域网并对网络进行有效的管理，防止网络阻塞，从而得到实现。而且在数据库方面，对数据库服务器的速度、性能有着具体的要求，要求数据库可以快速地并发处理多个查询，使得整个系统有较高的吞吐量。2.7运行环境需求1.运行软件平台WINDOWS操作系统作为当今最流行的操作系统，得到了广泛的使用，由于这个原因，本系统采用WIN32平台开发，适用于WIN98、WIN2000、WIN XP。2.运行硬件平台医药管理系统的数据库运行在服务器上，而其应用程序则可以在X86兼容机上运行，同时要保证机器的存储容量足够放下应用程序。3.使用人
30、员要求要求普通的操作人员具有适用WINDOWS系统的经验；而对数据库的管理人员则要求他们具有扎实的数据库理论基础和数据库管理经验，并且最重要的是他们要有良好的思想道德素质，保证数据不人为地外泄。2.8 安全性、保密性、可靠性的要求1.安全性和保密性数据库数据的安全应能确保当数据库系统死机时，当数据库数据存储媒体被破坏时以及当数据库用户误操作时，数据库中医药管理信息不至于丢失。并且，为了保护数据库系统不被非法用户侵入它，应尽可能地堵住潜在的各种漏洞，防止非法用户利用它们侵入数据库系统5。对于数据库数据的安全问题，数据库管理员必须参考有关系统双机热备份功能以及数据库的备份和恢复的资料。2.可靠性系
31、统应该为用户提供良好的可靠性，尽量减少投入运行后失效的概率，保证医药管理信息系统在除了操作系统崩溃外的其他时候能够稳定地运行。2.9界面要求医药管理信息系统采用图形用户界面（GUI）设计原则，界面直观、对用户透明：用户接触软件后对界面上对应的功能一目了然、不需要多少培训就可以方便使用本系统。界面设计员应该明白软件中用户是所有处理的核心，不应该由应用程序来决定处理过程，所以用户界面应当由用户来控制应用如何工作、如何响应，而不是由开发者按自己的意愿把操作流程强加给用户。同时在界面设计中要保持界面的一致性。一致性既包括使用标准的控件，也指使用相同的信息表现方法，如在字体、标签风格、颜色、术浯、显示错
32、误信息等方面确保一致。保证布局合理化的时候应注意在一个窗口内部所有控件的布局和信息组织的艺术性，使得用户界面美观。由于，系统是基于Gul操作的，因而不会提供命令行操作。2.10异常处理要求在运行过程中出现异常情况的时候，应采取相应的措施保证系统的稳定运行和数据的致性，并向用户显示相应的出错信息。首先，数据的范围限制、非法操作等检测由开发人员通过在应用程序中编写相关的代码完成。其次，数据输入的类型异常、关系约束等则由数据库负责检查，并提示出错信息。最后，临时性和永久性的资源故障由操作系统负责对异常进行处理3。2.11新系统逻辑模型的提出通过如上的一系列需求分析，同时与此课题的其他模块的同学协作沟
33、通，提出如下的新系统模型。 图2.5 新系统模型第三章 数据库设计与实现3.1数据库分析（E-R图）药品销售系统中用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输入和输出，收集基本数据以及数据处理的流程，组成一份详细的销售系统功能结构图。图3.1 销售系统功能结构图由这个完整的销售功能结构图我们可以看出日常时务管理、库存管理还有查询统计都与药品有关，所以最基本的一个信息实体就是药品信息实体。针对药品销售信息系统的需求，通过工作过程的内容和数据流程分析，我们设计出药品信息实体的数据项和数据结构：药品基本信息：药品名称、简称、批号、产地、规格、包装、单
34、位、进价、库存、库存金额、备注。得到上面的数据项和数据结构以后，就可以设计出能满足用户需求的药品基本信息实体。药品基本信息实体（E-R图）：.图3.2 药品基本信息3.2数据描述本系统数据库db1包含以12个表：供货商信息表ghs、客户信息表kh、仓库信息表、流通费用、药品报损、业务员、产品类目表ProType、产品信息表Product、入库操作信息表rkd、库存产品信息表kc等。下面介绍本模块几个主要数据库表格：供货商信息表gys供应商编号 INT 8 位供应商全称 CHAR 64 位简称 CHAR 8 位地址 CHAR 64 位所属地区 CHAR 64 位邮政编码 CHAR 64 位电话
35、INT 8 位传真 INT 8 位开户银行 CHAR 64 位银行帐号 INT 24 位纳税人登记 CHAR 8 位数据库表如下图所示： 图3.3 供应商客户信息表kh客户编号 INT 8 位客户全称 CHAR 64 位简称 CHAR 8 位地址 CHAR 64 位所属地区 CHAR 64 位邮政编码 CHAR 64 位电话 INT 8 位传真 INT 8 位开户银行 CHAR 64 位银行帐号 INT 24 位纳税人登记 CHAR 8 位预付 INT 32 位数据库表如下图所示： 图3.4 客户药品报损报损日期 CHAR 16 位药品名称 CHAR 16 位简称 CHAR 8 位批号 INT
36、 32 位有效期至 CHAR 16 位单位 CHAR 32 位规格 CHAR 8 位仓库编号 INT 8 位进价 DOUBLE 8 位报损数量 INT 8 位报损金额 DOUBLE 16位数据库表如下图所示：图3.5 药品报损第四章 系统各模块的编码与实现4.1登录模块主要是完成用户的登录，根据用户的级别系统赋予不同的权限。要求用户从列表框中选取出用户名，然后输入密码。通过验证进入系统。用户分别两种，一种是A级用户，是系统管理员级；另一种是B级用户,是药房销售人员级。这两种级别的用户的区别就是所拥有的权限不同。在用户管理模块中，能够对所有用户密码、创建用户的工作以及系统资料的删除，只有A级用户
37、，即系统管理员级用户。登录界面如图所示:图 4.1 登录界面登录模块主要代码如下：Data1.DatabaseName = App.Path & yyjxc.mdb:Data2.DatabaseName = App.Path & yyjxc.mdb 以上代码实现的是使Data控件自动识别数据库路径。Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Dim TIM As Integer Private Sub Form_Activate()Me.Caption = App.TitleIf Data1.Recordset
38、.RecordCount = 0 ThenMsgBox (您还没有设置操作员密码和权限，请设置操作员密码和权限!)Load frm_mainfrm_main.ShowUnload Me以上代码表示如果用户还没有设置操作员权限，系统将以弹出对话框的形式提示用户。Private Sub cmd1_Click()js.Text = TIM 查询操作员信息Data1.RecordSource = select * from ma where 操作员= & Text1.Text & Data1.RefreshIf Text1.Text And Text2.Text = Text3.Text ThenLo
39、ad frm_mainfrm_main.ShowUnload MeElseIf TIM = 3 Then 输入三次错误密码，退出系统MESSAGE = MsgBox(密码输入错误,请向系统管理员查询!, 0, )If MESSAGE = vbOK Then EndEnd IfIf Text1.Text = Then 操作员代号为空，提示信息MsgBox (请输入操作员代号!)Text1.SetFocusElseIf Text1.Text Data1.Recordset.Fields(操作员) ThenMsgBox (查无此操作员,请重新输入操作员代号!)Text1.SetFocusElseIf
40、 Text2.Text Text3.Text ThenMsgBox (密码错误,请重新输入密码!)TIM = TIM + 1Text2.SetFocus以上代码表示当操作员登陆时系统通过一TIM变量记录操作员登陆次数，当操作员登陆次数超过三次系统将不允许登陆并弹出提示对话框。4.2日常时务模块日常时务是该系统的基本模块，其中包括四个小的分支：入库单操作界面，入库退单操作界面，销售单操作界面，销售退单操作界面。四个分支所设计的操作界面相似。 4.2.1入库单操作界面图4.2 入库单说明：药品入库时首先单击“登记”命令件，录入相应的信息后单击“保存”新购药品就被添加到入库(rk)数据库表中。票号与
41、入库日期自动生成。任务拦中入库品种、合计数量、合计金额项自动生成。其中主要代码如下:Private Sub Form_Load()Data1.DatabaseName = App.Path & yyjxc.mdbData2.DatabaseName = App.Path & yyjxc.mdbData3.DatabaseName = App.Path & yyjxc.mdb以上代码为数据控件指定数据库名使其能自动识别数据库路径。Data2.RecordSource = select 供应商全称 from gys where (gys.供应商全称 like + Chr(34) + gys.Text + * + Chr(34) + )or
