药品管理信息系统

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

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

3、需求会越来越高。医药管理信息系统，即服务于个人，又服务于企业，并最终服务于社会，这是让科技为人类服务的最好例证，其开发意义显而易见。   第二章 需求分析2.1信息需求（基本信息）药品信息：药品编号，药品名称，药品类别代码，售价，厂价，单位，库存量，有效期至，批准文号等药品分类索引信息：药品类别代码，类别说明等供应商信息：供应商号，供应商名，联系人，联系电话，所在城市等药品销售信息：销售编码，药品编码，药品名称，售价，单位，数量，总额，销售日期等用户信息：职工号，姓名，用户登录名，用户口令，用户身份，用户权限等2.2功能需求系统要实现的主要功能有：（1）对药品信息的维护和管

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

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

6、|药品类别|过期药品日常管理查询信息药品编码|药品名称|药品类别|过期药品位置：销售管理系统仓库管理系统日常管理系统 名字：更新信息描述：用户操作对库存信息的添加、删除、修改定义：更新信息销售管理更新信息|仓库管理更新信息|日常管理更新信息销售管理更新信息药品编码新库存量仓库管理更新信息药品编码药品名称药品类别售价厂价单位库存量有效期至日常管理更新信息用户更新信息|供应商更新信息用户更新信息职工号姓名用户名用户口令职位权限供应商更新信息供应商号供应商名称联系人联系电话所在城市位置：销售管理系统仓库管理系统日常管理系统 名字：查询结果描述：系统完成用户查询请求后所得结果定义：

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

8、1.1输入：销售信息输出：销售信息 名字：生成单据编号：1.2输入：销售信息输出：销售信息销售单 名字：查询处理编号：1.4输入：药品信息输出：查询结果 名字：更新库存编号：1.3输入：销售信息输出：更新信息 数据项名字：药品编码别名：描述：唯一地标识库存清单中一种特定药品的关键域定义：药品编码6字符6位置：药品信息销售管理查询信息及结果仓库管理查询信息及结果日常管理查询信息及结果 名字：库存量别名：描述：仓库内药品的实际数量定义：库存量1数字4位置：药品信息销售管理更新信息仓库管理更新信息查询结果 名字：总额别名：总金额描述：记录每

9、张销售单的总销售额定义：总额8货币8位置：销售信息 名字：销售日期别名：描述：记录药品销售的时间定义：销售日期8时间8位置：销售信息第三章 总体设计3.1系统E-R图3.1.1系统局部E-R图图3.1供应商、药品实体联系图图3.2药品、药品类别实体联系图图3.3仓库、药品实体联系图图3.4职工、药品实体联系图3.1.2.系统全局E-R图通过对系统局部ER图的优化设计系统的基本ER图如下：图3.53.2关系模式1.关系模式设计该设计以概念结构设计中的E-R图为主要依据，设计出相关的整体逻辑结构。根据总E-R图有五个实体但仓库实体在本系统中作用不大而且仅涉及到一个仓库，所以仓库不再单独设

10、计一张表。再加上一个多对多关系（本系统不考虑供应关系）总共五个关系模式：药品信息（药品编码，药品名称，药品类别代码，售价，厂价，库存量，单位，有效期至）药品类别索引（药品类别代码，类别说明）供应商信息（供应商编码，供应商名称，联系人，联系电话，所在城市）用户信息（职工号，姓名，用户名，用户口令，职位，权限）药品销售信息（销售编码，销售日期，药品编码，药品名称，单价，数量，单位，总额，销售员编码）2.关系模式优化  3.2.1中的关系模式中的每一个分量都是不可分的数据项所以都符合第一范式；而且所有的前四个关系模式都是由单个属性作为码，没有任何属性对码部分依赖，在药品销售信息内虽由三个属

