Question

vb程序编写用户名和密码

其实就是很简单的程序。
输入用户名和密码，密码正确进入下一个窗体，密码错误弹出错误对话框。

Answer 1

给你一个我做的其他系统的代码
我是用了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

Answer 2

Private Declare Function icePub_checkLoginInfo Lib "icePubDll.dll" (ByVal strUserId As String, ByVal strPassword As String, ByVal strTitle As String) As Integer

Sub main()

Dim a2 As Integer

strUID = Space(1024)
strPassword = Space(1024)

a2 = icePub_checkLoginInfo("admin", "112233", "请登录")
If a2 = 0 Then
Form1.Show
' MsgBox "登录成功"
Else
MsgBox "登录失败"
End If

End Sub

Answer 3

sub command1_click()
msgbox iif(lcase(text1)="loumou" and text2="123456" ,"密码正确","密码错误")
end sub

Answer 4

kg1pumttmt