登录界面代码（用html代码编写一个简单的登陆界面）

本文目录

• 用html代码编写一个简单的登陆界面
• c#登录界面代码
• vb用户登录界面代码
• 请使用VFP编写一个登录界面的代码，并写出来
• vb用户怎么登录界面用户登陆的代码是多少
• html登陆界面代码
• 急！求access登录后进入不同界面的代码
• html网页设计：一个简单的登录界面代码！

用html代码编写一个简单的登陆界面

《!DOCTYPE html》《html lang="zh-CN"》《head》 《meta charset="utf-8"》 《meta http-equiv="X-UA-Compatible" content="IE=edge"》 《meta name="viewport" content="width=device-width, initial-scale=1"》 《title》登录《/title》 《link href="css/bootstrap.min.css" rel="stylesheet"》《/head》《body》《nav class="navbar navbar-default"》 《div class="container-fluid"》 《div class="navbar-header"》 《a class="navbar-brand" href="./"》jsp作业《/a》 《/div》 《div class="collapse navbar-collapse" id="bs-example-navbar-collapse-1"》 《ul class="nav navbar-nav navbar-right"》 《li》《a href="login.html"》登录《/a》《/li》 《/ul》 《/div》 《/div》《/nav》《div class="container"》 《div class="row"》 《div class="col-md-4"》 《/div》 《div class="col-md-4"》 《form class="form-signin" target="submitFrame" method="post"》 《h3 class="form-signin-heading"》登录到jsp作业《/h3》 《label for="inputEmail"》Email《/label》 《input type="email" id="inputEmail" class="form-control" placeholder="请输入Email" required autofocus》《br》 《label for="inputPassword"》密码《/label》 《input type="password" id="inputPassword" class="form-control" placeholder="请输入密码" required》 《div class="checkbox"》 《label》 《input type="checkbox" value="remember-me" checked="checked"》 记住密码 《/label》 《/div》 《button type="submit" class="btn btn-primary" id="btn-login"》登录《/button》 《a href="reg.html" class="btn btn-default"》注册《/a》 《/form》 《iframe style="display: none;" name="submitFrame" src="about:blank"》《/iframe》 《/div》 《div class="col-md-4"》 《/div》 《/div》 《script src="js/jquery.min.js"》《/script》《/body》《/html》

c#登录界面代码

private void button1_Click(object sender, EventArgs e){ string sqlstring = "database=students_info;Trusted_Connection=yes;"; SqlConnection a = new SqlConnection(sqlstring); a.Open(); SqlCommand b = new SqlCommand("select * from where id = ’" + this.textBox1.Text + "’", a); SqlDataReader c = b.ExecuteReader(); if (!c.Read()) { MessageBox.Show("没有此用户！"); c.Close(); return; } if (this.textBox2.Text != c.ToString()) { MessageBox.Show("错误"); } else { MessageBox.Show("正确"); } c.Close();}编程很难搞，是吧！

vb用户登录界面代码

