vb.net密码验证程序 vb编写账号密码检验程序
vb程序设计编写程序验证输入密码是否正确
先设计好界面,(如:用标签控件,2个文本框,)在1个要输密码文本框的属性名称中输入password,在要输入名称的文本框的属性名称中输入username.在设置字体 想要输入错误密码三次退出程序方法如下; 在密码的代码框中输入:unload.me chick=3. End sub
创新互联公司是一家集网站建设,安远企业网站建设,安远品牌网站建设,网站定制,安远网站建设报价,网络营销,网络优化,安远网站推广为一体的创新建站企业,帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿,时刻以成就客户成长自我,坚持不断学习、思考、沉淀、净化自己,让我们为更多的企业打造出实用型网站。
VB程序编写账号和密码的验证程序
Private Sub Command1_Click()
If IsNumeric(Text1.Text) And Len(Text1.Text) = 6 And Text2.Text = "good" Then
MsgBox "输入正确,验证通过", vbOKCancel, "验证通过"
Else
If MsgBox("账号或密码错误", vbRetryCancel, "验证错误") = vbRetry Then
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
End
End If
End If
End Sub
Private Sub Form_Load()
Text1.PasswordChar = "*"
End Sub
用VB语言编制一个帐号与密码的检验程序
Option Explicit
Const MaxLogTimes As Integer = 3
Private Sub cmdCancel_Click()
Dim intResult As Integer
'请求用户确认是否真的退出系统登录
intResult = MsgBox("你选择了退出系统登录,退出将不能启动管理系统!" vbCrLf "是否真的退出?", vbYesNo, "登录验证")
If intResult = vbYes Then End '根据用户选择结束应用程序
End Sub
Private Sub cmdOK_Click()
Static intLogTimes As Integer '用于保存用户请求验证的次数
Dim intChecked As Integer, strName As String, strPassword As String
intLogTimes = intLogTimes + 1 '计算登录次数
If intLogTimes MaxLogTimes Then
'超过允许的登录次数,显示提示信息
MsgBox "你已经超过允许验证次数!" vbCr "应用程序将结束!", vbCritical, "登录验证"
End '结束应用程序
Else '进一步验证登录信息的合法性
strName = Trim(txtUserName.Text) '获得输入的用户名
strPassword = Trim(txtPassWord.Text) '获得输入的口令
'检验用户名和口令的合法性,并根据检验返回值执行相应的操作
if(strName ="123456")
if(strPassword="VB6") '口令正确
Unload Me '卸载登录窗体
MsgBox "登录成功,将启动系统程序!", vbInformation, "登录验证"
'通常在此放置显示系统主窗体的语句,例如
'frmMain.Show
else
MsgBox "口令错误,请重新输入!", vbCritical, "登录验证"
txtPassWord.Text = ""
txtPassWord.SetFocus
end if
else '用户不是系统用户
MsgBox "" strName "不是系统用户,请检查用户名输入是否正确!", vbCritical, "登录验证"
txtUserName.Text = ""
txtPassWord.Text = ""
txtUserName.SetFocus
End If
End If
End Sub
'这是你要的重试 我觉得很没有必要
Private Sub cmdReset_Click()
txtPassWord.Text = ""
txtPassWord.SetFocus
End Sub
说明:
1.账号密码一般是通过数据库调用的,这个程序只是用于娱乐或者测试
2.密码框输出显示请在VB的密码框属性设置里更该,设password为*即可
3.好好读读代码,你就明白代码怎么用了
文章名称:vb.net密码验证程序 vb编写账号密码检验程序
浏览路径:http://scyanting.com/article/dohsphg.html