基于VB的乡村诊所药品管理系统设计及开发

摘要：为了满足乡村诊所药品的最优化管理，根据实际情况在设管理信息系统的理论和方法指导下、数据库技术支持下完成的。论文在对乡村诊所管理流程进行了解与分析的基础上对系统进行了总体的设计，并通过编程整合数据表使得系统最终能够完成信息的输入、输出，数据的修改、查询和统计以及打印报表等功能，使用户操作起来简便快捷。

关键词：乡村诊所；药品管理系统；VB语言

中图分类号：TP311 文献标识码：A 文章编号：1009-3044（2014）30-7072-03

随着城镇一体化不断推进，广大农村地区对于医疗条件的要求也逐年提高。乡村诊所作为新型农村医疗的最底层单位，对于保证广大乡村地区人民的健康起着不可忽略的作用[1]。在各项医疗项目中，除了医生的技术，其诊所的管理水平也是关系到广大乡村百姓安危的重要问题[2，3，4]。目前，大多城市的医院都在用医疗管理系统，乡村诊所对于药品管理的问题未得到足够的重视。对于一些稍大的乡镇诊疗的人员较多，对于药品的品种、剂量的输入与输出会因为操作失误而带来医疗事故，引发基层医疗矛盾，破坏乡村的和谐环境[5，6]。为了避免这类事故的发生，文章在调研的基础上开发出一套适应于乡村诊所的药品管理系统，这样会大大减少诊所医生的工作量，腾出更多的时间来研究治病方案和治疗，不断提升广大乡村区域人民的健康水平。

1 乡村诊所药品管理系统分析与设计

1.1 系统基础数据确定

根据乡村诊所药品管理系统功能设计的要求以及功能模块的划分，对于该系统的数据库需要列出系统用户表、药品卡片表、药品信息、药品库存等基础数据项和数据结构。表1是药品卡片表，该表显示了药品输入时需要确定的各项内容，是该系统的基础数据之一。

表1 药品卡片表

[名称＼&字段名称＼&类型＼&主键＼&非空＼&药品名称＼&药品名称＼&文本＼&yes＼&yes＼&药品简码＼&药品简码＼&文本＼&no＼&yes＼&药品规格＼&药品规格＼&文本＼&no＼&yes＼&计量单位＼&计量单位＼&文本＼&no＼&yes＼&药品剂型＼&药品剂型＼&文本＼&no＼&yes＼&采购单价＼&采购单价＼&文本＼&no＼&yes＼&批准文件＼&批准文件＼&文本＼&no＼&yes＼&有效期限＼&有效期限＼&文本＼&no＼&yes＼&来自厂家＼&来自厂家＼&文本＼&no＼&yes＼&来自单位＼&来自单位＼&文本＼&no＼&yes＼&]

1.2 系统E-R图

系统E-R图是整个乡村药品管理系统的核心架构。通过图1可以看到整个药品管理系统的主要功能。该系统包含了计算机数据的一些常规处理，如数据备份与还原，软件界面的设计等；也包含了药品管理系统的构建主要元素，如药品卡片的建立，药品出入库以及药品的查询等。该架构能够保证乡村医生能够正常的使用该系统进行药物管理，大幅提升药品管理水平和效率。

图2和图3分别是系统操作流程图和药品信息图。这两幅图是整个药品管理系统的操作指南。通过系统流程图我们可以了解整个系统对于药品的管理及控制以及药品在计算机系统中的位置与状态，方便对药品的实时管理于查询。药品信息图则是对药品的具体信息的实时监控，保证各类药品能够处于正常状态。

图1 诊所管理系统架构

图2 系统操作流程图

图3 药品信息图

通过对诊所药品系统构建为后续开发该系统提供了依据。与此同时，药品信息子项的明确为后续开发与使用提供了母版。系统的开发不仅要满足现今需求，还要考虑到诊所的长远发展，使得该系统有一定的冗余，为日后开发提供一定条件。

2 乡村诊所药品管理系统实现

2.1 药品管理系统的登录界面

本管理系统开发环境是在Windows系统下进行，所用的数据库工具为SQL SEVER 2000，所用的开发语言为VB以及SQL2000。

登陆页面具有登录主界面和修改密码的功能，用户登陆时将根据其身份进行验证，验证通过之后就会登录到主界面。本系统用户主要是诊所的医生，其用户名和密码是存储在数据库中，验证主要是验证用户所输入的信息与数据库中的是否一致，若是一致就成功登录。否则提示错误信息，返回重新输入。

登陆代码：

Private Sub Command1_Click（）

