If Not Found()

Append Blank

Endif

Replace 姓名 With "平均分",英语 With c1,高数 With c2,管理运筹学 With c3,电子商务 With c4,c语言 With c5,总分 With c6,平均分 With c7

Replace 学号 With "0920014026" Thisform.Refresh

最后查询按键Click事件过程：

Do form f:\vfp98\cx

单击学生成绩表单中的“查询”按钮，就会出现“查询”表单，在“查询”表单中输入要查询的人名，然后单击“确定”按钮，就会出现要查询学生的信息，图8-1。

图 8-1