2022年药品招标管理信息系 .pdf

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

1、1 摘要：本系统主要用于药品招标的信息管理，整个系统基于药品及买卖双方的信息建立，以操作简便、界面友好、实用为基本要求，通过对各类信息的操作，实现对药品以及买卖双方信息的管理，具备比较健全的查询和报表功能，能够及时地将药品信息传达给买卖双方并且进行招标，使原本需要手工操作的工作变为自动化，实现了药品招标的信息化和现代化。本系统采用 Access数据库制作，运用了 Access的编程语言 VBA，利用数据库自带的一些工具完成了系统的建立。论文首先介绍了关系型数据库技术的概述以及Access 数据库的相关内容，然后根据任务书的要求，结合以前药品招标的实际情况，按照数据库的设计方法以及设计步骤，完成

2、了本系统的设计。关键词：医药公司，医院，药品招标，信息系统，Access名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 40 页 -2 ABSTRACT：This system mainly uses for information management of drug bid,the whole system sets up on the base of drug information and both parties information,with easy and simple to handle,friendly interface and practical as

3、basic demands,by operating all kinds of of information to realize the control over drug and both parties information,the system possesses sounder inquiry and report form function,can transmit the drug information to both sides and call for bid in time,all this makes the hand-operating work automatic

4、ally,realizes informationization and modernization of drug bid.This system adopts Access data base,uses programming language VBA of Access,utilizes some tools that data base brings by itself to finish systematic setting-up.Thesis introduce the summary of relevant database technology and Access relev

5、ant content of data base at first,then on the request of task book,combining the original drug bid conditions,according to the design methods of the data base and steps of designing to finish the design of this system.Key words:Medicine Company,Hospital,Drug bid,Information system,Access 名师资料总结-精品资料

6、欢迎下载-名师精心整理-第 2 页，共 40 页 -3 目 录1 前言.11.1 关系数据库的基本概念.11.2 基本运算与 SQL.11.3 关系型数据库管理系统（RDBMS）.32 ACCESS 数据库的基础知识.32.1 ACCESS的特性.32.2 ACCESS的面向对象程序设计.33 药品招标管理信息系统的总体设计.43.1 案例目标.43.2 系统介绍.43.3 设计思路.54 药品招标管理信息系统的具体实现.84.1 登录窗体.84.2 主界面窗体.10 4.3 系统管理.11 4.4 药品管理.14 4.5 买卖双方信息管理.18 4.6 信息查询.20 4.7 药品交易统计.

7、23 4.8 报表的具体实现.27 结论.35 参 考 文 献.36 致谢.37 名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 40 页 -淮阴师范学院毕业设计1 1 前言1.1 关系数据库的基本概念在数据库技术领域，经典的数据模型有三种。他们分别是：层次数据模型，采用树型结构描述数据实体间的关联；网状数据模型，采用网状结构描述数据实体间的关联；关系数据模型，采用二维表结构描述数据实体间的关联。在这三种经典的数据模型中，关系数据模型具有较高的数据独立性和较严格的数学理论基础，并且具有结构简单和提供非过程性语言等优点，因而得到了较大规模的应用。采用关系数据模型构造的数据库系统，被

8、称为关系数据库系统（RDBS）。在关系型数据库中，数据元素是最基本的数据单元。可以将若干个数据元素组成数据元组，若干个相同的数据元组可以组成一个数据表（即关系），而所有相互关联的数据表则可以组成一个数据库。这样的数据库集合即被称为基于关系模型的数据库系统，其相应的数据库管理软件即为关系数据库管理系统（RDBMS）1。1.数据元素数据元素存放于字段中，数据表中的每一字段均具有一个唯一的名字（称为字段名）。一个字段也就是数据表中的一列。根据面向对象的观点，字段是数据表容器对象中的子对象，并具有一些相关的属性。可以为这些字段属性设定不同的取值，来实现应用中的不同需要。字段的基本属性有：字段名称、数据

