vf表单设计登录界面（请问在VF中，制作一个用户名和密码都是123456的教务管理系统的表单登陆界面，确定按钮的代码是什么啊）

本文目录

• 请问在VF中，制作一个用户名和密码都是123456的教务管理系统的表单登陆界面，确定按钮的代码是什么啊
• 我现在要做一个vfp的系统登录的验证表单，但是我不会啊，帮帮忙吧，谢谢
• 在VF中制作一个表单是登陆界面想知道一个确定按钮的代码怎么写
• 用VF表单设计一个登录界面
• 请使用VFP编写一个登录界面的代码，并写出来
• 在VF中制作一个如图的登陆界面 确定按钮的代码是什么
• 用VFP 设计一个登录表单
• 怎样用VF设计一个QQ登陆窗口
• 在数据库vf软件中，怎么制作用密码登陆的登陆界面急急急

请问在VF中，制作一个用户名和密码都是123456的教务管理系统的表单登陆界面，确定按钮的代码是什么啊

简单的设定：
以下程序默认条件：
该表单仅有一个用户：用户名和密码均为数值型123456
用户名文本框名字为text1，密码文本框的名字是text2
那么登陆表单的确定按钮代码可以设置为：
if alltrim(thisform.text1.value)==123456 and alltrim(thisform.text2.value)==123456
messagebox("欢迎使用，登陆成功！",0,"提示信息")
else
messagebox("用户名或者密码错误！请重新输入！",0,"错误信息")
endif
thisform.refresh

我现在要做一个vfp的系统登录的验证表单，但是我不会啊，帮帮忙吧，谢谢

command1的click事件：

a=ALLTRIM(thisform.text1.value)

b=ALLTRIM(thisform.text2.value)

SELECT 密码表

LOCATE FOR ALLTRIM(username)==a

DO case

CASE a==""

  MESSAGEBOX("用户名不能为空！",0+48+0,"注意")

  thisform.text1.SetFocus

  RETURN

CASE FOUND()=.f.

  MESSAGEBOX("用户名错误！",0+48+0,"注意")

  thisform.text1.Value=""

  thisform.text2.Value=""

  thisform.text1.SetFocus

  RETURN

CASE b!=ALLTRIM(passwords)

  MESSAGEBOX("密码不正确！",0+48+0,"注意")

  thisform.text2.Value=""

  thisform.text2.SetFocus

  RETURN

OTHERWISE

  thisform.Release

  DO FORM 主界面.scx

 ENDCASE

 thisform.refresh

command2的代码：

CLOSE ALL

CLEAR EVENTS 

thisform.Release

quit

在VF中制作一个表单是登陆界面想知道一个确定按钮的代码怎么写

你先建个表比如说“账号密码表.dbf”内含字段“用户名”和“密码”储存你预设的用户名和密码~将这个表加入Form1 的数据环境中~
假设你登陆后的页面的那个表单是“主页面.scx”~form1 的init事件代码：
public i
i=0
form1 的unload事件:
close all
clear events
quit
接收用户名的文本框Text1的KeyPress事件代码：
LPARAMETERS nKeyCode, nShiftAltCtrl
if nKeyCode=13.and.!empty(this.value)
thisform.Text2.enabled=.t.
thisform.Text2.setfocus
endif
确定 按钮的click事件代码是：
IF EMPTY(thisform.text1.Value) .or. EMPTY(thisform.text2.Value)
MESSAGEBOX("Error ")
thisform.text1.SetFocus
ELSE
i =i + 1
IF i 》 3
MESSAGEBOX("Error more than 3 times !")
RELEASE thisform
ELSE

USE 账号密码表 EXCLUSIVE IN 0
LOCATE FOR 账号密码表.用户名= ALLTRIM(thisform.text1.Value)
IF FOUND()
IF 账号密码表.密码 = ALLTRIM(thisform.text2.Value)
DO FORM 主页面.scx
USE IN 账号密码表
ELSE
MESSAGEBOX("Password Error !")
USE IN 账号密码表
RETURN
ENDIF
ELSE
MESSAGEBOX("name not Found !")
USE IN 账号密码表
RETURN
ENDIF
ENDIF
ENDIF

用VF表单设计一个登录界面

本人不才，写了简单的
先在form1 的init 里写
public a
a=0
然后 “确认”命令按钮的Click事件代码：
IF a《3
DO case
CASE thisform.text1.Value="ABCDEF" AND trim(thisform.text2.Value)=’123456’
messagebox(’欢迎使用……­­’,0+64,’hello’)
thisform.Release()
CASE trim(thisform.text1.Value)《》"ABCDEF" AND trim(thisform.text2.Value)=’123456’
MESSAGEBOX(用户不正确，请重输…­’,0+64,’hello’)
a=a+1
CASE trim(thisform.text1.Value)="ABCDEF" AND trim(thisform.text2.Value)《》’123456’
MESSAGEBOX(’口令不正确，请重输...­’,0+64,’hello’)
a=a+1
CASE trim(thisform.text1.Value)《》"ABCDEF" AND trim(thisform.text2.Value)《》’123456’
MESSAGEBOX(’用户名和口令都不正确，请重输...­’,0+64,’hello’)
a=a+1
ENDCASE
ELSE
messagebox(’用户口名或口令不正确，登陆失败！’,0+64,’hello’)
thisform.Release()
ENDIF

