欢迎界面表单
要求：“欢迎使用”计时器控件 “学生管理系统”标签
“进入系统”按钮和“退出系统”按钮
点击“退出系统”按钮---------返回到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