11、性作为码，但也不存在属性对码的部分依赖，所以上述模式都符合第二范式；药品信息、药品类别索引、供应商信息三个关系模式中不存在传递依赖，都属于第三范式。在用户信息关系模式中，用户是按照权限分类的，职位不同权限不同，这样该关系模式就存在了非主属性对码的传递依赖：职工号职位， 职位权限，所以应将用户信息分解为：用户信息（职工号，姓名，用户名，用户口令，职位）职位权限信息（职位，权限）但本系统不考虑职工信息的管理，为了使销售员编号与销售员的职工号连系起来，并能通过职工姓名和职位来修改用户信息所以把员工的部分信息（职工号，姓名，职位）跟用户基本信息（用户名，用户口令，权限）合成了用户信息（职工号，姓名，用

12、户名，用户口令，职位，权限）以便于系统功能的实现，所以在此不采用分解模式，仍采用原模式。药品销售信息中有大量的数据冗余，且不够明确。现将其分解为：药品销售主表（销售编码，销售日期，销售员编号，总金额）药品销售子表（销售编码，销售日期，药品编码，药品名称，单价，数量，单位，金额）其中“金额”由“单价”和“数量”乘积求得，“总金额”由同一销售单内不同药品的“金额”求和得到。这样不仅方便查询销售总额，也加快了合计数据的速度，也有利于程序的实现。用户信息模式和药品销售子表模式是为了降低连接操作，减少外键和索引数目对原模式进行重建或分割得来的。更重要得是，这样不但可以提高查询速度，而且有利于系统实现。&

13、#160;  3.3数据表设计    通过对关系模式的优化，得到六个基本表：表31药品信息表字段名字段类型长度主键或外键字段值约束对应中文属性名MedicineCodeChar6Primary KeyNot Null药品编码MedicineNameVarchar32 Not Null药品名称MedKindCodeChar1Foreign keyNot Null药品类别代码PriceMoney8  售价ListPriceMoney8  厂价NumberInt4  库存量UnitChar2

14、  单位UsefulLifeDatetime8  有效期至 表3-2供应商信息字段名字段类型长度主键或外键字段值约束对应中文属性名FirmCodeChar4Primary KeyNot Null供应商编码FirmNameVarchar16 Not Null供应商名称LinkVarchar12  联系人LinkTellVarchar11  联系电话CityVarchar8  所在城市 表3-3药品销售主表字段名字段类型长度主键或外键字段值约束对应中文属性名SaleNo

15、int4Primary KeyNot Null销售编码WorkNoChar2Foreign keyNot Null销售员编码SaleDateDateTime8  销售日期AmountMoney8  总金额 表3-4药品销售子表字段名字段类型长度主键或外键字段值约束对应中文属性名SaleNoint4Primary KeyNot Null销售编码MedicinecodeChar6Foreign keyNot Null药品编码MedicineNameVarchar32 Not Null药品名称PriceMoney8  售

16、价NumberInt4  数量UnitChar2  单位AmountMoney8  金额  表3-5药品类别索引信息字段名字段类型长度主键或外键字段值约束对应中文属性名MedKindCodeChar1Primary KeyNot Null药品类别代码KindExplanationVarchar16 Not Null类别说明 表3-6用户信息字段名字段类型长度主键或外键字段值约束对应中文属性名WorkNoChar2Primary KeyNot Null职工号NameVarchar12 &

17、#160;姓名UserRegNameChar3 Not Null用户登录名PasswordMoney3 Not Null用户口令PositionMoney10  用户身份PowerInt10  用户权限   第四章 实现4.1数据库实现    根据3.3数据表设计的设计结果，运用DBMS SQL Server 2000 的企业管理器建立数据库表。药品信息表(MedInfor )设置药品编码（MedicineCode）为主码，药品类别索引表（MedKindInfor）设置药品类别代码（M

18、edKindCode）为主码，销售主表（SaleMainTable）设置销售编码（Saleno）及销售日期（SaleDate）共同作为主码，销售子表（SaleChildTable）设置销售编码（SaleNo）、销售日期（SaleDate）和药品编码（MedcineCode）共同作为主码，用户信息表（UserInfor）设置职工号（WorkNo）作为主码，供应商信息表（FirmInfor）设置供应商编码（FirmCode）为主码。属性的字符类型及长度参照3.3数据表设计结果进行设置每类药品可以有好多种药，每种药只有一个类别，所以药品类别索引表与药品信息表存在一对多的关系，以MedKindInfo

