用中文VFP管理有效期药品

833400新疆博尔塔拉蒙古自治州人民医院

摘要目的：对有效期药品进行管理。方法：应用Visual FoxPro 6.0数据库对有效期药品建立录入、查询、报表打印等模块程序。结果：可以迅速查出近期失效药品的品种、药品的有效期或报废日期。结论：用中文Visual FoxPro 6.0数据库管理有效期药品，方法简单、查询方便。

关键词Visual FoxPro 6.0 有效期药品管理 数据库

中文Visual FoxPro 6.0数据库（以下简称vfp）是windows系列环境下的优秀的数据库管理系统。利用VFP创建数据库、表、报表、查询与视图和表单等，具有人机互交式向导功能，可实现对有效期的药品进行微机化管理。

操作步骤

（1）建立“效期药品管理”项目，启动VFP，新建1个项目，保存为“效期药品管理”。（2）选择［数据］，新建1个数据库，保存为“效期药品”。

（3）在此数据库中单击鼠标右键，在弹出的快捷菜单中选择新建表。

代码用药品包装上的条形码（购1只条码扫描抢即可）或批准文号或注册证号或医药产品注册证号表示，其中Ｈ用“１”表示、Ｚ用“2”表示、J用“3”表示、Ｘ用“4”表示、B用“6”表示，比如：批准文号为：国药准字Ｈ20023231，其代码可编写为120023231，医药产品注册证为ZC20020009，双字母ZC取前1个字母、弃后1个字母，代码编写为220020009。我院使用后一种。

到期日：有效期若标注到日［1］，应当为起算日期的前1天，若标注到月，应当为起算月份的前1个月。

（4）表单的建立：效期药品录入表单的创建在项目管理器中，选择［文档］中的［表单］，单击［新建］，选择［表单向导］，再选择［一对多表单向导］，“产品”表作为父表，“效期”表为子表，不选择排序，在“请键入表单标题：”中输入“效期药品管理”，调整好表单中的各控件的位置，保存为：“效期药品.scx”。

动态查询［2］表单的创建：①创建查询：在项目管理器中，选择［数据］中的［查询］，单击［新建］，选择［查询向导］，依次将“产品”表和“效期”表中的字段加入选定字段中，在为表建立关系中单击［添加］，步骤５时，选择“保存查询并在”查询设计器“修改”，单击［完成］，保存为xqcx.qpr。在查询设计器中，在［字段］中函数和表达式，输入“recno() as 序号”，单击［添加］；选择［排序依据］，选中字段“到期日”添加到排序条件中；选择［筛选］下的字段名中的“产品.通用名”，条件中选择“=”，实例中输入“TYMC”，逻辑中选择“AND”；按键盘中的Tab健，在字段名中选择“效期.检查日期”，在条件中选择“BETWEEN”，在实例中输入“query_order_date1, query_order_date2”；选择主菜单中的［查询］下的［查询去向］，选择“表”，在表名中输入“xqcs”，单击［确定］，关闭查询设计器。②创建查询表单：在项目管理器中选择［文档］中的［表单］，单击［新建］，选择［新建表单］；在表单中单击鼠标右键，在弹出的快捷菜单中选择［数据环境］，将“产品”表和“效期”表添加至数据环境设计器中，关闭［添加表或视图］。

修改表单属性：AutoCenter=.t.，Caption=“动态查询”，Movable=.f.。

向表单中加入3个标签控件，各控件的Caption属性分别设定为“查询日期在”、“和”、“之间”。

向表单中加入表格控件（Grid1），表格控件的ColumnCount属性设置为12，将表格的RecordSourceType改为3-查询（.QPR）。

向表单中添加3个命令按钮控件，其Caption属性分别设置为“开始查询”、“重置条件”、“退出查询”。

（5）创建报表：在项目管理器中选择［文档］中的［报表］，单击［新建］，在［新建报表］对话框中选择［新建报表］，在从主菜单中选择［报表］下拉菜单中的［快速报表］，在弹出的［打开］对话框中，选择［其它］，选择表xqcx.dbf，单击［确定］，在［字段］中选择需要的字段，添加标题为“近效期药品一览表”，保存为“打印浏览.frx”。

本程序模块主要功能的应用简介

（1）录入便捷准确：在“效期录入”表单中，利用父表“产品”表的代码（主索引）和子表“效期”表中代码（普通索引）建立一对多关系。

（2）查询方便快捷：在“近效期查询”表单中，输入检查日期的区间，单击［开始查询］按钮，列表中显示检查日期区间内的近效期药品记录，并按到期日升序排列。

（3）查询条件可及时更新：查询某到期日时段的近效期药品可用以下方法实现：在项目管理器中选择［数据］，在“查询”中选择“xqcx”，单击修改，在弹出的查询设计器中，点击“筛选”，在“字段名”的下拉式菜单中选择“效期到期日”，保存并退出查询。

（4）利用报表“打印浏览”功能可打印“近效期药品一览表”。

总结

（1）VFP6.0数据库是通用的综合性的数据集合，它可以供各种用户共享，且具有最小的冗余度和较高的数据与程序的独立性。利用VFP6.0编制一个软件系统，在建立、运用和维护时对数据库进行统一控制，可用于多种程序并发地使用数据库，保证有效、及时地处理数据，并提供较好的安全性和完整性。

（2）用Visual FoxPro 6.0管理药品有效期和过去人工管理方法相比，优点是：可以迅速查出近期失效药品的品种、药品的有效期或报废日期；利用Visual FoxPro 6.0的打印功能可以定期打印多份，发放到各药品存放部门，以加强管理。

参考文献

1药品说明书和标签管理规定，2006.

2李加福，邸雪峰，桂敏文，等.设计一个动态查询的查询文件. Visual FoxPro 6.0中文版入门与提高，1996，348.