2022年药品管理信息系 .pdf

《2022年药品管理信息系 .pdf》由会员分享，可在线阅读，更多相关《2022年药品管理信息系 .pdf（38页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第一章系统概述1.1 系统开发背景随着科技的不断进步，企业都在不断的注重管理的信息化以完善企业管理，增强企业自身的竞争力。医药业也不例外，通过较完善的信息系统实现自身企业对内部管理的方便性、合理性、快捷性、高效性等要求。以前的手工管理效率低使最明显的缺陷，另外，数据的一致性不好维护，如某个药品信息的记录有所改动（如更改编号），那么该要品的其他记录就与此不一致，造成查询的费时费力。要把全部数据都更改又相当不方便。对药品库存的盘点也很不方便，而且需要较多的人来进行管理操作，而且容易出错，造成数据的不一致。而药品业是关民生的行业，错误信息可能会造成不可收拾的严重后果。因此，运用高效、准确的信息管理系

2、统来替代手工管理是完善医药业管理的有效手段。1.2.系统开发意义利用数据库系统可以很好的对数据进行维护，减少由于数据不一致等错误带来的麻烦。方便数据的更新和查询，降低错误率，方便药品信息的维护及库存的盘点。还可以运用较少的人员，高效的完成对医药的管理。由于社会的发展不断趋于信息化，各个行业都要加强自身的信息化程度以适应社会的发展。而管理信息化正迎合了这个趋势，数据库系统在医药业的应用业实现了医药业执行工具、业务管理等的信息化，在这个信息化社会为医药业的发展增加了新的动力。相信随着社会的不断发展对该类系统的需求会越来越高。医药管理信息系统，即服务于个人，又服务于企业，并最终服务于社会，这是让科技

3、为人类服务的最好例证，其开发意义显而易见。第二章需求分析名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 38 页 -2.1 信息需求（基本信息）药品信息：药品编号，药品名称，药品类别代码，售价，厂价，单位，库存量，有效期至，批准文号等药品分类索引信息：药品类别代码，类别说明等供应商信息：供应商号，供应商名，联系人，联系电话，所在城市等药品销售信息：销售编码，药品编码，药品名称，售价，单位，数量，总额，销售日期等用户信息：职工号，姓名，用户登录名，用户口令，用户身份，用户权限等2.2 功能需求系统要实现的主要功能有：（1）对药品信息的维护和管理，能够万册很能够药品信息的添加、修改和

4、删除，并按一定条件查询药品信息。（2）对供应商信息的管理，能够完成信息的添加、修改和删除，并按一定条件查询信息。（3）对用户信息的管理，能够完成信息的添加、修改和删除，并按一定条件查询信息。（4）仓库管理，能够查询库存药品信息，并对库存进行更新、盘点（5）查询功能，要求可以按日期查询，也可按用户选择字段和输入内容查询。2.4 数据字典 数据存储及数据流名字：销售信息别名：销售单名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 38 页 -描述：一次销售结束后所存储的信息并生成单据定义：销售信息销售编码药品编码药品名称单价数量单位销售日期总额销售员编号位置：存储输出给顾客名字：药品信

5、息别名：描述：仓库内存储的所有药品信息（包括所有药品查询的所需信息）定义：药品信息药品编码药品名称药品类别售价厂价单位库存量有效期至位置：存储输出供查询名字：用户信息别名：描述：系统用户的信息定义：用户信息职工号姓名用户名用户口令职位权限位置：存储输出供查询及维护名字：供应商信息名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 38 页 -别名：描述：药品供应商的信息定义：供应商信息供应商号供应商名称联系人联系电话所在城市位置：存储输出供查询及维护名字：查询信息描述：用户所提出的查询请求定义：查询信息 销售管理查询信息|仓库管理查询信息|日常管理查询信息 销售管理查询信息药品名称|