9、类型、字段大小等。2.数据元组在 Access中，数据元组被称为记录。数据表中的每一个记录均具有一个唯一的编号，被称为记录号。一个记录即构成数据表中的一行。3.数据表具有相同字段的所有记录的集合称为数据表。数据库中的每一个数据表均具有一个唯一的名字，被称为数据表名。数据表是数据库中的子对象，也具有一系列的属性。同样可以为数据表属性设置不同的属性值，来满足实际应用中的不同需要。4.数据库数据库的传统定义是以一定的组织方式存储的一组相关数据项的集合，主要表现为数据表的集合。但是，随着数据库技术的发展，现代数据库已不再仅仅是数据的集合，而且还应包括针对数据进行各种基本操作的对象的集合。1.2 基本运

10、算与 SQL针对关系数据库的数据操作有两个基本特点：其一是一次操作可针对多个元组进行，名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 40 页 -淮阴师范学院毕业设计2 其二是其数据操作语言具有非过程化的特点。由此使得操作者只需按照规定的语法格式说明其操作的目的与对象，而无须逐一地指定操作步骤，即可完成针对一批数据的相关操作。关系数据库的数据操作体现为关系运算，而关系运算的实施则可通过对应的数据库操作语言来完成。不同种类的关系数据库管理系统提供不同的数据库操作语言，称为该关系数据库管理系统的宿主语言。但是，目前所有种类的关系数据库管理系统全都支持一种被称为结构化查询语言（SQL）

11、的关系数据库操作语言。SQL 已经形成了国际标准。1.关系运算关系运算是针对关系数据库数据进行的操作运算，既可以针对关系中的记录实施，也可以针对关系中的字段实施，还可以针对若干个关系实施。基本的关系运算包括选择运算、投影运算和连接运算三种。(1)选择运算选择运算是从指定的关系中选取满足给定条件的若干元组以构成一个新关系的运算，其表现形式为：SELECT 关系名 WHERE 条件其中，条件是由常数、字段名及其通过相应的比较运算符连接形成的逻辑运算式组成。(2)投影运算投影运算式从指定的关系中选取指定的若干字段从而构成一个新关系的运算，其表现形式为：PROJECT 关系名(字段名 1，字段名 2，

12、字段名 n)(3)连接运算连接运算是选取若干个指定关系中的字段满足给定条件的元组从左至右连接，从而构成一个新关系的运算，其表现形式为：JOIN 关系名 1 AND 关系名 2 AND 关系名 n WHERE 条件其中，条件是由常数、字段名及其通过相应的比较运算符和逻辑运算符连接形成的逻辑运算式组成。2.结构化查询语言 SQL 简介结构化查询语言集数据定义、数据查询、数据更新和数据控制于一体，既可以作为独立语言由终端用户以联机交互方式使用，也可以作为某一关系数据库管理系统的子语言嵌入在其支持的宿主语言中使用。对于 Access而言，其宿主语言为VBA，同时全面支持 SQL，并允许将 SQL 作为

13、子语言嵌套在 VBA 中使用。名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 40 页 -淮阴师范学院毕业设计3 1.3 关系型数据库管理系统（RDBMS）2一个数据库应用系统是由计算机硬件、数据库管理软件、数据库应用软件、数据和应用人员组成的一个集合体，其中，数据库管理软件是应用系统中的核心软件，被称为数据库管理系统（DBMS）。关系型数据库的管理软件即被称为关系型数据库管理系统（RDBMS）。Access就是 Microsoft 公司的一个小型关系型数据库管理系统。关系型数据库管理系统的总体功能是为用户屏蔽数据库在计算机上存储与操作的物理级细节，处理所有用户使用DBMS 支持

14、的宿主语言或SQL 发出的数据库存储请求，全面实施数据库控制管理和数据库存储管理。所谓数据库应用系统开发，也就是在某一种数据库管理系统的支持下，使用其支持的开发工具、宿主语言和 SQL 构架符合应用需求的数据集合和应用程序对象。RDBMS 的核心功能是实现数据库物理模式与其应用模式之间的变换，使得用户能够逻辑地、抽象地处理数据，而无需顾及数据在计算机物理层中的存储形式。正是由于RDBMS 的这一核心功能，使得应用程序能够独立于数据库存储模式，从而实现了应用程序与数据之间的逻辑独立性。2 Access 数据库的基础知识2.1 Access 的特性Access 是一个基于关系型数据库模型基础上建立