19、r的主码MedKindCode作主键，MedInfor的MedKindCode作外键建立关系。销售子表内的药品编码药参照药品信息表内的药品编码，即销售子表与药品信息表存在参照关系，以MedInfor的MedicineCode作主键，SaleChildTable的MedicineCode作外键建立关系。销售主表与销售子表存在依赖关系，以SaleMainTable的Saleno和SaleDate作为主键，SaleChildTable的Saleno和SaleDate作为外键建立关系。销售主表内的职工号药参照用户信息表的职工号，即销售主表与用户信息表存在参照关系，以SaleMainTable的Work

20、no为主键,UserInfor的WorkNo为外键建立关系。4.2系统功能结构系统根据用户身份的不同分为三个功能模块：销售管理模块，仓库管理模块和日常管理模块。在销售管理模块，销售员可以根据顾客要求查询相关药品的部分信息，主要是库存量和售价的查询；还可以完成药品的销售，根据顾客所买药品的代码和数量存储销售信息，主要是对销售数量和销售总额的记录，并在销售完成后实现当前库存的更新。在仓库管理模块，仓库管理员可以查看药品的全部信息，对药品信息进行维护，盘点库存信息，清除过期药品等。在日常管理模块，管理者可以查看药品信息、销售记录，并对供应商信息和用户信息进行管理维护。具体功能模块图如下：图4.2系统

21、功能图4.3模块功能介绍     该系统共三个功能模块：销售管理、仓库管理和日常管理。不同的用户可以进入不同的模块进行相应操作。如：销售人员凭借用户名和密码只能进入销售管理系统，进入后可以进行药品的销售和查询；仓库管理员凭借用户名和密码只能进入仓库管理系统，进行药品信息的查询和维护；管理者也要通过身份验证进入日常管理界面进行用户信息和供应商信息的维护即查询及药品信息和销售信息的查询。系统主界面如下：图4.3系统主界面4.3.1销售管理模块    该模块主要完成前台药品销售及前台查询功能：销售过程要将销售信息自动存储到销售信息

22、主表及子表内，便且为了维护数据的一致性，药品库存量要随销售量动态更新，若购药量大于库存时应拒绝销售操作；查询功能主要查询顾客所需药品大概信息，可以根据药品名称或所属类别进行查询。如下是销售管理模块的实现界面：1.销售员登录界面图4.4销售管理模块登录界面该界面通过如下代码跟数据库内用户信息表连接，具体实现代码见附录Private Sub Form_Load()Adodc1.RecordSource = "select * from userinfor where userregname= '" & Text1 & "'"A

23、dodc1.RefreshEnd Sub2.前台查询（1）输入药品名称“盖中盖”所得查询结果如下图4.5查询结果（一）（2）选择药品类别“非处方药”所得查询结果如下图4.6查询结果（二）系统通过如下主要代码实现药品查询功能按药品名查询Adodc1.RecordSource = "select medicinecode 药品编码,medicinename 药品名称,price  售价,stocknum  库存量,unit单位,usefullife 有效期至 from MedInfor where medicinename= '" & Tex

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

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

26、UpdateText11.Text = Val(Text11.Text) - Val(Text2.Text)Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLast计算总额Text17.Text = Val(Text9.Text) * Val(Text2.Text)x = x + Val(Text17.Text)Text6.Text = x   4.3.2仓库管理模块该模块主要完成药品信息的维护和查询，其中查询功能可以分别按药品代码、药品名称、药品类别或过期药品来查询。如下是仓库管理模块的实现界面：1.仓库管理员登录界面图4.9管理员

27、登录界面2.药品信息查询（1）输入代码“”的查询结果界面图4.10按药品编码的查询结果结果界面（2）输入药品名称“白加黑”的查询结果界面图4.11按药品名称的查询结果界面    （3）选择药品类别“处方药”的查询结果界面图4.12按药品类别的查询结果界面（4）按过期药品查询的结果界面图4.13按过期药品的查询结果界面系统主要通过如下主要代码实现查询功能Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,pric

