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

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

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

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 578 人关注过本帖

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

取消只看楼主加入收藏

wp231957

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

楼主

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

总也不用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

wp231957

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

第 2 楼

得分: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 &&开始事件处理