6、药品类别 仓库管理查询信息药品编码|药品名称|药品类别|过期药品 日常管理查询信息药品编码|药品名称|药品类别|过期药品 位置：销售管理系统仓库管理系统日常管理系统名字：更新信息描述：用户操作对库存信息的添加、删除、修改定义：更新信息 销售管理更新信息|仓库管理更新信息|日常管理更新信息 销售管理更新信息药品编码新库存量名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 38 页 -仓库管理更新信息药品编码药品名称药品类别售价厂价单位库存量有效期至日常管理更新信息用户更新信息|供应商更新信息 用户更新信息职工号姓名用户名用户口令职位权限供应商更新信息供应商号供应商名称联系人联系电话所

7、在城市位置：销售管理系统仓库管理系统日常管理系统名字：查询结果描述：系统完成用户查询请求后所得结果定义：查询结果 销售管理查询结果|仓库管理查询结果|日常管理查询结果 销售管理查询结果药品编码药品名称药品类别售价单位库存量有效期至仓库管理查询结果药品编码药品名称药品类别售价厂价单位库存量有效期至日常管理查询结果药品信息查询结果|销售记录查询结果|用户查询结果|供应商查询结果 药品信息查询结果药品编码药品名称药品类别售价厂价单位库存量有效期至销售记录查询结果销售信息销售编码药品编码药品名称单价数量单位销售日期总额销售员编号用户信息查询结果职工号姓名用户名用户口令职位权限供应商信息查询结果供应商号

8、供应商名称联系人联系电话所在城市位置：销售管理系统仓库管理系统名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 38 页 -日常管理系统 处理名字：处理信息编号：1.1 输入：销售信息输出：销售信息名字：生成单据编号：1.2 输入：销售信息输出：销售信息销售单名字：查询处理编号：1.4 输入：药品信息输出：查询结果名字：更新库存编号：1.3 名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 38 页 -输入：销售信息输出：更新信息 数据项名字：药品编码别名：描述：唯一地标识库存清单中一种特定药品的关键域定义：药品编码6 字符6 位置：药品信息销售管理查询信息及结果仓库管

9、理查询信息及结果日常管理查询信息及结果名字：库存量别名：描述：仓库内药品的实际数量定义：库存量 1 数字 4 位置：药品信息销售管理更新信息仓库管理更新信息名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 38 页 -查询结果名字：总额别名：总金额描述：记录每张销售单的总销售额定义：总额 8 货币 8 位置：销售信息名字：销售日期别名：描述：记录药品销售的时间定义：销售日期8 时间8 位置：销售信息第三章总体设计3.1 系统 E-R 图3.1.1系统局部 E-R 图图 3.1 供应商、药品实体联系图图 3.2 药品、药品类别实体联系图图 3.3 仓库、药品实体联系图名师资料总结-精

10、品资料欢迎下载-名师精心整理-第 8 页，共 38 页 -图 3.4 职工、药品实体联系图3.1.2.系统全局E-R 图通过对系统局部ER 图的优化设计系统的基本ER 图如下：图 3.5 3.2 关系模式1.关系模式设计该设计以概念结构设计中的E-R 图为主要依据，设计出相关的整体逻辑结构。根据总 E-R 图有五个实体但仓库实体在本系统中作用不大而且仅涉及到一个仓库，所以仓库不再单独设计一张表。再加上一个多对多关系（本系统不考虑供应关系）总共五个关系模式：药品信息（药品编码，药品名称，药品类别代码，售价，厂价，库存量，单位，有效期至）药品类别索引（药品类别代码，类别说明）供应商信息（供应商编码

11、，供应商名称，联系人，联系电话，所在城市）用户信息（职工号，姓名，用户名，用户口令，职位，权限）药品销售信息（销售编码，销售日期，药品编码，药品名称，单价，数量，单位，总额，销售员编码）2.关系模式优化3.2.1中的关系模式中的每一个分量都是不可分的数据项所以都符合第一范式；而且所有的前四个关系模式都是由单个属性作为码，没有任何属性对码部分依赖，在药品销售信息内虽由三个属性作为码，但也不存在属性对码的部分依赖，所以上述模式都符合第二范式；药品信息、药品类别索引、供应商信息三个关系模式中不存在传递依赖，都属于第三范式。在用户信息关系模式中，用户是按照权限分类的，职位不同权限不同，这样该关系模式就

