医院药品库房管理系统-VB编程毕业设计

1、【摘 要】在我国，随着医药卫生体制改革的深入，医药连锁经营的推行以及日趋激烈的商业角逐，越来越多的医药经营企业意识到提高企业管理水平的重要性,也迫切要求加快管理信息化的进程。在医药行业中，医药经营企业的物流管理以及相应的财务处理、信息处理，长期以来一直采用手工操作，但随着产业结构调整、全新的市场竞争环境，企业管理和运营效率已经成为企业成败的关键所在，手工方式的弊端毕现无遗。这就要求医药管理摆脱过去人手操作的烦琐。充分满足了医药经营企业的各种需求，从医药经营企业的各个环节对人流、物流、资金流、信息流进行统一系统的管理。市场的需求和技术的支持，最终会导致越来越多的优秀医药管理软件的出现，并在竞争中

2、得到不断的完善和优化。【关键词】医院药品库房管理数据库Visual Basic 【Abstract】In our country，with the medicine system reform going on and medicine chain business promoting and more and more business competition，more and more medicine chain corporations shall be aware of the importance of improving the level of enterprises mana

3、gement and also want to speed up the procession of information management。In medicine business, most of the medicine corporation has been using manual work to deal with the management of goods and finance and information processing. But，after the change of medicine business structure and a brand new

4、 market surrounding，the manual work is a big obstacle for medicine corporation and the key to medicine corporations success should be the management and efficiency. This demand medicine management to get away manual work and manage the medicine data intelligently and promote medicines development。Gr

5、adually，with comp。What the market needs and the support of technique will lead the emergence of perfect medicine management software。【Keywords】Hispital Medicine management Database Visual Basic目录【摘 要】1第一章 医院信息系统发展概况41.1 医院信息系统的定义41.2 医院信息系统的发展历史与现状5第2章 系统分析82.1 系统可行性研究82.2 现行系统的详细调查82.2.1行政系统的组织结构图如

6、下：82.2.2现行系统的管理的管理职能：92.2.3 业务流程分析:92.3现行医药管理存在的问题102.4 业务分析112.5 功能需求122.6 性能需求132.7 运行环境需求132.8 安全性、保密性、可靠性的要求142.9界面要求142.10 异常处理要求142.11新系统逻辑模型的提出15第3章 系统设计163.1 系统总体结构设计16 3.2 系统详细设计163.2.1 数据库设计16第4章 系统实现214.1 应用程序开发214.2系统转换36后 记37参 考 文 献37第一章 医院信息系统发展概况（1） 1.。需要专门培训，加之是与高校合作开发，将来系统的运行、维护将不会遇

7、到大的困难。通过上述分析，院领导和开发人员达成共识，本系统有开发的必要与可能，决定开发系统。2.2 现行系统的详细调查2.2.1行政系统的组织结构图如下： 。2.5 功。 药 品 入 库 临 时 表（YPRKB）结 构字段 字段名 中文含义 类型 宽度 小数位 1 YP_BH 药品编号 字符型 10 2 YP_PM1 药品英文名 字符型 20 3 YP_PM2 药品中文名 字符型 20 4 YP_PM3 药品别名 字符型 20 5 YP_LB 类别 字符型 206 YP_JX 剂型 字符型 67 YP_GGLX 规格类型 字符型 128 YP_JLDW 计量单位 字符型 29 YP_RKRQ

8、入库日期 日期型 810 YP_GYBM 供应商 字符型 2411 YP_RKJG 入库价格 数值型 10 212 YP_RKSL 入库数量 数值型 12 2药 品 出 库 临 时 表（YPRKB） 结 构字段 字段名 中文含义 类型 宽度 小数位 1 YP_BH 药品编号 字符型 10 2 YP_PM1 药品英文名 字符型 20 3 YP_PM2 药品中文名 字符型 20 4 YP_PM3 药品别名 字符型 20 5 YP_LB 类别 字符型 206 YP_JX 剂型 字符型 67 YP_GGLX 规格类型 字符型 128 YP_JLDW 计量单位 字符型 29 YP_CKRQ 入库日期 日

9、期型 810 YP_LYBM 领药部门 字符型 2411 YP_LCJG 领出价格 数值型 10 212 YP_LCSL 领出数量 数值型 12 2。nor & . & App.Revision 当记录为零时，进入系统具有所有权限 If Data1.Recordset.RecordCount = 0 Then MsgBox (您还没有设置操作员密码和权限，请设置操作员密码和权限!) Load frm_main frm_main.Show Unload Me Else Text1.SetFocus text1获得焦点 End IfEnd SubPrivate Sub Form_Load() TI

10、M = 0 为变量设初值 自动识别数据库路径 Data1.DatabaseName = App.Path & yyjxc.mdb: Data2.DatabaseName = App.Path & yyjxc.mdbEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text2.SetFocus 按回车键text2获得焦点End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Cmd1.Visible