基于 Visual Foxpro 6.0的学生成绩管理系统

else if b==\

n=messagebox(\请输入密码\学生成绩管理系统登录\do case case n=6

thisform.text2.value=\thisform.text2.setfocus case n=7 thisform.release endcase endif endif

locate for alltrim(新口令表.学号)==alltrim(a) if found()

if alltrim(新口令表.密码)==alltrim(b) do c:\\vfp98\\学生成绩管理系统\\菜单1.mpr thisform.release else

if alltrim(新口令表.权限)==alltrim(b) do c:\\vfp98\\学生成绩管理系统\\zhumenu.mpr thisform.release else

messagebox(\密码错误，请重新输入\学生成绩管理系统登录\

15

errornumber=errornumber+1 endif endif else

messagebox(\用户\不存在！\学生成绩管理系统登陆录\ errornumber=errornumber+1 endif

if errornumber=3

MESSAGEBOX(\您已经输入3次错误，请按确定退出\学生成绩管理系统\ ask=messagebox(\确定要退出吗？\学生成绩管理系统\if ask=6 close all quit else endif endif 退出按钮

ask=messagebox(\确定要退出吗？\学生成绩管理系统\if ask=6 thisform.release else Endif

16

3.4.2成绩数据录入

Form1编写表单的Init时间代码

use c:\\vfp98\\学生成绩管理系统\\成绩表.dbf exclusive go top

thisform.txt学号.enabled=.t. thisform.txt姓名.enabled=.t. thisform.txt学期.enabled=.t. thisform.txt课程名称.enabled=.t. thisform.txt成绩.enabled=.t. 按钮第一个 go top this.enabled=.t.

thisform.command2.enabled=.f. thisform.command3.enabled=.t. thisform.command4.enabled=.t. thisform.command5.enabled=.t. Thisform.refresh 上一个 skip -1

thisform.command1.enabled=.t. thisform.command3.enabled=.t. thisform.command4.enabled=.t.

17

thisform.command5.enabled=.t. if bof()

messagebox(\已经到了表头\提示\this.enabled=.f. else

this.enabled=.t. endif

thisform.refresh 下一个 skip

thisform.command1.enabled=.t. if eof() this.enabled=.f.

messagebox(\已经到了表头\提示\thisform.command1.enabled=.t. thisform.command2.enabled=.t. thisform.command3.enabled=.f. thisform.command5.enabled=.t. thisform.refresh else

this.enabled=.t.

thisform.command1.enabled=.t. thisform.command2.enabled=.t.

18