12、存在了非主属性对码的传递依赖：职工号职位，职位权限，所以应将用户信息分解为：名师资料总结-精品资料欢迎下载-名师精心整理-第 9 页，共 38 页 -用户信息（职工号，姓名，用户名，用户口令，职位）职位权限信息（职位，权限）但本系统不考虑职工信息的管理，为了使销售员编号与销售员的职工号连系起来，并能通过职工姓名和职位来修改用户信息所以把员工的部分信息（职工号，姓名，职位）跟用户基本信息（用户名，用户口令，权限）合成了用户信息（职工号，姓名，用户名，用户口令，职位，权限）以便于系统功能的实现，所以在此不采用分解模式，仍采用原模式。药品销售信息中有大量的数据冗余，且不够明确。现将其分解为：药品销售

13、主表（销售编码，销售日期，销售员编号，总金额）药品销售子表（销售编码，销售日期，药品编码，药品名称，单价，数量，单位，金额）其中“金额”由“单价”和“数量”乘积求得，“总金额”由同一销售单内不同药品的“金额”求和得到。这样不仅方便查询销售总额，也加快了合计数据的速度，也有利于程序的实现。用户信息模式和药品销售子表模式是为了降低连接操作，减少外键和索引数目对原模式进行重建或分割得来的。更重要得是，这样不但可以提高查询速度，而且有利于系统实现。3.3 数据表设计通过对关系模式的优化，得到六个基本表：表 3 1 药品信息表字段名字段类型长度主键或外键字段值约束对应中文属性名MedicineCode

14、Char 6 Primary Key Not Null 药品编码名师资料总结-精品资料欢迎下载-名师精心整理-第 10 页，共 38 页 -MedicineName Varchar 32 Not Null 药品名称MedKindCode Char 1 Foreign key Not Null 药品类别代码Price Money 8 售价ListPrice Money 8 厂价Number Int 4 库存量Unit Char 2 单位UsefulLife Datetime 8 有效期至表 3-2 供应商信息字段名字段类型长度主键或外键字段值约束对应中文属性名FirmCode Char 4 Pr

15、imary Key Not Null 供应商编码FirmName Varchar 16 Not Null 供应商名称Link Varchar 12 联系人LinkTell Varchar 11 联系电话City Varchar 8 所在城市表 3-3 药品销售主表字段名字段类型长度主键或外键字段值约束对应中文属性名SaleNo int 4 Primary Key Not Null 销售编码名师资料总结-精品资料欢迎下载-名师精心整理-第 11 页，共 38 页 -WorkNo Char 2 Foreign key Not Null 销售员编码SaleDate DateTime 8 销售日期Am

16、ount Money 8 总金额表 3-4 药品销售子表字段名字段类型长度主键或外键字段值约束对应中文属性名SaleNo int 4 Primary Key Not Null 销售编码Medicinecode Char 6 Foreign key Not Null 药品编码MedicineName Varchar 32 Not Null 药品名称Price Money 8 售价Number Int 4 数量Unit Char 2 单位Amount Money 8 金额表 3-5 药品类别索引信息字段名字段类型长度主键或外键字段值约束对应中文属性名MedKindCode Char 1 Prima

17、ry Key Not Null 药品类别代码KindExplanation Varchar 16 Not Null 类别说明名师资料总结-精品资料欢迎下载-名师精心整理-第 12 页，共 38 页 -表 3-6 用户信息字段名字段类型长度主键或外键字段值约束对应中文属性名WorkNo Char 2 Primary Key Not Null 职工号Name Varchar 12 姓名UserRegName Char 3 Not Null 用户登录名Password Money 3 Not Null 用户口令Position Money 10 用户身份Power Int 10 用户权限第四章实现4

