药店管理系统(共27页).doc

精选优质文档-倾情为你奉上摘 要 随着知识经济的发展，我们对信息的要求越来越高，无论在数量还是在速度方面都要求我们对其有深度的了解，而计算机的发展正满足了我们的需求,就企业竞争的日益剧烈而言，对其管理水平也在不断的提高，于是，计算机信息管理就占据了举足轻重的地位。信息时代的到来，我们认识到：谁掌握的信息越多，利用资源的效率越高，谁就能在竞争中占有一席之地。作为药店的重要环节药店管理的信息化、现代化也迫在眉睫了。药店管理系统的开发既有宏观上的意义，即顺应时代信息化、科技化和现代化，提高经济效益，促进国民经济结构优化。也有微观上的意义，即提高管理的现代化程序，加强管理的信息化手段，提高工作效率，增加单位效益。于是，在毕业之际，我研发了药店管理系统。做这个系统的主要目的是方便对药店的管理,减少人员的使用,不用浪费太多项的时间来整理进销的信息等。本文使用功能强大的Visual Basic6.0作为软件开发工具，Microsoft Access 2000作为数据库管理系统。整个系统从大的方面分为药店日常业务管理和系统设置管理。药店管理模块的主要功能是：药店信息的进销、查询、库存和管理；药店管理模块的主要功能是：入库管理、系统维护、以及销售管理。而每种功能又有自己的子菜单功能，如报表管理菜单完成销售登记和库存一览操作，而进销管理菜单将完成存货信息的查询、更新和删除操作；在系统设置模块中，主要设置了修改密码和退出操作。从软件工程的角度进行了科学而严谨的阐述。药品进销存管理系统的使用将实现企业信息的电子化管理，规范管理，为企业节省大量的人力，物力和财力，进一步提高，进一步提高企业的效益，为企业的发展做出巨大的贡献！关键字：药品管理,用户管理,Visual Basic应用目录第1章 项目概述1.1课题说明说明论文名称，简单的介绍1.2目前行业应用现状简单的论述本行业的应用现状1.3开发工具的选用开发工具的选用，工具的优缺点1.5数据库的选用比较开发数据的选用，优缺点1.6基本信息分析1、系统设计目的：设计系统结构，根据需求分析给出的功能得出系统体系结构，如划分模块。2、系统设计目标：通过本系统软件，能帮助工作和利用计算机，快速方便的对药品的信息管理进行维护、输入、输出、查找的所需操作使散乱的药品能够具体化，直观化、合理化。3、系统运行环境：windows2000/NT或更高的版本。4、系统处理流程:首先启动系统,激活登陆口令界面；然后通过验证后,对系统进行初始化使系统进入消息循环,通过事件驱动机制激活相应的功能模块,并执行相关功能，最后通过关闭系统事件，激活关闭系统模块，退出系统。1.7解决的问题在我所做的“药品进销存管理系统”软件中，我主要解决了以下几个方面的问题。1、在“主界面”中，实现管理日常业务菜单、库存管理菜单、查询统计、基础信息管理、系统设置等操作。2、在“库存管理”菜单中 ，系统管理员将可以通过点击不同的下拉菜单项进入不同的模块，比如：库存查询、库存盘点、价格管理的操作。3、在“查询统计”界面，可以通过点击不同的菜单分别进入不同的子菜单，系统管理员可以对药品的入库，入库退单信息销售和销售退单情况进行查询。4、在“基础信息管理”界面，可以通过点击不同的菜单分别进入不同的子菜单，可以对供应商和客户的基本情况进行查询。5、在“系统设置”界面，可以通过点击不同的菜单分别进入不同的子菜单，可以对初期建帐，密码，数据备份和数据恢复进行管理设置。6、在“退出”界面，可以直接退出程序。1.4 系统模块第2章 需求分析2.1用户需求一个项目的确立是建立在各种各样的需求上面的，这种需求往往来自于客户的实际需求或者是出于公司自身发展的需求，其中客户的实际需求也就是说这种交易性质的需求占了绝大部分。随着技术的不断发展和用户对系统功能性的需求不断提高，项目的设计和开发越来越像一个软件工程，也越来越复杂，目的设计和开发进入了需要强调流程和分工的时代，建立规范的、有效的、健壮的开发机制，才能适应用户不断变化的需要，达到预期的计划目标。2.2系统需求1、日常业务管理日常业务管理包括入库单、销售单、入库退单和销售退单四部分，药店管理员可对以上四部分对药店药品的入库、销售、入库退单和销售退单进行管理。2、库存管理库存管理包括库存查询、库存盘点和价格管理三部分，在库存查询和价格管理中药店管理员可通过商品名称、简称和批号对库存药品进行查询和价格管理，在库存盘点中可以筛选库存大于零的药品信息。3、查询统计查询统计包括入库查询、入库退单查询、销售查询和销售退单查询四部分，这四部分可以通过选择日期进入到相应的查询系统进行查询并退出。4、基础信息管理基础信息管理中包括供应商管理和客户管理两部分，可通过查询条件对供应商和客户进行查询并可对供应商管理和客户添加、删除、保存、修改和退出等进行管理。5、系统设置管理系统设置管理中包括初期建帐、密码设置、数据备份、数据恢复和退出五部分，管理员可以进行初期建帐、密码设置、数据备份、数据恢复进行有效管理并退出。2.3环境需求21世纪以来，人类经济高速发展，人类生活发生了日新月异的变化，特别是计算机的应用及普及到经济和社会生活的各个领域，使原本的旧的管理方法越来越不适应现在社会的发展，许多人还停留在以前的手工操作,这大大地阻碍了人类经济的发展。为了适应现代社会人们高度强烈的时间观念，药品进销存管理系统软件为药店管理带来了极大的方便。我所开发的这个系统所采用的是当前较为流行的编程软件VISUAL BASIC6.0作为实现语言,以数据库Microsoft SQL Serve2000作为系统的后台操作,其功能在系统内部有源代码直接完成。我们只需按系统要求输入即可操作。2.4药店工作流程分析1、药店对药品的管理是从进货记录、销售记录、库存记录这几方面的操作来进行的，这个系统是对管理药店中所需的基本数据的维护，包括这些信息的增加、修改及对各项信息的变动在这进行操作。2、管理员可以对药品的数据进行维护，可以对以上的进销存的信息可以根据自己的需要进行适当的查询。2.5 系统模块图: 图2.5.1 系统模块图各模块的具体分析：药品进货入库管理：主要用于药品进货入库的基本信息管理，如：药品名称、药品批号、价格、入库日期、入库数量。其E-R图如下图所示：图2.5.2 药品入库信息药品销售管理：主要用于药品销售的基本信息管理，如：药品名称、药品批号、销售数量、销售单价、销售日期、销售金额。其E-R图如下图所示：图2.5.3 药品销售信息3、药品销售库存报表管理：主要用于药品销售库存报表的基本信息管理：如：药品名称、批号、销售数量、销售单价、销售类型、销售日期。其E-R图如下图所示：图2.5.4 药品销售库存报表开发关系数据库的实现：Microsoft office Access2003就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Microsoft office Access2003的优点在于它非常的可靠、质量好、易用、可伸缩性、简单的管理和调整（能自动运行管理和性能监测，提供了集中的数据库管理。）、灵活的和可扩展的数据转换（能够构建更加坚固的数据转换服务（DTS）软件包）、集成了可扩展的分析服务（提供了采集、为生成报表而设计了灵活的向上流动特性、实现单元级和成员安全的功能、还有写回原始大小的能力）和自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然，还提供了排序功能。Microsoft office Access2003也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。如上所述，Microsoft office Access2003作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。2.5.2 出错处理设计1、出错输出信息：本系统采用人机对话模式，若操作失误则弹出对话框（如：身份验证、输错信息等）。2、出错处理对策：用户可根据弹出对话框中的提示信息进行操作。3、安全保密设计：系统进入时设计了登录界面，如果密码错误的话，则系统将不能运行。2.5.3.进销记录以及查询的意义在各大中小药店中，用计算机管理药品的信息已经越来越普遍了，用计算机不但可以提高工作效率，而且还节省了许多人力物力，增强了管理的安全性，提高了药店的管理能力，为此，用计算机来管理药品的信息，是非常必要的。我作为一个计算机应用的大学生，希望能有所贡献，所以借此机会用我三年的所学编制了一个实用的程序来实现有效的药品进销存管理系统。2.5.4 可行性研究目的：可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能够解决。1、经济可行性现在，计算机的价格已经十分低廉，性能却有了长远的进步。而本系统的开发将为药店的工作效益带来了一个质的飞跃，为此主要表现有以下几个方面：第一，本系统的运行可以代替人工进行许多繁杂的劳动；第二，本系统的运行可以节省许多资源；第三，本系统的运行可以大大的提高管理的工作效益；第四，本系统可以使敏感文档更加安全，等等。所以，本系统在经济上是可行的。2、技术可行性使用Visual Basic6.0作为系统开发的开发环境，它作为一种现代化的编程语言，提供完善的丰富的数据类型，给开发高性能系统提供的保障,为开发满足客户要求的系统，保证了代码的模块化要求，而代码模块化的提高，非常有利于以后对新系统的扩展与修改。综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足的，因此，它在技术上是可行的。 3、运行可行性本系统为一个小型的药店进销存管理系统，所耗费的资源非常的小，药店的电脑无论是硬件还是软件都能够满足条件，因此，本系统在运行上是可行的。4、法律可行性本系统纯为私人设计，在开发过程中没有涉及合同、责任等法律相抵触的方面。因此，本系统在法律上是可行的。第3章 总体方案设计3.1系统设计思想1 .采用现有的资源，先进的管理系统开发方案，充分利用药店现在的资源，减少开发中的时间和财力、物力、提高系统开发的水平和应用效果。该系统能满足药店的需求操作，例如药店的信息的录入、查询、更新、与输出等。2 系统具备数据库维护功能，及时根据用户需求进行数据添加、删除、修改等操作。3.2设计目的为系统中的每一个模块确定使用的算法和块内数据结构，并用表达工具给出清晰的描述。3.3系统设计分析本系统适用于药店的各种药品的管理，其功能主要分为六大类：1、 系统日常管理：包括药品信息进销的录入、查询、更新和删除等功能；2、 查询管理：包括进货查询和销售查询管理菜单；3、 库存管理：包括库存查询、库存盘点和价格等功能；4、 系统设置管理：包括密码设置、数据备份和数据恢复等功能；5、 基础信息管理： 是对供应商和客户进行查询管理；6、 留言板管理： 对留言板进行管理。3.4系统分析的主要难点1、 对客户隐藏的性能需求的分析，由于客户对尚未实施的系统无法预见，对今后的业务发展也无法预知，对性能需求的分析和定义更需要系统分析员协助客户去确定和挖掘。 2、 确定项目设计方法，根据项目需求和资源的配置选择最合适的设计方式。3、 对系统模块的划分和代码复用的设计，模块的最大化，代码复用度最高，是一个成熟的不断致力追求的系统，将大型复杂的应用系统分解成相对独立，具有高度复用的模块，各个模块之间采用规范的参数接口，将大大提高系统的开发效率和维护升级的方便性。4、 项目整体评估，系统分析员绝不应成为孤立的完美主义者，而需要根据项目的大局出发，比如药店的资源配置、人力状况、客户要求等因素评估项目整体和各个模块的工作量、进度和分配资源，制定出最合理的可行的实施方案。 系统分析员不但需要具备良好的沟通协调能力，更需要具备业务和技术领域两方面的专业技能，在项目小组中是非常关键的角色之一。 3.5系统功能分析管理员可以对任何的数据进行修改，及删除。1、录入功能：用户可以对任何数据进行录入。2、查询功能：为所有用户提供查询的功能，可查询允许范围内的所有信息。3、报表功能：能查询显示销售的记录、库存的记录的信息等操作。4、退出功能：结束并关闭系统。3.6系统性能分析1、多层结构设计严格意义上的三层结构设计，其程序逻辑结构分为用户界面层、业务逻辑处理层和数据存储层。本系统采用的上有三层结构进一步扩展而成的多层结构。2 、面向对象设计在系统中将药品类型、药品等都封装成相应的类，同时每个类都有自己对应的集合类和操作类，从而再次提高了对数据库操作的安全性和程序的可扩展性。3、指导经营的功能进销存管理系统并不仅仅能代替传统的书面操作，更重要的是它提供了信息分析的功能，只要单击一个按钮就可以查到目前销售最好的药品或是库存最多的药品，从而起到指导经营的作用。3.7药品进销存管理系统的目标1 、节约资源，提高资料室信息的精确度本系统能减少很多不必要的资源，不用像以前那样用冗余的纸张式的管理，大节省了药店能源，并且计算机的存储与快速查询功能大大提高了药店管理系统的效率，提高了药店管理的精确度。2 、方便快速操作，精减人员，节约开支方便快速的操作，可减少药店管理系统的漏洞，又减少因工作的冗余出现的错误，并且操作非常简单，可减少许多不很必要的人员，为药店节约了开支，人员也增加了收入。第4章 数据库分析及系统设计的实现4.1数据库分析用户需求具体有药店管理系统提供保存、更新、查询、维护和打印，这就需要数据库结构能充分满足各种信息的输入与输出，实现有组织地、动态地存储大量关联数据，方便用户访问系统中的数据，它与文件系统的重要区别是数据的充分共享、交叉访问与应用程序的高度独立性。1 数据管理的发展数据处理的中心问题是数据管理。数据管理指的是对数据的分类、组织、编码、储存、检索和维护。数据管理随着计算机硬件的以展而一断发展，多年来经历了三个发展阶段：1、人工管理阶段；2、文件系统阶段；3、数据库系统阶段。2 数据库技术的发展数据库技术的萌芽是20世纪60年代中期，70年代数据库技术有了较在以展。数据库方法和思想应用于各种计算机系统，并且成为实现和优化信息系统的基本技术。3 数据库系统的概念什么是数据库呢?当人们从不同的角度来描述这一概念时就有不同的定义(当然是描述性的)。例如，称数据库是一个“记录保存系统”(该定义强调了数据库是若干记录的集合)。又如称数据库是“人们为解决特定的任务，以一定的组织方式存储在一起的相关的数据的集合”(该定义侧重于数据的组织)。更有甚者称数据库是“一个数据仓库”。当然，这种说法虽然形象，但并不严谨。严格地说，数据库是“按照数据结构来组织、存储和管理数据的仓库”。在经济管理的日常工作中，常常需要把某些相关的数据放进这样"仓库"，并根据管理的需要进行相应的处理数据库的优点使用数据库可以带来许多好处：减少了数据的冗余度，从而大大地节省了数据的存储空间；实现数据资源的充分共享等等。此外，数据库技术还为用户提供了非常简便的使用手段使用户易于编写有关数据库应用程序。数据库在我国正得到愈来愈广泛的应用，必将成为经济管理的有力工具。4 数据库的要求与特性为了使各种类型的数据库系统能够充分发挥它们的优越性，必须对数据库管理系统的使用提出一些明确的要求：1 、建立数据库文件的要求(1) 尽量减少数据的重复，使数据具有最小的冗余度。计算机早期应用中的文件管理系统，由于数据文件是用户各自建立的，几个用户即使有许多相同的数据也得放在各自的文件中，因而造成存储的数据大量重复，浪费存储空间。数据库技术正是为了克服这一缺点而出现的，所以在组织数据的存储时应避免出现冗余。(2) 提高数据的利用率，使众多用户都能共享数据资源。(3) 注意保持数据的完整性。(4) 注意同一数据描述方法的一致性，使数据操作不致发生混乱。(5) 对于某些需要保密的数据，必须增设保密措施。(6) 数据的查找率高，根据需要数据应能被及时维护。4.2数据流程图描述本系统从总体上分为日常管理、查询管理、库存管理、系统设置、基础信息管理、留言板管理六大模块。每个模块有自己的作用。下面就是各功能模块的相关流程图。4.1药店信息录入流程图图4.2药店信息查询流程图4.3登陆管理流程图4.4药品进销流程图4.5查询管理流程图图4.6 本系统的数据流程图图4.7查询模块流程图修改已建的数据库：数据库的修改分为添加、编辑和删除记录。我都由Visual Basic6.0创建的程序来实现。功能模块的描述与数据表的创建如下：日常业务模块该模块主要完成药品基本信息的录入、删除、更新等功能。在此模块中定义了七个域名来进行药品的信息存储。如果用户修改某一纪录中的某一项，可单添加按钮进行药品记录的编辑，可以更清楚的进行管理。 4.2.1登陆信息表登陆信息表主要存储了用户名以及密码的数据类型、长度等，如下表：表4.1登陆信息表入库记录模块入库记录模块主要完成药品的进货记录的录入、删除、更新等功能。在此模块中定义了属性来进行进货信息表的存储。4.2.2 入库信息表入库信息表里存储了药店信息包括：进货单批号、药品代码、药品名称、单价、入库日期、入库数量等 表如下表：表4.2入库信息表销售管理模块该模块主要完成存储药品的所有信息及查询方式、开始日期、结束日期等功能。此模块主要有四个域名来进行药品信息的存储。4.2.3 销售信息表销售信息表存储了销售的信息：药品代码、销售数量、销售日期、销售类型、销售价格、销售单批号等，表如下表：表4.3销售信息表库存模块该模块主要完成库存的数量，查询之类功能。4.2.4 库存信息表库存信息表存储了药品的信息：药品批号、药品名称、库存数量等如下表库存信息表：表4.4库存信息表第5章 设计的主要窗口5.1 菜单主窗口本窗口是大来隆药店系统的主窗口界面，主要包括日常业务、库存管理、查询统计、基础信息管理、系统设置和留言板六个菜单。单击各个菜单会弹出子菜单，根据不同的子菜单用户可以对药店系统进行不同的操作。例如：用户单击日常业务，则会出现入库单、销售单、入库退单和销售退单，再单击不同的菜单就可以进行相应的操作。5.2药品进货主窗口本窗口是本系统的药品进货主窗口，主要实现对药品信息进货的记录，以便于查询。用户可对药品的商品名称、简称、批号、厂家、数量、单价、备注等信息进行库存方面的管理。5.3药品销售主窗口本窗口是本系统的药品销售主窗口，主要实现对药品信息销售的记录，以便于查询。用户可对药品的商品名称、简称、批号、厂家、数量、单价、备注等信息进行销售方面的管理。5.4销售查询主窗口本窗口是本系统的药品销售查询主窗口，主要实现对药品信息销售的查询工作，用户可以在此窗口中通过选择查询药品的名称、批号和票号进行查询、删除和退出等操作。5.5库存查询主窗口本窗口是本系统的药品库存查询主窗口，主要实现对药品信息库存的查询工作，用户可以在此窗口中通过选择查询药品的名称批、号和票号进行查询、删除和退出等操作。设计总结毕业设计是一个繁杂而又烦杂的过程，从选定题目到收集资料，几乎应用了所学过的所有知识，每一步都要付出艰辛的汗水，在忙乱与紧张中，一步一步的把以前不是很熟悉还有已经忘记的专业知识和基础知识一一从基础课到专业课都拾回来了，而且经验的累积也让我对所有所学专业的知识形成了系统的有逻辑性的认识，不但提高了解决实际问题的能力，开阔了视野，更为了以后工作奠定了坚实的基础。经过一个多月的设计和开发，大来隆药店管理系统基本开发完毕，其功能基本符合用户需求，能够完成药品的进货和销售，库存以及各类相关报表。通过作毕业设计，我不仅巩固了以前所学的专业知识，并且又学到了很多新的知识。此外，因为本项目是由多名同学共同参与的，其间大家相互协作，互相帮助才使得项目能顺利完成，通过这次设计，使我更加体会到在开发大中型软件系统时团队精神、协作能力和相互沟通的重要性，这也是在学校期间很难学到的东西。但是由于毕业设计时间比较短，所以该系统还有许多不尽如人意的地方，比如用户界面不够美观，出错处理不够等多方面问题，而这些问题也都有待进一步改善和解决。在这次设计的过程中不但锻炼了我的分析问题、解决问题的能力，还使我学习到了很多新的知识，对很多旧的知识又有了新的体会，这些都是与学校及老师的辛勤培养分不开的。致 谢一个多月的毕业设计结束了，在这一个多月的时间里，我感到自己的收获是非常大的，使我在专业技能、等很多方面有了全面的提高。在系统开发的一个月里，我受到了指导老师李忠杰老师的细心指导，李忠杰老师严谨的指导态度与深厚的理论知识都有让我受益非浅，从他身上我学到了很多的东西，无论是理论还是实践都使我的知识有很大的提高，并且顺利地完成毕业设计，借此我特提出感谢。同时我还感谢母校的老师们，感谢李忠杰老师，谢谢您一直以来给我的信任和无微不至的关心。我会一直铭刻在心。正是您的思想和故事，深深感染了我求知的热情，更让我知道学问应当具有现实意义。谢谢他为本系统提供的帮助，让我能够顺利地完成本系统的开发，也感谢那些对我提供帮助的同学，没有他们就不会有现在的系统。最后，感谢计算机系各位老师的教育和培养，感谢各位老师能给我提供这次非常好的学习实践机会！参考文献1 杨小影、王亚利.Visual Basic 程序设计基础.北京：中国水利水电出版社2 梁曦. Visual Basic程序设计与应用开发案例教程.中国电力出版社3 罗朝盛. Visual Basic程序设计教程.人民邮电出版社4 罗朝盛.Visual Basic 6.0 程序设计实践指导.浙江科学技术出版社5 刘炳文.Visual Basic 程序设计教程(第二版).清华大学出版社6 郭琦.Visual Basic 数据库系统开发技术.人民邮电出版社7 梁恩.Visual Basic6.0.数据编程技术与实例解析.北京科学出版社8 郭琦.Visual Basic 数据库系统开发技术.人民邮电出版社9 刘瑞新、李树东.Visual Basic 程序设计教程.电子工业出版社10 龚沛曾、陆慰民、杨志强.Visual Basic实验指导与测试.第二版高等教育出版社11 龚沛曾、陆慰民、杨志强. Visual Basic程序设计简明教程.第二版高等教育出版社12 孙越.Visual Basic 数据库开发自学教程.人民邮电出版社13 崔武子、齐华山、于宁 .界面设计与Visual Basic.清华大学出版社14 刘青、刘渝研、何文华.Visual Basic程序设计教程.高等教育出版社15 李长林、张丽华、王红.Visual Basic6.0.数据库应用系统开发.北京电子工业出版社附 录最后附以本文主要的程序代码，仅供参考。由于程序代码数量太大，在此只是其中的一部分，请谅解！药品入库查询代码如下：VERSION 5.00Begin VB.Form main_cxtj_rkcx BorderStyle = 3 'Fixed Dialog Caption = "查询统计【入库查询】" ClientHeight = 4440 ClientLeft = 345 ClientTop = 2400 ClientWidth = 10275 Icon = "入库查询.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 4440 ScaleWidth = 10275 ShowInTaskbar = 0 'False StartUpPosition = 1 '所有者中心 Begin VB.CommandButton Command2 Caption = "删除" Height = 435 Left = 7725 TabIndex = 7 Top = 195 Width = 1245 End Begin VB.CommandButton Command3 Caption = "退出" Height = 435 Left = 8985 TabIndex = 6 Top = 195 Width = 1245 End Begin VB.CommandButton Command1 Caption = "查询" Height = 435 Left = 6465 TabIndex = 5 Top = 195 Width = 1245 End Begin VB.Frame Frame2 Caption = "Frame2" Height = 1650 Left = -15 TabIndex = 4 Top = 1575 Visible = 0 'False Width = 1320 Begin VB.TextBox rq2 Height = 270 Left = 90 TabIndex = 9 Top = 1140 Width = 1035 End Begin VB.TextBox rq1 Height = 270 Left = 90 TabIndex = 8 Top = 855 Width = 1035 End Begin VB.Data Data1 Caption = "Data1" Connect = "Access" DatabaseName = "D:VB数据库开发实例解析程序医药进销存管理系统yyjxc.mdb" DefaultCursorType= 0 '缺省游标 DefaultType = 2 '使用 ODBC Exclusive = 0 'False Height = 345 Left = 105 Options = 0 ReadOnly = 0 'False RecordsetType = 1 'Dynaset RecordSource = "rkd" Top = 180 Width = 1140 End End Begin VB.PictureBox DBGrid1 Height = 3615 Left = 30 ScaleHeight = 3555 ScaleWidth = 10110 TabIndex = 3 Top = 750 Width = 10170 End Begin VB.Frame Frame1 Caption = "请选择查询条件" Height = 630 Left = 60 TabIndex = 0 Top = 75 Width = 6345 Begin VB.ComboBox Combo1 Height = 300 ItemData = "入库查询.frx":000C Left = 120 List = "入库查询.frx":000E Style = 2 'Dropdown List TabIndex = 2 Top = 210 Width = 1965 End Begin VB.TextBox Text1 BackColor = &H& Height = 300 Left = 2100 TabIndex = 1 Top = 210 Width = 4125 End EndEndAttribute VB_Name = "main_cxtj_rkcx"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Form_Activate()'向combo1添加查询项目列表 Combo1.AddItem ("药品名称") Combo1.AddItem ("批号") Combo1.AddItem ("票号") Combo1.ListIndex = 1 Data1.RecordSource = "select * from rkd where (rkd.日期 between " + Chr(35) + rq1.Text + Chr(35) + "and " + Chr(35) + rq2.Text + Chr(35) + ")" Data1.RefreshEnd SubPrivate Sub Form_Load() '自动识别数据库路径 Data1.DatabaseName = App.Path & "yyjxc.mdb"End SubPrivate Sub Form_Unload(Cancel As Integer) frm_main.Enabled = TrueEnd SubPrivate 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.RefreshEnd SubPrivate Sub Command2_Click() '删除入库信息 On Error Resume Next Data1.Recordset.Delete Data1.RefreshEnd SubPrivate Sub Command3_Click() frm_main.Enabled = True Unload MeEnd Sub专心-专注-专业