Question

FoxPro 表单中需单击关闭按钮或按alt+q表单退出要如何写代码？

Answer 1

怎么验证口令? 用户名和口令是放在一个表里吗?

假如有表,名称user,字段用户名,口令,都是字符型
表单上有2个文本框,txtuser,txtpassword, 1个确认按钮cmdok
要弄个公共变量存储错误次数, 不能用局部变量,否则按钮代码执行完就释放了.如果自定义表单属性存放更好.

1,在表单的init事件中定义存储密码错误次数的变量:
public gnerror
gnerror=0

2,确认按钮的click代码:
select user
locate for 用户名=thisform.txtuser.value and 口令=thisform.txtpassword.value
if found()
mesagebox("欢迎进入系统")

thisform.release
else
gnerror=gnerror+1
if gnerror<=3
messagebox("你是第"+alltrim(str(gnerror))+"次输入，请重试")

else
mesagebox("对不起，你不是合法用户，请退出")

endif
endif

追问

不好意思，我没有看懂
我只做出了点击关闭按钮退出，但点击alt+q直接退出没有做出来
我的操作法方是双击关闭按钮在编辑页面输入thisform.release

可否麻烦你简单的说下点击alt+q的退出方法？