VFP6电子教案(7-10篇).ppt

9.1.4 在应用程序中包含菜单 创建了菜单系统后，可将其包含在应用程序中。若要在应用程序中包含菜单，可将.mnx文件添加到项目中，并由项目建立应用程序。 创建并生成了快捷菜单以后，就可将其附加到控件中。当用户在控件上单击鼠标右键时，显示典型的快捷菜单。在控件的Rig-htClick（单击鼠标右键）事件中输入少量代码，即可将快捷菜单附加到特定的控件中。 先选择要附加快捷菜单的控件，然后在“属性”窗口中选择“方法程序”选项卡并选择“RightClick Event”最后在代码窗口中键入Do menu.mpr，其中menu是快捷菜单的文件名。 注意：引用快捷菜单时，必须使用.mpr扩展名。 如在上一节中，在“属性示例”表单的RightClick Event事件代码中添加代码DO Menus\Quickmenu.mpr。 如果想将此快捷菜单应用于所有新创建的表单，则可以修改表单的类定义。步骤如下： （1）打开“项目管理器”并选择“类”选项卡。 （2）选择【添加】，将C:\Program Files\Microsoft Visual Studio\Vfp98\ Wizar-ds\Wizembss.vcx添加到“类”中。 单击【确定】 （3）单击Wizembss类前的“+”号，再选择Embossedform子类 （4）选择“项目管理器”上的【修改】按钮，打开“类设计器” （5）选择“属性”对话框中的“方法程序”选项卡，再选定RightClick Event事件。 （6）双击RightClick Event，打开方法程序代码编辑窗口，在该窗口中输入命令 ： DO MENUS\QUICKMENU.MPR 在【打印】按钮的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 *****上一行命令中加下划线的部分是指定要运行的报表文件名，若不在当前*****目录下，则要加上路径。 ELSE RETURN ENDIF 要注意：建立的Student报表要将其中数据环境中的表移去，即在报表的数据环境中不含有任何表。 对于本例，也可以不用SQL查询语句而直接使用REPORT命令，即将SELECE命令删除，在REPORT语句中增加下列可选项： FOR 班级=THISFORM.COMBO1.VALUE 其中：THISFORM.COMBO1.VALUE是对用户选择的引用。即通过REPORT命令的条件子句，对表中的记录进行筛选，从而达到按用户选择的班级输出报表的目的。 返回 8.4 报表和标签的输出 8.4.1 为控件设置打印选项 8.4.2 为组设置打印选项 返回 退出 8.4.3 控制报表和标签的输出 8.4.1 为控件设置打印选项 总的来说，控件的位置和它所处的带区的位置决定了它打印时的位置和时间。除此之外，还可以为每个控件设置特定的打印选项。每个控件都有一个默认的尺寸，该尺寸或是由它的值（对于字段或标签来说）决定，或是在创建该控件的时候确定（对于线条、矩形或者图形来说）。控件在页面上的长度指定了该控件的显示宽度。由于有些控件的值根据记录的不同而不同，可将控件的高度设置为可向下伸展，以显示整个的值，否则，有些数据将在显示的时候被截断。除了标签控件之外，所有的控件的大小均可变。 1、打印变长度值的控件 为了使控件尽可能少的占用报表的地方，可将其设置为可伸展的。例如，一个表达式的值可能依记录的不同而不同，这时，最好不要在报表上为这个控件分配一个固定的可容最长记录值的空间，而应将控件设置为可伸展，即可容纳所有的数值。对于该控件下方的控件，可将其设置为可向下浮动的。 注意：在如下情况下，某些数据在打印时会被覆盖： （1）将一个域设置为相对于带区底端固定，同时在这个域的下面还有一个域，设置为相对于带区顶端固定并且选择