欢迎来到天天文库
浏览记录
ID:11690580
大小:42.50 KB
页数:5页
时间:2018-07-13
《二级vf考试试题复习代码记忆》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、创建一个名为student的新类,新类的类库名称是mylib.新类的父类是person.Craeteclassstudentofmylibasperson在表单中调用菜单:"myform.Init"编辑窗口中输入"domymenu.mprwiththis,'xxx'",启动菜单命令。双击"DestroyEvent",在"myform.Destroy"编辑窗口中输入"releasemenuxxxextended",在表单退出时释放菜单.预览报表:reportformthreepreviewALTERTABLE语句用于修改表的结构,其中ADD短语的功能是添加新的字段或索引,U
2、NIQUE短语的功能是指建立候选索引(注意不是唯一索引),ADDUNIQUE连用表示新增一个候选索引,TAG短语用于指定索引名称。在第4小题中,由题意可知,DO...WHILE循环语句的格式为:DOWHILE<条件><命令序列>ENDDO增加一个候选索引:将课程表中的课程号定义为候选索引:索引名为tempALTERTABLE课程表ADDUNIQUE课程号TAGtemp建立一个从10到1垂直降序排列的数字:i=10DOwhilei>=1?Ii=i-1ENDDO设置列表中的工资有3000,4000,5000的代码是:双击表单空白处,编写表单的load事件代码:********
3、表单的load事件代码*********publica(3)a(1)="3000"a(2)="4000"a(3)="5000"为生成命令按钮编写代码:其功能是根据选项按钮组合组合框内的值,将教师表中满足工资条件的所有记录存入自由表salary.dbf中双击命令按钮,分别编写"生成"和"退出"按钮的Click事件代码。******"生成"按钮的Click事件代码*******x=val(thisform.combo1.value)ifthisform.optiongroup1.value=1sele*from教师表where工资>=xorderby工资desc,姓名into
4、tablesalaryelsesele*from教师表where工资5、re&cn;ORDERBYCourse.课程名称,Score.考试成绩DESC;INTOTABLEzonghe.dbf在文本框中输入学号,然后单击查询。如果学号正确在表单右侧以表格的形式显示该生所选课程名和成绩,否则提示”学号不存在,请重新输入。*"查询"按钮的Click事件代码******SELECTcourse.课程名,score1.成绩;FROMcourse,score1;WHEREcourse.课程号=score1.课程号ANDscore1.学号=ThisForm.Text1.text;INTOTABLEcoruse_cursorIFRECC()=0MESSAGE6、BOX("学号不存在,请重新输入学号")ELSEThisForm.Grid1.RecordSource="coruse_cursor"ThisForm.Grid1.refreshENDIF为生成命令按钮编写程序代码,功能是表单运行时根据组合框和选项组中的”系名和计算机内容,将相应的平均工资或总工资存入自由表salary中。结果中包括系名,系号,以及平均工资或总工资3个字段。双击命令按钮,编写两个命令按钮的Click事件代码。******"生成"按钮的Click事件代码*******x=thisform.combo1.valueifthisform.optiongroup17、.value=1SELECT学院表.系名,学院表.系号,avg(教师表.工资)as平均工资;FROMcollege!学院表INNERJOINcollege!教师表;ON学院表.系号=教师表.系号;WHERE学院表.系名=x;GROUPBY学院表.系号;INTOTABLEsalary.dbfelseSELECT学院表.系名,学院表.系号,sum(教师表.工资)as总工资;FROMcollege!学院表INNERJOINcollege!教师表;ON学院表.系号=教师表.系号;WHERE学院表.系名=x;GROUPBY学院表.系号;
5、re&cn;ORDERBYCourse.课程名称,Score.考试成绩DESC;INTOTABLEzonghe.dbf在文本框中输入学号,然后单击查询。如果学号正确在表单右侧以表格的形式显示该生所选课程名和成绩,否则提示”学号不存在,请重新输入。*"查询"按钮的Click事件代码******SELECTcourse.课程名,score1.成绩;FROMcourse,score1;WHEREcourse.课程号=score1.课程号ANDscore1.学号=ThisForm.Text1.text;INTOTABLEcoruse_cursorIFRECC()=0MESSAGE
6、BOX("学号不存在,请重新输入学号")ELSEThisForm.Grid1.RecordSource="coruse_cursor"ThisForm.Grid1.refreshENDIF为生成命令按钮编写程序代码,功能是表单运行时根据组合框和选项组中的”系名和计算机内容,将相应的平均工资或总工资存入自由表salary中。结果中包括系名,系号,以及平均工资或总工资3个字段。双击命令按钮,编写两个命令按钮的Click事件代码。******"生成"按钮的Click事件代码*******x=thisform.combo1.valueifthisform.optiongroup1
7、.value=1SELECT学院表.系名,学院表.系号,avg(教师表.工资)as平均工资;FROMcollege!学院表INNERJOINcollege!教师表;ON学院表.系号=教师表.系号;WHERE学院表.系名=x;GROUPBY学院表.系号;INTOTABLEsalary.dbfelseSELECT学院表.系名,学院表.系号,sum(教师表.工资)as总工资;FROMcollege!学院表INNERJOINcollege!教师表;ON学院表.系号=教师表.系号;WHERE学院表.系名=x;GROUPBY学院表.系号;
此文档下载收益归作者所有