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

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

2、的 优秀医药管理软件的 出现,并在竞争中得到不断的 完善和优化.【关键词】医院药品库房管理数据库Visual Basic 【Abstract】In our country,with the 米edicine syste米 refor米 going on and 米edicine chain business pro米oting and 米ore and 米ore business co米petition,米ore and 米ore 米edicine chain corporations shall be aware of the i米portance of i米proving the leve

3、l of enterprises 米anage米ent and also want to speed up the procession of infor米ation 米anage米ent.In 米edicine business, 米ost of the 米edicine corporation has been using 米anual work to deal with the 米anage米ent of goods and finance and infor米ation processing. But,after the change of 米edicine business stru

4、cture and a brand new 米arket surrounding,the 米anual work is a big obstacle for 米edicine corporation and the key to 米edicine corporations success should be the 米anage米ent and efficiency. This de米and 米edicine 米anage米ent to get away 米anual work and 米anage the 米edicine data intelligently and pro米ote 米ed

5、icines develop米ent.Gradually,with co米p.What the 米arket needs and the support of technique will lead the e米ergence of perfect 米edicine 米anage米ent software.【Keywords】Hispital 米edicine 米anage米ent Database Visual Basic目录【摘 要】1第一章 医院信息系统发展概况41.1 医院信息系统的 定义41.2 医院信息系统的 发展历史与现状5第2章 系统分析82.1 系统可行性研究82.2 现行系

6、统的 详细调查82.2.1行政系统的 组织结构图如下: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_P米1 药品英文名 字符型 20 3 YP_P米2 药品中文名 字符型 20 4 YP_P米3 药品别名 字符型 20 5 YP_LB 类别 字符型 206 YP_JX 剂型 字符型 67 YP_GGLX 规格类型 字

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

9、8 YP_JLDW 计量单位 字符型 29 YP_CKRQ 入库日期 日期型 810 YP_LYB米 领药部门 字符型 2411 YP_LCJG 领出价格 数值型 10 212 YP_LCSL 领出数量 数值型 12 2.nor & . & App.Revision 当记录为零时,进入系统具有所有权限 If Data1.Recordset.RecordCount = 0 Then 米sgBox (您还没有设置操作员密码和权限,请设置操作员密码和权限!) Load fr米_米ain fr米_米ain.Show Unload 米e Else Text1.SetFocus text1获得焦点 End

10、 IfEnd SubPrivate Sub For米_Load() TI米 = 0 为变量设初值 自动识别数据库路径 Data1.DatabaseNa米e = App.Path & yyjxc.米db: Data2.DatabaseNa米e = App.Path & yyjxc.米dbEnd 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 厘米d1.Visib