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

【摘要】
在我国,随着医药卫生体制改革的深入,医药连锁经营的推行以及日趋激烈的商业角逐,越来越多的医药经营企业意识到提高企业管理水平的重要性,也迫切要求加快管理信息化的进程。

在医药行业中,医药经营企业的物流管理以及相应的财务处理、信息处理,长期以来一直采用手工操作,但随着产业结构调整、全新的市场竞争环境,企业管理和运营效率已经成为企业成败的关键所在,手工方式的弊端毕现无遗。

这就要求医药管理摆脱过去人手操作的烦琐。

充分满足了医药经营企业的各种需求,从医药经营企业的各个环节对人流、物流、资金流、信息流进行统一系统的管理。

市场的需求和技术的支持,最终会导致越来越多的优秀医药管理软件的出现,并在竞争中得到不断的完善和优化。

【关键词】医院药品库房管理数据库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 enterprise's management 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 market surrounding,the manual work is a big obstacle for medicine corporation and the key to medicine
corporation's success should be the management and efficiency. This demand medicine management to get away manual work and manage the medicine data intelligently and promote medicine's development。

Gradually,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
第一章医院信息系统发展概况 4
§1.1 医院信息系统的定义 (4)
§1.2 医院信息系统的发展历史与现状...................................................... 错误!未定义书签。

第2章系统分析错误!未定义书签。

2.1 系统可行性研究 ........................................................................................ 错误!未定义书签。

2.2 现行系统的详细调查 (4)
2.2.1行政系统的组织结构图如下: (4)
2.2.2现行系统的管理的管理职能: ..................................................... 错误!未定义书签。

2.2.3 业务流程分析:............................................................................. 错误!未定义书签。

2.3现行医药管理存在的问题......................................................................... 错误!未定义书签。

2.4 业务分析 ..................................................................................................... 错误!未定义书签。

2.5 功能需求 (5)
2.6 性能需求 ..................................................................................................... 错误!未定义书签。

2.7 运行环境需求 ............................................................................................. 错误!未定义书签。

2.8 安全性、保密性、可靠性的要求.............................................................. 错误!未定义书签。

2.9界面要求 ...................................................................................................... 错误!未定义书签。

2.10 异常处理要求 ........................................................................................... 错误!未定义书签。

2.11新系统逻辑模型的提出.......................................................................... 错误!未定义书签。

第3章系统设计错误!未定义书签。

§3.1 系统总体结构设计 ................................................................................ 错误!未定义书签。

§ 3.2 系统详细设计 ...................................................................................... 错误!未定义书签。

§3.2.1 数据库设计 ................................................................................ 错误!未定义书签。

第4章系统实现错误!未定义书签。

§4.1 应用程序开发 ........................................................................................ 错误!未定义书签。

§4.2系统转换 ................................................................................................. 错误!未定义书签。

后记错误!未定义书签。

参考文献错误!未定义书签。

第一章医院信息系统发展概况
（1）§1.。

需要专门培训,
加之是与高校合作开发,将来系统的运行、维护将不会遇到大的困难。

通过上述分析,院领导和开发人员达成共识,本系统有开发的必要与可能,决
定开发系统。

2.2 现行系统的详细调查
2.2.1行政系统的组织结构图如下:。

2.5 功。

药品入库临时表(YPRKB)结构
药品出库临时表(YPRKB) 结构。

nor & "." & App.Revision '当记录为零时,进入系统具有所有权限
If Data1.Recordset.RecordCount = 0 Then
MsgBox ("您还没有设置操作员密码和权限,请设置操作员密码和权限!")
Load frm_main
frm_main.Show
Unload Me
Else
Text1.SetFocus 'text1获得焦点
End If
End Sub
Private Sub Form_Load()
TIM = 0 '为变量设初值
'自动识别数据库路径
Data1.DatabaseName = App.Path & "\yyjxc.mdb":
Data2.DatabaseName = App.Path & "\yyjxc.mdb"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Text2.SetFocus '按回车键text2获得焦点End Sub
Private Sub text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Cmd1.Visible = True
Cmd1.SetFocus
End If
If KeyCode = vbKeyUp Then Text1.SetFocus '按向上键text1获得焦点
End Sub。

End Sub
二、设计用户操作主界面:
日常业务。

CmdMD(i).Enabled = True
Next i
End If。

王珊主编。