Adodc1.RecordSource = "select * from 用户信息表 where 用户名='" & Trim（Text1.Text） & "' and 密码='" & Trim（Text2.Text） & "'"

主界面.Show

登录.Hide

Else： A = MsgBox（"用户名或密码不存在！"， 48， "警告"）

修改密码代码：

Private Sub Command1_Click（） ''保存

Adodc1.RecordSource = "select * from 用户信息表 where 用户名='" & Trim（Text1.Text） & "'"

Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then

Adodc1.Recordset.Fields（"密码"） = Trim（Text4.Text）

Adodc1.Recordset.Update

A = MsgBox（"修改成功！"， 48， "警告"）

Me.Hide

登录.Show

2.2 诊所药品管理系统功能界面

此界面主要为了方便对药品管理功能选择提供了一个选择的平台，选择的管理功能有药品卡片的建立、药品入库、药品查询、药品出库三大管理模块。其中药品卡片的建立是基础，建立药品的卡片可以在后续的使用中只需要输入简码，就可以点出相关的药品信息。此外，根据实际需求，设计了药品入库和出库的界面、药品查询界面等，满足了诊所日常诊疗药品输入输出需求。

此外，为了保证系统正常运行以及在系统故障时保证能够正常使用，对系统设计时需要考虑进行系统备份与还原功能，保证系统工作的连续性与安全性。

图5 药品管理系统及药品卡片

主页面代码：

Private Sub bf_Click（）

备份还原.Show

End Sub

Private Sub ck_Click（）

药品出库.Show

End Sub

Private Sub Command1_Click（）

药品卡片.Show

End Sub

Private Sub Command2_Click（） （下转第7099页）

（上接第7074页）

药品入库.Show

End Sub

Private Sub Command3_Click（）

药品查询.Show

End Sub

药品卡片代码：

Public Function getPYChar（char As String） As String '获得汉字的拼音简码

Private Sub Text1_KeyPress（KeyAscii As Integer） '' 生成简码

Adodc1.RecordSource = "select * from 药品卡片信息 where 批准文件='" & Trim（Text5.Text） & " 'and 药品规格='" & Trim（Text3.Text） & " '"

3 结论

对于乡村诊所这样的初级诊疗结构，其药品的计算机系统管理能够为乡村医生带来极大的便利。通过对药品卡片的建立、药品入库管理、药品查询管理、药品出库管理等功能的实现，可以减少手工输入输出药品的基本信息，大大减少了药品登记的时间，提高他们的工作效率和减少工作量。此外，乡村诊所进行药品分类登记也给药监工作人员的检查带来了极大的便利。

参考文献：

[1] 杨起，陆梅春，卢祖洵.乡村两级医疗机构实行医疗服务与药品分开管理的可行性初探[J].中国卫生事业管理杂志，2004（1）：50-51.

[2] 魏长彬.关于乡镇卫生院药品质量管理情况的调查[J].中国药业，2006（3）：15.

[3] 张荣怀.如何推进农村药店的药品分类管理[J].中国食品药品监督，2005（12）：50.

[4] 谢思源.农村医疗机构药品管理应常抓不懈[J].中国食品药品监督，2005（11）：40-41.

[5] 王远芳，陈浩.论个体诊所药品管理的法律规制[J].赣南医学院学报，2012（10）：787-788

[6] 杨永岐，杨志强，傅小英.药品监管中应重视的问题及对策[J].东南国防医药，2003（2）：97-99.

Adodc1.Recordset.Update

A = MsgBox（"修改成功！"， 48， "警告"）

Me.Hide

登录.Show

2.2 诊所药品管理系统功能界面

此界面主要为了方便对药品管理功能选择提供了一个选择的平台，选择的管理功能有药品卡片的建立、药品入库、药品查询、药品出库三大管理模块。其中药品卡片的建立是基础，建立药品的卡片可以在后续的使用中只需要输入简码，就可以点出相关的药品信息。此外，根据实际需求，设计了药品入库和出库的界面、药品查询界面等，满足了诊所日常诊疗药品输入输出需求。

此外，为了保证系统正常运行以及在系统故障时保证能够正常使用，对系统设计时需要考虑进行系统备份与还原功能，保证系统工作的连续性与安全性。

图5 药品管理系统及药品卡片

主页面代码：

Private Sub bf_Click（）

备份还原.Show

End Sub

Private Sub ck_Click（）

药品出库.Show

End Sub

Private Sub Command1_Click（）

药品卡片.Show

End Sub

Private Sub Command2_Click（） （下转第7099页）

（上接第7074页）

药品入库.Show

End Sub

