zhaocqdx 发表于 2007-12-14 23:05

关于VFP9.0 连编问题还没搞定

各位大哥真不好意思啊，小弟初学搞了好久都没有搞定那个“一闪而过”的问题，具体是这样的，我用一个表单做成登陆框，“[color=Black][size=4]确定[/size][/color]”里面代码是：
public qx
i=i+1
if alltrim(ThisForm.nametxt.value)==''
        messagebox("请输入用户名",0+64,"系统提示")
        thisform.nnaemtxt.setfocus
        return
endif
if alltrim(ThisForm.wpdtxt.value)==''
        messagebox("请输入密码",0+64,"系统提示")
        thisform.wpdtxt.setfocus
        return
endif       
locate for alltrim(ThisForm.nametxt.value)==alltrim(yfdl.用户名)
if found()=.T.
        if alltrim(ThisForm.wpdtxt.value)==alltrim(yfdl.密码)
                release thisform
                messagebox("登录成功",0+48,"系统提示")
                if yfdl.用户权限="1"
                        qx=1
                else
                        qx=2
                endif
                do FORM 表单1
         [color=Red]READ events[/color]
        else
                if i<3
                        messagebox("密码不正确",0+16,"系统提示")
                        thisform.wpdtxt.value=" "
                        thisform.wpdtxt.setfocus
                else
                        messagebox("非法用户，无权登录",0+48,"警告")
                        thisform.release
                endif       
        endif
else
        if i<3
                messagebox("该用户不存在!",0+48,"系统提示")
                thisform.nametxt.value=" "
                thisform.nametxt.setfocus
        else
                messagebox("非法用户，无权登录",0+18,"警告")
                thisform.release
        endif       
ENDIF
[size=3][color=Black]"取消"[/color][/size]代码是：thisform.release
密码正确就进入空白表单，“空白表单”里DO 人员管理.mpr with this, .t.
在“人员管理”菜单里面有一个“[size=3][color=Black]退出系统[/color][/size]”我用的是过程代码是：
if messagebox("请确认是否退出本系统？",292,"人事管理系统")=6
wait "正在退出人事管理系统" window nowait
wait clea
[color=Red]CLEAR events[/color]
quit
ENDIF
里面都写上了你们说的“read events"和"clear events"可以还是搞不定请帮忙谢谢!!!!!!!!

baichuan 发表于 2007-12-15 07:39

把read event 放到表单的init事件内!

zhaocqdx 发表于 2007-12-15 16:00

放到INIT里面就退不出系统了啊。

hu9jj 发表于 2007-12-15 21:11

在表单的unload事件中写入QUIT也退不也系统吗？

zhaocqdx 发表于 2007-12-15 21:18

加个QQ在线请教一下行不？这个问题我已经问了好久了，是我初学所以没有搞明白!
我的QQ是：108555805

cz_zrh 发表于 2007-12-16 20:01

设置一个主程序
set century on
set safety off
。。。。。。      *其他的环境设置
set date ansi
set stat off
set talk off
clear
  do form XXXXX    *你做好的登陆FORM名称
read events        *把你的程序中的 read event 统统去掉，其他没有必要的代码也拿掉
clear memory
return

zhaocqdx 发表于 2007-12-16 20:09

谢谢各位我已经搞定这个问题了，就是在主程序里面的后面一格写上read events再在菜单的退出系统按健上写上clear event
就搞定了。

页: [1]

编程论坛