首页上一页 1 下一页尾页 1 条记录 1/1页
谢谢各位大师的指教,我已经可以自己解决一些小问题了
发表在VB答疑区
2009-12-17
是否精华
是
否
版块置顶:
是
否
各位大师:
这几天我正在参考《VB从入门到精通》和《编程词典》作“登录”和“密码”修改窗体。学习到了不少的东西,也可以自己解决上些问题了。
一是一个登录的例子中只对密码进行判断,不对用户名的对错与否进行判断。即使是错误的用户名、正确的密码也能登录,我给改了一下解决了。代码如下:
If Txt_user.Text <> rs.Fields("username") Then
MsgBox "用户名有误,请重新输入!", , "信息提示"
Txt_user.SetFocus
二是一个修改密码窗体例子中只有用户名、密码、新密码三个文本框,没有确认框。我就添加了第四个文本框,用于确认新密码。代码如下:
If Text1(3) <> Text1(2) Then
Text1(2) = "": Text1(3) = "": Text1(2).SetFocus
MsgBox "确认密码必须与第一次输入的密码一致!"
Exit Sub
End If
上面是我自己写的代码,用是可以用,就是不知道对还是不对,还请各位大师给指点一下。
这几天我正在参考《VB从入门到精通》和《编程词典》作“登录”和“密码”修改窗体。学习到了不少的东西,也可以自己解决上些问题了。
一是一个登录的例子中只对密码进行判断,不对用户名的对错与否进行判断。即使是错误的用户名、正确的密码也能登录,我给改了一下解决了。代码如下:
If Txt_user.Text <> rs.Fields("username") Then
MsgBox "用户名有误,请重新输入!", , "信息提示"
Txt_user.SetFocus
二是一个修改密码窗体例子中只有用户名、密码、新密码三个文本框,没有确认框。我就添加了第四个文本框,用于确认新密码。代码如下:
If Text1(3) <> Text1(2) Then
Text1(2) = "": Text1(3) = "": Text1(2).SetFocus
MsgBox "确认密码必须与第一次输入的密码一致!"
Exit Sub
End If
上面是我自己写的代码,用是可以用,就是不知道对还是不对,还请各位大师给指点一下。