28、e as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor where medicinecode= '" & Text1 & "'"Adodc1.Refresh.4.3.3日常管理模块该模块可以进行用户信息和供应商信息的维护及查询，主要是对药品信息、销售信息、用户信息和供应商信息的查询。如下是日常管理模块的实现界面：1.管理者登录界面图4.14管理员登录界面2.药品信息查询（类似与仓库管理

29、的药品信息查询）3. 销售记录查询（一）销售主表查询界面图4.15查询销售主表的结果界面（二）销售子表查询界面图4.16查询销售子表的结果界面（三）全部信息查询界面图4.17查询全部信息的结果界面4.供应商信息查询（一）输如供应商编码“1002”得查询结果界面图4.18按供应商编码的查询结果界面（二）输入所在城市名“上海”得查询结果界面图4.19按供应商所在城市的查询结果界面系统主要通过如下主要代码实现查询功能Adodc1.RecordSource = " select saleno as 销售编码,amount as 总额,saledate as 销售日期,workno as 销售

30、员编号 from salemaintable where saleno='" & Trim(Text12.Text) & "'"Adodc1.Refresh. 第五章 设计总结在课程设计阶段，首先对医药管理进行了了解，仔细分析了该管理对系统功能的要求，并根据这些功能要求对系统进行定义，确定系统必须做什么。但由于对医药管理了解不多，需求分析难免不够完善，但是基本需求都考虑到了，并用文档准确记录了系统的需求。之后着手对系统的设计工作，首先是概念结构设计，根据需求分析结果总结系统内实体及联系并绘制系统的局部ER图和全局ER图。然

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

32、。相信我从这次课程设计所学到的东西可以让我在以后的学习及工作中受益无限。    附录实验程序源代码1.登录界面代码：（以销售员登录为例，仓库管理员和日常管理者登录与此类似，不再赘述）在主界面菜单“销售管理“内编写代码如下：Private Sub A1_Click()登录.Show登录.Adodc1.RecordSource = "select * from userinfor  where power=' 销售  '"登录.Adodc1.Refresh登录.Option1.Value = True登

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

34、" & Text1 & "'"Adodc1.RefreshIf Adodc1.Recordset.EOF ThenMsgBox "无此用户，请重新输入!", , "提示"Text1.Text = ""Text1.SetFocusEnd IfEnd Sub在Command1的Click事件内编写如下代码检验用户密码Private Sub Command1_Click()Dim x As String, y As StringText1.SetFocusIf Val(Text2.Tex

35、t) = Val(Text4.Text) ThenMsgBox "输入正确", , "提示"Text1.Text = ""Text2.Text = ""Unload Me  If A = 1 Then   FrmMain.A2.Enabled = True   FrmMain.A3.Enabled = True   End IfElse  MsgBox "密码错误", , "提示"End IfEn

36、d Sub2.前台查询窗体代码Private Sub Command1_Click()If Option1 ThenAdodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期至 from MedInfor where medicinename= '" & Text1 & "'"Adodc1.RefreshEnd IfIf Opt

37、ion2 ThenSelect Case Combo1.TextCase "处方药"Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename   药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期至 from MedInfor where medkindcode= '1'"Adodc1.RefreshCase "非处方药"Adodc1.RecordSource

38、 = "select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期至 from MedInfor where medkindcode= '2'"Adodc1.RefreshCase "中药饮片"Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum a

39、s 库存量,unit as 单位,usefullife as 有效期至 from MedInfor where medkindcode= '3'"Adodc1.RefreshCase "中药材"Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor where medkin

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

41、ce = "select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期 from MedInfor where medkindcode= '6'"Adodc1.RefreshEnd SelectEnd IfIf Adodc1.Recordset.EOF ThenMsgBox "无此信息!", , "提示"Adodc1.RecordSource = "selec

42、t medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期至 from MedInfor "Adodc1.RefreshEnd IfEnd Sub3.销售界面代码Private Sub Command1_Click()Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,price as 售价 ,unit as 单位,stocknum as 库存

