主题:拜求一道表单题目,拜谢了!
题目:
现有学生表stu和成绩表gra,表的结构如下
stu(学号(c,8),姓名(c,8),性别(c,2))
gra(学号(c,8),课程号(c,3),成绩(n,5))
请设计一个能进行查询统计的表单bgbd.scx,当输入学生姓名并单击“统计查询”按钮时,会在右边的表格控件内显示出该同学所选课程的成绩,并在左边相应的文本框内显示最高分,最低分,平均分
小弟想问下格纹大侠,为什么这段代码显示不出来啊,表格控件始终是空的啊!
thisform.grid1.recordsource = "sele 课程号,成绩 from stu,gra into where stu.学号 = gra.学号 .and. 姓名 = alltrim(thisform.text1.value) into cursor lsb"
sele max(成绩) as maxcj,min(成绩) as mincj,avg(成绩) as avgcj from lsb into cursor lsb1
sele lsb1
go top
thisform.text2.value = maxcj
thisform.text3.value = mincj
thisform.text4.value = avgcj
thisform.refresh
现有学生表stu和成绩表gra,表的结构如下
stu(学号(c,8),姓名(c,8),性别(c,2))
gra(学号(c,8),课程号(c,3),成绩(n,5))
请设计一个能进行查询统计的表单bgbd.scx,当输入学生姓名并单击“统计查询”按钮时,会在右边的表格控件内显示出该同学所选课程的成绩,并在左边相应的文本框内显示最高分,最低分,平均分
小弟想问下格纹大侠,为什么这段代码显示不出来啊,表格控件始终是空的啊!
thisform.grid1.recordsource = "sele 课程号,成绩 from stu,gra into where stu.学号 = gra.学号 .and. 姓名 = alltrim(thisform.text1.value) into cursor lsb"
sele max(成绩) as maxcj,min(成绩) as mincj,avg(成绩) as avgcj from lsb into cursor lsb1
sele lsb1
go top
thisform.text2.value = maxcj
thisform.text3.value = mincj
thisform.text4.value = avgcj
thisform.refresh