Private Sub Command3_Click（）

药品查询.Show

End Sub

药品卡片代码：

Public Function getPYChar（char As String） As String '获得汉字的拼音简码

Private Sub Text1_KeyPress（KeyAscii As Integer） '' 生成简码

Adodc1.RecordSource = "select * from 药品卡片信息 where 批准文件='" & Trim（Text5.Text） & " 'and 药品规格='" & Trim（Text3.Text） & " '"

3 结论

对于乡村诊所这样的初级诊疗结构，其药品的计算机系统管理能够为乡村医生带来极大的便利。通过对药品卡片的建立、药品入库管理、药品查询管理、药品出库管理等功能的实现，可以减少手工输入输出药品的基本信息，大大减少了药品登记的时间，提高他们的工作效率和减少工作量。此外，乡村诊所进行药品分类登记也给药监工作人员的检查带来了极大的便利。

参考文献：

[1] 杨起，陆梅春，卢祖洵.乡村两级医疗机构实行医疗服务与药品分开管理的可行性初探[J].中国卫生事业管理杂志，2004（1）：50-51.

[2] 魏长彬.关于乡镇卫生院药品质量管理情况的调查[J].中国药业，2006（3）：15.

[3] 张荣怀.如何推进农村药店的药品分类管理[J].中国食品药品监督，2005（12）：50.

[4] 谢思源.农村医疗机构药品管理应常抓不懈[J].中国食品药品监督，2005（11）：40-41.

[5] 王远芳，陈浩.论个体诊所药品管理的法律规制[J].赣南医学院学报，2012（10）：787-788

[6] 杨永岐，杨志强，傅小英.药品监管中应重视的问题及对策[J].东南国防医药，2003（2）：97-99.

Adodc1.Recordset.Update

A = MsgBox（"修改成功！"， 48， "警告"）

Me.Hide

登录.Show

2.2 诊所药品管理系统功能界面

此界面主要为了方便对药品管理功能选择提供了一个选择的平台，选择的管理功能有药品卡片的建立、药品入库、药品查询、药品出库三大管理模块。其中药品卡片的建立是基础，建立药品的卡片可以在后续的使用中只需要输入简码，就可以点出相关的药品信息。此外，根据实际需求，设计了药品入库和出库的界面、药品查询界面等，满足了诊所日常诊疗药品输入输出需求。

此外，为了保证系统正常运行以及在系统故障时保证能够正常使用，对系统设计时需要考虑进行系统备份与还原功能，保证系统工作的连续性与安全性。

图5 药品管理系统及药品卡片

主页面代码：

Private Sub bf_Click（）

备份还原.Show

End Sub

Private Sub ck_Click（）

药品出库.Show

End Sub

Private Sub Command1_Click（）

药品卡片.Show

End Sub

Private Sub Command2_Click（） （下转第7099页）

（上接第7074页）

药品入库.Show

End Sub

Private Sub Command3_Click（）

药品查询.Show

End Sub

药品卡片代码：

Public Function getPYChar（char As String） As String '获得汉字的拼音简码

Private Sub Text1_KeyPress（KeyAscii As Integer） '' 生成简码

Adodc1.RecordSource = "select * from 药品卡片信息 where 批准文件='" & Trim（Text5.Text） & " 'and 药品规格='" & Trim（Text3.Text） & " '"

3 结论

对于乡村诊所这样的初级诊疗结构，其药品的计算机系统管理能够为乡村医生带来极大的便利。通过对药品卡片的建立、药品入库管理、药品查询管理、药品出库管理等功能的实现，可以减少手工输入输出药品的基本信息，大大减少了药品登记的时间，提高他们的工作效率和减少工作量。此外，乡村诊所进行药品分类登记也给药监工作人员的检查带来了极大的便利。

参考文献：

[1] 杨起，陆梅春，卢祖洵.乡村两级医疗机构实行医疗服务与药品分开管理的可行性初探[J].中国卫生事业管理杂志，2004（1）：50-51.

[2] 魏长彬.关于乡镇卫生院药品质量管理情况的调查[J].中国药业，2006（3）：15.

[3] 张荣怀.如何推进农村药店的药品分类管理[J].中国食品药品监督，2005（12）：50.

[4] 谢思源.农村医疗机构药品管理应常抓不懈[J].中国食品药品监督，2005（11）：40-41.

[5] 王远芳，陈浩.论个体诊所药品管理的法律规制[J].赣南医学院学报，2012（10）：787-788

[6] 杨永岐，杨志强，傅小英.药品监管中应重视的问题及对策[J].东南国防医药，2003（2）：97-99.