vfp 登陆问题 如何选择表 急急急急急急急 今天:11月19日

来源:百度知道 编辑:UC知道 时间:2024/05/05 19:55:50
代码如下:

sele userinfo
if logincx>=3 then
messagebox('对不起,你登陆的次数超过三次,您不是授权用户!',0+16,'非法登陆')
thisform.release
quit
else
logincx=logincx+1
if empty(thisform.text1.value)
=messagebox('请输入用户名',48,'提示')
thisform.text1.setfocus
return
endif
loca for trim(username)==trim(thisform.text1.value)
if not found()
messagebox("没用此用户,请核对后再输入!")
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
else
if trim(userpw)==trim(thisform.text2.value)
do form main
release thisform
else
messagebox('密码错误,请重新输入!')
thisform.text2.value=""
thisform.text2.setfocus
endif
endif
endif

其中用到的表是 userinfo 。放在工程

你可以用下面的命令来打开表:
use dbs\userinfo
就是把第一个语句改一下,其他的不用动。

set path to .\dbs
use userinfo

好像是设置默认路径,好久没用了,记不清了,你放在默认保存路径下,就可以了