Question

Visual Foxpro 7.0 VF 找不到变量啊 请大侠们赐教啊……很急……

这是登陆界面的“确定”按钮的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

登陆成功后，根据登陆者的权限（A B C D）来确定“部门导航”表单里的部门按钮的有效性。

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

运行了 出现了：找不到变量A 的错误 为什么？请大侠们赐教啊……很急……
……

Answer 1

很简单啊，你的变量a没有定义啊，同样你的变量b,c,d也没有定义

追问

谢谢 想问问你 这个小系统做好之后 怎么打包做成exe文件？

Answer 2

这里的A表示一个变量，并不是你的login的数据，应该加个限定。

追问

在Login.dbf 表中 我定义了三个字段啊 分别是：user mima jibie 而且A B C D就是字段jibie里面的数据 就您而言应该怎么修改啊 谢谢了

追答

建议尝试修改成：
qx="A" 这种形式。

Answer 3

A B C D四个字母加上双引号，表示是常数。

追问

谢谢 想问问你 这个小系统做好之后 怎么打包做成exe文件？

追答

要打包成exe文件，先要建立一个项目，然后把有关文件加入项目中，在项目管理器中有连编按钮，选可执行文件选项。