资源描述：
《浅谈应用VFP编程显示药品价格公示的优点》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、浅谈应用VFP编程显示药品价格公示的优点范树德（新疆博州人民医院药剂科833400）【中图分类号］R197.324［文献标识码】A【文章编号11672-5085（2012）24-0010-02【摘要】笔者从事地州医院药品验收、入库工作25年以来，对医院药品的管理工作不断探索总结，并做过详细的调查研究，除了要做好药品的验收和入库工作以外，必须对患者和前来购买药品的患者负责，到目前为止，一般地州医院使用的都是用喷绘布制作的《药品价格公示栏》，笔者认为有它的不足之处，通过多年的经验和调查患者的需要，笔者认为可以应用VFP编程（VisualFoxPro
2、6.0）（以下简称VFP）显示药品价格公示较好，其优点是：公示的药品种类比简单喷绘的价格公式多，能够自动调整药品相关数据，药品的名目灵活性提高；患者容易了解，给广大患者提供了优质高效的服务；透明了医院的药品价格，使得个别药品经销商（店）无机可乘。【关键词】VFP编程解决药品价格公示优点患者高效透明1具体的编程应用方法1.1使用医院信息管理系统中的药房库存列表和入库账目的数据，用VisualFoxPro6.0编写药品价格公示表单，实现药品价格以电了屏形式显示，从而达到了药品价格更新及时、滚动显示的目的。1.2药晶价格公示VisualFoxPro6
3、.0表单电子屏胡的数据来源与釆集医院使用易通医药管理系统版木6.5,药房库存列表中缺药品的牛产企业字段，通过入库账目表获得，现以医院门诊西药房为例，将制作过程报道如下：在计算机硬盘上新建一个文件夹，命名为“价格公示”。启动VFP,将该文件夹设置为默认目录，用于储存相关项目、表及表单信息和程序。再从易通医药管理系统中导出门诊西药房库存进入药房管理系统■门诊西药房■库存列表,单击［另存为］按钮，在弹出的对话框的”保存在”中选择以述文件夹，保存类型中选择Dbase3,文件名中输入kc_mzxyf，点击［保存］按钮保存数据。1.3从易通医药管理系统中导
4、出入库账目，进入药剂业务管理■药品账目查询■西药库房■入库账目，选择日期并进行检索，单击［入库日期］字段标题使降序排列，在信息栏处单击鼠标右键，在弹出的对话框的”保存在”中选择上述文件夹，保存类型中选择Dbase3,文件名中输入rk_xy,点击［保存］按钮保存数据。1.4进入药剂业务管理■药品账0查询■中成药库房•入库账目，选择近五年日期并进行检索，单击［入库日期］字段标题使降序排列，在信息档处单击鼠标右键，在弹出的对话框的”保存在”中选择上述文件夹，保存类型中选择Dbase3,文件名中输入rk_zcy,点击［保存］按钮保存数据。1.5表单⑴制
5、作新建一个表单，保存为“药品公示”，属性设置：Caption=“药品价格公示栏”,Autocenter=.T.,WindowState=2（最大化）。添加2个计时器控件，Interval二2000；添加3个标签控件，其Caption分别设置为“药品价格公示栏”、“本院监督电话：2316341”、“价格举报电话:12358"；添加一个表格控件，设置其ColumnCount属性为8,Gridl.column1〜8的Headerl属性分别设置为“序号”、“通用名”、“剂型”、“规格”、“单位”、“单价”、“生产企业”、“药品ID”,Alignment
6、=2-居中。最后，调整好各控件的位置和大小。1.6表单的Init事件代码为publici,xi=lx=lsetsafetyoffsettalkoffSELECT[2]Rk_zcy.item_idzRk_zcy.sccjzRk_zcy.rkrqFROMrk_zcyGROUPBYRk_zcy.itemINTOTABLEdatark_zcy_l.dbfSELECTRk_xy.item」d,Rk_xy.sccj,Rk_xy.rkrqFROMrk_xyGROUPBYRk_xy.item_idINTOTABLEdatark_xy_l.dbfseleCT
7、rk_xy_lappendfromdatark_zcy_l.dbfSELECTrecno()asxh,Kc_mzxyf・xmmc,Kc_mzxyf・xmgg,Kc_mzxyf・xmclw,Kc_mzxyf・ypjx,Kc_mzxyf・sell_price,；space(60)assccj,Kc_mzxyf.itemidFROMkc_mzxyf,INTOTABLEdatamzxyfjggs.dbfSeleCTrk_xy_lGoTopDoWhile!Eof()IDNO=Rk_xy_l.item_idSCCJ_l=rk_xy_l.sccjUpda
8、temzxyfjggsSetmzxyfjggs.sccj=SCCJ_lWheremzxyfjggs.itemid=IDNOSkipEndDousese
