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 的错误 为什么?请大侠们赐教啊……很急……
追问:在Login.dbf 表中 我定义了三个字段啊 分别是:user mima jibie 而且A B C D就是字段jibie里面的数据 就您而言应该怎么修改啊 谢谢了谢谢 想问问你 这个小系统做好之后 怎么打包做成exe文件?谢谢 想问问你 这个小系统做好之后 怎么打包做成exe文件?
答案:这里的A表示一个变量,并不是你的login的数据,应该加个限定。
其他:A B C D四个字母加上双引号,表示是常数。 很简单啊,你的变量a没有定义啊,同样你的变量b,c,d也没有定义
上一个:visual foxpro 6.0主要有哪些设计器和向导工具
下一个:visual foxpro 中设计表单时将文本文框中的值相加输入文本文框中