Question

visual foxpro 用表单设计一个登陆界面，学程序设计的请进！

用表单设计一个登陆界面,当用户输入用户名和口令并按确认键后。检验输入是否正确（假定用户名为ABCDEF,口令为123456），就显示“欢迎使用……”字样并关闭表单;若不正确，就显示“用户口令不正确，请重输……”;
1.老师要求，用户名不对（口令正确），显示“用户名错误”;口令错误（用户名错误），显示“口令错误”。做到以上步骤得70分到80分。能做到：如果用户名和口令全部错误，则显示“用户名与口令错误”。得80分以上。
2.用表（dbf）做3组用户名与口令，输入正确（用户名与口令相对应）则显示“欢迎使用”并关闭表格，否则就显示“用户名或口令不正确，请重输……”
请写出以上“确定”命令按钮的Click事件代码，谢谢大家，这里先给30分，程序写地好再加分！直接写下或发邮箱419963674@qq.com

Answer 1

先做1吧DO CASE
CASE THISFORM.TEXT1.VALUE="ABCDEF" AND THISFORM.TEXT2.VALUE="123456"
MESSAGEBOX("欢迎使用本系统 ")
THISFORM.RELEASE
CASE THISFORM.TEXT1.VALUE="ABCDEF"
MESSAGEBOX("密码错误，请重新输入! ")
CASE THISFORM.TEXT2.VALUE="123456"
MESSAGEBOX("用户名错误，请重新输入! ")
OTHERWISE
MESSAGEBOX("用户名和密码错误，请重新输入! ")
ENDCASE
2、
use 口令表
do while not eof()
if thisform.text1.value=用户名 and thisform.text2.value=密码
messagebox("欢迎使用本系统 ")
thisform.release
exit
else
skip
endif
enddo
if eof()
messagebox("用户名或密码错误，请重新输入! ")
endif

追问

不好意思，本人是VF初学者。请问老师，在这里value的用法意义。还有为什么要加not eof和if eof,还有中间skip的用法，谢谢！

追答

1、运行表单时你在文本框中输入的内容，会反映在此文本框的value属性中。比如你输入“abc”，则文本框的value属性就是“abc”
2、eof（）是测试记录指针是否到了文件尾，如本例中，有3组用户名，即3条记录，执行use 口令表后，记录指针指向1号记录【eof（）是假，not eof（）就是真了】， do while not eof()
就可以进入循环了，假设输入的用户名和密码不符合1号记录，那就执行到了else后面的skip命令，skip是相对移动记录指针，执行后，记录指针为2号记录。。。。以此类推
3、if eof()部分，因为当输入错误时会退到循环，执行enddo后面的语句，这时的eof（）是真的。但还有另外一种情况也会执行enddo后面的语句，即，输入正确，执行exit语句后，这时的eof()是假的，所以加了if eof（）来区分这两种情况。。