18、.1 数据库实现根据 3.3 数据表设计的设计结果，运用DBMS SQL Server 2000 的企业管理器建立数据库表。药品信息表(MedInfor)设置药品编码（MedicineCode）为主码，药品类别索引表（MedKindInfor）设置药品类别代码（MedKindCode）为主码，销售主表（SaleMainTable）设置销售编码（Saleno）及销售日期（SaleDate）共同作为主码，销售子表（SaleChildTable）设置销售编码（SaleNo）、销售日期（SaleDate）和药品编码（MedcineCode）共同作为主码，用户信息表（UserInfor）设置职工号（Wo

19、rkNo）作为主码，供应商信息表（FirmInfor）设置供应商编码（FirmCode）为主码。属性的字符类型及长度参照 3.3 数据表设计结果进行设置每类药品可以有好多种药，每种药只有一个类别，所以药品类别索引表与药品信息表存在一对多的关系，以 MedKindInfor的主码 MedKindCode作主键，MedInfor的 MedKindCode作外键建立关系。销售子名师资料总结-精品资料欢迎下载-名师精心整理-第 13 页，共 38 页 -表内的药品编码药参照药品信息表内的药品编码，即销售子表与药品信息表存在参照关系，以MedInfor的 MedicineCode作主键，SaleChil

20、dTable的 MedicineCode作外键建立关系。销售主表与销售子表存在依赖关系，以SaleMainTable的 Saleno和 SaleDate作为主键，SaleChildTable的 Saleno和SaleDate作为外键建立关系。销售主表内的职工号药参照用户信息表的职工号，即销售主表与用户信息表存在参照关系，以SaleMainTable的 Workno为主键,UserInfor的 WorkNo为外键建立关系。4.2 系统功能结构系统根据用户身份的不同分为三个功能模块：销售管理模块，仓库管理模块和日常管理模块。在销售管理模块，销售员可以根据顾客要求查询相关药品的部分信息，主要是库存量

21、和售价的查询；还可以完成药品的销售，根据顾客所买药品的代码和数量存储销售信息，主要是对销售数量和销售总额的记录，并在销售完成后实现当前库存的更新。在仓库管理模块，仓库管理员可以查看药品的全部信息，对药品信息进行维护，盘点库存信息，清除过期药品等。在日常管理模块，管理者可以查看药品信息、销售记录，并对供应商信息和用户信息进行管理维护。具体功能模块图如下：图 4.2 系统功能图4.3 模块功能介绍该系统共三个功能模块：销售管理、仓库管理和日常管理。不同的用户可以进入不同的模块进行相应操作。如：销售人员凭借用户名和密码只能进入销售管理系统，进入后可以进行药品的销售和查询；仓库管理员凭借用户名和密码只

22、能进入仓库管理系统，进行药品信息的查询和维护；管理者也要通过身份验证进入日常管理界面进行用户信息和供应商信息的维护即查询及药品信息和销售信息的查询。系统主界面如下：名师资料总结-精品资料欢迎下载-名师精心整理-第 14 页，共 38 页 -图 4.3 系统主界面4.3.1销售管理模块该模块主要完成前台药品销售及前台查询功能：销售过程要将销售信息自动存储到销售信息主表及子表内，便且为了维护数据的一致性，药品库存量要随销售量动态更新，若购药量大于库存时应拒绝销售操作；查询功能主要查询顾客所需药品大概信息，可以根据药品名称或所属类别进行查询。如下是销售管理模块的实现界面：1.销售员登录界面图 4.4

23、 销售管理模块登录界面该界面通过如下代码跟数据库内用户信息表连接，具体实现代码见附录Private Sub Form_Load()Adodc1.RecordSource=select*from userinfor where userregname=&Text1&Adodc1.Refresh End Sub 2.前台查询（1）输入药品名称“盖中盖”所得查询结果如下图 4.5 查询结果（一）（2）选择药品类别“非处方药”所得查询结果如下图 4.6 查询结果（二）系统通过如下主要代码实现药品查询功能按药品名查询名师资料总结-精品资料欢迎下载-名师精心整理-第 15 页，共 38 页 -Adodc1

