“退出”的click事件代码：
Release thisform
按班级查询的结果浏览：
实现功能：显示查询的结果。
“关闭”的click事件代码： Release thisform
Form1的Init事件的代码：
thisform.grid1.recordsourcetype=4 thisform.grid1.recordsource=c thisform.grid1.refresh thisform.top=80 thisform.left=300
学生学籍查询
实现功能：学生查询自己的信息。
thisform.text1.setfocus “查询”的click事件代码：
a=a+1 else locate for alltrim(学生密码表.学 =messagebox(\对不起，您只能查自己的号)==alltrim(thisform.text1.value) 学籍！\严重警告\
quit if found () and alltrim(学生密码表.密
endif 码)==alltrim(thisform.text2.value)
b=recno() endif do form 学生查询结果浏览.scx “关闭”的click事件代码： release thisform Release thisform else Form1的init事件的代码： if a<3 then thisform.text1.setfocus
public a as integer =messagebox(\学号或密码错误，请重新
a =0 输入！\警告\
thisform.text1.value=\public b as integer thisform.text2.value=\thisform.top=80 thisform.refresh thisform.left=300
学生查询结果浏览：
实现功能：查询结果浏览。
“退出”的click事件 代码： Release thisform
Form1 的init事件的代码： go b
thisform.top=80 thisform.left=300
（老师）学籍录入
实现功能：对学生学籍进行录入。
程序设计实习报告
“增加”的click事件代码：
if((alltrim(thisform.text1.value)==\xt7.value)==\
=messagebox(\学号、姓名、班级必须填充！！！\提示\ else
locate all for alltrim(thisform.text1.value)== alltrim(毕业生学籍.学号) if !eof()
=messagebox(\此学号已经存在，请重新输入！\提示\ thisform.text1.value=\ thisform.text1.setfocus else
sele 毕业生学籍 append blank
replace 学号 with alltrim(thisform.text1. value) replace 姓名 with alltrim(thisform.text6. value) replace 班级 with alltrim(thisform.text7. value) replace 入学方式 with alltrim(thisform. text2.value) replace 入学成绩 with val(thisform. text8.value) replace 高中学校 with alltrim(thisform. text9.value) replace 家长姓名 with alltrim(thisform. text3.value)
replace 家长联系方式 with alltrim (thisform.text10.value) replace 应试外语 with alltrim(thisform.text4.value) replace 外语水平 with alltrim(thisform.text11.value) replace 就业去向 with alltrim(thisform.text12.value) replace 邮政编码 with alltrim(thisform.text5.value) replace 在校表现 with alltrim(thisform.edit1.value) messagebox(\修改成功\提示\ endif endif
thisform.refresh
“下一个”的click事件代码： thisform.text1.value=\thisform.text2.value=\thisform.text3.value=\thisform.text4.value=\thisform.text5.value=\thisform.text6.value=\thisform.text7.value=\thisform.text8.value=\thisform.text9.value=\thisform.text10.value=\thisform.text11.value=\thisform.text12.value=\thisform.edit1.value=\
程序设计实习报告
thisform.refresh
“返回”的click事件代码： Release thisform
Form1的init事件的代码： thisform.top=80 thisform.left=300
(老师)学籍维护：
实现功能：对学生学籍进行维护。
“第一个“的click 事件代码： go top
thisform.refresh this.enabled=.f.
thisform.command2.enabled=.f. thisform.command1.enabled=.t. thisform.command4.enabled=.t. thisform.command5.enabled=.t. thisform.command6.enabled=.t. thisform.command7.enabled=.t. thisform.command8.enabled=.t. “上一个“的click 事件代码： skip -1
thisform.command5.enabled=.t. thisform.command6.enabled=.t. thisform.command7.enabled=.t. thisform.command8.enabled=.t. thisform.command3.enabled=.t. thisform.command4.enabled=.t.
thisform.command1.enabled=.t. if bof( )
messagebox(\已经到第一个!\thisform.command2.enabled=.f. thisform.command3.enabled=.f. endif
thisform.refresh
“下一个“的click 事件代码： skip
thisform.command2.enabled=.t. thisform.command3.enabled=.t. thisform.command4.enabled=.t. thisform.command5.enabled=.t. thisform.command6.enabled=.t. thisform.command7.enabled=.t. thisform.command8.enabled=.t. if eof( )
messagebox(\已经到最后一条!\thisform.command1.enabled=.f.