登陆模块是每个应用程序所必须的,下面共同分享在学习中领悟到其妙处(VISUAL FOPRO 数据库应用系统案例精选)
登陆按钮的click事件:
if alltrim(thisform.txtUserName.value)==""
   messagebox("请输入用户名!",48,'提示信息')
   thisform.txtUserName.setfocus      &&指针于当前指定txtUserName位置(下形式同)
   return
endif

if alltrim(thisform.txtPwd.value)==""
   messagebox("请输入密码!",48,'提示信息')
   thisform.txtPwd.setfocus
   return
endif

Select 用户表
cname=alltrim(thisform.txtUserName.value)
ppassword=alltrim(thisform.txtPwd.value)
Set order to 用户名      &&指定控制索引文件
set exact on             &&设置字符精确比较   
counter=counter+1        &&计算登陆次数
seek cname               &&查找输入的用户名
   If !found()
        if counter>=3         &&限定登陆次数
           messagebox('您不是本系统的合法用户，请退出或联络系统管理员',16,"系统提示")
           thisform.release
           quit
        else 
           messagebox("用户名不存在，请重新输入！",48,"错误提示")  
           thisform.txtUserName.setfocus
           return
        endif
   Else
        If alltrim(用户表.密码)!=ppassword
           if counter>=3         &&限定登陆次数
              messagebox('您不是本系统的合法用户，请退出或联络系统管理员',16,"系统提示")
              thisform.release
              quit
           else
              messagebox('密码错误，请重新输入！',48,"错误提示")
              thisform.txtPwd.value=''
              thisform.txtPwd.setfocus
              return
           endif   
        Else
          UserName=Alltrim(Thisform.txtUserName.Value)
        *  Do Form Form\welcome
          Thisform.Release
        Endif
   Endif    
Set exact off      &&设置字符非精确比较

[size=3]
业余时间别忘了登陆我的网站,里面有你空闲时最想要的宝藏
请登陆:http://www.freesurvey.net.cn?SOURCE-6B08B316-7D3C-46B6-8684-99C034665870
有什么见解请回复到我油箱:chenggongqiyejia@163.com[/size]