24、.RecordSource=select medicinecode 药品编码,medicinename 药品名称,price 售价,stocknum 库存量,unit单位,usefullife 有效期至from MedInfor where medicinename=&Text1&Adodc1.Refresh 按药品类别查询Select Case Combo1.Text Case 处方药 Adodc1.RecordSource=select medicinecode as 药品编码,medicinename 药品名称,price as 售价,stocknum as 库存量,unit as 单位

25、,usefullife as 有效期至from MedInfor where medkindcode=1 Adodc1.Refresh Case 非处方药 Adodc1.RecordSource=select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期至from MedInfor where medkindcode=2 Adodc1.Refresh 3.前台销售（1）101003号药品，销售量为13 时的销售界面系统主要通过如下主要代码实现销

26、售功能名师资料总结-精品资料欢迎下载-名师精心整理-第 16 页，共 38 页 -更新库存Adodc1.Recordset.Update Text11.Text=Val(Text11.Text)-Val(Text2.Text)Adodc1.Recordset.Update Adodc1.Recordset.MoveLast 计算总额Text17.Text=Val(Text9.Text)*Val(Text2.Text)x=x+Val(Text17.Text)Text6.Text=x 4.3.2仓库管理模块该模块主要完成药品信息的维护和查询，其中查询功能可以分别按药品代码、药品名称、药品类别或过期

27、药品来查询。如下是仓库管理模块的实现界面：1.仓库管理员登录界面图 4.9 管理员登录界面2.药品信息查询（1）输入代码“101003”的查询结果界面图 4.10按药品编码的查询结果结果界面名师资料总结-精品资料欢迎下载-名师精心整理-第 17 页，共 38 页 -（2）输入药品名称“白加黑”的查询结果界面图 4.11按药品名称的查询结果界面（3）选择药品类别“处方药”的查询结果界面图 4.12按药品类别的查询结果界面（4）按过期药品查询的结果界面图 4.13按过期药品的查询结果界面系统主要通过如下主要代码实现查询功能Adodc1.RecordSource=select medicinecod

28、e as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号from MedInfor where medicinecode=&Text1&Adodc1.Refresh.4.3.3日常管理模块该模块可以进行用户信息和供应商信息的维护及查询，主要是对药品信息、销售信息、用户信息和供应商信息的查询。如下是日常管理模块的实现界面：名师资料总结-精品资料欢迎下载-名师精心整理

29、-第 18 页，共 38 页 -1.管理者登录界面图 4.14管理员登录界面2.药品信息查询（类似与仓库管理的药品信息查询）3.销售记录查询（一）销售主表查询界面图 4.15查询销售主表的结果界面（二）销售子表查询界面图 4.16查询销售子表的结果界面（三）全部信息查询界面图 4.17查询全部信息的结果界面4.供应商信息查询（一）输如供应商编码“1002”得查询结果界面图 4.18按供应商编码的查询结果界面（二）输入所在城市名“上海”得查询结果界面图 4.19按供应商所在城市的查询结果界面系统主要通过如下主要代码实现查询功能Adodc1.RecordSource=select saleno a

30、s 销售编码,amount as 总额,saledate as 销售日期,workno as 销售员编号from salemaintable where saleno=&Trim(Text12.Text)&Adodc1.Refresh.名师资料总结-精品资料欢迎下载-名师精心整理-第 19 页，共 38 页 -第五章设计总结在课程设计阶段，首先对医药管理进行了了解，仔细分析了该管理对系统功能的要求，并根据这些功能要求对系统进行定义，确定系统必须做什么。但由于对医药管理了解不多，需求分析难免不够完善，但是基本需求都考虑到了，并用文档准确记录了系统的需求。之后着手对系统的设计工作，首先是概念结构设