送给你一段现存的登录代码：Option ExplicitPrivate Function Selectsql(SQL As String) As ADODB.Recordset ’返回ADODB.Recordset对象 Dim ConnStr As String Dim Conn As ADODB.Connection Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Set Conn = New ADODB.Connection ’On Error GoTo MyErr: ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=001234;Initial Catalog=Mydatabase;Data Source=MERRYCHINA" ’这是连接SQL数据库的语句 Conn.Open ConnStr rs.CursorLocation = adUseClient rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic Set Selectsql = rs ’Exit Function’MyErr: ’Set rs = Nothing ’Set Conn = Nothing ’释放相关的系统资源 ’MsgBox Err.Description, vbInformation, "系统提示" ’显示出错信息End FunctionPrivate Sub Form_Load() Dim SQL As String Dim rs As ADODB.Recordset Dim X As Long On Error GoTo Err_box SQL = " select * from A用户表 ORDER BY ID" Set rs = Selectsql(SQL) If rs.RecordCount 》 0 Then rs.MoveFirst For X = 1 To rs.RecordCount Combo1.AddItem rs.Fields("姓名").Value rs.MoveNext Next X Combo1.ListIndex = 0 End If rs.Close Exit SubErr_box: End SubPrivate Sub Command1_Click() Dim SQL As String Dim rs As ADODB.Recordset If Text1.Text = "" Then MsgBox "请输入口令!", 64, "提示" Text1.SetFocus Exit Sub End If If Combo1.Text = "" Then MsgBox "请选择帐号!", 64, "提示" Combo1.SetFocus Exit Sub End If SQL = "SELECT * FROM A用户表 WHERE 姓名=’" & Combo1.Text & "’ AND 密码=’" & Text1.Text & "’ " Set rs = Selectsql(SQL) If rs.RecordCount 》 0 Then Form1.Show Unload Me Else MsgBox "口令不对,请重新输入!", 64, "提示" Text1.SetFocus End IfEnd Sub’**********************************************************************’说明:1) 在工程中引用Microsoft ActiveX Data Objects 2.8 Library ,其它版本也行如:2.0’ 2) 在窗体中加Texe1.text(文本框控件),Combo1.text(组合框控件),Command1(命令按钮)各一个’ 3) 在SQL Server2000中创建数据库"MyDatabase",新建表"A用户表",表中包含"ID,姓名,密码"等字段,然后将以上代码复制,OK搞定

请使用VFP编写一个登录界面的代码，并写出来

*新建一个表单，添加一个文本框，添加一个命令按钮（其余的修饰控件自己解决）*form1.init代码：public times,mimatimes=0mima="a1b2c3"this.caption="登录"thisform.text1.passagewordmark="*"*command1.click代码if thisform.text1.value==mima messagebox("登录成功！")release mimathisform.releaseendiftimes=times+1do casecase time=1messagebox("密码错！还有两次机会")case time=2messagebox("密码错！还有两一次机会")case time=3messagebox("密码错！系统拒绝你登录")release mimathisform.releaseendcase

vb用户怎么登录界面用户登陆的代码是多少

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

html登陆界面代码

《form method="post" action="###" name="myform" onsubmit="checkpost()"》 《label for="name"》用户名：《/label》《input type="text" name="name" id="name" /》《br /》 《label for="pw"》密码：《/label》《input type="password" name="pw" id="pw" /》《br /》 《input type="submit" value="提交" /》《/form》《script》function checkpost(){if(document.forms.pw.value=="你要的密码"){window.location="你要跳转的地址";}else{alert("用户名或密码不正确！")return false;}}《/script》

急！求access登录后进入不同界面的代码

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("=" & zgy)) Then passwd = DLookup("=" & 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 IfEnd Sub此外，窗体显示后，输入焦点需要停在科室处Private Sub Form_Current() DoCmd.GoToControl ("keshi")End Sub窗体下方还有一个当前时间的显示，文本框控件名称为nowtime，在窗体的时间事件中编写代码，同时将时间触发设为1000（即：1秒）Private Sub Form_Timer() nowtime = NowEnd Subshowmain是一个自定义的函数，即显示系统的主界面Private Function showmain(keshiid As String, zgyid As String) DoCmd.Close DoCmd.OpenForm ("管理系统") Forms!管理系统!keshi = keshiid Forms!

html网页设计：一个简单的登录界面代码！

《!doctype html》《html》《head》《meta charset="utf-8"》《link href="main.css" type="text/css" rel="stylesheet"》《title》登陆界面《/title》《/head》《body》《div class="login_ico"》 《img src="images/login_ico.png"》《/div》 《div class="login_putin"》 《ul》 《li》《input type="text" 》《/li》 《li》《input type="password" 》《/li》 《/ul》 《/div》 《div class="login_btn"》 《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;}