课程名; FROM course; INTO CURSOR temp" **************************************************** CASE THISFORM.optiongroup1.VALUE=2 THISFORM.grid1.RecordSource="; SELECT ,; FROM student; INTO CURSOR temp" **************************************************** CASE THISFORM.optiongroup1.VALUE=3 THISFORM.grid1.columncount=3 THISFORM.grid1.column3.header1.Caption="成绩" THISFORM.grid1.RecordSource="; SELECT student.,course.课程名,score.成绩; FROM score INNER JOIN student; ON score.=student.; INNER JOIN course; ON score.
课程号=course.课程号; INTO CURSOR temp" **************************************************** ENDCASE
题目:设计文件名为form1的表单.表单的标题为"平均成绩排序".表单中有一个选项
组控件和两个命令按钮"排序"和"退出".其中,选项组控件有两个按钮"升序"和"降序". 运行表单时,在选项组控件中选择"升序"或"降序"单击"排序"命令按钮后,对考生文件 夹下的数据库"成绩管理"中的"分数"表统计每个学生的平均成绩,统计结果中包括"", " "和"平均"成绩,并对"平均成绩"按照升序或降序(根据所选的选项组控件)排序,并将查 询结果分别存入表table1或表table2中. 单击"退出"按钮关闭表单.
排序代码: ENDCASE IF THISFORM.optiongroup1.VALUE=1 &;&;选择了第一项 SELECT 分数.,学生.,AVG(分数.成绩) AS 平均成绩; FROM 分数 INNER JOIN 学生 ON 分数.=学生. GROUP BY 分数. ORDER BY 平均成绩 INTO TABLE table1 &;&;SQL 语句要在一行中 &;&;将数据按照"平均成绩"升序取到新表 table1 ELSE &;&;选择了第二项 ****************************************** SELECT 分数.,学生.,AVG(分数.成绩) AS 平均成绩; FROM 分数 INNER JOIN 学生 ON 分数.=学生.; GROUP BY 分数. ORDER BY
平均成绩 DESC INTO TABLE table2 &;&;将数据按照"平均成绩"降序取到新表 table2 ENDIF s
计算代码: r=val(thisform.text1.value) if thisform.optiongroup1.option1.value=1 c=3.14*2*r thisform.text2.value=c else s=r*r*3.14 thisform.text2.value=s endif
题目: 对school数据库中的表course, student和score,建立文件名为form1的表单,标题为" 成绩浏览",表单上有3个命令按钮"成绩","个人成绩"和"退出". 单击"成绩"按钮,查询"计科院"所有学生的"考试成绩",结果中含"","课程编 号"和"成绩"等字段,查询结果保存在表tablel中. 单击"个人成绩"按钮,查询"成绩"表中各人的"平均成绩",结果中包括字段"","课 程名称"和"成绩",
查询结果保存在表table2中.
成绩代码:SELECT score.* FROM score; INNER JOIN student; ON score.=student.; WHERE student.="计科院"; INTO TABLE table1 个人成绩代码:SELECT student.,course.课程名,AVG(score.成绩) AS 个人成绩; FROM score INNER JOIN student; ON score.=student.; INNER JOIN course; ON course.课程号=score.课程号; INTO TABLE table2 对考生目录下的数据库 rate 建立文件名为 myf 的表单.表单含有一个表格控件,用于显示用 户查询的信息;表单上有一个按钮选项组,含有"外币浏览", "个人持有量"和"个人资产"三个选 项按钮:表单上有一个命令按钮,标题为"浏览". 当选择"外币浏览"选项按钮并单击"浏览"按钮时,在表格中显示"汇率"表的全部字段;选择"个 人持有量"选项按钮并单击"浏览"按钮时,表格中显示"数量"表中的"","汇率"表中的"外 币名称"和"数量"表中的"持有数量";选择"个人资产"选项按钮并单击"浏览"按钮时,表格中显 示"数量"表中每个人的"总资产"(每个人拥有的所有外币中的每种基准价*持有数量的总和). 单击"关闭"按钮退出表单.
DO CASE CASE Thisform.Optiongroup1.Value=1 SELECT *; FROM 汇率; INTO CURSOR temp Thisform.Grid1