VFP程序设计实习报告(7)

“退出”的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.

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VFP程序设计实习报告(7)在线全文阅读。