31、计，根据需求分析结果总结系统内实体及联系并绘制系统的局部ER 图和全局 ER 图。然后是逻辑结构设计，结合需求分析与概念结构设计把设计好的ER 图转换为 DBMS（SQL Server 2000）所支持的数据模型所符合的逻辑结构。最后运用开发工具VB6.0进行功能的编码实现。该系统最终能够基本实现绝大多数功能，但是也有很多不做之处，如药品进库信息功能，对新进药品进行入库存储，但是由于进价跟有效期的变化不能只是对该药品的库存量更改。进价可以运用加成定价法更改，但有效期尚未想到解决方案。希望老师给与意见及帮助，使系统功能更加完善。在这次课程设计中虽然遇到过很多的困难，但我从中学到了很多有用的知识，

32、通过不断的翻阅资料，各个问题的解决使我对系统的设计越来越感兴趣。相信我从这次课程设计所学到的东西可以让我在以后的学习及工作中受益无限。附录实验程序源代码1.登录界面代码：（以销售员登录为例，仓库管理员和日常管理者登录与此类似，不再赘述）在主界面菜单“销售管理“内编写代码如下：名师资料总结-精品资料欢迎下载-名师精心整理-第 20 页，共 38 页 -Private Sub A1_Click()登录.Show 登录.Adodc1.RecordSource=select*from userinfor where power=销售 登录.Adodc1.Refresh 登录.Option1.Value

33、=True 登录.Option1.Visible=True 登录.Option2.Value=False 登录.Option2.Visible=False 登录.Option3.Value=False 登录.Option3.Visible=False A=1:B=0:C=0 End Sub 在 Text2的 GotFocus事件内编写如下代码以确定用户的准确性Private Sub Text2_GotFocus()Adodc1.RecordSource=select*from userinfor where userregname=&Text1&Adodc1.Refresh If Adodc1

34、.Recordset.EOF Then MsgBox 无此用户，请重新输入!,提示 Text1.Text=Text1.SetFocus 名师资料总结-精品资料欢迎下载-名师精心整理-第 21 页，共 38 页 -End If End Sub 在 Command1的 Click事件内编写如下代码检验用户密码Private Sub Command1_Click()Dim x As String,y As String Text1.SetFocus If Val(Text2.Text)=Val(Text4.Text)Then MsgBox 输入正确,提示 Text1.Text=Text2.Text=

35、Unload Me If A=1 Then FrmMain.A2.Enabled=True FrmMain.A3.Enabled=True End If Else MsgBox 密码错误,提示 End If End Sub 2.前台查询窗体代码名师资料总结-精品资料欢迎下载-名师精心整理-第 22 页，共 38 页 -Private Sub Command1_Click()If Option1 Then Adodc1.RecordSource=select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum as 库存量

36、,unit as 单位,usefullife as 有效期至from MedInfor where medicinename=&Text1&Adodc1.Refresh End If If Option2 Then Select Case Combo1.Text Case 处方药 Adodc1.RecordSource=select medicinecode as 药品编码,medicinename 药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期至from MedInfor where medkindcode=1 Ad

37、odc1.Refresh Case 非处方药 Adodc1.RecordSource=select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期至from MedInfor where medkindcode=2 Adodc1.Refresh Case 中药饮片 名师资料总结-精品资料欢迎下载-名师精心整理-第 23 页，共 38 页 -Adodc1.RecordSource=select medicinecode as 药品编码,medici

38、nename as 药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期至from MedInfor where medkindcode=3 Adodc1.Refresh Case 中药材 Adodc1.RecordSource=select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号from MedInfor where medki

39、ndcode=4 Adodc1.Refresh Case 医疗器械 Adodc1.RecordSource=select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期至from MedInfor where medkindcode=5 Adodc1.Refresh Case 非药品（保健品）Adodc1.RecordSource=select medicinecode as 药品编码,medicinename as 药品名称,price as

