巴博萨船长和杰克:visual foxpro 高手来下啊~! 小女子谢了~!

来源：百度文库编辑：中科新闻网时间：2024/05/07 18:44:46

我用表单设置了一个登陆界面，分为管理和访客，用户名和密码存在自由表1中，管理键的click代码是：
use 表1
go top
FLag=0
do while .not.eof()
if alltrim(用户名) =alltrim(thisform.text1.value)
if alltrim(密码) =alltrim(thisform.text2.value)
messagebox("欢迎使用……")
thisform.release
do form 管理界面.scx
else
thisform.num=thisform.num+1
if thisform.num=3
messagebox("用户名或密码错误，登录失败！")
thisform.release
endif
messagebox("用户名或密码错误，请重输……")
thisform.text1.value=""
thisform.text2.value=""
thisform.text.setfocus
endif
flag=1
exit
endif
skip
enddo
if flag=0
thisform.num=thisform.num+1
if thisform.num=3
messagebox("用户名或密码错误，登录失败！")
endif
messagebox("用户名或密码错误，请重输……")
thisform.text1.value=""
thisform.text2.value=""
thisform.text.setfocus
endif
这个代码太繁琐了，谁能告给我怎么样写简单点，更要命的是不知道自由表1还是代码出什么问题了，如果用户名和密码都空白的时候，可以直接登陆！！！
我郁闷死了，我该怎么办啊？？？

不会这个，你难到不能，在中设一个若用户名和密码有一为空时，messagebox("用户名或密码错误，请重输……") 吗。

visual foxpro 高手来下啊~! 小女子谢了~! visual foxpro高手请进请教excel(visual foxpro)高手用visual foxpro 6.0 编程，高手请进请visual foxpro 高手进内坐坐 Visual Foxpro高手来帮一下我 visual foxpro 的高手进来啊!~~ Visual FoxPro Visual FoxPro visual foxpro