我就拿我做的一个表单给你举例来说一下吧.我用的是两个文本框不过也着不多,你要是还不明白的话,在上边写出来,我日后给你解决.
这是登录的语句
if empty(thisform.text1.value)
messagebox("请输入用户名!",48,"提示")
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
else
if empty(thisform.text2.value)
messagebox("请输入密码",48,"提示")
thisform.text2.setfocus
else
use 表名
locate for 用户名=alltrim(thisform.text1.value)
if found()
if 密码=alltrim(thisform.text2.value)
use
do form main2.scx
thisform.release
else
messagebox("密码错误,请重新输入!",48,"提示")
thisform.text2.value=""
thisform.text2.setfocus
endif
else
messagebox("用户名无效,请输入有效的用户名!",48,"提示")
thisform.text2.value=""
thisform.text1.value=""
thisform.text2.setfocus
endif
endif
退出按钮的语句是 THISFORM.RELEASE
不过不要忘了在表单的UNLOAD属性中加入 CLEAR EVENTS