40、售价,stocknum as 库存量,unit as 单位,usefullife as 有效期from MedInfor where medkindcode=6 Adodc1.Refresh End Select End If 名师资料总结-精品资料欢迎下载-名师精心整理-第 24 页，共 38 页 -If Adodc1.Recordset.EOF Then MsgBox 无此信息!,提示 Adodc1.RecordSource=select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum as 库存量,unit a

41、s 单位,usefullife as 有效期至from MedInfor Adodc1.Refresh End If End Sub 3.销售界面代码Private Sub Command1_Click()Adodc1.RecordSource=select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,unit as 单位,stocknum as 库存量from medinfor where medicinecode=&Text1&Adodc1.Refresh If Adodc1.Recordset.EOF Then MsgBox

42、 无此信息!,提示 If Val(Text11.Text)-Val(Text2.Text)0 Then MsgBox 库存不足,提示 Text1.Text=:Text2.Text=:Text1.SetFocus Else On Error Resume Next Adodc2.Recordset.AddNew Text12.Text=Text4.Text 名师资料总结-精品资料欢迎下载-名师精心整理-第 25 页，共 38 页 -Text13.Text=Text7.Text Text14.Text=Text8.Text Text15.Text=Text9.Text Text16.Text=Te

43、xt10.Text Text17.Text=Val(Text9.Text)*Val(Text2.Text)Text18.Text=Text2.Text Adodc2.Recordset.Update Adodc2.Recordset.MoveLast Adodc1.Recordset.Update Text11.Text=Val(Text11.Text)-Val(Text2.Text)Adodc1.Recordset.Update Adodc1.Recordset.MoveLast x=x+Val(Text17.Text)End If End Sub Private Sub Command2_

44、Click()Static y As Integer y=Val(Text4.Text)+1 Text4.Text=y Text5.Text=Date$名师资料总结-精品资料欢迎下载-名师精心整理-第 26 页，共 38 页 -Text6.Text=x Adodc3.Recordset.AddNew Text19.Text=Text4.Text Text20.Text=Text3.Text Text21.Text=Date$Text22.Text=Text6.Text Adodc3.Recordset.Update Adodc3.Recordset.MoveLast Text6.SetFocu

45、s End Sub Private Sub Text6_LostFocus()x=0 End Sub 4.药品信息查询代码（仓库管理和日常管理的药品查询都用此代码）Option Explicit Private Sub Command1_Click()On Error Resume Next If Command1.Caption=新增 Then Command1.Caption=确认 Adodc1.Recordset.AddNew 名师资料总结-精品资料欢迎下载-名师精心整理-第 27 页，共 38 页 -Text4.SetFocus Else Command1.Caption=新增 Ado

46、dc1.Recordset.Update Adodc1.Recordset.MoveLast End If End Sub Private Sub Command2_Click()On Error Resume Next Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End Sub Private Sub Command3_Click()On Error Resume Next If Command3.Caption=修改 Then

47、 Command3.Caption=确认 Adodc1.Recordset.Update Text4.SetFocus Else 名师资料总结-精品资料欢迎下载-名师精心整理-第 28 页，共 38 页 -Command3.Caption=修改 Adodc1.Recordset.Update Command1.Enabled=True Command2.Enabled=True Command5.Enabled=True End If End Sub Private Sub Command4_Click()Command3.Caption=修改 Command1.Caption=添加 On E

48、rror GoTo RefreshErr Adodc1.Refresh Exit Sub RefreshErr:MsgBox Err.Description End Sub Private Sub Command5_Click()Frame1.Visible=True End Sub Private Sub Command6_Click()名师资料总结-精品资料欢迎下载-名师精心整理-第 29 页，共 38 页 -If Option1 Then Adodc1.RecordSource=select medicinecode as 药品编码,medicinename as 药品名称,medkin

49、dcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号from MedInfor where medicinecode=&Text1&Adodc1.Refresh End If If Option2 Then Adodc1.RecordSource=select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice a

50、s 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号from MedInfor where medicinename=&Text2&Adodc1.Refresh End If If Option3 Then Select Case Combo1.Text Case 处方药 Adodc1.RecordSource=select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,s