Question

vf学生信息查询

运行正确给200分，要有学号，姓名，性别，出生年月，年龄，班级（计算机，共管）籍贯 ，，，，，，，运行好了 给大量的分 谢谢了，

Answer 1

你有没有VF的教材？如果有的话，那上面应该有你想要的。

我给你介绍一个吧。

假如有学生表student和成绩表grade，表的结构如下：
student(学号（C，8），姓名（C，6），性别（L），出生日期（D））
grade（学号（C，8），课程号（C，3），成绩（N，5，1））

然后设计一个进行查询成绩的表单，如图

当输入学生姓名并单击“查询成绩”按钮时，会在右边的表格内显示该同学所选各课的成绩，并在左边相应的文本框内显示其中的最高分、最低分以及平均分。单击“退出”按钮时将关闭表单。

1、在命令窗口输入命令：CREATE FORM 成绩查询， 打开表单设计器窗口。

2、打开数据环境设计器窗口，向数据环境添加表student和表grade。（当然，前提是你有这两张表）

3、在表单上添加各文本框、命令按钮、表格及相关的标签，并进行适当的布置和大小调整。

4、设置各标签、命令按钮以及表单的Caption属性值。

5、将表格的ColumnCount属性值设置为2（共两列）、RecordSourceType属性值设置为“4--SQL说明”

6、将表格内两列标头的Caption属性分别设置为“课程号”和“成绩”，并适当调整两列的宽度。

7、设置“查询成绩”按钮的Click事件代码：

Thisform.Grid1.RecordSource = "select 课程号,成绩 FROM student,grade WHERE student.学号 = grade.学号 AND 姓名 ALLTRIM(Thisform.Text1.Value) INTO CURSOR lsb"

SELECT MAX(成绩) AS maxcj,MIN(成绩) AS mincj,AVG(成绩) AS avgcj FORM lsb INTO CURSOR lsb1

SELECT lsb1
GO TOP

Thisform.Text2.Value = maxcj
Thisform.Text3.Value = mincj
Thisform.Text4.Value = avgcj

8、设置”退出“按钮的Click事件代码：
Thisform.Release

9、保存表单，关闭表单设计器窗口。