15、的数据库管理系统软件(DBMS)。它帮助用户方便地得到所需信息，并提供强大的数据处理工具。它可以帮助用户组织和共享数据库信息，以便于根据数据库信息作出有效的决策。另外，数据库应用系统的开发者都是在 Access数据库管理系统（Access DBMS）环境下编写相应的应用程序，以形成一个能够满足应用需求且操作尽可能简单的应用系统，这被称之为二次开发3。应该说，Access具有良好的二次开发支持特性。2.2 Access 的面向对象程序设计4,5一个数据库即为应用系统中的一个对象，任一个对象都具有一系列的属性。设定一个对象实际上也就是设定该对象的各个属性值。对于数据库对象而言，它具有一个非常重要的

16、属性：成员属性，设定其成员属性值，即设定该数据库对象是由哪些对象所组成的。能够包含其他对象的对象，被称为容器对象。Access数据库对象是 Access中的一级容器对象，其中可以包含 Access数据表对象、查询对象、窗体对象、报表对象和数据访问页对象、宏对象、VBA 模块对象。所谓面向对象程序设计指的是，在程序设计过程中逐个地创建对象，并全面地描述所名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 40 页 -淮阴师范学院毕业设计4 有对象的各项属性，使所有用来构成系统的对象都具有系统所需要的属性值。这些属性值包括：数据的存储方式、数据的表现形式、各个对象之间的关系以及各个对象中

17、所包含数据的操作规程。Access实质上就是一个面向对象的可视化数据库管理工具，它提供了一个完整的对象类集合。我们在 Access环境中的所有操作与编程都是面向这些对象进行的。Access的对象是数据库管理的核心，是其面向对象设计的集中体现。用一套对象来反映数据库的构成，极大地简化了数据库管理的逻辑图像。通过面向对象的相关运算，就可以操作一个数据库的所有部分。3 药品招标管理信息系统的总体设计3.1 案例目标6本系统的设计目的是创建一个功能实用、使用方便的药品招标管理信息系统。用户利用该系统可动态掌握医药公司和医院供需情况，与中标系统一起使用可以随时掌握药品信息，有效地进行招标。基于以上 Ac

18、cess2000的优点，所以本系统采用Access2000设计。在设计过程中力求简洁，使用 VBA 编程，成功地创建出数据的一些必要对象“表”、“查询”、“窗体”、“报表”，并利用一些必要的程序段将其连接起来，从而创建了一个完整系统。3.2 系统介绍本药品招标管理信息系统为用户提供了一个实用的应用系统。用户利用该系统可以存储药品资料、医药公司和医院资料；方便快捷地修改、添加或删除资料；实现药品中标功能。本系统的主要功能包括：初始化、查询、系统操作和打印。初始化功能的主要作用是在数据库中创建几个常用表，用来存储医院资料信息、医药公司资料信息以及药品信息，这些表是整个系统的基础。查询功能是对基础数

19、据的再加工，使用户快速了解和掌握所关心的药品情况。在该系统中提供了按照药品的名称、规格、单位和要求查询的功能，用来快速了解各种药品的信息。系统操作能帮助用户实现药品中标功能。打印功能也是该系统的一个很重要的功能。用户可以打印当前数据库中有关医院、医药公司和药品的情况。名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 40 页 -淮阴师范学院毕业设计5 3.3 设计思路3.3.1 系统解决方案依据上述对该系统功能的描述，该系统的设计思路是：根据主控按钮，考虑到向可视化方向发展，首先建立类似Word2000 中的菜单栏，然后分组完成各个窗体功能的设计。一些主要窗体的功能如下7：1.登录

20、窗体该窗体根据系统用户的输入，决定是否允许用户登录“药品招标管理信息系统”。2.用户管理窗体该窗体用于实现对用户帐号及其密码的添加、删除功能。3.修改密码窗体该窗体根据系统用户的输入，修改某个特定用户的密码。4.医药公司信息管理该窗体根据系统用户的输入，对医药公司的资料信息进行添加、删除和修改。5.医院信息管理该窗体根据系统用户的输入，对医院的资料信息进行添加、删除和修改。6.药品基本信息管理该窗体根据系统用户的输入，对药品的资料信息进行添加、删除和修改。7.药品信息查询该窗体根据系统用户的选择，显示了指定药品的信息。8.药品中标系统该窗体根据系统用户的选择，显示了哪个医药公司中标以及何种药品

