登陆按钮代码:***一、检查输入的用户名是否存在***1、打开存放用户名及密码的表文件:如user.dbf,然后查找user_name(user.dbf中的保存姓名的字段名),user_p(user.dbf中保存密码的字段名)
use user.dbfif Locate for user_name=val(trhisform.text1.value)=.T. \\如果用户名存在 if val(thisform.text2.value)=user_p
\\检查密码是否正确 ...二、注册新用户三、修改密码。。。。...