药品存销管理系统
药品进销存管理系统ppt
锦绣7 期：阮雪峰 指导老师：王宗超
目录
• 1、需求分析 • 2、开发环境
• 3、系统功能
• 4、设计总结 • 5、致 谢
需求分析
药品进销存管理系统
药 品 管 理
信 息 管 理
销 售 管 理
系 统 管 理
药 品 信 息 查 询
药 品 入 库
药 品 信 息 管 理
药 厂 信 息 管 理
致谢
• 首先感谢王宗超老师对我二期学习的指导和管理，感谢他对我 的学习的关心。 • 还有就是感谢评委老师对我和我的设计做出指导和评价，让我 更加清楚认识到自己的不足，加以改进。
• 4、系统管理
药品管理
药品信息查询
主要对药品的条形码、名称、生产日期、进价、 售价、库存剩余量的查询
药品管理
药品入库
对药品的进价、售价、库存剩余量及 生产日期进行修改
药品信息管理
对药品的基本属性进行修改，例如名称
信息管理
药厂信息查询
主要对药厂的基本属性（名称、地址、联系人 及联系电话）进行查询
药 厂 信 息 查 询
会 员 信 息 查 询
会 员 信 息 管 理
前 台 收 银
销 售 明 细
账 目 统 计
管 理 权 限
修 改 密 码
开发环境 • 在Myeclipse10开发工具 • 采用oracle数据库
• java编程语言
• Tomcat服务器
系统功能
• 1、药品管理 • 2、信息管理
• 3、销售管理
账目统计
对近期内的入账、出账进行统计
系统管理
权限分配
对药店的员工进行分配权限
系统管理
药品进销存管理系统(论文毕业设计)
药品进销存管理系统(论文毕业设计)目录摘要 .......................................................... - 5 - 第一章绪论 .................................................... - 7 - 1.1开发背景.. (7)1.2系统可行性分析 (8)1.3技术分析 (8)第二章系统分析与设计.......................................... - 11 - 2.1系统需求分析 (11)2.2系统开发技术、环境、软件的选择-13- 第三章数据库设计与实现........................................ - 14 - 3.1MYSQL简介 .. (14)3.2数据库需求分析 (14)3.3数据库逻辑设计 (15)3.4数据库结构创建 (15)第四章系统详细设计............................................ - 17 - 4.1JSP连接和打开数据库.. (17)4.2登录界面 (18)4.3各项功能设计 (23)第五章系统界面介绍............................................ - 29 -5.1管理员模块介绍 (29)5.2普通用户功能介绍 (31)第六章结论与展望.............................................. - 32 - 致谢 ........................................................ - 33 - 参考文献 ...................................................... - 34 - 附录 .......................................................... - 35 -图片清单图1.1 B/S模式应用系统网络结构图................................ - 9 - 图1.2 C/S模式应用系统网络结构图................................ - 9 - 图2.1 系统功能模块图.......................................... - 12 - 图3.1 药品图片实体E-R图...................................... - 15 - 图3.2 用户实体E-R图.......................................... - 15 - 图3.3 用户、药品之间关系E-R图................................ - 15 - 图3.4 用户表 drug ............................................ - 16 - 图4.1 网站首页图.............................................. - 18 - 图4.2 管理员主界面............................................ - 20 - 图4.3 普通用户主界面.......................................... - 20 - 图4.4 药品修改................................................ - 24 - 图4.5 药品销售................................................ - 25 - 图4.6 密码修改................................................ - 26 - 图5.1 管理员登录界面.......................................... - 29 - 图5.2登录后显示............................................... - 29 - 图5.3 药品信息................................................ - 29 - 图5.4药品修改................................................. - 30 - 图5.5 删除药品................................................ - 30 - 图5.6 添加药品................................................ - 30 - 图5.7 修改密码................................................ - 30 - 图5.8 添加用户................................................ - 30 - 图5.9 普通用户登录............................................ - 31 - 图5.10 普通用户登录后显示..................................... - 31 - 图5.11 药品查询............................................... - 31 - 图5.12 药品销售............................................... - 31 - 图5.13 密码修改............................................... - 31 -基于B/S模式药品进销存系统摘要：本系统是基于JSP技术建立的药品进销存管理系统，其目标是完成医院对药品的进、销、存进行管理。
药品管理系统er图
药品管理系统ER图药品管理系统概述药品管理系统是一种用于管理医疗机构或药房内药品信息、库存以及销售情况的系统。
该系统可以帮助药品管理人员更有效地管理药品，提高客户服务质量，实现药品库存的精确管理，从而提高工作效率并降低管理成本。
实体关系图（ER图）药品管理系统的ER图主要包括以下实体和它们之间的关系：实体1：药品（Drug）•属性：–药品编号–药品名称–生产日期–进价–零售价–库存数量•关系：一个药品可以在库存中存在多个，一个药品可能有多个不同的进价和零售价。
实体2：供应商（Supplier）•属性：–供应商编号–供应商名称–联系方式•关系：一个供应商可以供应多种药品，一个药品只能由一个供应商提供。
实体3：销售记录（SalesRecord）•属性：–销售记录编号–销售日期–销售数量–客户姓名•关系：一个销售记录可以包含多种药品的销售情况，一个药品可以被多个客户购买。
关系1：药品供应（DrugSupply）•属性：–供应数量–供应日期•关系：描述了药品和供应商之间的关系，一个供应商可以向药品管理系统提供多种药品。
关系2：销售记录详情（SalesDetail）•属性：–销售金额•关系：描述了销售记录和药品之间的具体销售情况，每个销售记录对应多个药品销售详情。
ER图示例以下为药品管理系统的简化ER图示例：Table Drug {DrugID primary keyDrugNameManufactureDatePurchasePriceRetailPriceStockQuantity}Table Supplier {SupplierID primary keySupplierNameContact}Table SalesRecord {SalesRecordID primary keySalesDateSalesQuantityCustomerName}Table DrugSupply {SupplyQuantitySupplyDate}Table SalesDetail {SalesAmount}总结药品管理系统的ER图为药品、供应商、销售记录等实体之间的关系提供了清晰的描述，有助于系统设计人员和管理人员更好地了解和设计系统架构。
医药进销存管理系统(业务流程图)
医药进销存管理系统信息A1022班一系统分析1 需求分析随着互联网的发展，利用网络技术来实现“无纸办公"这个概念已经深入人心,医药管理系统作为医院信息化建设的一个重要平台在完成各种医药资源的合理统计与分配,互联网访问，医院管理，电子设备等方面面发挥了重要的作用.但是现在十分缺少类似的能够满足医院需求的医药进销存管理系统，为规范医院的医药进存销管理和数据统计和分析，在较小的代价下满足用户信息需求，设计了这个医药进存销管理系统.该医药进存销管理系统是针对医院医药管理方面而开发的一款以医药管理为基础（涉及到医药的基本信息查询和管理，医药采购，医药销售,医药退货，医药商的信息维护,客户的信息维护等）的医药信息管理软件，它以广泛的调查为基础，最大程度上满足使用需求，同时辅助于其他自定义管理的医院管理系统来提升医院的管理水平，优化资源,尽可能地降低成本,统筹安排以实现最大效益化。
1.1系统需求说明随着计算机的普及和计算机科学技术的飞速发展，人们开始越来越多地利用计算机解决实际问题。
进销存管理是医药行业管理中的重要部分,面对大量的药品进销存信息,采用人力畜力将浪费大量时间，人力和物力，并且数据准确性低，数据汇总速度慢,所以针对医药行业由于每天销售量很大,呆账，错帐时有发生且常出现开“空单”的现象,开发一个界面友好，易于操作的进销存软件成为医药企业的首选。
通过计算机对企业信息流通过程中的数据进行自动化管理是开发本系统的主要目的。
整个系统从操作简便、界面友好、灵活、使用、安全的要求出发，完成对进货、销售、库存查询管理的全过程的信息跟踪与管理,包括对操作员与系统数据的维护，信息的添加、删除、查询、统计等。
本系统可以满足医药行业中各种批发、零售及经销公司的进、销、存方面的需求。
1.2用户需求说明该需求说明明确的表达了设计实现该医药进存销系统所需要的各种数据和操作需求，建立在这个基础上设计的系统在最大程度上满足了用户的需求而且代价相对较小，其中主要包括有关医药的各种基本信息以及管理人员在处理医药的过程中所体现出来的各种操作特性及相关信息1。
药品管理系统
药品管理系统药品管理系统是指在医疗机构、药店、药企等药品经营场所中，通过采用计算机信息技术来实现药品的全生命周期管理的一种系统。
它以信息化技术手段为支撑，通过电子数据的录入、存储、管理和查询，提高了药品的管理效率和准确性，保障了药品的安全性和合规性。
药品管理系统的基本功能包括：药品的采购管理、库存管理、销售管理、质量追溯、药品信息查询、药品报警和药品审批等。
首先，药品采购管理功能可以实现对药品采购订单、供应商信息、采购合同等的录入、查询和统计分析，提高了药品采购的规范性和透明度。
其次，药品库存管理功能可以实现对药品进货、入库、出库等信息的记录和管理，确保了药品库存的准确性和及时性。
同时，还能对药品的保质期、存储条件等进行监控和管理，确保药品的质量安全。
再次，药品销售管理功能可以实现对药品销售订单、客户信息、销售统计等的管理，提高了药品销售的效率和准确性。
此外，药品质量追溯功能可以实现对药品流通环节的监控和溯源，保障药品的质量安全和合规性。
另外，药品信息查询功能可以方便用户进行药品信息的查询和获取，包括药品的名称、规格、生产厂家、价格等。
还可以通过该系统进行药品报警和药品审批，提醒用户药品的变更和过期风险，确保药品的使用安全和合规性。
药品管理系统的应用可以大大提高药品管理的效率和准确性。
首先，通过电子化信息管理，实现了对药品全生命周期的数字化管理，避免了手工录入和纸质档案管理所带来的错误和延时。
其次，药品管理系统可以实时监控药品的库存情况，避免了因库存过多或过少造成的药品滞销或缺货现象。
同时，还可以准确掌握药品的质量情况，避免了因质量不合格引发的风险和损失。
此外，药品管理系统还可以对药品销售情况进行统计和分析，为药店的经营决策提供数据支持。
另外，药品管理系统可以与电子病历系统、医院信息系统等进行对接，实现药品的电子处方管理和医保结算，提升了医疗服务的质量和效率。
当然，药品管理系统的应用也面临一些挑战和问题。
药品进销存系统
药品进销存系统需求分析：设计药品进销存系统并分为六个功能模块。
主要用来管理一个小型的药品销售公司。
主要有药品的入库、出库，供货商的管理，，客户管理以及必要的库存检索。
系统用orcal管理数据库，通过MFC实现软件界面可视化，通过函数连接数据库，实现对数据库的基本操作，下面具体分析每个功能模块：药品清单：可以建立一张表用于存放药品相关信息。
药品的相关信息包括：货号、药品名称、类型、进价、售价、生产日期以及有效期至。
可以添加一条记录到药品清单中，也可以删除一条记录，也可以显示药品清单中所有的记录项，实现对这张表的简单管理。
供货商清单：可以建立一张表存放供货商的相关信息。
供货商清单的相关数据项包括：供货商号、供货商名称、供货商地点、联系电话。
可以添加一条记录到供货商清单表中，也可以删除掉一条记录，也可以显示供货商清单中的所有记录，实现对供货商信息的简单管理。
客户清单：可以建立一张表存放客户的相关信息。
客户清单的相关数据项包括：客户编号、客户名称、地点、电话。
可以添加一条记录到客户清单表中，也可以删除掉一条记录，也可以显示客户清单中的所有记录，实现对客户信息的简单管理。
进货单：当有药品入库时，进货单中要增加一条相关记录，以记录药品入库信息。
进货单包括的数据项有：编号、供货商号、货号、仓库、进货数量以及进货日期，进货单中可以增加上一条记录，但是不可以删除一条记录，可以显示进货单中的所有记录，实现对进货单的相关管理。
售货单：当有药品出库时，售货单中要增加一条相关记录，以记录药品出库信息。
售货单包括的数据项有：编号、客户编号、货号、仓库、销售数量以及销售日期，售货单中可以增加上一条记录，但是不可以删除一条记录，可以显示售货单中的所有记录，实现对售货单的相关管理。
库存库：当有药品入库时，库存库要增加相关记录或修改相关记录，当有药品出库时，库存库要修改相关记录或当出库不成功时给出相关警告信息。
库存库包括以下数据项：货号、仓库、库存数量、库存单价、库存金额。
医药进销存管理系统
医药进销存管理系统摘要进销存管理是药品信息管理的重要部分。
传统的医药行业的进销存管理一直采用手工操作。
浪费大量的时间、人力和物力，且数据的准确性低。
计算机化的医药进销存管理系统可以对医药进销存的一系列过程进行有效监控分析，提高企业运营的质量和效率。
因此，医药进销存管理系统具有广泛的应用前景。
该系统能满足中小型医药进销存管理的基本需要。
系统能够实现的主要功能：药品的基础信息的维护和管理，药品的批量销售的处理，客户欠款管理，库存药品查询统计等。
本系统以VB为前台开发工具，SQL Server 2000为后台数据库的开发工具，运行在Windows XP系统下。
关键词：进销存管理；药品信息管理；SQLMEDICINE INVOICING MANAGEMENT SYSTEMABSTRACTInvoicing management is an important part of medicine information management. Invoicing management of the traditional medicine is hand operation，which wastes a lot of time, manpower, material resources, and the accuracy of data is very low. Computerized medicine invoicing management system can analyze the procedure of medicine invoicing management system to improve the quality and efficiency of the enterprise. So medicine invoicing management system possesses wide application.This system can satisfy the need of medicine invoicing management. The main function of the system is maintenance and management of the information of the medicine, disposal of medicine selling, client arrearage management, stock drugs query, etc.VB is used for develop tools on the stage. SQL Server 2000 is applied to backstage. The system is run on Windows XP.Key words:Invoicing management; drug information management; SQL目录1 前言 (1)1.1 选题背景 (1)1.2 医药进销存管理系统的研究现状 (1)1.3 论文主要内容 (1)1.4 系统开发工具及开发环境 (2)2 系统分析 (3)2.1 系统介绍 (3)2.2 需求分析 (3)2.2.1 功能需求 (3)2.2.2 可靠性和可用性需求 (3)2.2.3 系统功能分析 (4)2.3 可行性分析 (4)2.4 系统模块设计 (5)3 概要设计 (6)3.1 系统功能设计 (6)3.2 系统流程图 (6)3.3 系统E-R图 (7)3.4 数据流图 (9)4 详细设计 (11)4.1 开发工具及开发环境 (11)4.1.1 关于VB (11)4.1.2 关于WINDOWS XP (11)4.1.3 关于SQL Server 2000 数据库 (11)4.2 硬件最低需求及运行环境 (11)4.3 程序流程图 (12)4.4 数据库设计 (12)4.4.1 数据库的逻辑设计 (12)4.4.2 数据库的物理设计 (16)5 系统实施 (17)5.1 登录界面 (17)5.2 药品信息管理 (17)5.3 药品销售管理 (18)5.4 药品入库管理 (18)5.5 库存药品查询 (19)5.5.1 窗体界面设计 (19)5.5.2 程序代码设计 (20)5.5.3 窗体运行结果 (22)5.6 应收款管理 (22)5.7 销售日报表 (23)5.7.1 窗体界面设计 (23)5.7.2 窗体运行结果 (23)5.8 系统主窗体 (24)6系统测试 (26)7结论 (32)参考文献 (33)致谢 (34)1 前言1.1 选题背景医药行业商品种类繁多，客户数量多，造成业务量很大。
药品进销存管理系统
新疆财经大学毕业（设计）论文题目:药品进销存管理系统学生姓名: 努尔曼古丽·艾散学号： 2008100641院部：计算机科学与工程专业：计算机科学与技术班级: 计算机08-2班指导教师姓名及职称：古丽米热老师完成日期：2012—11-14摘要随着科学技术的进步，计算机行业的迅速发展，大大提高人们的工作效率。
计算机信息处理系统的引进已彻底改变了许多公司的经营管理。
甚至附近的一个小店主也可能正在用计算机来控制销售、记账及其他活动。
在一些大公司里，电子信息处理系统检测全部工作设备的操作与运行。
在药店里，药品进销存管理是一项非常重要的工作,使用人工方式管理各项药品信息不仅效率低下，而且容易出错、安全性很差.并且在实际操作中,数据的查找和维护都不容易实现。
药品进销存管理系统，就是为了解决这些问题而设计的。
其目的是实现药品信息管理和出入库记录的快速高效检索，使操作简单安全，提高工作效率和质量。
药品分类互不雷同。
现在国家也没有相关的规范，只是明确了大的分类原则。
好多药店理解不同，导致分类各有千秋.药品进销存是药品分类管理要求的主要体现，规范合理的进销存系统有利于零售药店加强处方药与非处方药的分类管理，减少因记录混乱而错拿药品等事件的发生。
本系统使用的开发工具是PB9。
0，数据库使用的是PB自带的ASA数据库，它实现了药店的主要数据录入和数据的统计分析处理.为药店整合各药品信息,进药信息,员工信息，退货信息，销售信息与统计提供了很好的统计工具。
很好的实现了管理智能化,轻松化，简便化的目标.关键词:药品进销存管理系统,需求分析，系统设计，系统模块，ASA数据库。
目录第一章开发背景和意义 (1)第二章系统分析 (2)2.1系统应用需求 (2)2。
2可行性分析 (2)2。
3系统主要功能概述 (3)2。
4 系统运行环境 (3)第三章系统设计 (5)3。
1 系统结构设计 (5)3.2 业务流程分析 (6)3。
3 数据库实体图 (7)3.4 系统的功能结构设计 (9)3。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
皖西学院计算机科学与技术系实验报告课程名称数据库原理及应用课程设计实验项目课程设计实验类型课程设计完成人何传喜所在班级计科0702指导教师严仍荣李瑞霞徐华丽马艳完成日期2009年12月18日一．概述在计算机技术飞速发展的今天，计算机管理已经在很多领域得到广泛的应用。
计算机化已成为医院现代化一个不可或缺的因素。
目前很多医院的信息管理还比较落后，劳动强度大且效率低，因此，开发医院管理信息系统将提高医院的各项工作效率。
医院的药品管理师一个非常重要的和繁杂的事务，需要完成药品的购入、存储、售出等很多操作，这就使得使用药品存销管理系统来管理这样的事务有着很好的效果。
软件开发环境：window XP，SQL server2000，Visual Basic6.0二．需求分析医院药品存销管理系统主要需要实现药品入库信息记录、药品的库存管理、药品出库信息管理等功能。
具体要实现的功能包括：（1）药品入库信息管理功能。
记录入库药品名称、价格、数量、业务员、生产厂商等资料，能够实现对药品入库信息的添加、修改、删除和查询功能。
（2）药品库存资料管理。
记录库存药品的名称、类型、入库价格、销售价格、库存量、入库时间、有效期等资料，能够实现对库存药品信息的添加、修改、删除和查询功能。
在病人购买药品取走后，在表中同时删除相应的药品的数量。
（3）药品出库信息管理。
记录药品出库的名称、类型、销售价格、数量、病人名称、应付费用等资料，能够实现对出库药品信息的添加、修改、删除和查询功能。
E-R模型图：①入库药品E-R图②库存药品E-R图③出库药品E-R图三．数据库逻辑设计四．软件功能设计及界面设计当系统运行时，首先启动系统主界面frm_main.Show。
主界面具体设计如下表所示级别菜单名称单击链接窗口主菜单药品入库管理Menu_import子菜单添加入库信息Menu_im_add frm_im_add.Show删除入库信息Menu_im_del frm_im_del.Show修改入库信息Menu_im_upd frm_im_upd.Show查询入库信息Menu_im_que frm_im_que.Show 主菜单库存药品管理Menu_info子菜单添加库存信息Menu_inf_add frm_inf_add.Show删除库存信息Menu_inf_del frm_inf_del.Show修改库存信息Menu_inf_upd frm_inf_upd.Show查询库存信息Menu_inf_que frm_inf_que.Show 主菜单药品出库管理Menu_export子菜单添加出库信息Menu_ex_add frm_ex_add.Show删除出库信息Menu_ex_del frm_ex_del.Show修改出库信息Menu_ex_upd frm_ex_upd.Show查询出库信息Menu_ex_que frm_ex_que.Show 主菜单退出药品存销管理系统Menu_quit frm_quit.Show下面给出主界面实现各界面菜单的操作程序代码：Private Sub Menu_im_add_Click()frm_im_add.ShowEnd SubPrivate Sub Menu_im_del_Click()frm_im_del.ShowEnd SubPrivate Sub Menu_im_upd_Click()frm_im_upd.ShowEnd SubPrivate Sub Menu_im_que_Click()frm_im_que.ShowEnd SubPrivate Sub Menu_inf_add_Click()frm_inf_add.ShowEnd SubPrivate Sub Menu_inf_del_Click()frm_inf_del.ShowEnd SubPrivate Sub Menu_inf_upd_Click()frm_inf_upd.ShowEnd SubPrivate Sub Menu_inf_que_Click()frm_inf_que.ShowEnd SubPrivate Sub Menu_ex_add_Click()frm_ex_add.ShowEnd SubPrivate Sub Menu_ex_del_Click()frm_ex_del.ShowEnd SubPrivate Sub Menu_ex_upd_Click()frm_ex_upd.ShowEnd SubPrivate Sub Menu_ex_que_Click()frm_ex_que.ShowEnd SubPrivate Sub Menu_quit_Click()Unload MeEnd Sub在定义一些全局变量和与数据库相关的变量Public ColVal As String'读取表中列值的变量Public objConn As New ADODB.ConnectionPublic objRS As New ADODB.Recordset ‘连接数据库设置Public Sub OpenDB()objConn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=true;User ID=sa;password=;Initial Catalog=Drug;Data Source=CST-D22"'Initial Catalog是数据库名；Data Source是服务器名objConn.OpenEnd SubPublic Sub CloseDB()objConn.CloseEnd Sub（1）药品入库管理系统设计在药品入库管理系统中需要设计实现如下图中的功能单击“添加入库信息”选项，启动frm_im_add.Show.进入“添加入库信息”界面。
单击“取消”按钮，将触发Fault_Click事件，不保存输入文本框的内容而直接返回到主界面。
相应的代码如下：Private Sub Fault_Click()Unload MeEnd Sub单击“确定”按钮，将触发Cmd_OK_Click事件，把输入的入库药品信息添加到SQL Secer对应的数据表中，相应的代码如下：Private Sub Cmd_OK_Click()If Trim(Import_name.Text) = "" ThenMsgBox "药品入库名称不能为空!", vbOKOnlyExit SubEnd IfIf Trim(Import_type.Text) = "" ThenMsgBox "入库药品类型不能为空!", vbOKOnlyExit SubEnd IfIf Trim(Import_num.Text) = "" ThenMsgBox "药品入库数量不能为空!", vbOKOnlyExit SubEnd IfIf Trim(Import_price.Text) = "" ThenMsgBox "药品入库价格不能为空!", vbOKOnlyExit SubEnd IfIf Trim(Import_time.Text) = "" ThenMsgBox "入库时间不能为空!", vbOKOnlyExit SubEnd IfIf Trim(Prodcom.Text) = "" ThenMsgBox "生产厂商不能为空!", vbOKOnlyExit SubEnd IfIf Trim(Prodplace.Text) = "" ThenMsgBox "产地不能为空!", vbOKOnlyExit SubEnd IfIf Trim(Buyer.Text) = "" ThenMsgBox "采购员不能为空!", vbOKOnlyExit SubEnd IfIf Trim(Checker.Text) = "" ThenMsgBox "验收员不能为空!", vbOKOnlyExit SubEnd IfOpenDBDim strSQL As StringstrSQL = "Select * from Drug_Import"'添加药品入库信息objRS.Open strSQL, objConn, adOpenKeyset, adLockOptimistic objRS.AddNewobjRS.Fields(1).Value = Trim(Import_name.Text)objRS.Fields(2).Value = Trim(Import_type.Text)objRS.Fields(3).Value = CDbl(Trim(Import_num.Text))objRS.Fields(4).Value = CDbl(Trim(Import_price.Text))objRS.Fields(5).Value = CDate(Trim(Import_time.Text))objRS.Fields(6).Value = Trim(Prodcom.Text)objRS.Fields(7).Value = Trim(Prodplace.Text)objRS.Fields(8).Value = Trim(Buyer.Text)objRS.Fields(9).Value = Trim(Checker.Text)objRS.UpdateobjRS.CloseCloseDBMsgBox "记录已添加!", vbOKOnlyUnload MeEnd Sub单击“删除入库信息”选项，启动。
frm_im_del.Show.进入“删除入库信息”界面单击“取消”按钮，将触发Fault_Click事件，不保存输入文本框的内容而直接返回到主界面。
相应的代码如下：Private Sub Fault_Click()Unload MeEnd Sub单击“查询”按钮，将触发Cmd_Query_Click事件，查询想要删除的入库药品名称，将集体的入库信息显示在窗口中。
相应的代码如下：Private Sub Cmd_Query_Click()Dim QueName As StringDim strSQL As StringQueName = Trim(import_del_que.Text)If QueName = "" ThenMsgBox "输入的药品名称不能为空!", vbOKOnlyExit SubElseOpenDBstrSQL = "SELECT * FROM Drug_import WHERE Import_name ='" + QueName + "'"objRS.Open strSQL, objConn, adOpenDynamic, adLockOptimisticIf objRS.EOF ThenMsgBox "没有该药品的入库信息!", vbOKOnlyobjRS.CloseCloseDBExit Sub'如果找到了该药品的信息，则将查询到的内容显示在窗口中ElseImport_name.Text = objRS.Fields(1).ValueImport_type.Text = objRS.Fields(2).ValueImport_num.Text = Str(objRS.Fields(3).Value)Import_price.Text = Str(objRS.Fields(4).Value)Import_time.Text = Str(objRS.Fields(5).Value)Prodcom.Text = objRS.Fields(6).ValueProdplace.Text = objRS.Fields(7).ValueBuyer.Text = objRS.Fields(8).ValueChecker.Text = objRS.Fields(9).ValueEnd IfEnd IfobjRS.CloseCloseDBEnd Sub查询结束后，查询到的入库药品信息将显示在界面中，这个时候如果确定需要删除，则单击“删除”按钮，将触发Cmd_Del_Click事件，删除选择的数据库表中保存的入库药品信息。