辽工大专升本《Visual FoxPro 6.0程序设计教程电子教案》第9章.pptVIP

若将报表加入到应用程序时，有以下几种选择： ■如果只是想让用户简单地启动报表并得到打印结果，可以把REPORT命令添加到表单控件、菜单命令或工具栏按钮中。 ■如果报表中用到的某些变量允许用户输入，则可以像参数化查询那样从用户那里获得变量的值,或从表单中某些文本框获得变量值等。 ■如果想让用户创建自定义报表，可以向用户提供使用报表设计器创建新报表或修改已有报表的能力。 若要运行报表和标签，则要使用REPORT或LABEL命令。 1、REPORT命令 格式：REPORT FORM 报表文件名/？ [范围] [FOR 条件] [WHILE 条件] [HEADING 标题文本] [PREVIEW [WIINDOW 窗口名]] [TO PRINTER [PROMPT]]/[TO FILE 文件名 [ASCII]] [SUMMARY] 功能：根据报表定义文件显示或打印报表。 参数描述： 报表文件名：指定报表定义文件的名称。 ?：显示“打开”对话框，从中可以选择报表文件。 [HEADING 标题文本]：指定放在报表每页上的附加标题文本。 PREVIEW [WIINDOW 窗口名]：以页面预览方式显示报表，而不把报表送到打印机中打印。 TO PRINTER [PROMPT]：把报表送到打印机打印。包含PROMPT子句在打印前显示设置打印机的对话框。可调整的打印设置取决于当前安装的打印机驱动程序。 TO FILE 文件名 [ASCII]：指定报表要送往的文本文件。包含ASCII子句可用报表定义文件创建一个ASCII文本文件。 SUMMARY：不打印细节行，只打印总计和分类总计信息。 例如，要将当前目录中的Student报表送到打印机打印出来，可使用下面的命令： REPORT FORM Student TO PRINTER PROMPT 功能：根据表文件和标签文件打印标签。 参数描述： FORM 标签文件名：指定要打印的标签所对应的标签定义文件名。若标签定义文件不在当前目录中，则必须指定目录。 FORM ？：显示“打开”对话框，从中可以选择一个已经定义了的标签定义文件。 PREVIEW NOWAIT：在预览窗口中显示标签而不打印。若包含可选项NOWAIT，则在运行时VFP将不等待关闭“页面预览”窗口，而是在该窗口打开的情况下继续往下执行。 SAMPLE：显示并打开一个样本来检验标签的对齐方式。 TO PRINTER [PROMPT]：把标签送到打印机打印。包含PROMPT子句在打印前显示设置打印机的对话框。 2、LABEL命令 格式：LABEL [FORM 标签文件名/FORM ？] [范围] [FOR 条件] [WHILE 条件] [PREVIEW NOWAIT] [SAMPLE] [TO PRINTER [PROMPT]] 返回 9.3.2 用查询收集用户输入 以打印学生情况报表为例，说明用查询收集用户输入的方法。在Student.dbf表中如果有很多的记录，而在打印报表时又不想一次将所有记录打印出来，而只想以班级为单位有选择性的打印，则可以先建立表单如图所示。 在Combo1组合框中，将RowSourceType属性设置为3-SQL语句，将RowSo-urce属性设置为： SELECT DISTINCT 班级 FROM STUDENT INTO CURSOR BJCX 通过SQL查询语句，将Student表中所有的班级在Combo1组合框中列出来供用户操作时进行选择。其中BJCX为保存查询结果的临时表文件名，若省略INTO CURSOR BJCX子句，则在执行表单时，SELECT命令执行的结果将会在浏览窗口中显示。 在【打印】按钮的Click事件中添加如下代码： SELECT * FROM STUDENT WHERE STUDENT.班级=THISFORM.COMBO1.VALUE; INTO CURSOR CURSOR_BJ 用查询收集用户的输入 *****以下程序是由用户选择是预览报表还是要打印报表***** MM=MESSAGEBOX(想要预览“STUDENT”报表吗？,35,打印Student报表) IF MM=6 REPORT FORM D:\XSGLXT\REPORTS\STUDENT PREVIEW ELSE IF MM=2 RETURN ENDIF ENDIF MM=MESSAGEBOX(想要打印“STUDENT”报表吗？,33,打印Student报表) IF MM=1 REPORT FORM D:\XSGLXT\REPORTS\STUDENT TO PRINTER PROMPT *****上一行命令中加下划线的部分是指定要运行的报表文件名，若