21、中标的信息。9.医药公司签订合同统计该窗体根据系统用户的输入，对医药公司签订的合同进行统计，保存到数据库中，再生成医药公司签订合同统计报表使用。10.医院签订合同统计该窗体根据系统用户的输入，对医院签订的合同进行统计，保存到数据库中，再生成医院签订合同统计报表使用。系统的模块结构如图3-1 所示。名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 40 页 -淮阴师范学院毕业设计6 图 3.1 模块结构图3.3.2 数据库结构设计1.本数据库所需要存储的信息根据系统功能设计的要求以及功能模块的划分，本数据库需要存储的信息如下：(1)药品资料:药品名称、规格、单位、要求、是否参加招标。

22、(2)医药公司资料：医药公司名称、公司代表姓名、所出单价、是否参加招标。(3)医院资料：医院名称、医院代表姓名、购买数量、是否参加招标。(4)系统用户：用户姓名、密码。2.本数据库所需要的表根据功能要求在Access2000中建立数据库，建立如下所属各数据表。(1)首先需要一个数据表存储所有药品的资料信息，字段设置如表3.1 所示。表 3.1 药品资料表字段名数据类型说明药品名称文本(字段大小为20)各种药品的名称规格文本(字段大小为10)各种药品的规格单位文本(字段大小为10)各种药品的单位要求文本(字段大小为20)各种药品的要求是否参加招标是/否有哪些药品参加招标名师资料总结-精品资料欢迎

23、下载-名师精心整理-第 9 页，共 40 页 -淮阴师范学院毕业设计7(2)为了方便地得到医药公司的信息，需要建立医药公司资料表，字段设置如表3.2。表 3.2 医药公司信息表字段名数据类型说明医药公司名称文本(字段大小为30)医药公司名称医药公司代表姓名文本(字段大小为8)代表姓名所出单价数字开出的药品价格是否参加招标是/否有哪些公司参加招标(3)为了方便地得到医院的资料，建立了医院资料的数据表，字段设置如表3.3 所示。表 3.3 医院信息表字段名数据类型说明医院名称文本（字段大小为20）医院的名称医院代表姓名文本（字段大小为8）医院代表的姓名购买数量数字所需药品的数量是否参加招标是/否有

24、哪些医院参加招标(4)为了储存中标后各类药品、医药公司、医院的信息，建立了达成交易表，字段设置如表 3.4 所示。表 3.4 达成交易表字段名数据类型说明药品名称文本（字段大小为20）中标的药品名称要求文本（字段大小为20）中标的药品的要求医药公司文本（字段大小为30）中标的医药公司的名称单价数字中标的药品单价医院文本（字段大小为20）中标的医院的名称购买数量数字中标的药品数量合计数字中标药品数量及金额统计(5)为了存放使用这个系统的用户名及其密码，需要建立“系统用户表”，如表 3.5 所示。表 3.5 系统用户表字段名数据类型说明用户名文本（字段大小为10）操作员用户名密码文本（字段大小为1

25、0）操作员密码名师资料总结-精品资料欢迎下载-名师精心整理-第 10 页，共 40 页 -淮阴师范学院毕业设计8 4 药品招标管理信息系统的具体实现8,94.1 登录窗体“药品招标管理信息系统”的第一个界面是登录窗体，在进入“药品招标管理信息系统”时，首先要验证用户身份。1.登录窗体界面设计图 4.1 登录窗体按照图 4.1 所示，加入登录窗体中的各个控件，控件的主要属性如表4.1。表 4.1 登录窗体控件属性控件名称控件属性名称控件属性值用户 1 类型标签标题用户密码 1 类型标签标题密码用户 2 类型组合框密码 2 类型文本框输入掩码密码确定类型按钮标题确定取消类型按钮标题取消用户登录类型

26、窗体记录源系统用户滚动条两者均无记录选择器否浏览按钮否分隔线否自动调整否名师资料总结-精品资料欢迎下载-名师精心整理-第 11 页，共 40 页 -淮阴师范学院毕业设计9 自动居中是边框样式对话框边框2.“确定”按钮事件处理在按钮上单击鼠标右键，在弹出的菜单中选择“事件生成器”菜单命令，在出现的 VBA代码编辑器中输入下面的代码。定义允许用户验证登录信息的最大次数Const MaxLogTimes As Integer=3 Private Sub 命令 9_Click()Dim userID As Integer 静态常量 intLogTimes 用于保存用户请求验证的次数Static int

