用表单登陆

作者在 2006-06-14 01:43: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
宝贝资料 | 阅读 1785 次
文章评论,共1条
Tiger5392
2006-06-27 03:09
1
好象有我的编程风格?
游客请输入验证码