二级上机考试课程.ppt

编写事件代码 skip -1 if bof() go top endif thisform.Refresh thisform.Command1.Click事件 skip if eof() go bottom endif thisform.Refresh thisform.Command2.Click事件 thisform.Release thisform.Command3.Click事件 子表：1号区 父表：2号区 [34.3.2]编写程序（文件名：abc3.PRG） select 1 use 成绩 index on 学号 tag xh replace all 平均分 with (英语+计算机)/2 select 2 use 学生 set relation to 学号 into a 打开表，索引，关联，修改 1.利用成绩.dbf的英语和计算机成绩计算平均分。 数据处理（1）—显示 2.显示如下信息。 list fields 学号, 姓名, a.英语, a.计算机, a.平均分 数据处理（2）—查询，显示 3.从键盘输入学号，查询该学生的如下信息。要求程序能多次查询，按Q键退出查询。如果找不到该学生，显示“查无此人！”。 do while .T. accept 请输入学号按Q键退出： to xh if upper(xh)==Qexit endif loc