Question

VFP制作的登陆界面

IF ALLTRIM(thisform.txtUserName.Value) == '' MessageBox("请输入用户名") RETURNENDIFIF ALLTRIM(thisform.txtUserPwd.Value) == '' MessageBox("请输入密码") RETURNENDIFSELECT 用户表&&查找指定用户名为的记录
public UserName, UserType &&定义全局变量，最好是在主程序中进行定义Locate For Allt(用户名)=Allt(thisform.txtUserName.Value)If Found() == .T. &&如果找到 If Allt(密码) == Allt(thisform.txtUserPwd.Value) &&比较密码，成功则进入 MessageBox("欢迎光临", 64, "提示信息") UserName = 用户名 UserType = 用户类型
&&这里添加你要运行语句 release thisform Else &&比较密码不成功 MessageBox("密码不正确", 16, "错误提示") EndifElse &&没有找到指定用户 MessageBox("用户名不存在", 16, "错误提示")ENDIF
这是登陆程序

为什么总是这样

Answer 1

你应该建一个史为用户表2的表文件，表中有用户名、用户类型、密码三个字段，你设计的这个程序就是用这个表来验证登录信息。

追问

用户类型也要加么，重新建个表？？

追答

没有用户类型，只有用户名和密码
你这个程序是跟着这个表来的，这个表要建到默认的文件夹里，并且执行程序前要将表打开，或者将程序中的select 用户表2,改为use 用户表2