二级vf考试试题复习代码记忆.doc

创建一个名为student 的新类，新类的类库名称是mylib.新类的父类是person. Craete class student of mylib as person 在表单中调用菜单： myform.Init编辑窗口中输入do mymenu.mpr with this ，xxx，启动菜单命令。双击Destroy Event，在myform.Destroy编辑窗口中输入release menu xxx extended，在表单退出时释放菜单. 预览报表: report form three preview ALTER TABLE语句用于修改表的结构，其中ADD短语的功能是添加新的字段或索引，UNIQUE短语的功能是指建立候选索引(注意不是唯一索引)，ADD UNIQUE连用表示新增一个候选索引，TAG短语用于指定索引名称。在第4小题中，由题意可知，DO...WHILE循环语句的格式为： DO WHILE 条件 命令序列 ENDDO 增加一个候选索引:将课程表中的课程号定义为候选索引:索引名为temp ALTER TABLE 课程表 ADD UNIQUE 课程号 TAG temp 建立一个从10到1垂直降序排列的数字: i=10 DO while i=1 ? I i=i-1 ENDDO 设置列表中的工资有3000,4000,5000的代码是: 双击表单空白处，编写表单的load事件代码： ********表单的load事件代码********* public a(3) a(1)=3000 a(2)=4000 a(3)=5000 为生成命令按钮编写代码:其功能是根据选项按钮组合组合框内的值，将教师表中满足工资条件的所有记录存入自由表salary.dbf中 双击命令按钮，分别编写生成和退出按钮的Click事件代码。 ******生成按钮的Click事件代码******* x=val(bo1.value) if thisform.optiongroup1.value = 1 sele * from 教师表 where 工资 = x order by 工资 desc,姓名 into table salary else sele * from 教师表 where 工资 x order by 工资 desc,姓名 into table salary endif ************************************* ******退出按钮的Click事件代码******* ThisForm.Release 查询; SELECT Student.姓名, Course.课程名称, Score.考试成绩; FROM student INNER JOIN score; INNER JOIN course ; ON Score.课程编号 = Course.课程编号 ; ON Student.学号 = Score.学号; where cn; ORDER BY Course.课程名称, Score.考试成绩 DESC; INTO TABLE zonghe.dbf 在文本框中输入学号，然后单击查询。如果学号正确在表单右侧以表格的形式显示该生所选课程名和成绩，否则提示”学号不存在，请重新输入。 *查询按钮的Click事件代码****** SELECT course.课程名,score1.成绩; FROM course,score1; WHERE course.课程号=score1.课程号 AND score1.学号= ThisForm.Text1.text; INTO TABLE coruse_cursor IF RECC() = 0 MESSAGEBOX(学号不存在，请重新输入学号) ELSE ThisForm.Grid1.RecordSource=coruse_cursor ThisForm.Grid1.refresh ENDIF 为生成命令按钮编写程序代码，功能是表单运行时根据组合框和选项组中的”系名和计算机内容，将相应的平均工资或总工资存入自由表salary中。结果中包括系名，系号，以及平均工资或总工资3个字段。 双击命令按钮，编写两个命令按钮的Click事件代码。 ******生成按钮的Click事件代码******* x = bo1.value if thisform.optiongroup1.value = 1 SELECT 学院表.系名, 学院表.系号, avg(教师表.工资) as 平均工资; FROM college!学院表 INNER JOIN college!教师表 ; ON 学院表.系号 = 教师表.系号; WHE