浅谈应用VFP编程显示药品价格公示的优点.docVIP

精品论文 参考文献 浅谈应用VFP编程显示药品价格公示的优点 范树德（新疆博州人民医院药剂科 833400） 【中图分类号】R197.324【文献标识码】A【文章编号】1672-5085（2012）24-0010-02 【摘要】 笔者从事地州医院药品验收、入库工作25年以来，对医院药品的管理工作不断探索总结，并做过详细的调查研究，除了要做好药品的验收和入库工作以外，必须对患者和前来购买药品的患者负责，到目前为止，一般地州医院使用的都是用喷绘布制作的《药品价格公示栏》，笔者认为有它的不足之处，通过多年的经验和调查患者的需要，笔者认为可以应用VFP编程（Visual FoxPro 6.0）（以下简称VFP）显示药品价格公示较好，其优点是：公示的药品种类比简单喷绘的价格公式多，能够自动调整药品相关数据，药品的名目灵活性提高；患者容易了解，给广大患者提供了优质高效的服务；透明了医院的药品价格，使得个别药品经销商（店）无机可乘。 【关键词】VFP编程 解决 药品 价格 公示 优点 患者 高效 透明 1 具体的编程应用方法 1.1使用医院信息管理系统中的药房库存列表和入库账目的数据，用Visual FoxPro 6.0编写药品价格公示表单，实现药品价格以电子屏形式显示，从而达到了药品价格更新及时、滚动显示的目的。 1.2药品价格公示Visual FoxPro 6.0表单电子屏胡的数据来源与采集 医院使用易通医药管理系统版本6.5，药房库存列表中缺药品的生产企业字段，通过入库账目表获得，现以医院门诊西药房为例，将制作过程报道如下： 在计算机硬盘上新建一个文件夹，命名为“价格公示”。启动VFP，将该文件夹设置为默认目录，用于储存相关项目、表及表单信息和程序。再从易通医药管理系统中导出门诊西药房库存 进入药房管理系统-门诊西药房-库存列表，单击[另存为]按钮，在弹出的对话框的”保存在”中选择以述文件夹，保存类型中选择Dbase 3，文件名中输入kc_mzxyf，点击[保存]按钮保存数据。 1.3从易通医药管理系统中导出入库账目，进入药剂业务管理-药品账目查询-西药库房-入库账目，选择日期并进行检索，单击[入库日期]字段标题使降序排列，在信息栏处单击鼠标右键，在弹出的对话框的”保存在”中选择上述文件夹，保存类型中选择Dbase 3，文件名中输入rk_xy，点击[保存]按钮保存数据。 1.4进入药剂业务管理-药品账目查询-中成药库房-入库账目，选择近五年日期并进行检索，单击[入库日期]字段标题使降序排列，在信息档处单击鼠标右键，在弹出的对话框的”保存在”中选择上述文件夹，保存类型中选择Dbase 3，文件名中输入rk_zcy，点击[保存]按钮保存数据。 1.5表单[1]制作 新建一个表单，保存为“药品公示”，属性设置：Caption=“药品价格公示栏”，Autocenter=.T.，WindowState=2（最大化）。添加２个计时器控件，Interval=2000；添加3个标签控件，其Caption分别设置为“药品价格公示栏”、“本院监督电话：2316341”、“价格举报电话：12358”；添加一个表格控件，设置其ColumnCount属性为8，Grid1.column1～8的Header1属性分别设置为“序号”、“通用名”、“剂型”、“规格”、“单位”、“单价”、“生产企业”、“药品ID”，Alignment=2-居中。最后，调整好各控件的位置和大小。 1.6表单的Init事件代码为 public i,x i=1 x=1 set safety off set talk off SELECT[2]Rk_zcy.item_id,Rk_zcy.sccj,Rk_zcy.rkrq FROM rk_zcy GROUP BY Rk_zcy.item_id, INTO TABLE data\rk_zcy_1.dbf SELECTRk_xy.item_id,Rk_xy.sccj,Rk_xy.rkrq FROM rk_xy GROUP BY Rk_xy.item_id INTO TABLE data\rk_xy_1.dbf seleCTrk_xy_1 append from data\rk_zcy_1.dbf SELECTrecno()as xh,Kc_mzxyf.xmmc,Kc_mzxyf.xmgg,Kc_mzxyf.xmdw,Kc_mzxyf.