【摘 要】
 在我国，随着医药卫生体制改革的深入，医药连锁经营的推行以及日趋激烈的商业角逐，越来越多的医药经营企业意识到提高企业管理水平的重要性,也迫切要求加快管理信息化的进程。
 在医药行业中，医药经营企业的物流管理以及相应的财务处理、信息处理，长期以来一直采用手工操作，但随着产业结构调整、全新的市场竞争环境，企业管理和运营效率已经成为企业成败的关键所在，手工方式的弊端毕现无遗。这就要求医药管理摆脱过去人手操作的烦琐。。。。。。。。。。。。。。。。。。。。。。。。。。。充分满足了医药经营企业的各种需求，从医药经营企业的各个环节对人流、物流、资金流、信息流进行统一系统的管理。市场的需求和技术的支持，最终会导致越来越多的优秀医药管理软件的出现，并在竞争中得到不断的完善和优化。
【关键词】　　医院药品库房管理　　数据库　　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 医院信息系统的发展历史与现状 5
第2章 系统分析 8
2.1 系统可行性研究 8
2.2 现行系统的详细调查 8
2.2.1行政系统的组织结构图如下： 8
2.2.2现行系统的管理的管理职能： 9
2.2.3 业务流程分析: 9
2.3现行医药管理存在的问题 10
2.4 业务分析 11
2.5 功能需求 12
2.6 性能需求 13
2.7 运行环境需求 13
2.8 安全性、保密性、可靠性的要求 14
2.9界面要求 14
2.10 异常处理要求 14
2.11新系统逻辑模型的提出 15
第3章  系统设计 16
§3.1 系统总体结构设计 16
§ 3.2 系统详细设计 16
§3.2.1 数据库设计 16
第4章  系统实现 21
§4.1 应用程序开发 21
§4.2系统转换 36
后  记 37
参  考  文  献 37 
 
第一章 医院信息系统发展概况
 §1.。。。。。。。。。。。。。。。。。。。。。需要专门培训，加之是与高校合作开发，将来系统的运行、维护将不会遇到大的困难。
 通过上述分析，院领导和开发人员达成共识，本系统有开发的必要与可能，决定开发系统。
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      类别         字符型      20
6     YP_JX      剂型         字符型      6
7     YP_GGLX    规格类型     字符型      12
8     YP_JLDW    计量单位     字符型      2
9     YP_RKRQ    入库日期     日期型      8
10    YP_GYBM    供应商       字符型      24
11    YP_RKJG    入库价格     数值型      10       2
12    YP_RKSL    入库数量     数值型      12       2
 药  品  出  库  临  时   表（YPRKB） 结  构
 
字段    字段名     中文含义     类型     宽度    小数位
 
 1     YP_BH      药品编号     字符型      10
 2     YP_PM1     药品英文名   字符型      20
 3     YP_PM2     药品中文名   字符型      20
 4     YP_PM3     药品别名     字符型      20
 5     YP_LB      类别         字符型      20
6     YP_JX      剂型         字符型      6
7     YP_GGLX    规格类型     字符型      12
8     YP_JLDW    计量单位     字符型      2
9     YP_CKRQ    入库日期     日期型      8
10    YP_LYBM    领药部门     字符型      24
11    YP_LCJG    领出价格     数值型      10       2
12    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 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。。。。。。。。。。。。。。。。 王珊主编

相关论文