27、LogTimes As Integer 保存登录次数intLogTimes=intLogTimes+1 If intLogTimes MaxLogTimes Then 超过允许的登录次数，显示提示信息MsgBox 你已经超过允许的登录验证次数！&vbCr _&应用程序将结束！,vbCritical,登录验证 结束应用程序Quit End If 如果用户名不为空If IsNull(组合 24)=False Then 根据用户名查找相应的密码，看它和数据表中的密码记录是否一致If DLookup(密码,系统用户,用户名=&组合 24&)=文本 26 Then userID=DLookup(id,系

28、统用户,用户名=&组合 24&)如果一致，就关闭当前窗体，打开主窗体DoCmd.Close DoCmd.OpenForm 主窗体 Else 如果不一致，就将密码框清空文本 26=名师资料总结-精品资料欢迎下载-名师精心整理-第 12 页，共 40 页 -淮阴师范学院毕业设计10 设置密码框的焦点文本 26.SetFocus 弹出消息框报错MsgBox 密码错误！,vbCritical End If End If End Sub 3.“取消”按钮事件处理在按钮上单击鼠标右键，在弹出的菜单中选择“事件生成器”菜单命令，在出现的 VBA代码编辑器中输入下面的代码。Private Sub 命令 28_

29、Click()请求用户确认是否真的退出系统登录If MsgBox(你选择了退出系统登录，退出将不能启动管理系统！&vbCrLf _&是否真的退出？,vbYesNo,登录验证)=vbYes Then 卸载登录窗体Quit End If End Sub 4.2 主界面窗体1.主界面窗体设计图 4.2 主界面窗体视图主界面窗体设计要求界面美观，简洁给人一种赏心悦目的感觉，不能死板，同时也不能影响以后各个窗体的使用。名师资料总结-精品资料欢迎下载-名师精心整理-第 13 页，共 40 页 -淮阴师范学院毕业设计11 4.3 系统管理该项功能实现了系统用户对账号及密码的添加、删除和修改。4.3.1 密码

30、修改修改密码窗体的功能是，得到用户名和原密码，并在“系统用户”数据表中核对用户名和原密码是否匹配，然后更改密码。修改密码窗体的设计思路是，能够使操作者不需进入到设计界面就可以改变系统的密码，实现了系统的保密性、完整性和严谨性10。1.窗体界面设计图 4.3 密码修改窗体如图 4.3 所示，加入密码修改窗体中的各个控件，控件的主要属性如表4.2 所示。表 4.2 密码修改窗体控件属性控件名称控件属性名称控件属性值标签 8 类型标签标题用户名：标签 1 类型标签标签 1 标题原密码：标签 4 类型标签标题新密码：userName 类型组合框行来源类型表/查询行来源SELECT 系统用户.用户名,系

31、统用户.用户名 FROM 系统用户;Old_pass 类型文本框输入掩码密码New_pass 类型文本框输入掩码密码名师资料总结-精品资料欢迎下载-名师精心整理-第 14 页，共 40 页 -淮阴师范学院毕业设计12 2.添加“确定”按钮事件处理在按钮上单击鼠标右键，在弹出菜单栏中选择“事件生成器”，在出现VBA代码编辑器输入下面的代码。Private Sub 确定_Click()定义一个查询变量Dim r As QueryDef 定义一个临时字符串变量Dim s As String 利用 Dlookup 函数找到与当前用户名相应的密码s=DLookup(密码,系统用户,用户名=&userNa

32、me&)判断输入密码的正确性If old_pass=s Then 利用 SQL 更新语句更改密码Set r=CurrentDb.QueryDefs(修改密码)r.sql=UPDATE 系统用户 SET 密码=+new_pass+where 用户名=+userName+r.Execute MsgBox 您已经成功修改了密码！Else MsgBox 密码错误！End If End Sub 2.添加“取消”按钮事件处理在按钮上单击鼠标右键，在弹出菜单栏中选择“事件生成器”，在出现VBA代码编辑器输入下面的代码。Private Sub 取消_Click()关闭窗体DoCmd.Close End Sub

