大哥大姐，谁有用VF做的系统登录密码验证的Click Event代码。如果有用可以再增加分数的！有急用！谢谢

来源：百度知道 编辑：UC知道 时间：2024/06/05 06:19:47
PUBL i
i=0
set exact on
select 用户管理
locate for thisform.text1.value=用户名 and thisform.text2.value=密码
if !eof()
messagebox("欢迎使用本系统！",48)
thisform.release
do form 基本信息.scx
else
if thisform.i<2
messagebox("内容有误，请重新输入！",48)
thisform.i=thisform.i+1
thisform.text1.value=""
thisform.text2.value=""
else
messagebox("你不是本系统的合法用户，禁止进入本系统！",48)
thisform.release
close all
endif
endif
这个是我自己写的，可是运行的时候有问题，大哥大姐都帮忙看看啊
运行的时候提示找不到别名“用户管理”，表和表单都有。

还有一些问题：如何设计系统的主界面和主控程序，是高校档案管理系统！能提供文字和图片说明最好！

*判断密码是否正确
i=i+1
SELECT operator
LOCATE 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="05计专学生管理系统"+SPACE(40)+DTOC(DATE())+SPACE(40)+"操作员："+operat
SELECT 权限 FROM menuright INTO ARRAY rr WHERE 操作员代号=operator.操作员代号 ORDER BY 菜单项编号
RELEASE THISFORM
DO .\main\main_menu.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=""
THISFO