感谢tlliqi的回答！不过我想对用户名和密码可以同时输入字母和数字，不能输入其他字符。而且密码最少要6位

在TEXT1的VALID事件中判断输入的字符是否符合要求，如果不符合要求，重新输入。

密码长度一般是固定的，如果楼主非要密码至少6位，也可以在TEXT1的VALID事件中判断。

请问怎么设置呢？代码怎么写？

这段代码改成如下代码试下

SELECT 用户名,密码,权限 FROM 密码表 WHERE ALLTRIM(用户名)+ALLTRIM(密码)+ALLTRIM(权限)==ALLTRIM(username)+ALLTRIM(userpassword)+ALLTRIM(usertype) INTO CURSOR TEMP
IF RECCOUNT([TEMP])=1
   THISFORM.RELEASE
   do form 主界面.scx
ELSE
   messagebox("用户名或密码错误",48,"登录提示")
   times=times-1  
ENDIF

如果只允许输入数字与字母，并且宽度至少为6位

TEXT1.VALID事件代码
CSTR=ALLTRIM(THIS.VALUE)
NLEN=LEN(CSTR) &&记录输入的密码长度
CSTR=CHRTRANC(CHRTRANC(CSTR,[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789],[]),[]) &&判断密码是否是字母或数字
IF NOT INLIST(LEN(CSTR),NLEN)
   MESSAGEBOX([密码中含有非字母与数字字符])
   RETURN 0
ENDIF

哪里这么麻烦！
文本框的InputMask 属性，设置6个"n"

这个属性值VFP6中是没有的

CSTR=CHRTRANC(CHRTRANC(CSTR,[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789],[]),[])提示参数太少，我是初学者不是很明白

CSTR=CHRTRANC(CSTR,CHRTRANC(CSTR,[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789],[]),[])
不好意思，少写了个CSTR
看下这个CHRTRANC()的用法，
A=CHRTRANC(CSTR,[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789],[])
?A
?CHRTRANC(CSTR,A,[])
分解后看下结果，就明白了。