*判断密码是否正确i=i+1SELECT operatorLOCATE FOR 操作员姓名=ALLTRIM(THISFORM.Text1.Value)DO CASE CASE i<=3 AND FOUND() AND THISFORM.Text2.Value=operator.口令 &&输入次数未超过3次且用户名正确、口令正确 operat=THISFORM.Text1.Value INSERT INTO log(操作员代号,操作员姓名,登录时间) VALUES(operator.操作员代号,operator.操作员姓名,DATETIME()) _SCREEN.Caption="04学生管理系统"+SPACE(40)+DTOC(DATE())+SPACE(40)+"操作员："+operat SELECT 权限 FROM menuright INTO ARRAY rr WHERE 操作员代号=operator.操作员代号 ORDER BY 菜单项编号 RELEASE THISFORM DO main.mpr CASE i<=3 AND FOUND() AND THISFORM.Text2.Value!=operator.口令 &&输入次数未超过3次且用户名正确、口令不正确 MESSAGEBOX("密码错误,请重输!","警告") THISFORM.Text2.Value="" THISFORM.Text2.Setfocus CASE i<=3 AND NOT FOUND() &&输入次数未超过3次且用户名不正确 MESSAGEBOX("操作员姓名错误,请重输!","警告") THISFORM.Text1.Value="" THISFORM.Text2.Value="" THISFORM.Text1.Setfocus CASE i>3 &&输入次数超过3次 MESSAGEBOX("禁止进入系统!","警告") THISFORM.ReleaseENDCASE 

1、在表单中把operator表放入数据环境2、在表单的init中输入public cncn=03、接着在确认的click中输入以下代码if empty(thisform.text1.value) or empty(thisform.text2.value)messagebox('对不起！您输入的信息不完整',48,'信息不全')thisform.text1.value=''thisform.text2.value=''thisform.text1.setfocuscn=cn+1if cn=3thisform.releaseendifelseset order to 操作员姓名seek alltrim(thisform.text1.value)if (operator.口令)=alltrim(thisform.text2.value)thisform.releaseuseelsemessagebox('对不起！您输入的内容不正确',48,'信息不全')thisform.text1.value=''thisform.text2.value=''thisform.text1.setfocuscn=cn+1if cn=3thisform.releaseendifendifendif

谢谢通了