vfp登录界面代码（帮忙看下VFP里登录界面的代码设置，密码不管输什么只要名字正确就能进去了，帮忙解决下拜托各位了 3Q）
本文目录
- 帮忙看下VFP里登录界面的代码设置，密码不管输什么只要名字正确就能进去了，帮忙解决下拜托各位了 3Q
- 我用VFP编一个软件，想一个密码登录窗口，有什么办法
- 请教VFP中表单创立登录界面的一些问题
- 求VFP代码，登录页面输入三次错误退出系统，在线等！急！
- VFP登陆界面后要运行下个表单的代码
- 求VFP登录界面的“确定”按钮的代码
- VFP制作的登陆界面
帮忙看下VFP里登录界面的代码设置，密码不管输什么只要名字正确就能进去了，帮忙解决下拜托各位了 3Q
先在Init里定义公共变量null 登录Click事件： if thisform.null《3 set exact on locate for upper(管理帐号)=upper(allt(thisform.text1.value)) if found() if(管理密码=allt(thisform.text2.value)) set exact off messagebox("欢迎登陆学生公寓管理系统",0+48,"提示信息") 注：用户表中帐号与密码 do form 学生公寓 thisform.release use else messagebox("密码错误,请重新输入!",48) thisform.text2.value="" thisform.null=thisform.null+1 endif else messagebox("帐号错误,请重新输入!",48) thisform.text1.value="" thisform.text2.value="" thisform.null=thisform.null+1 endif else messagebox("登录已超过3次,等候将自动关闭!",48) thisform.release use set exact off endif
求采纳
我用VFP编一个软件，想一个密码登录窗口，有什么办法
先用表单建立一个封面，在form上面建立一个label和image,timer等，加上图片，在所有控件的click属性上面：
do form"(你登录窗口的路径)"
release thisform
以上表示你点击任何地方都会从封面调到登陆界面，timer控件你可以设置几秒钟不点击自动跳转（自愿），设置timer的interver属性为5000（5秒），timer事件代码如下：t=t+1
if t=5 form
do form"(你登录窗口的路径)"
release thisform
endif
表单的init事件中定义变量：
public t as number
t=0
然后是登录界面，你首先要新建自由表，在里面输入几个用户和密码，一个权限是管理员，其他是普通用户，保存。假设表名为user:
登陆“确定”按钮代码：
LOCAL Temp
uname=thisform.txtid.value
psw=thisform.txtid.value
close tables all
use"(user表路径)"
set exact on
dimension s(10)
for i=1to10
s(i)=""
endfor
select *from user where(user.用户名=uname and user. 密码=psw)into array s
select *from user where(user.用户名=uname and user. 密码=psw)into cursor temp
qx=temp.用户权限
if s(1)=""then
messagebox(错误，0，)
else
if qx="管理员" do form(新建管理员界面路径)
else
if qx="普通用户" do form(新建普通用户界面路径)
endif
close tables all
thisform.release
endif
请教VFP中表单创立登录界面的一些问题
a1取用户名文本框的值（去空格），a2取密码文本框的值（去空格），第三行是查找用户名和密码对应的记录（本地）
接下来的do case ... endcase代码块是判断语句，分三个分支：
1、m1=’’，则弹出"请输入账号密码"的提示并且清空文本框
2、没有找到记录，则弹出"密码错误"的提示并且清空文本框
3、执行"进入系统"表单并且注销当前表单（登录界面）
有个疑问：代码不全吧，m1哪里来的
求VFP代码，登录页面输入三次错误退出系统，在线等！急！
用户名和密码均能输入3次， 现在的accep命令用TextBox 控件代替：
use yh
for i=1 to 3
clea
accep "请输入姓名:" to xm
loca for yhm==xm
if !found()
messagebox("用户名不存在，请重新输入！",48,’提示’)
endif
endfor
if i》3
messagebox("错误次数超出限制！",48,’提示’)
quit
endif
for i=1 to 3
accep "请输入密码:" to mima
if mima=mm
exit
else
messagebox("密码错误，请重新输入！",48,’提示’)
endif
endfor
if i》3
messagebox("错误次数超出限制！",48,’提示’)
quit
else
messagebox("验证成功！",64,’提示’)
endif
VFP登陆界面后要运行下个表单的代码
if thisform.username.value=alltrim("user1").and.;
thisform.usepassword.value=alltrim(str(1314))
=messagebox("欢迎进入本系统！",0+48+0,"欢迎进入")
release thisform(这条不要)
DO (所要执行的表单的名称).mpr WITH THISFORM,.T. （加上这条）
else
=messagebox("对不起，你的密码错误请重新输入！！",0+48+0,"密码错误")
thisform.username.value=""
thisform.usepassword.value=""
thisform.username.setfocus
endif
求VFP登录界面的“确定”按钮的代码
1、表单没有i属性的。直接用变量好了。
2、最后一行加ENDIF。建议编程是用缩进。例
IF ********
IF **********
************
ELSE
********
ENDIF
**********
ELSE
***********
ENIF
VFP制作的登陆界面
你应该建一个史为用户表2的表文件，表中有用户名、用户类型、密码三个字段，你设计的这个程序就是用这个表来验证登录信息。
更多文章：
idea控制台乱码（idea 输出 System.out.println（） 控制台乱码）
2026年10月14日 07:30
2026年10月14日 06:20
spring事务的作用（为什么要使用spring的事务，一般在什么情况下使用）
2026年10月14日 05:40
2026年10月14日 04:50
linux怎么进入命令行（怎么样配置linux使其启动时直接登录到命令行模式）
2026年10月14日 02:00
java培训机构好还是大学好（大学生想转行学java，该去java培训班还是自学呢）
2026年10月13日 23:30
2026年10月13日 19:10
2026年10月13日 19:00
前端面试必背十个点（资深HR揭秘：Web前端面试技巧有哪些）
2026年10月13日 17:50
sqlplus重置用户名密码（Oracle中的plus的用户名和密码忘了怎么办）
2026年10月13日 17:40
