vb登陆程序源代码\x0d\\x0d\你可以这样在里面输入以下\x0d\Public conn As ADODB.Connection\x0d\Sub main()\x0d\ Set conn = New ADODB. Connection\x0d\ conn.ConnectionString = "Provider=SQLOLEDB.1；Persist Security Info=False；" _\x0d\ "用户 ID=sa；密码=sa；初始目录=您的数据库名；数据源=127.0.0.1 "\x0d\ conn.Open\x0d\from1.Show '登录界面\x0d\End Sub\x0d\\x0d\再在登录界面“确定”下写入如下代码：\x0d\Private Sub Command1_Click()\x0d \ If id.Text = "" then\x0d\ MsgBox "用户名不能为空！"， vbOKOnly vbInformation， "友情提示"\x0d\ id.SetFocus\x0d\ Exit Sub\x0d\ End If\x0d\ If 密码.Text = "" then\x0d\ MsgBox "密码不能为空！"， vbOKOnly vbInformation， "友情提示"\x0d\ 密码.SetFocus\x0d\ Exit Sub\x0d\ End If\x0d\\x0d\ Dim strSQl As String\x0d\ strSQl = "select * from Users where users_name='" amp； Trim$(id.Text) amp； "' and password='" amp； Trim$(password.Text) amp； "' "\x0d \ \x0d\ Dim str As New ADODB.Recordset\x0d\ Set str = New ADODB.Recordset\x0d\ str.CursorLocation = adUseClient\x0d\ str.Open strSQl， conn， adOpenStatic， adLockReadOnly\x0d\ \x0d\ With str \x0d\ If .State = adStateOpen then .Close\x0d\ .Open strSQl\x0d\ If .EOF Then\x0d\ Try_times = Try_times 1\x0d\ If Try_times gt；= 3 then\x0d\ MsgBox "您已经第三次尝试进入本系统，均不成功，系统将自动关闭"， vbOKOnly vbCritical， "警告"\x0d\
Unload Me\x0d\ Else\x0d\ MsgBox "抱歉，用户名不存在或密码错误！"， vbOKOnly vbQuestion， "警告"\x0d\ id.SetFocus\x0d\ id.Text = ""\x0d\ password.Text = ""\x0d\ End If\x0d\ Else\x0d\ \x0d\ Unload Me\x0d\ \x0d\ Form2.Show '登录进入的另一个界面\x0d\ \x0d\ End If\x0d\ End With\ x0d\\x0d\End Sub