作者在 2006-06-12 09:46:00 发布以下内容
用表单FORM1进行登陆，文本框TEXT1输入用户名，文本框TEXT2输入密码，optiongroup1为身份标志；COMMAND1为确定；表"用户表.DBF"存放有关用户及密码信息。
(1)在FORM1.INIT()将次数i设成全局变量并打开用户表
CLOSE ALL
IF FILE([用户表.DBF])
USE 用户表.DBF
ELSE
CREATE TABLE 用户表 (用户名 C(12),密码 C(12),身份 C(12))
APPEND BLANK
REPLACE 用户名 WITH [SYSYTEM],密码 WITH [SYSTEM],身份 WITH [SYSTEM]
ENDIF
PUBLIC I
I=0
*注意:系统初始用户、密码和身份都是SYSYTEM
(2)在COMMAND1.CLICK()判断
LOCATE ALL FOR 用户名=THISFORM.TEXT1.VALUE .and. 密码=THISFORM.TEXT2.VALUE .and. 身份=THISFORM.optiongroup1.value
I=I+1
IF EOF()
IF I>3
=messagebox("3次输入错误!将自动关闭窗口!",48,"警告!")
thisform.release
QUIT
ELSE
thisform.text1.setfocus
=messagebox("用户名或密码或身份错误!",48,"错误!")
ENDIF
ELSE
THISFORM.RELEASE
DO MENU.MPR &&进入主控程序
ENDIF
(1)在FORM1.INIT()将次数i设成全局变量并打开用户表
CLOSE ALL
IF FILE([用户表.DBF])
USE 用户表.DBF
ELSE
CREATE TABLE 用户表 (用户名 C(12),密码 C(12),身份 C(12))
APPEND BLANK
REPLACE 用户名 WITH [SYSYTEM],密码 WITH [SYSTEM],身份 WITH [SYSTEM]
ENDIF
PUBLIC I
I=0
*注意:系统初始用户、密码和身份都是SYSYTEM
(2)在COMMAND1.CLICK()判断
LOCATE ALL FOR 用户名=THISFORM.TEXT1.VALUE .and. 密码=THISFORM.TEXT2.VALUE .and. 身份=THISFORM.optiongroup1.value
I=I+1
IF EOF()
IF I>3
=messagebox("3次输入错误!将自动关闭窗口!",48,"警告!")
thisform.release
QUIT
ELSE
thisform.text1.setfocus
=messagebox("用户名或密码或身份错误!",48,"错误!")
ENDIF
ELSE
THISFORM.RELEASE
DO MENU.MPR &&进入主控程序
ENDIF