33、 4.3.2 用户管理用户管理窗体的功能是对“系统用户”数据表中的用户名和密码进行添加和删除。1.窗体界面设计名师资料总结-精品资料欢迎下载-名师精心整理-第 15 页，共 40 页 -淮阴师范学院毕业设计13 用户管理窗体实现了用户名和密码的更新，可以及时更改操作员的帐号和密码，对使用人员的账号和密码更新提供了便利的条件11。图 4.4 用户管理窗体2.“添加”按钮事件处理向主窗体中添加“添加”按钮，在出现的对话框中选择“记录操作”和“添加新记录”，然后单击“下一步”按钮。在出现的对话框中直接单击“下一步”按钮，然后输入按钮的名称，单击“完成”按钮即可。可以在事件生成器中查看VBA 代码，如

34、下所示。Private Sub 添加_Click()On Error GoTo Err_添加_Click 向数据表中添加新的记录DoCmd.GoToRecord,acNewRec Exit_添加_Click:Exit Sub Err_添加_Click:MsgBox Err.Description Resume Exit_添加_Click End Sub 3.“删除”按钮事件处理向主窗体中添加“删除”按钮，在出现的对话框中选择“记录操作”和“删除记录”，然后单击“下一步”按钮。在出现的对话框中直接单击“下一步”按钮，然后输入按钮的名称，单击“完成”按钮，即可。可以在事件生成器中查看VBA 代码，

35、如下所示。Private Sub 删除_Click()On Error GoTo Err_删除_Click 名师资料总结-精品资料欢迎下载-名师精心整理-第 16 页，共 40 页 -淮阴师范学院毕业设计14 删除要编辑的记录DoCmd.DoMenuItem acFormBar,acEditMenu,8,acMenuVer70 DoCmd.DoMenuItem acFormBar,acEditMenu,6,acMenuVer70 Exit_删除_Click:Exit Sub Err_删除_Click:MsgBox Err.Description Resume Exit_删除_Click End

36、 Sub 4.“关闭”按钮事件处理向主窗体中添加“关闭”按钮，在出现的对话框中选择“窗体操作”和“关闭窗体”，然后单击“下一步”按钮。在出现的对话框中直接单击“下一步”按钮，然后输入按钮的名称，单击“完成”按钮即可。可以在事件生成器中查看VBA 代码，如下所示。Private Sub 关闭_Click()On Error GoTo Err_关闭_Click 关闭窗体DoCmd.Close Exit_关闭_Click:Exit Sub Err_关闭_Click:MsgBox Err.Description Resume Exit_关闭_Click End Sub 4.4 药品管理该项功能实现了药

37、品中标、以及哪个医药公司和医院中标，并且还实现了药品的基本信息管理。4.4.1 药品中标系统药品中标系统窗体的功能是，比较哪个医药公司提供的药品单价更接近于医院开出的价格，以及医院所需药品的数量，最后决定哪个医药公司中标和中标的单价是多少。药品中标系统的设计思想是，作为本系统一个重要的窗体，操作者希望免除过去复杂名师资料总结-精品资料欢迎下载-名师精心整理-第 17 页，共 40 页 -淮阴师范学院毕业设计15 的人工操作，能够使买卖双方直观地了解各种药品的相关信息以及能够快速地选择出中标的买卖双方，并且为买卖双方签订合同统计的实现提供了数据依据。1.药品中标系统窗体设计图 4.5 药品中标系

38、统窗体如图 4.5 所示，加入药品中标系统窗体中的各个控件，控件的主要属性如表4.3 所示。表 4.3 药品中标系统控件属性控件名称控件属性名称控件属性值药品名称 _标签类型标签标题药品名称要求 _标签类型标签标题要求医药公司 _标签类型标签标题医药公司单价 _标签类型标签标题单价医院 _标签类型标签标题医院购买数量 _标签类型标签购买数量 _标签标题购买数量是否中标 _标签类型标签标题是否中标组合 14 类型组合框标题药品名称名师资料总结-精品资料欢迎下载-名师精心整理-第 18 页，共 40 页 -淮阴师范学院毕业设计16 行来源SELECT 药品招标查询.药品名称,药品招标查询.规格,药

