Question

VF 找不到变量 求解啊 非常感谢 Visual Foxpro 7.0

我在做一个公司信息管理的数据库：
先登录系统，登陆成功的话，再根据登陆者的权限级别（A,B,C,D）来确定登陆者的访问权限（分为三个部门:员工,财务，市场）。账号表Login.bdf 里面有三个字段（user，mima,jibie）。
下面是登陆界面的“确定”按钮的click代码：
UNname=thisform.Txt用户名.Value
Pwd=thisform.Txt密码.Value

CLOSE TABLES ALL
USE Login.dbf
SET exact on

dimension s(10)
FOR i=1 TO 10 step 1
s(i)=''
ENDFOR

Select * FROM Login WHERE (Login.user=UNname AND Login.mima=Pwd) INTO ARRAY s
qx=Login.jibie
if s(1)='' then
MESSAGEBOX([ 不让进，就是不让进],0+16,[温馨提示])
ELSE
CLOSE tables all
DO FORM slecttable with qx
thisform.Release
ENDIF

下面是“部门导航”表单的INIT代码：
LPARAMETERS qx
qx=ALLTRIM(qx)

IF qx=A then
thisform.Commandgroup1.Cmd财务.Enabled= .T.
thisform.Commandgroup1.Cmd市场营销.Enabled= .T.
thisform.Commandgroup1.Cmd员工.Enabled= .T.
ENDIF
IF qx=B then
thisform.Commandgroup1.Cmd财务.Enabled= .F.
thisform.Commandgroup1.Cmd市场营销.Enabled= .F.
thisform.Commandgroup1.Cmd员工.Enabled= .T.
ENDIF
IF qx=C then
thisform.Commandgroup1.Cmd财务.Enabled= .T.
thisform.Commandgroup1.Cmd市场营销.Enabled= .F.
thisform.Commandgroup1.Cmd员工.Enabled= .F.
ENDIF
IF qx=D then
thisform.Commandgroup1.Cmd财务.Enabled= .F.
thisform.Commandgroup1.Cmd市场营销.Enabled= .T.
thisform.Commandgroup1.Cmd员工.Enabled= .F.
ENDIF

当然在每一个“部门导航”页面上的各个按钮上都有：do form ~的代码

但是在运行登陆表单，登陆成功是显示的却是:找不到变量"A”
请问这是为什么啊？？？
太感谢了 很急

Answer 1

感觉是程序错误了
IF qx=A
应该改为
IF qx='A'

同理，下面的
IF qx=B
也类似的改为字符串