43、量 from medinfor where medicinecode='" & Text1 & "'"Adodc1.RefreshIf Adodc1.Recordset.EOF Then MsgBox "无此信息!", , "提示"If Val(Text11.Text) - Val(Text2.Text) < 0 ThenMsgBox "库存不足", , "提示"Text1.Text = "": Text2.Text = &qu

44、ot;": Text1.SetFocusElseOn Error Resume NextAdodc2.Recordset.AddNewText12.Text = Text4.TextText13.Text = Text7.TextText14.Text = Text8.TextText15.Text = Text9.TextText16.Text = Text10.TextText17.Text = Val(Text9.Text) * Val(Text2.Text)Text18.Text = Text2.TextAdodc2.Recordset.UpdateAdodc2.Record

45、set.MoveLastAdodc1.Recordset.UpdateText11.Text = Val(Text11.Text) - Val(Text2.Text)Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastx = x + Val(Text17.Text)End IfEnd SubPrivate Sub Command2_Click()Static y As Integery = Val(Text4.Text) + 1Text4.Text = yText5.Text = Date$Text6.Text = xAdodc3.Recordset

46、.AddNewText19.Text = Text4.TextText20.Text = Text3.TextText21.Text = Date$Text22.Text = Text6.TextAdodc3.Recordset.UpdateAdodc3.Recordset.MoveLastText6.SetFocusEnd SubPrivate Sub Text6_LostFocus()x = 0End Sub4.药品信息查询代码（仓库管理和日常管理的药品查询都用此代码）Option ExplicitPrivate Sub Command1_Click()On Error Resume Ne

47、xtIf Command1.Caption = "新增" Then   Command1.Caption = "确认"   Adodc1.Recordset.AddNew   Text4.SetFocusElseCommand1.Caption = "新增"Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command2_Click()On Error Resume NextAd

48、odc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command3_Click()On Error Resume NextIf Command3.Caption = "修改" Then   Command3.Caption = "确认"   Adodc1.Recordset.Update   Text4.Set

49、FocusElseCommand3.Caption = "修改"Adodc1.Recordset.UpdateCommand1.Enabled = TrueCommand2.Enabled = TrueCommand5.Enabled = TrueEnd IfEnd SubPrivate Sub Command4_Click()Command3.Caption = "修改"Command1.Caption = "添加"On Error GoTo RefreshErr  Adodc1.Refresh  Exit Su

50、bRefreshErr:  MsgBox Err.DescriptionEnd SubPrivate Sub Command5_Click()Frame1.Visible = TrueEnd SubPrivate Sub Command6_Click()If Option1 ThenAdodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位

51、,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor where medicinecode= '" & Text1 & "'"Adodc1.RefreshEnd IfIf Option2 ThenAdodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,un

52、it as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor where medicinename= '" & Text2 & "'"Adodc1.RefreshEnd IfIf Option3 ThenSelect Case Combo1.TextCase "处方药"Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品

53、类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor where medkindcode= '1'"Adodc1.RefreshCase "非处方药"Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listpr

54、ice as 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor where medkindcode= '2'"Adodc1.RefreshCase "中药饮片"Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库

55、存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor where medkindcode= '3'"Adodc1.RefreshCase "中药材"Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位,usefullife

56、 as 有效期至,ratifycode as 批准文号 from MedInfor where medkindcode= '4'"Adodc1.RefreshCase "医疗器械"Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as

57、批准文号 from MedInfor where medkindcode= '5'"Adodc1.RefreshCase "非药品（保健品）"Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor

58、where medkindcode= '6'"Adodc1.RefreshEnd SelectEnd IfIf Option4 ThenAdodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor  where u

59、sefullife <' " & Trim(Text13) & " ' "Adodc1.RefreshEnd IfIf Adodc1.Recordset.EOF ThenMsgBox "无此信息!", , "提示"Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as

60、库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor "Adodc1.RefreshEnd IfEnd SubPrivate Sub Command7_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF ThenAdodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor "Adodc1.RefreshMsgBox "当前记录为第一条", , "提示"End IfEnd SubPrivate Sub Command8_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAd