用中文VFP管理有效期药品.docVIP

用中文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”表示，比如：批准文号为：国药准字其代码可编写为120023231，医药产品注册证为Z双字母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）查询条件可及时更新：查询某到期日时段的近效期药品可用以下方法实现：在项