欢迎界面表单

要求：“欢迎使用”计时器控件 “学生管理系统”标签

“进入系统”按钮和“退出系统”按钮

点击“退出系统”按钮---------返回到Windows界面 点击“进入系统”按钮进入系统登陆表单

要求：“学生管理系统登陆”，“请输入用户”和“请输入密码”3个标签 2个文本框

“确认”和“退出”两个按钮

当输入帐户和密码正确时，点击“确认“按钮，进入主菜单

9

如果输入密码错误时，显示

当输入三次以后，显示

点击确定后，显示

点击“是”后，退出系统，返回Windows界面。

（1）口令设置表单

确定中写入： use 新口令表

a=Thisform.text1.value b=Thisform.text2.value if a==\

n=messagebox(\请输入用户名\学生管理系统登陆\do case case n=6

thisform.text1.value=\thisform.text1.setfocus case n=7

thisform.release

10

endcase 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(新口令表.Id)==alltrim(a) if found()

if alltrim(新口令表.Ps)==alltrim(b) do 学生管理系统.mpr thisform.release else

messagebox(\密码错误，请重新输入\学生管理系统登陆\ errornumber=errornumber+1 endif else

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

if errornumber=3

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

11

要求：“修改密码”、“输入原密码”、“输出新密码”、“重输新密码”标签 3个文本框 “确定”、“退出”按钮

当点击“确定”按钮后改变当前用户的密码，点击“退出”按钮返回主菜单 数据环境中加入学生信息表

学生成绩表维护同上的代码，数据环境中加入学生成绩表

学生账户管理中浏览学生密码的代码也同上，数据环境中加入口令表 口令表设置用于改密码，代码如下： 确定中写入：LOCAL jj jj=0

for i=1 to 3

s=\ d=\ if empty(thisform.&s..value)

messagebox(thisform.&d..caption+\不能为空\系统提示\ thisform.&s..setfocus ELSE

IF s=\ jj=1 ENDIF ENDIF ENDFOR IF jj=1

select 新口令表 GO top

locate for alltrim(thisform.text1.value)=alltrim(新口令表.id) if found() if alltrim(thisform.text2.value)=alltrim(新口令alltrim(thisform.text3.value)=alltrim(thisform.text4.value) replace 新口令表.ps with ALLTRIM(thisform.text3.Value) MESSAGEBOX(\密码修改成功\系统提示\

12

表.ps)and