vb登陆程序源代码\x0d\x0a\x0d\x0a你可以这样做建一个模块在里面输入下列\x0d\x0aPublic conn As ADODB.Connection\x0d\x0aSub main()\x0d\x0aSet conn = New ADODB.Connection\x0d\x0a conn.ConnectionString = ”Provider=SQLOLEDB.1Persist Security Info=False” _\x0d\x0a + ”User ID=sapassword=saInitial Catalog=您的数据库名Data Source=127.0.0.1”\x0d\x0aconn.Open\x0d\x0afrom1.Show ’登录界面\x0d\x0aEnd Sub\x0d\x0a\x0d\x0a再在登录界面“确定”下写入如下代码：\x0d\x0aPrivate Sub Command1_Click()\x0d\x0a If id.Text = ”” Then\x0d\x0aMsgBox ”用户名不能为空！”, vbOKOnly + vbInformation, ”友情提示”\x0d\x0aid.SetFocus\x0d\x0aExit Sub\x0d\x0aEnd If\x0d\x0aIf password.Text = ”” Then\x0d\x0aMsgBox ”密码不能为空！”, vbOKOnly + vbInformation, ”友情提示”\x0d\x0apassword.SetFocus\x0d\x0aExit Sub\x0d\x0aEnd If\x0d\x0a\x0d\x0aDim strSQl As String\x0d\x0astrSQl = ”select * from Users where users_name=’” &Trim$(id.Text) &”’ and password=’” &Trim$(password.Text) &”’ ”\x0d\x0a\x0d\x0aDim str As New ADODB.Recordset\x0d\x0aSet str = New ADODB.Recordset\x0d\x0astr.CursorLocation = adUseClient\x0d\x0astr.Open strSQl, conn, adOpenStatic, adLockReadOnly\x0d\x0a\x0d\x0aWith str\x0d\x0aIf .State = adStateOpen Then .Close\x0d\x0a.Open strSQl\x0d\x0aIf .EOF Then\x0d\x0aTry_times = Try_times + 1\x0d\x0aIf Try_times >= 3 Then\x0d\x0aMsgBox ”您已经三次尝试进入本系统，均不成功，系统将自动关闭”, vbOKOnly + vbCritical, ”警告”\x0d\x0aUnload Me\x0d\x0aElse\x0d\x0aMsgBox ”对不起，用户名不存在或密码错误 ！”, vbOKOnly + vbQuestion, ”警告”\x0d\x0aid.SetFocus\x0d\x0aid.Text = ””\x0d\x0apassword.Text = ””\x0d\x0aEnd If\x0d\x0aElse\x0d\x0a\x0d\x0aUnload Me\x0d\x0a\x0d\x0a Form2.Show’登录进入的另一个界面\x0d\x0a\x0d\x0aEnd If\x0d\x0aEnd With\x0d\x0a\x0d\x0aEnd Sub
html网页设计：一个简单的登录界面代码！
这是我曾经写过的一个登录页面的详细代码，供你参考，asp的代码，不知道你看得懂不？\x0d\x0a文件名是：deafaule.asp\x0d\x0a \x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a欢迎使用 \x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0afunction FrontPage_valid() {\x0d\x0a if (document.FrontPage_Form.loginName.value == ””) {\x0d\x0a alert(”请先输入 [用户名] !\n如果没有帐号请先 注册!”)\x0d\x0a document.FrontPage_Form.loginName.focus()\x0d\x0a return false\x0d\x0a }\x0d\x0a else if (document.FrontPage_Form.loginName.value.length < 2) {\x0d\x0a alert("在 [用户名] 中，请至少输入 2 个字符！")\x0d\x0a document.FrontPage_Form.loginName.focus()\x0d\x0a return false\x0d\x0a }\x0d\x0a else if (document.FrontPage_Form.loginPassword.value == "") {\x0d\x0a alert("请输入[密码]！")\x0d\x0a document.FrontPage_Form.loginPassword.focus()\x0d\x0a return false\x0d\x0a }\x0d\x0a else if (document.FrontPage_Form.loginPassword.value.length < 5) {\x0d\x0a alert("在 [密码] 中，请至少输入 5 个字符！")\x0d\x0a document.FrontPage_Form.loginPassword.focus()\x0d\x0a return false\x0d\x0a }\x0d\x0a else if (document.FrontPage_Form.FrontPage_Yzm.value == "") {\x0d\x0a alert("请输入[验证码]!")\x0d\x0a document.FrontPage_Form.FrontPage_Yzm.focus()\x0d\x0a return false\x0d\x0a }\x0d\x0a else if (document.FrontPage_Form.FrontPage_Yzm.value.length != 5) {\x0d\x0a alert("在 [验证码] 中，请输入 5 位数字！")\x0d\x0adocument.FrontPage_Form.FrontPage_Yzm.focus()\x0d\x0a return false\x0d\x0a }\x0d\x0a else if (document.FrontPage_Form.FrontPage_Yzm.value.length == 5) {\x0d\x0a var i=0,ch\x0d\x0a for (i=0i\x0d\x0a \x0d\x0a
”)\x0d\x0a }\x0d\x0a else if (screen.width == 1280){\x0d\x0a document.write(”
”)\x0d\x0a }\x0d\x0a else {\x0d\x0a document.write(”
”)\x0d\x0a }\x0d\x0a\x0d\x0a建议使用 IE8.0或更高版本的浏览器，推荐分辨率1440×900 或更高
\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a
急！求access登录后进入不同界面的代码
<!doctype html>
<html>
<head>
<meta charset=”utf-8”>
<link href=”main.css” type=”text/css” rel=”stylesheet”>
<title>登陆界面</title>
</head>
<body>
<div >
<img src=”images/login_ico.png”>
</div>
<div >
<ul>
<li><input type=”text” ></li>
<li><input type=”password” ></li>
</ul>
</div>
<div >
<input type=”submit” value=”登陆”>
</div>
</body>
</html>
样式 ：
*{
margin:0
padding:0}
li{
list-style-type:none
margin:0
padding:0}
a{
text-decoration:none
color:#000}
/*———————按钮—————————–*/
.login_putin ul li input{
margin: 0
width:70%
padding: 1em 2em 1em 5.4em
-webkit-border-radius:.3em
-moz-border-radius: .3em
border: 1px solid #999
}
.login_btn{
width:300px
margin:40px auto 0 auto
}
.login_btn input{
width:100%
margin:0
padding:.5em 0
-webkit-border-radius:.3em
-moz-border-radius: .3em
border:#1263be solid 1px
background:#1b85fd
color:#FFF
font-size:17px
font-weight:bolder
letter-spacing:1em
}
.login_btn input:hover{
background:#1263be
}
Private Sub login_btn__login_Click()
Dim passwd As Variant
Dim inputpass As Variant
If Not IsNull(password) Then
inputpass = password
Else
inputpass = ””
End If
If Not IsNull(DLookup(”[密码]”, ”[用户]”, ”[ID]=” &zgy)) Then
passwd = DLookup(”[密码]”, ”[用户]”, ”[ID]=” &zgy)
Else
passwd = ””
End If
If Trim(inputpass) <>Trim(passwd) Then
MsgBox (”密码错误!”)
ElseIf Trim(passwd) = ”” Then
MsgBox (”密码为空,请登录后修改密码!”)
Call showmain(keshi, zgy)
Else
MsgBox (”现在是” &Now &”,欢迎您来到XXXXXXX系统!”)
Call showmain(keshi, zgy)
End If
End Sub
此外，窗体显示后，输入焦点需要停在科室处
Private Sub Form_Current()
DoCmd.GoToControl (”keshi”)
End Sub
窗体下方还有一个当前时间的显示，文本框控件名称为nowtime，在窗体的时间事件中编写代码，同时将时间触发设为1000（即：1秒）
Private Sub Form_Timer()
nowtime = Now
End Sub
showmain是一个自定义的函数，即显示系统的主界面
Private Function showmain(keshiid As String, zgyid As String)
DoCmd.Close
DoCmd.OpenForm (”管理系统”)
Forms!管理系统!keshi = keshiid
Forms!
以上就是关于vb用户怎么登录界面？用户登陆的代码是多少？全部的内容，如果了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
更多相关资讯
