我在一本书上看到了下面的系统登录的程序，有一个if语句我没有考虑明白。我把程序贴在下面。我的问题是为什么要这个if vartype(kk(1))<>"L"  ？如果kk（1）是逻辑型，会出现什么？


cName=alltrim(thisform.text1.value)
cPassword=alltrim(thisform.text2.value)
dimension kk(2)
select 口令,权限 from 系统用户 where alltrim(用户名)==cName into array kk  


if vartype(kk(1))<>"L"    &&判断数据类型  逻辑型


    if alltrim(kk(1))==cPassword
        messagebox("登录成功!",64,"用户登录验证")  
        *保存当前用户信息，下列变量在系统主文件中定义
        p用户权限=kk(2)
        pLogon=.T.                        &&pLogon为.T.表示登录成功
        thisform.release                    &&关闭登录对话框        
    else
        messagebox("口令输入错误！",16,"用户登录验证")  
        thisform.text2.value=""
        thisform.text2.setfocus
    endif   
else
    messagebox("用户名输入错误！",16,"用户登录验证")
    thisform.text1.selstart=0
    thisform.text1.sellength=len(cName)
    thisform.text1.setfocus
endif

kk 是数组
这样测试看看
dimension kk(2)
? kk

“... array kk”把搜索到的记录复制到数组“kk”
如果“select 口令,权限”没有查询到符合条件的记录，这个数组“KK”是个空壳，相当于一个表里面没有记录，kk(1)的值就是 .F.

select ...... into array kk
if vartype(kk(1))<>"L"

这属于初级水平用法，if 的判断准确性严重依赖 kk 数组初始值状态，如果在 select ,,, into array kk 之前使用过 kk，其初始值将无法预料
正确的写法应该是
select ...... into array kk
if _tally > 0

2. if alltrim(kk(1))==cPassword 更不用说了，数据库里居然存储口令明码

[此贴子已经被作者于2026-5-16 14:20编辑过]