总也不用vf 感觉也总是找不到呢 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 总也不用vf 感觉也总是找不到呢

我的收件箱(0)

共有 578 人关注过本帖

标题：总也不用vf 感觉也总是找不到呢

只看楼主加入收藏

wp231957

来　自：神界
等　级：贵宾
威　望：423
帖　子：13688
专家分：53332
注　册：2012-10-18
结帖率：99.76%

楼主

已结贴√ 问题点数：20 回复次数：8

总也不用vf 感觉也总是找不到呢

程序代码：

_Screen.Show &&显示VFP主窗口
   ****************************
   *use duser
   num=1
   do while num<4
     gonghao=thisform.text1.value
     pwd2=thisform.text2.value
     select dm,xm,pwd,qx from duser where dm=gonghao and pwd=pwd2 into  cursor  temp
     select temp
     if recc()<1
        *messagebox("工号或密码不正确,你还有"+str(3-num)+"次登录机会")
        thisform.text1.setfocus
      else
        exit
      endif
      num=num+1
   endd
   if num>=4
     quit
   endif
   ****************************
   Do main.mpr &&安装菜单系统
   thisform.release
   Read Events &&开始事件处理

这段登陆代码登陆正确可以继续运行
但是登陆错误则没有第二次输入的机会直接循环完了无法再text1 text2中再次输入

2013-05-25 22:14

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9855
专家分：27275
注　册：2012-2-5

第 2 楼

得分:20

FORM.INIT 事件代码

THISFORM.ADDPROPERTY([JS],0) &&为表单增加一个属性，用于记录登录次数

确定按钮（COMMAND1）CLICK 事件代码

程序代码：

WITH THISFORM
   .JS=.JS+1
   SELECT 用户名,密码,权限 FROM USER ;
   WHERE CHRTRANC(用户名+密码,[ ],[])==CHRTRANC(.TEXT1.VALUE+.TEXT2.VALUE,[ ],[]) INTO CURSOR TEMP
   IF RECCOUNT([TEMP])=1
      GLY=IIF(ALLTRIM(TEMP.权限)==[管理员],.T.,.F.)
      CUSER=TEMP.用户名
      INSERT INTO YHDL VALUE(CUSER,DATETIME(),{})   
      DO FORM .\FORMS\MAIN.SCX
      .RELEASE
   ELSE
      IF .JS<3
         MESSAGEBOX([用户名或密码错误]+CHR(13)+CHR(10)+CHR(10)+[还有 ]+SUBSTRC([一二],3-.JS,1)+[ 次机会],64,[系统信息])
         STORE [] TO .TEXT1.VALUE,.TEXT2.VALUE
         .TEXT1.SETFOCUS
      ELSE
         MESSAGEBOX([已经连续错误三次，现在将退出系统！],64,[系统信息])
         .RELEASE
         CLEAR EVENTS
         QUIT
      ENDIF
   ENDIF
ENDWITH

坚守VFP最后的阵地

2013-05-25 22:54

wp231957

来　自：神界
等　级：贵宾
威　望：423
帖　子：13688
专家分：53332
注　册：2012-10-18

第 3 楼

得分:0

程序代码：

_Screen.Show &&显示VFP主窗口
   ****************************
   with thisform
      .js=.js+1
     select dm,xm,pwd,qx from duser where CHRTRANC(dm+pwd,[ ],[])==CHRTRANC(.TEXT1.VALUE+.TEXT2.VALUE,[ ],[]) INTO CURSOR TEMP
     IF RECCOUNT([TEMP])=1
       Do main.mpr &&安装菜单系统
       thisform.release
     else
        if .js<3
          messagebox([工号或密码不正确,你还有]+str(3-.js)+[次登录机会],64,[系统信息])
          STORE [] TO .TEXT1.VALUE,.TEXT2.VALUE
          .text1.setfocus
        else
          .RELEASE
          CLEAR EVENTS
          QUIT
        endif 
      endif
   endwith
   ****************************

   Read Events &&开始事件处理