请使用VFP编写一个登录界面的代码，并写出来

*新建一个表单，添加一个文本框，添加一个命令按钮（其余的修饰控件自己解决）
*form1.init代码：
public times,mima
times=0
mima="a1b2c3"
this.caption="登录"
thisform.text1.passagewordmark="*"
*command1.click代码
if thisform.text1.value==mima
messagebox("登录成功！")
release mima
thisform.release
endif
times=times+1
do case
case time=1
messagebox("密码错！还有两次机会")
case time=2
messagebox("密码错！还有两一次机会")
case time=3
messagebox("密码错！系统拒绝你登录")
release mima
thisform.release
endcase

在VF中制作一个如图的登陆界面 确定按钮的代码是什么

下面的例子是假设用户名密码是固定到程序中的
IF EMPTY(thisform.text1.Value)
MESSAGEBOX("请输入用户名",16,"系统提示")
thisform.text1.SetFocus
RETURN
ELSE
IF EMPTY(thisform.text2.Value)
MESSAGEBOX("请输入口令",16,"系统提示")
thisform.text2.SetFocus
RETURN
ELSE
IF ALLTRIM(thisform.text1.Value) == "用户1" .and. ALLTRIM(thisform.text2.Value ) == "用户1的密码"
DO FORM 用户1的表单
ELSE
IF ALLTRIM(thisform.text1.Value) == "用户2" .and. ALLTRIM(thisform.text2.Value ) == "用户2的密码"
DO FORM 用户2的表单
ELSE
MESSAGEBOX("用户名或口令错误",16,"系统提示")
thisform.text2.Value = ’’
thisform.text1.SelStart = 0
thisform.text1.SelLength = LEN(thisform.text1.Value)
thisform.text1.SetFocus
ENDIF
ENDIF
ENDIF
ENDIF

用VFP 设计一个登录表单

在form1的Init事件添加

public n

n=1

在进入按钮的click事件添加

if trim("abc")==trim(thisform.text1.value) 

messagebox ("密码正确")

else

messagebox ("密码错误剩余"+str(3-n)+"次")

n=n+1

if n》3

messagebox("你无权进入系统","信息窗口")

thisform.release

endif

endif

怎样用VF设计一个QQ登陆窗口

图在哪里啊？没有看到···
基本操作思路：
1、建立一个表文件，功能是储存合法用户的用户名和密码信息。预先输入合法用户信息。
2、建立表单文件，控件位置、大小调整到合适。没有图，至少应该包含两个标签、两个文本框、两个按钮。
3、将表文件加入到表单文件的数据环境中去。
4、在登陆按钮的click方法中输入代码：
if alltrim(thisform.text1.value)==alltrim(yh.yhm) and alltrim(thisform.text2.value)==alltrim(yh.mm)
messagebox("登陆成功！欢迎使用本程序！")
else
messagebox("用户名或者密码错误，请重新输入！")
endif
thisform.refresh
5、不知道你的图是什么样子的，密码修改的方式就不知道怎么样子了。但可以这么想 ：
用户点击修改密码按钮之后，表单上应该显示：用户名，旧密码，新密码，确认新密码，四个文本框。采用类似第一步登陆验证的方式，验证原先用户名和旧密码是否和预置的一致，如果一致，那么判断输入的新密码和密码确认是否完全一致，当满足上述所有条件之后，用新密码去更新相应的用户表中的旧密码字段即可。

在数据库vf软件中，怎么制作用密码登陆的登陆界面急急急

设置表（密码表）里面添加字段用户名和密码用于你存储密码和用户名的！新建表单调用数据环境添加密码表，添加窗体控件combo1、text1、spinner1、command1，并在command1的click过程加入命令：locate all for alltrim(密码表.用户名)=alltrim(thisform.combo1.value)
if found()
if alltrim(thisform.text1.value)==alltrim(密码表.密码)
do form 你的表单
thisform.release
else
thisform.spinner1.value=thisform.spinner1.value+1
if thisform.spinner1.value=3
messagebox("对不起口令不正确！"+chr(13)+"对不起，你无权使用！",48,"登入信息")
thisform.release
quit
endif
messagebox("密码错误，请重新输入！",48,"登入信息")
thisform.text1.setfocus
thisform.text1.value=""
thisform.refresh
endif
endif