VF高级应用参考答案.docVIP

高级应用 第一题 根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下： 设计一个表单myform003,上有两个命令按钮“查询”和“退出”（名称分别为Command1和Command2）。 （1）单击“查询”命令按钮，查询chengji 数据表中三门课成绩均超过90 的学生信息，包括学生姓名和学生性别；查询结果按学生姓名升序保存在表NEW_TABLE 中。 进行建立表单，添加按钮，设置属性等基本操作。然后设置 “查询”命令按钮Command1 的单击事件代码为 ：select 学生姓名,学生性别 from chengji where 数学90 and 语文90 and 物理90 order by 学生姓名 into table new_table （2）单击“退出”命令按钮关闭表单。 注意：完成表单设计后要运行表单的所有功能。 第二题 根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下： 设计一个名为myform003 的表单，表单的标题为“基本情况浏览表单”。表单中有四个文本框（名称为text1、text2、text3、text4）（设置文本框的controlsource 为对应的字段），四个标签按钮（名称为label1、label2、label3 和label4），其属性caption 值分别为：学号、姓名、性别和班级，三个命令按钮“上一条”、“下一条”和“退出”（名称分别为Command1、Command2 和Command3）。 运行表单时，单击“上一条”则显示表xsqk.dbf 当前记录的上一条记录，单击“下一条”则显示当前记录的下一条。 单击“退出”按钮关闭表单。 注意：完成表单设计后要运行表单的所有功能。 上一条程序代码： skip-1 if recno()=1 mand1.enabled=.F. endif mand2.enabled=.T. thisform.refresh 下一条程序代码： top_rec=recno() go bottom bottom_rec=recno() go top_rec skip if recno()=bottom_rec mand2.enabled=.F. endif mand1.enabled=.T. thisform.refresh 详细参见课本P197 例6-6 第三题 根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下： 设计一个名为“myform003”的表单，表单的标题为“学生基本情况查询表”。表单中有一个列表框（名称为list1）、四个标签（名称为label1、label2、label3、label4，其显示的值分别为：姓名、性别、学院、班级）、四个文本框（名称为text1、text2、text3、text4 分别显示数据表xsxi.dbf 中的选中学生的姓名、性别、学院和班级）。 运行表单时，列表框中双击一个学生学号后，则在右侧文本框中显示其基本情况单击“退出”按钮关闭表单。 注意：完成表单设计后要运行表单的所有功能。 注意：把xsxi.dbf 添加到表单的数据环境中，设置文本框的controlsource 为对应的字段。 列表框控件的Dblclick事件代码： locate for 学号=this.value if found() thisform.text1.value=xsxi.姓名 thisform.text2.value=xsxi.性别 thisform.text3.value=xsxi.学院 thisform.text4.value=xsxi.班级 endif thisform.refresh list1的rowsourcetype改为6-字段，rowsource改为xsxi.学号 详细参见课本P212 例6-14 第四题 根据以下要求，完成综合应用操作，所有文件保存在指定文件夹下： 设计一个名为“myform003”的表单，表单的标题为“职工工资统计”。表单中有一个组 合框（名称为Combo1）、一个表格（名称为Grid1）、一个标签（名称为lable1，内容为“职 称”）、一个命令按钮 “退出”（名称为Command1）。 运行表单时，求出表zggz.DBF 和rsda1 中各种职称职工的平均实发工资和实发工资的 总和。 单击“退出”按钮关闭表单。 注意：完成表单设计后要运行表单的所有功能。 Combol的rowsource：Select Distinct 职称 Form Rsda1 Into Cursor Tmp Combol的rowsourcetype：3-SQL语句 Gird1的recordsoure：Rsgz Grid1的recordsouretype：4-SQl说明 Grid1的columncount：3