关于VFP9.0连编的问题请指教
各位帮忙看一下我的代码哪里有错!谢谢。我先用一个界面表单在“进行系统”里面写上do form 用户登录thisform.release,后面运行口令表,如果口令正确就进入空白表单和菜单。口令正确的代码是: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
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
帮我看看,我连编时没有提示错误,编成APP格式就没问题,但编成win32可扏行文件后点击就“一闪而过”什么都没有!麻烦各位!
听版主说要在主表单加上read events我改成了do form 用户登陆 read events连编后问题更大了,连项目管理器都打不开了。小弟初学麻烦大哥们说详细一点谢谢!