39、品招标查询.单位,药品招标查询.要求 FROM 药品招标查询;组合 16 类型组合框标题要求行来源SELECT 药品招标查询2.要求,药品招标查询 2.药品名称,药品招标查询 2.规格,药品招标查询2.单位 FROM 药品招标查询2;组合 18 类型组合框标题医药公司行来源SELECT 医药公司信息查询.医药公司 FROM 医药公司信息查询;单价类型文本框控件来源单价组合 20 类型组合框标题医院行来源SELECT 医院信息查询.医院 FROM 医院信息查询;购买数量类型文本框控件来源购买数量是否中标类型复选框控件来源是否中标药品中标系统是“药品招标管理信息系统”中的最主要的窗体之一，因为它是

40、构建医药公司提出的单价和医院购买数量关系的桥梁。通过它，就可以将单价和购买数量在一个窗体上显示，可以直观地进行对比，清楚地了解到医院所需药品、购买数量和医药公司所提供的药品及其单价，这样对操作员进行操作提供了很大的便利。4.4.2 药品信息管理药品信息管理窗体的功能是，选择哪些药品参加招标并且对有关药品信息进行添加、删除、修改等操作。名师资料总结-精品资料欢迎下载-名师精心整理-第 19 页，共 40 页 -淮阴师范学院毕业设计17 1.药品信息管理窗体界面设计药品信息管理系统实现了对有关药品信息的及时管理，为药品中标系统的运行提供了数据准备，并且让操作者有一个直观的印象，具体地了解相关的药品

41、的信息。图 4.6 药品信息管理系统2.药品信息管理窗体引用的查询语句查询语句:SQL=“SELECT 药品名称.药品名称,药品名称.规格,药品名称.单位,药品名称.要求,药品名称.是否参加招标 FROM 药品名称;”通过上面的查询语句实现了药品信息管理的系统操作。3“修改”按钮事件处理向主窗体中添加“修改”按钮，在出现的对话框中选择“记录操作”和“保存记录”，然后单击“下一步”按钮。在出现的对话框中直接单击“下一步”按钮，然后输入按钮的名称，单击“完成”按钮。可以在事件生成器中查看VBA 代码，如下所示。Private Sub 修改_Click()On Error GoTo Err_修改_C

42、lick 修改被编辑的记录DoCmd.DoMenuItem acFormBar,acRecordsMenu,acSaveRecord,acMenuVer70 Exit_修改_Click:Exit Sub Err_修改_Click:MsgBox Err.Description Resume Exit_修改_Click 名师资料总结-精品资料欢迎下载-名师精心整理-第 20 页，共 40 页 -淮阴师范学院毕业设计18 End Sub 4.5 买卖双方信息管理4.5.1 医药公司信息管理医药公司信息管理窗体的功能是选择哪些医药公司参加招标并且对有关医药公司的信息进行添加、删除、修改等操作。1.医药

43、公司信息管理窗体界面设计图 4.7 医药公司信息管理如图 4.7 所示，加入医药公司信息管理窗体中的各个控件，控件的主要属性如表4.4所示。表 4.4 医药公司信息管理控件属性控件名称控件属性名称控件属性值标签 8 类型标签标题医药公司信息管理医药公司 _标签类型标签标题医药公司医药公司代表姓名_标签类型标签标题医药公司代表姓名是否参加招标 _标签类型标签是否参加招标 _标签标题是否参加招标医药公司类型文本框控件来源医药公司医药公司代表姓名类型文本框控件来源医药公司代表姓名名师资料总结-精品资料欢迎下载-名师精心整理-第 21 页，共 40 页 -淮阴师范学院毕业设计19 是否参加招标类型复选

44、框控件来源是否参加招标打印结果类型按钮标题打印结果添加类型按钮标题添加删除类型按钮标题删除修改类型按钮标题修改关闭类型按钮标题关闭2.医药公司信息管理窗体引用的查询语句查询语句：SQL“SELECT 医药公司信息.医药公司,医药公司信息.医药公司代表姓名,医药公司信息.是否参加招标,*FROM 医药公司信息WHERE(医药公司信息.是否参加招标)=-1);”通过上面的查询语句实现了医药公司信息管理窗体的功能，同时也为中标工作提供了一定的依据。3“打印结果”按钮事件处理向主窗体中加入“打印结果”按钮，用户单击这个按钮触发的事件是打开“医药公司信息查询报表”。创建这个事件的方法是利用命令按钮向导，

