Vf查询结果间接输出方法.docVIP

Vf查询结果间接输出方法 　　[摘要]介绍VF程序开发中，如何通过快捷方法实现数据查询结果的输出，即分别输出到打印机和输出到文件的方法和思路。 　　[关键词]VF 数据查询 打印 文件输出 　　中图分类号：TP3文献标识码：A 文章编号：1671－7597 (2008) 0220045－01 　　Visual FoxPro（以下简称为VF）是一款面向对象的数据库应用系统开发工具，特别适合开发中小型信息管理系统。VF在教育、机关、企事业等信息管理领域等都有着重要的应用。在开发中小型信息管理系统的过程中，为了实现数据查询结果的打印和文件的输出往往需要大量的程序代码，掌握起来较困难。介绍一种间接实现打印和文件输出的便捷方法。 　　下面以一个校友录系统的查询为例来具体介绍：假设建立一表名为校友录。dbf的校友信息表，表单界面设计如图1所示，设计三个按钮分别为查询、打印结果、保存结果。 　　 　　一、实现查询结果的打印 　　 　　VF可以直接通过向导来创建报表，并通过报表实现对数据表的打印。但通过报表实现的打印，一般情况下不容易实现交互式或针对特定数据结果的打印。对于特定条件下的数据查询结果，可以转换思路，通过间接途径实现打印。思路是：把查询结果存储在临时表中，以临时表来做为报表的数据源，从而通过临时表实现间接和精确的数据打印。 　　下以查询出所有姓名中含有“王”字的校友并打印为例，介绍间接打印实现的步骤。 　　第一步，进行查询。设置查询按钮的click事件代码如下： 　　usemame=alltrim（thisform．text1．value） 　　if isblank（username） 　　messagebox（”请输入关键字!”） 　　else 　　SELECT * from 校友录where校友录．姓名like ％usemame％ ； 　　into cursor temp 　　thisform.grid1．recordsource=”temp” 　　thisform．refresh 　　endif 　　本步骤，用isblank（）函数检测文本框输入是否为空值，如果为空则提示键入关键字，如果正确输入关键字，则把数据查询结果写入到临时表temp中，并显示在表格中。 　　第二步，建立报表。目的是设计符合打印格式和要求的报表。方法：使用报表向导，以校友录。dbf作为数据环境建立一个报表，可以根据需要，更改内容呈现方式、信息结构，以控制打印格式，数据显示样式等，建立完成后删除报表数据环境，并保存报表为printxy1．frx。 　　第三步，实现打印。设置打印结果按钮的crick事件代码如下： 　　select temp 　　report form printxy1．frx to print noconsole 　　总之，上面简单的三个步骤即可实现数据查询结果的准确打印。中间环节借助临时数据表temp实现数据的传递，把存储数据查询结果的临时表作为报表的数据源，通过报表实现精确打印。打印的实现最终是利用VF强大的报表功能。 　　 　　二、实现查询结果的文件输出 　　 　　查询结果存储为文件，同样可以利用临时表，保存查询结果并输出到文件。下面以把查询结果保存为EXCEL文件为例介绍。当用户执行查询时，程序执行即可把结果写入临时表，因此获得数据查询结果文件，只要获取并保存临时表中的数据就可以实现。也就说把查询结果保存到文件，从而转化为保存临时表中的数据，通过getfile（）函数获得文件保存路径，把临时表内容写入到文件中即可。保存结果的click事件代码如下： 　　x=getfile（xls ） 　　copy to ”x．” sdf 　　上面代码实现当前临时表中的数据自动写入到磁盘文件中。单击按钮运行时会弹出保存对话框，输入自定义的文件名即可。其中getfile（）中定义了保存文件的类型，这儿设置为xls即为Excel文件的扩展名，如果要把输出结果保存为Word文档或记事本文件，这儿只要把EXCEL文件的扩展名xls相应的修改为对应文件的扩展名doc或txt。 　　 　　三、程序控制 　　 　　以上介绍了把查询结果输出到打印机和文件的简单方法，尽管功能基本实现了，但面对用户而言，程序还不够完善，缺少必要的程序控制。如果用户先单击了打印结果或保存结果，而没有正常先执行查询，此时临时表temp没有内容，从而导致打印出空白页面或输出空文件。为了保证先查询后输出，需要控制程序的运行流程。 　　实现方法：可以通过一个变量来控制程序的执行，在主表单创建时定义一个变量存贮查询状态。如在form1的Init事件中定义个公共变量I，即在代码如下： 　　public i 　　i=0