vb程序编写用户名和密码

给你一个我做的缓团清其他系统的代码

我是用了MD5的算法把密码加密了

你可以修改下

'判断用户名与密码扰前是否是空

If Trim(Text(0).Text) = "" Then Message.Caption = "请输入用户名，初始用户名：Admin，密码：123456": Text(0).Text = "": Exit Sub

If Trim(Text(1).Text) = "" Then Message.Caption = "请输入密码，初始用户名：Admin，密码：123456": Text(1).Text = "": Exit Sub

'判断用户名是否存在

管理用户.Open "Select * FROM 用户管理 where 用户名='" &Trim(Text(0).Text) &"'", SysDatabase, adOpenKeyset, adLockBatchOptimistic

If 管理用户.RecordCount <1 Then Message.Caption = "用户名或密码错误或州，初始用户名：Admin，密码：123456": Text(0).Text = "": Text(1).Text = "": Call Close用户管理: Exit Sub

If StrComp(MD5("Password" &Text(1).Text), 管理用户("密码")) = 0 Then

当前用户 = 管理用户("用户名")

Call Close用户管理

Message.Caption = "正在加载程序，请稍等..."

LoginTimer.Enabled = True

Else

Message.Caption = "用户名或密码错误，初始用户名：Admin，密码：123456"

Text(0).Text = ""

Text(1).Text = ""

Call Close用户管理

End If

简单的用一个变量i来累加，错误一次1加薯轮一，如果i大于或等于3的时候就提示非法，告蚂并退出.

下面的IF

THEN是判断用户名和密码的，我写的用户名ADMIN密码123

密码正确的时候对话框“欢迎....”这里你可以改你需要的效果，列入载入袜手埋窗口等..

调试建立两个文本框

标签（提示用，密码和用户名左边的字）

按钮一个

Dim

i

As

Integer

Private

Sub

Command1_Click()

If

i

>=

3

Then

MsgBox

("对不起，您不是本系统的合法用户")

End

End

If

If

Text1.Text

=

"admin"

And

Text2.Text

=

"123"

Then

MsgBox

("欢迎使用本系统")

Else

MsgBox

("用户名或密码错误，请用户重新输入。")

i

=

i

+

1

End

If

End

Sub

---