VFP在药品价格电子屏公示中的应用.docVIP

精品论文 参考文献 VFP在药品价格电子屏公示中的应用 范树德 （ 新疆博尔塔拉蒙古自治州人民医院 8 3 3 4 0 0 ） 【摘要】调用我院信息管理系统中的药房库存列表和入库账目的数据，用Visual FoxPro 6.0（以下简称VFP）编写药品价格公示表单，实现药品价格以电子屏形式公示，从而达到了药品价格更新及时、滚动显示的目的。 【关键词】药品价格 价格公示 Visual FoxPro 6.0 表单 电子屏 【中图分类号】R197.324 【文献标识码】B 【文章编号】2095-1752（2012）05-0290-01 我院使用的医院信息管理系统是易通医药管理系统，版本6.5，是新疆易通信息产业有限责任公司的制作的。药房库存列表中缺药品的生产企业字段，通过入库账目表获得。现以我院门诊西药房为例，将制作过程报道如下： 1.数据来源与采集　 在计算机硬盘上新建一个文件夹，命名为“价格公示”。启动V FP，将该文件夹设置为默认目录，用于储存相关项目、表及表单信息和程序。 1.1从易通医药管理系统中导出门诊西药房库存 进入药房管理系统-门诊西药房-库存列表，单击［另存为］按钮，在弹出的对话框的”保存在”中选择以述文件夹，保存类型中选择Dbase 3，文件名中输入kc_mzxyf，点击［保存］按钮保存数据。 1.2从易通医药管理系统中导出入库账目： 1.2.1进入药剂业务管理-药品账目查询-西药库房-入库账目，选择日期并进行检索，单击［入库日期］字段标题使降序排列，在信息栏处单击鼠标右键，在弹出的对话框的”保存在”中选择以述文件夹，保存类型中选择Dbase 3，文件名中输入rk_xy，点击［保存］按钮保存数据。 1.2.2进入药剂业务管理-药品账目查询-中成药库房-入库账目，选择近五年日期并进行检索，单击［入库日期］字段标题使降序排列，在信息档处单击鼠标右键，在弹出的对话框的”保存在”中选择以述文件夹，保存类型中选择Dbase 3，文件名中输入rk_zcy，点击［保存］按钮保存数据。 2.表单[1]制作 新建一个表单，保存为“药品公示”，属性设置：Ca p t i o n=“药品价格公示栏”，Autocenter=.T.，WindowState=2（最大化）。添加２个计时器控件和一个表格控件，计时器控件的In t e r v a l=2000；添加3个标签控件，其Caption分别设置为“药品价格公示栏”、“本院监督电话：2316341”、“价格举报电话：12358”；添加一个表格控件，设置其ColumnCount属性为8，Grid1.column1～8的Header1属性分别设置为“序号”、“通用名”、“剂型”、“规格”、“单位”、“单价”、“生产企业”、“药品ID”，Alignment=2-居中。最后，调整好各控件的位置和大小。 2.1表单的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 FROMrk_zcy GROUP BY Rk_zcy.item_id,INTO TABLE data\rk_zcy_1.dbfSELECT Rk_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 select rk_xy_1 append from data\rk_zcy_1.dbf SELECT recno() as xh, Kc_mzxyf.xmmc,Kc_mzxyf.xmgg,Kc_mzxyf.xmdw,Kc_mzxyf.ypjx,Kc_mzxyf.sell_price,; space(60) as sccj,Kc_mzxyf.itemid FROM kc_mzxyf,INTOTABLE data\mzxyfjggs.dbf Select rk_xy_1 Go Top Do While !Eof() IDNO=Rk_xy_1.item_id SCCJ_1=rk_xy_1.sccj U