社区医院药品管理信息系统毕业论文.doc

I 社区医院药品管理信息系统的设计与开发社区医院药品管理信息系统的设计与开发 学科 科技防卫 作者 作者签名 导师 导师签名 答辩日期 摘摘 要要 20 世纪末 随着计算机科学的发展 商务电算化已经成为一个趋势 药品的销 售管理也不例外 本文研究了一种基于 VB 编程技术的社区医院药品管理信息系统 此方案与现今医药销售部门已采用的一些方案相比 具有用户使用更人性化 界面 更直观 系统结构灵活等优点 论文主要介绍了基于 VB 编程技术的社区医院药品信息管理系统 本系统主要由 6 大部分模块组成 分别是 用户管理模块 出入库管理模块 过期药品管理模块 库存查询模块 基表管理维护模块 本文在第一章说明了医院药品信息管理系统的系统框架和总体设计 介绍了开 发工具的选择 并叙述了 Windows 下的 VB6 0 编程环境 在接下来的几章中介绍了我 所完成功能模块的结构和功能以及具体设计过程 最后对本次毕业设计做出了总结 关键字 关键字 信息管理系统 药品管理 VB II The management system of medical comprehensive information case generation Supervisor s name Signature Student s name Signature Abstract End of 20th centuries along with the development of the computer the business electric calculator turn to have already become a trend the sale management of the drugs is no exception This text studied a kind of according to PB the plait distance technique of medicine entering to sell and to save the information management system some projects that this project and present medicine sale departments already adopt compare having the customer usage more humanized the interface even keep the view the system structure vivid etc advantage The thesis mainly introduced according to the PB the medicine of the plait distance technique enters to sell and to save the information management system that system is gathered into and sell saved in integral whole still gathering at the same time finance management statistics to search etc function This system mainly from 6 big and parts of molds pieces constitute respectively is The mold piece of the foundation information manages sale management store in warehouse to manage stock management the finance management constitution management The realization of the concrete function makes use of the PB plait distance technique This text introduced a system frame and total designs that explained the medicine to enter to sell and to save the information management system The choice of development tool and described the Windows under III of PB6 0 plait distance environments Introduced the structure and functions and concretly design processes of the function mold piece that I completes in next several chapterses Did to this graduation design finally summary KeyKey words words the system of information management gathered into and sell saved in integral whole the humanization design PB IV 目录目录 目录目录 IV 引引 言言 1 第一章第一章 系统结构系统结构 2 1 1 系统框架 2 1 1 1 系统结构图 2 1 1 2 各功能模块进行简述 2 1 2 开发工具研究 3 1 2 1 开发工具的选择 3 1 3WINDOWS下的 VB6 0 编辑环境的简介 5 1 3 1 面向对象的编程 5 1 3 2 实现菜单选项 5 1 3 3 组合框 Combo box 控件 6 1 3 4 MDI 窗口的使用 6 第二章第二章 系统设计与实现系统设计与实现 7 2 1 模块功能描述 7 2 1 1 信息管理模块设计 7 2 1 2 信息管理模块 Adodc 数据对象使用 7 2 2 用户信息管理模块 8 2 2 1 数据处理功能设计与实现 8 2 2 2 入库管理模块 10 2 2 3 出库管理模块 10 2 2 3 库存查询管理模块 11 2 2 4 过期药品管理模块 12 2 2 5 免费药品发放模块 12 2 2 6 基表信息管理模块 13 第三章第三章 入库管理模块设计与实现入库管理模块设计与实现 14 3 1 模块功能描述 14 3 1 1 业务流程设计 14 3 2 入库登记模块 14 3 2 1 入库登记模块流程设计 14 3 2 2 关键技术 15 3 2 3 入库登记模块的实现 15 3 3 库存查询模块 19 V 3 3 1 设计思路 19 3 3 2 库存查询模块实现 19 第四章第四章 基表维护设计与实现基表维护设计与实现 22 4 1 模块功能描述 22 4 1 1 基本信息管理模块流程图 22 4 2 用户设置模块 22 4 2 1 设计思路 22 4 2 2 密码设置模块的实现 22 4 3 医疗保险设置模块 24 4 3 1 设计思想 24 4 4 过期药品清理模块 25 4 4 1 设计思想 25 结束语 28 致谢致谢 28 参考文献参考文献 29 1 引引 言言 随着我国经济的蓬勃发展和人们对医药产品需求的迅速增加 医药行业正处于 一个高速发展的时期 行业的快速发展必然导致竞争的加剧 要想在激烈的市场竞 争中谋求发展 客观上要求企业必须加强内部管理 提高运营效率 另外 由于医 药产品种类繁多 销售模式特殊 业务量大 单凭手工记账已远远适应不了企业的 快速发展的需求 可以说 没有信息化的医药管理几乎是不可想象的 基于这个大潮流的驱使之下 国内外药品信息管理系统相继推出 它们最大的 共同点是 系统功能强大 系统界面华丽 业务流程趋向于复杂化 由于社区医院 药品管理销售的主要群体集中在一个或几个社区范围之内 必须具备低成本 系统 结构灵活 设计人性化 功能实用化 用户界面操作简洁等特性的医院药品信息管 理系统成为市场需求的主流 为了实现医药管理工作的信息化 本着用户使用更人性化 界面更直观 系统 结构灵活的理念 同时为管理者和业务员提供一个集进 销 存于一体的平台 根 据学习相关的软件开发知识及以相关软件的使用和设计原理 通过对系统管理员 药品管理员 药房销售主管以及对部分销售人员的调研 提出相应的设计方案 社区医院药品信息管理系统 是针对社区医院药库综合业务而设计的药品管 理系统 该软件集进 销 存于一体 查询统计功能齐全 真正实现了进 销 存 信息化的管理 本软件的前台采用目前普及率较高的面向对象编程语言 VB6 0 开发 后台采用 Access2000 数据库 软件界面简单直观 软件运行较为稳定 在下面的正文部分将对社区医院药品管理系统的开发过程 所涉及到的问题及 解决方法进行详细说明 2 第一章第一章 系统结构系统结构 1 11 1 系统框架系统框架 本系统主要由用户管理 入库管理模块 出库管理模块 库存查询模块 过期药品管理 免费药品发放 基表维护模块 1 1 11 1 1 系统结构图系统结构图 图图 1 11 1 社区医院药品信息管理系统结构图社区医院药品信息管理系统结构图 1 1 21 1 2 各功能模块进行简述各功能模块进行简述 1 基表信息管理模块 主要功能是完成药品基本信息的管理 包括药品代码编制 合作医疗信息设置 以药品代码信息管理为例 对所使用的药品进行编制简写代码 这样在不同的模块 中即可输入所使用药品的简化代码 从事将将使用者从繁重的输入药品名称的工作 中解放出来 以便更好的管理系统信息 2 入库管理模块 入库管理主要完成药品入库等信息的管理 可根据所采购药品信息进行入库处 社 区 医 院 药 品 管 理 基表信息 出库管理 入库管理 用户管理 库存查询 药品代 码信息 出库 登记 入库 登记 药库 查询 添加 用户 合作医 疗设置 销售 出库 库存 查询 修改 库存 合作医 疗计费 药械 查询 免费药 品查询 修改 权限 编辑 信息 过期药品管理 药库 清理 删除 过期 免费药 品清理 3 理 入库药品信息分为三类 一类是西药 中成药 二类是草药及器械 三类是免 费药品 可分类将以上各类药品登记入库 药品采用简化代码来登入名称 简化了 流程 也保证了输入中的正确性 3 出库药品管理模块 主要完成药品出库信息的管理 药品同样分为同上三类药品 这里的出库分为 两类 一类是院内调拔 如将批量药品调行病房药库 另一类是日常的销售性出库 日常销售性出库同时按医疗保险制度对药品直接进行计费 4 库存查询模块 库存查询模块主要对药品库存信息进行综合查询 以便对库存性况进行盘点 针对不同的查询类别 构建查询字段进行查询 5 过期药品清理模块 无论对于哪一类药品 当过期时不能出库 所以所有类别的药品都设置了失效 标记 本模块根据出厂日期和过期日期 设置失效标记 并对过期药品进行过滤 清除掉过期的药品 被清理的药品不能出库 6 用户管理模块 主要管理所使用系统的用户及期操作权限 用户具有不同的安全级别 用户分 为超级用户和普通用户 对于超级用户拥有全部权限 可执行一切操作 对于普通用 户在清理过期药品和修改库存等模块中受到限制 主要包括密码设置 权限设置 可 完成对当前用户密码 权限的设置 对当前用户信息进行添加 修改 删除 1 21 2 开发工具研究开发工具研究 基于本系统的需求分析的需要 开发本系统采用的是面向对象的程序设计技术 在操作系统上选用 Microsoft Windows 的操作平台作为系统开发环境 前台采用 VB6 0 较为普遍的面向对象的程序开发语言 后对数据库采用 Access2000 这一较为简单的 数据库做为数据容器 对方面程序开 后期若有更高需求 可升迁 1 2 11 2 1 开发工具的选择开发工具的选择 Microsoft 公司推出的 Windows 应用程序开发工具 VB6 0 是目 前较为广泛的面向对象的开发工具 VB6 0 是基于 Microsoft Windows 4 系列操作平台下的功能强大的程序开发环境 它具有 C 语言和 C 语言 的灵活性 而且它的开发环境又采用了面向对象 消息映射等编程机制 通过使用一种巧妙的方式将 Windows 的编程以类的形式封装起来 使用 户用起来更实用更方便等 其主要功能特点有 1 中文版本 完全中文化的环境使用户更容易操作 用户能在很短的时间里就可 以熟悉 VB6 0 的开发环境 2 具有面向对象的开发工具 在 VB6 0 中 采用面向对象的程序设计方法 将程序和数据封装起 来视为一个类 每个类都是封装的 这样使数据更具有安全性 用户在 设计时需要熟悉所要使用的类 既可以在 MFC 下进行直观的操作 又可 以在 Win32 环境下进行实际的手写代码设计 3 消息映射的编程机制 在编写程序代码时 各个程序段之间不一定有联系 但只要通过 VB 提供的消息映射机制就可以使两个代码段之间发生关联 使程序既易于 编写又易于维护 符合人们正常的 习惯的思维方法 从而更方便于复 杂问题的解决 4 具有语句生成器和快速提示帮助 语句生成器和快速提示帮助使用户不必记忆很多的属性和成员函数 并在较短的时间内就可以开发出功能强大的应用程序 通过 VB6 0 提供 的类库帮助 来熟悉所要使用的类的功能 从而在开发设计过程中 能 5 起到事半功倍的效果 5 支持多种数据库系统的访问 利用数据库控件或者 ODBC 能够连接访问的数据库系统有 Microsoft Access Microsoft SQL Server Oracle 等 但是在具体 的开发过程中 选择哪种数据库和数据源 应根据具体软件开发的需要 和本人的实际情况来决定 由于本系统并不是很复杂 出于做为做毕业 设计这一研究的需要故采用较为简单易于掌握的 Access2000 做为后数 据库 6 而 VB 语言又是软件市场上非常流行专业的开发语言之一 随着 计算机技术的飞速发展 计算机的程序设计语言也得到了迅猛的发展 但是在开发软件之前究竟选择哪种程序设计语言 应根据具体的程序开 发需要和所在的软件开发团队的需要 以及本人对计算机程序设计语言 掌握的熟练程度来决定 目前在软件开发市场上 JAVA VB 等程序设计 语言成为面向对象设计的主流的开发语言 故而 由于以上各原因 本 系统在开发过程中采用 VB 程序设计语言 1 3Windows1 3Windows 下的下的 VB6 0VB6 0 编辑环境的简介编辑环境的简介 1 3 11 3 1 面向对象的编程面向对象的编程 VB6 0 应用程序基本的构建模块是用户所创建的对象 每一个对象都具有一定 的特性和成员函数 开发人员可以根据实际需要继承系统所提供的类或者自己创建 的类来定义每一个对象 类与类之间可以通过声明消息映射 这样可以类所定义的 对象之间能够传递消息 使应用程序具有可通用性 可扩展性同时具有了强大的功 能 6 1 3 21 3 2 实现菜单选项实现菜单选项 菜单是软件开发过程中应用的重要的工具之一 大多数程序都依赖一个定义良 好的菜单使程序易于使用和维护 VB6 0 提供了强大的创建菜单功能使程序更加标 准 使用户能够更方便 更直观的访问这些命令 菜单的使用价值越来越被软件开 发人员喜爱和接受 1 3 31 3 3 组合框 组合框 ComboCombo boxbox 控件 控件 组合框 Combo box 控件是组合了文本框和列表框的特性而形成的控件 其中 的列表框列出了可供用户选择的项 另外还有一个正文框 用户可以选中列表框中 某项 也可在文本框中输入内容 组合框 Combo box 有三种不同的风格 即下拉 式组合框 简单组合框和下拉式列表框 其风格可由具体的编程语言进行设定和改 变 1 3 41 3 4 MDIMDI 窗口的使用窗口的使用 MDI 柜架结合了父窗口和子窗口 使用所有模块共同存在一个父窗口容器中 这样做易于构造一个多模块多任务的信息管理系统 易于多模块协作 也使管理系 统更加合理有效 VB6 0 提供了此类用户接口 使用系统人需求分析到设计实现方 便快捷而有效 7 第二章第二章 系统设计与实现系统设计与实现 2 12 1 模块功能描述模块功能描述 主要功能是完成社区医院药品信息的管理 包括用户管理 入库管理模块 出库管理模块 库存查询模块 过期药品管理 免费药品发放 基表维护模块 等模块 2 1 12 1 1 信息管理模块设计信息管理模块设计 信息管理模块业务流程图如图 2 1 所示 图图 2 12 1 药品信息管理模块流程图药品信息管理模块流程图 2 1 22 1 2 信息管理模块信息管理模块 AdodcAdodc 数据对象使用数据对象使用 Adodc 数据对象是 Datagrid 控件取得数据的桥梁 通过设置 Adodc 的连接 字符 即可建立与后台数据库之间的联系 通过 SQL 语句将取得的数据库存放 于 Recordset 中 之后 Datagrid 控件通过 Datasource 属性取得数据 同时 adodc 对像也是控件操作数据库表的得利助手 使用 Adodc 对象不但减少了数据 往反的麻烦 也为前台提供了操作控制后台数据库的便利 所以本系统主要使 用 Adodc 对像控制后台数据库 药品信息管理 入库药品管理出库药品管理库存药品查询用户管理 登记药品 入库信息 登记出库 药品信息 查询各类 药品库存 清理各类 过期药品 过期药品管理免费药品发放 编辑免费 发放药品 编辑管理 用户信息 8 2 22 2 用户信息管理模块用户信息管理模块 主要管理医院药库管理人员信息 可给用户分配不同的权限 以便使用户在系 统中以不同的身份使用系统 从安全的角度来考虑 这不但可以最大限度的保证数 据安全 又可以各司其职各负其责 从而可以有效地对用户信息进行管理 2 2 12 2 1 数据处理功能设计与实现数据处理功能设计与实现 在用户信息管理模块的界面中 提供了对数据删除 增加和修改等功能 为此 加入添加 删除 更新 3 个按钮 添加用户时要注意其在系统中的权限 以使之可 以根据安全需要来使用系统 以保证系统数据的安全性 效果图如下 1 添加 更新功能 由于前文已做叙述前台在与后数据库进行交换数据是使用 VB6 0 提供的 Adodc 对像进行的 所以其相应代码较为简单 如下 添加部分 Private Sub Command4 Click DataGrid1 AllowUpdate True Adodc1 Recordset AddNew End Sub 更新部分 Private Sub Command2 Click Adodc1 Recordset UpdateBatch 9 End Sub 可见 只是使用 Adodc 对象的方法 实现起来较为简单 也易于理解 2 删除功能 由于删除操作相对于数据库表来说较为危险 容易产生不可挽回的误操作 所 以在删除代码中加入了删除前的提醒过程 以防止产生误操作 数据删除 Private Sub Command1 Click On Error GoTo err1 Dim respond As String With Adodc1 respond MsgBox 当前用户将要被删除 继续吗 4 特别警告 If respond vbYes Then DataGrid1 AllowDelete True Recordset Delete Recordset Update DataGrid1 Refresh DataGrid1 AllowDelete False End If End With Exit Sub err1 MsgBox 数据库已空或选择了无效的数据 End Sub 10 图图 2 32 3 用户信息管理删除操作用户信息管理删除操作 2 2 22 2 2 入库管理模块入库管理模块 在药品入库登记模块 可针对三类药品进行分类登记 并可以输入药品名称时 以简化代码的开式进行输入 较为方便 使用户从繁重的输入工作中解放出来 也 减少了出现错误的机率 如图 2 2 32 2 3 出库管理模块出库管理模块 出库管理模块 出库分为两类 一类是院内调拔 如批量药品调拔到病房药库 另一类是销售性质的出库 此类出库应按医疗保险政策对患进行相应的报销 并进 行药费进行计算 每一类出库都应对药品进行是否到期检验 以保证出库的药品都是有效 并能 对根据库存量自动进行关统计计算 如图 11 2 2 32 2 3 库存查询管理模块库存查询管理模块 库存查询是系统的一个设计核心模块 在本模块中查询是否灵活 直接体现本 系统设计是否科学 是否人性化 是不是能给信息管理带来便利 因此 在本模块中设计了可能查询所有药品类别的库存情况 且查询字段多样 灵活 可以自己组建查询条件 如下图 12 2 2 42 2 4 过期药品管理模块过期药品管理模块 过期药品是必须不能流出库存的 必须在库存盘点进将其清理 以便在管理员 的安排下做出适当的处理 否则出库到患者手中 会对患者的健康造成伤害的 如 下图 2 2 52 2 5 免费药品发放模块免费药品发放模块 免费药品是根据上级政策 派发给患者 免费药品对于重大疾病的控制是十分 重要的 因此 在对这类药品的管理中要十分重视 确保发放中的完全免费 在本 模块设计中 对药品类别进行判断 对于此类药品 免收一切费用 还对患者参加的医疗保在药品销售中加进运用 使药品销售性出库中进行按比 便报销 报销比例按上级政策执行 执行标准可在基表维护中加以设置 如下图 13 2 2 62 2 6 基表信息管理模块基表信息管理模块 基表信息维护模块 包括药品简化代码的设置 用户信息管理 医疗保险比列 设置 这此基表信息是系统中其他模块运行的基础 直接关系到系统的整体表现 所以基表应根据实际需要设计 并能随时根据现实情况进行相应变更 如下图 14 第三章第三章 入库管理模块设计与实现入库管理模块设计与实现 3 13 1 模块功能描述模块功能描述 入库管理主要完成三类药品入库登记 并根据出厂日期和失效日期 设置数 据库中的失效标记 以完成药品的入库 方便管理人员对药品进行管理 3 1 13 1 1 业务流程设计业务流程设计 入库管理模块业务流程如图 3 1 所示 图图 3 13 1 入库管理模块业务流程图入库管理模块业务流程图 3 23 2 入库登记模块入库登记模块 根据医院采购药品进行入库登记 可自动生成入库编号 自动根据出厂日期和 失效期设置失效标记 3 2 13 2 1 入库登记模块流程设计入库登记模块流程设计 1 入库登记模块数据流程如图 3 2 所示 药品 简码 入库 入库登记 查看代码 入库明细表 库存表 代码明细表 代码表 15 图图 3 2 入库登记模块数据流程图入库登记模块数据流程图 3 2 23 2 2 关键技术关键技术 1 药品名称简化代码输入 自动填充其他信息 其原理是在后台数据库建立药品名称简化代码库 并在入库登记窗口中 当用 户输入药品名称简化代码后 从数据库简化代码表中查询相应药品名称其他信息并 填写到相应控件中 供管理系统进一步使用 2 药品功用有效性控制 药品在入库登记时 即根据厂家信息提供出厂日期和失效日期 并据此在数据 库表中设置失效标记 以便在药品失效时及时进行清理 3 2 33 2 3 入库登记模块的实现入库登记模块的实现 由于入库登记子模块与后台数据库交换数据 都使用数据对象控件 Adodc 和 Recordset 进行操作 所以访问数据库就变得易于操控 1 药品名称简化代码输入实现 Private Sub Text1 Change On Error GoTo err3 With Adodc2 RecordSource select from frmmain kcode where 编号 Text1 Text Refresh 库存信息表 药品简码表 用户输入 简化代码 入库登记信 息表 16 If Recordset AbsolutePosition adPosUnknown Then Text2 Text Recordset Fields 3 Text18 Text Recordset Fields 2 Text18 Locked True Label23 ForeColor HFF Label23 Caption 已经找到 Text1 Text 这个代码 With Adodc1 RecordSource select from frmmain datas where 编号 Text1 Text Refresh If Recordset AbsolutePosition adPosUnknown Then Command1 Enabled False If Recordset Fields 数量 0 Then Command2 Enabled False Combo1 Text Text3 Text Text4 Text Text5 Text Text6 Text Text7 Text Text17 Text 请填写备注 MsgBox 该药品或器械库存结余 不能继续入库 Text1 Locked False Text18 Locked False Text18 Text Text1 Text Else Label23 ForeColor HFF0000 Label23 Caption 库存 Text18 Text 已空 请增加库存量 Combo1 Locked True Command2 Enabled True Text4 Locked True Text5 Locked True Text2 Text Recordset Fields 规格 17 Combo1 Text Recordset Fields 单位 Text3 Text Recordset Fields 数量 Text4 Text Recordset Fields 进价 Text5 Text Recordset Fields 零售价 Text6 Text Recordset Fields 产地 Text7 Text Recordset Fields 批号 End If Else Label23 ForeColor HFF0000 Label23 Caption 库房中没有 Text18 Text 请添加新品种 Command2 Enabled False Command1 Enabled True Combo1 Locked False Text4 Locked False Text5 Locked False Combo1 Text Text3 Text Text4 Text Text5 Text Text6 Text Text17 Text 请填写备注 End If End With Else Command1 Enabled False Command2 Enabled False Label23 ForeColor H12 Label23 Caption 代码库中没有 Text1 Text 这个代码 应先编制代码 End If End With Exit Sub err3 MsgBox 输入了非法字符或数据项填写不完整 End Sub 18 2 药品功用有效性控制 Private Sub Command2 Click 库存过期药品必须清理后才能入库 Dim rq1 As String Dim rq2 As String Dim rq3 As String On Error GoTo err2 With Adodc1 RecordSource select from frmmain datas where 编号 Text1 Text Refresh If Recordset Fields 失效标记 False Then If Recordset AbsolutePosition adPosUnknown Then Recordset Fields 规格 Text2 Text Recordset Fields 单位 Combo1 Text Recordset Fields 数量 Text3 Text Recordset Fields 进价 Text4 Text Recordset Fields 进价合计 Text3 Text Text4 Text Recordset Fields 零售价 Text5 Text Recordset Fields 零售合计 Text3 Text Text5 Text Recordset Fields 产地 Text6 Text Recordset Fields 批号 Text7 Text Recordset Fields 差额 Recordset Fields 零售合计 Recordset Fields 进价合计 rq1 Text8 Text Text9 Text Text10 Text Recordset Fields 采购日期 CDate rq1 rq2 Text11 Text Text12 Text Text13 Text Recordset Fields 出厂日期 CDate rq2 rq3 Text14 Text Text15 Text Text16 Text Recordset Fields 失效期 CDate rq3 Recordset Fields 备注 Text17 Text Recordset UpdateBatch End If Command2 Enabled False 19 Text1 Enabled True Text18 Enabled True Label23 Caption Else MsgBox 该库存药品已经失效 须清理后才能入库 End If End With Exit Sub err2 MsgBox 登记项目填写不全或数据类型不匹配 End Sub 执行效果如下图 3 33 3 库存查询模块库存查询模块 主要负责查询社区医院药库中药品的信息 可按不同字段不同条件查询库存信 息 支持模糊查询及在结果中查询 显示各品种药品的库存信息 3 3 13 3 1 设计思路设计思路 该模块的设计思路与基础信息查询模块设计思路相近 不同的地方主要是查询 字段名与数据表不同 20 3 3 23 3 2 库存查询模块实现库存查询模块实现 库存查询模块 主要是动态生成查询条件 并根据查询条件对数据库表进行查 询 并将查询的结果实时显示在控制中 实现如下 Private Sub Text2 Change On Error GoTo err2 With Adodc1 Select Case Combo1 Text Case 药品销售 RecordSource select from ypxs where Text1 Text Like Text2 Text Refresh DataGrid1 Columns 0 Visible False Case 医院药品库 RecordSource select from kcyp where Text1 Text like Text2 Text Refresh DataGrid1 Columns 0 Visible False Case 中草药库 RecordSource select from caoyao where Text1 Text like Text2 Text Refresh DataGrid1 Columns 0 Visible False Case 医疗器材库 RecordSource select from qixie where Text1 Text like Text2 Text Refresh DataGrid1 Columns 0 Visible False Case 药品调拨 RecordSource select from ypdb where Text1 Text like Text2 Text Refresh DataGrid1 Columns 0 Visible False Case 住院病人 RecordSource select 住院证号 患者姓名 性别 年龄 地址 病种 科室类别 病 21 房号 床位号 主治大夫 住院日期 出院日期 预交费 费用合计 操作员 from zyf where Text1 Text like Text2 Text Refresh DataGrid1 Columns 0 Visible False End Select End With Exit Sub err2 MsgBox 输入条件错误或输入值类型不匹配 End Sub 图图 3 83 8 入库查询界面入库查询界面 22 第四章第四章 基表维护设计与实现基表维护设计与实现 4 14 1 模块功能描述模块功能描述 基表维护管理主要管理与系统设置有关的内容 主要包括用户密码设置 权限 设置 药品代码 医疗保险报销比例设置 过期药品清理等 4 1 14 1 1 基本信息管理模块流程图基本信息管理模块流程图 基表维护模块业务流程如图 4 1 所示 基 表 维 护 管 理 用户管理设置 药品代码设置 过期药品清理 医疗保险设置 用户添加 权限控制 保险比例控制 清理过药药品 药品代码分类填写 图图 4 14 1 系统设置管理模块业务流程图系统设置管理模块业务流程图 4 24 2 用户设置模块用户设置模块 主要功能是设置当前用户的密码 工作流程是 设置当前用户的密码 密码效 验通过 完成密码设置操作 4 2 14 2 1 设计思路设计思路 1 判断密码是否合理 2 修改数据库中的密码 4 2 24 2 2 密码设置模块的实现密码设置模块的实现 1 设置密码 23 2 编辑用户 密码设置窗体如图 表表 4 14 1 密码设置窗体资源设置图密码设置窗体资源设置图 2 实现删除按钮 用户单击 删除 按钮时 必须允许用户进行确认 避免产生误操作 代码如 下 Private Sub Command1 Click On Error GoTo err1 Dim respond As String With Adodc1 respond MsgBox 当前用户将要被删除 继续吗 4 特别警告 If respond vbYes Then DataGrid1 AllowDelete True Recordset Delete Recordset Update DataGrid1 Refresh DataGrid1 AllowDelete False End If End With Exit Sub err1 MsgBox 数据库已空或选择了无效的数据 End Sub 24 2 权限设置 权限设置为 0 表示超级用户 1 为普通用户 超级用户拥有全部权限 普通 用户只具有部分权限 在系统中受到限制 如下图 图图 4 24 2 密码设置模块界面密码设置模块界面 4 34 3 医疗保险设置模块医疗保险设置模块 主要功能是完成依据上级政策设置在药品销售中医疗保险报销的比例 这关系 到出库模块的计算药费 如下图 4 3 14 3 1 设计思想设计思想 考虑到目前各医院在执行医保中存在各种各样的情况 所以我在设计中只不过 进行了一种设计上的尝试 点到为止 日后若有需要我会根据实际情况增加本模块 的权重 25 4 4 过期药品清理模块过期药品清理模块 药品在库存中根据日期变化 会因长时间没有出库而逐渐失效 而失效药品是 不能出库要 要及时进行清理 4 4 14 4 1 设计思想设计思想 1 根据出厂日期和过期日期设置失效标记 2 检查数据库表中的失效标记 如下图 1 检查失效日期 并设置失效标记 代码 Public Sub Guolu DataGrid1 AllowUpdate True On Error GoTo err0 With Adodc1 RecordSource select from frmmain datas Refresh For i 0 To Recordset RecordCount If Not Recordset EOF Then If Recordset Fields 失效期 Date Then Recordset Fields 失效标记 True Recordset UpdateBatch 26 Else Recordset Fields 失效标记 False Recordset UpdateBatch End If Recordset MoveNext End If Next RecordSource select from frmmain datas where 失效标记 true Refresh Label1 Caption Combo2 Text 中过期或报废共 Recordset RecordCount 种 DataGrid1 AllowUpdate False Set DataGrid1 DataSource Adodc1 DataGrid1 Columns 0 Visible False If Combo2 Text 免费药品 Then DataGrid1 Columns 17 Visible False DataGrid1 Columns 进价 NumberFormat 0 00 DataGrid1 Columns 进价合计 NumberFormat 0 00 DataGrid1 Columns 零售价 NumberFormat 0