当前位置:编程学习 > Foxpro >>

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文件?
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,