发布时间 : 星期六 文章基于 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