[已解决]登陆系统（VBA）

long826121

在EXCEL中建立一个窗体：
用户名：文本框1
密码：   文本框2
验证码：文本框3  文本框4（现实4为数字码）
两个按钮：“登陆”  “重置”

我的要求：当打开EXCEL时就弹出窗体，此时输入用户名和密码后，然后再输入验证码，验证码要看“文本框4”显示的数字，然后才能“登陆”进入，点击“重置”时清空文本框1.2.3中的内容！

重要说明：
1.用户名密码在注册表上。
2.验证码是0到9之间随机的任意四位数字！在文本框4中自然显示，当用鼠标左键点击文本框4时，就自动更新验证码！
3.当用户名.密码.验证码不正确时无法进入登陆！
感谢了
登陆系统.rar (31.59 KB, 下载次数: 540)

2011-6-16 22:04 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

兰色幻想

2011-7-25 11:08

你把textbox4换成一个标签控件label1，然后粘贴下面的代码
Dim 验证码
Private Sub CommandButton1_Click()
If TextBox1.Text = "long" And TextBox2.Value = "2008" And TextBox3.Value = Label1.Caption Then
MsgBox "登陆成功"
Else
MsgBox "登陆失败"
End If
Stop
End Sub

Private Sub CommandButton2_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub

Private Sub Label1_Click()
生成验证码
End Sub


Private Sub UserForm_Initialize()
生成验证码
End Sub

Sub 生成验证码()
验证码 = Int(Rnd() * 9000 + 1000)
Label1.Caption = 验证码
End Sub

跳转到最佳答案楼层

兰色幻想

用户密码保存在本机的注册表中？

long826121

回复 兰色幻想 的帖子

可以！也可以保存在EXCEL表中

mslan

高手呀{:061:}

兰色幻想

你把textbox4换成一个标签控件label1，然后粘贴下面的代码
Dim 验证码
Private Sub CommandButton1_Click()
If TextBox1.Text = "long" And TextBox2.Value = "2008" And TextBox3.Value = Label1.Caption Then
MsgBox "登陆成功"
Else
MsgBox "登陆失败"
End If
Stop
End Sub

Private Sub CommandButton2_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub

Private Sub Label1_Click()
生成验证码
End Sub


Private Sub UserForm_Initialize()
生成验证码
End Sub

Sub 生成验证码()
验证码 = Int(Rnd() * 9000 + 1000)
Label1.Caption = 验证码
End Sub

兰色幻想

登陆系统.rar (30.97 KB, 下载次数: 726)

2011-7-25 11:09 上传

点击文件名下载附件

huyuwang

兰版就是厉害啊

tzner

受益菲浅，继续学习

gakk117

高手就是高手啊  我做窗口太粗糙了 真的没法比呀  感谢分享

bert0320

兰版就是厉害，保存好好学习学习！