45、当加入一个按钮时，在出现的对话框中选择“报表操作”和“预览报表”，然后单击“下一步”按钮。在弹出的对话框中选择“医药公司信息查询”，然后单击“下一步”按钮。在出现的对话框中直接单击“下一步”按钮，然后输入按钮的名称，单击“完成”按钮。可以在事件生成器中查看VBA 代码12，13。Private Sub 打印结果 _Click()On Error GoTo Err_打印结果 _Click 定义一个字符串类型的变量Dim stDocName As String 打开医药公司信息查询stDocName=医药公司信息查询 DoCmd.OpenReport stDocName,acPreview Exi

46、t_打印结果 _Click:名师资料总结-精品资料欢迎下载-名师精心整理-第 22 页，共 40 页 -淮阴师范学院毕业设计20 Exit Sub Err_打印结果 _Click:MsgBox Err.Description Resume Exit_打印结果 _Click End Sub 4.5.2 医院信息管理医院信息管理窗体的功能是，选择哪些医院参加招标并且对相关医院的信息进行添加、删除、修改等操作。1.医院信息管理窗体界面设计医院信息管理窗体和医药公司信息管理窗体的功能和原理大体上基本相同，这两个窗体都是为了实现基本信息的管理，同时也是为药品中标系统的实现做准备。图 4.8 医院信息管理

47、2.医院信息管理窗体的查询语句查询语句：SQL“SELECT 医院信息.医院,医院信息.医院代表姓名,医院信息.是否参加招标,*FROM 医院信息WHERE(医院信息.是否参加招标)=-1);”通过以上的查询语句实现了医院信息管理窗体的功能，它既完成了医院相关信息的添加、删除、修改，同时也选择了哪些医院参加招标，为下一步的招标工作提供了依据。4.6 信息查询4.6.1 药品信息查询药品信息查询窗体的功能是，利用条件查询，通过输入药品名称、规格、单位、要求等条件来查阅药品的相关信息。名师资料总结-精品资料欢迎下载-名师精心整理-第 23 页，共 40 页 -淮阴师范学院毕业设计21 1.药品信息

48、查询窗体界面设计图 4.9 药品信息查询2“查询”按钮事件处理在按钮上单击鼠标右键，在弹出的菜单中选择“事件生成器”菜单命令，在出现的 VBA代码编辑器中输入下面的代码。Private Sub 命令 10_Click()If IsNull(药品名称)=True And IsNull(规格)=True And IsNull(单位)=True And IsNull(要求)=True Then MsgBox 请输入查询条件,vbOKOnly,系统提示 Else 定义查询变量Dim r As QueryDef 定义临时字符串变量Dim sql As String 定义临时字符串数组变量Dim s(5)

49、As String 定义循环变量Dim i,j As Integer 初始化 SQL 语句sql=select*from 药品名称where 实例化查询变量名师资料总结-精品资料欢迎下载-名师精心整理-第 24 页，共 40 页 -淮阴师范学院毕业设计22 Set r=CurrentDb.QueryDefs(药品信息查询)设置“药品名称”查询条件If IsNull(药品名称)=False Then s(0)=药品名称=+药品名称+End If 设置“规格”查询条件If IsNull(规格)=False Then s(1)=规格=+规格+End If 设置“单位”查询条件If IsNull(单位

50、)=False Then s(2)=单位=+单位+End If 设置“要求”查询条件If IsNull(要求)=False Then s(3)=要求=+要求+End If 利用一个循环语句将上面的查询条件组合成一条完整的SQL 查询语句For i=0 To 3 If s(i)Then For j=i+1 To 3 If s(j)Then s(j)=and +s(j)End If Next j Exit For End If Next i 形成 SQL 语句For i=0 To 3 sql=sql+s(i)名师资料总结-精品资料欢迎下载-名师精心整理-第 25 页，共 40 页 -淮阴师范学院毕