登录窗体代码（实现窗体的登录功能）

今天给各位分享登录窗体代码的知识，其中也会对实现窗体的登录功能进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、vb用户怎么登录界面？用户登陆的代码是多少？
• 2、如何利用VB6.0编写一个用户登录窗口
• 3、vb用户登录界面代码
• 4、EXCEL用户登录窗体代码修改，详细如下
• 5、请使用VFP编写一个登录界面的代码，并写出来
• 6、html网页设计：一个简单的登录界面代码！

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

vb登陆程序源代码

你可以这样做建一个模块在里面输入下列

Public conn As ADODB.Connection

Sub 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.Open

from1.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 With

End Sub

如何利用VB6.0编写一个用户登录窗口

进入VB6.0软件，双击“标准EXE”显示的页面如图。预设正确的用户名和密码为aaa和abc123。

先从控件栏选择标签控件在form1窗体的相应位置画两个大小适合的标签，再从控件栏选择文本框控件在form1窗体的相应位置画两个大小适合的文本框，然后再从控件栏选择按钮控件在form1窗体的相应位置画两个大小适合的按钮。

选中（单击即可）窗体Form1，在右边的属性栏将Caption属性值改为“用户登录”；选中标签Lable1将Caption属性值改为“用户名”，选中标签Lable2将Caption属性值改为“密码”，属；选中文本框Text1，将Text属性值置空，选中文本框Text2，将Text属性值置空且将PasswordChar属性值改为“*”；选中按钮Command1，将Caption属性值改为“登录”，选中按钮Command2，将Caption属性值改为“重新输入”。然后调整各控件位置和大小，使整个窗体更加美观。

在右边右键点击“窗体”，选中“添加”，点击“添加窗体”，如图在出现的窗口里双击“窗体”，添加一个form2窗体；用同样的方法再添加一个form3窗体。

在form2窗体各添加一个标签和按钮。在标签的Caption属性值改为“登录成功！”也可以通过Font属性更改字体；按钮的Caption属性值改为“返回”。

在form3窗体各添加一个标签和按钮。在标签的Caption属性值改为“用户名或密码错误，请重新登录！”也可以通过Font属性更改字体；按钮的Caption属性值改为“重新登录”。

在form1窗体里，双击“登录”按钮，弹出代码窗口，写上代码（在编写代码时系统会自动检查代码错误，但不是万能的哦，有些错误系统检查不出来），然后关闭代码窗口，代码会自动保存。我把代码也写下来，以方便亲手复制粘贴验证一下。

Private Sub Command1_Click()

If Text1 = "aaa" And Text2 = "abc123" Then

Form1.Hide

Form2.Show

Else

Form1.Hide

Form3.Show

End If

End Sub

在form1窗体里，双击“重新输入”按钮，弹出代码窗口，写上代码，然后关闭代码窗口。

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

End Sub

在form2窗体里，双击“返回”按钮，弹出代码窗口，写上代码，然后关闭代码窗口。

Private Sub Command1_Click()

Form2.Hide

Form1.Show

Form1.Text1 = ""

Form1.Text2 = ""

End Sub

在form3窗体里，双击“重新输入”按钮，弹出代码窗口，写上代码，然后关闭代码窗口。

Private Sub Command1_Click()

Form3.Hide

Form1.Show

Form1.Text1 = ""

Form1.Text2 = ""

End Sub

至此，我们完成了编程，调试一下以检验程序的正确性。一种可以右键“文件”，再点击“调试”，另一种是直接点击调试按钮。

调试正确后可以生成工程了。点击“文件”，在下拉选项中选择“生成工程1.EXE(K)”项即可生成可执行的exe文件，如果该项是灰色的，则先保存，，关闭VB，再打开VB。如果还是灰色的，则可能是安装VB6.0软件被破坏了（小编也不知道原因），建议重装VB6.0。

vb用户登录界面代码

送给你一段现存的登录代码：

Option Explicit

Private 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 Function

Private 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 Sub

Err_box:

End Sub

Private 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 If

End Sub

'**********************************************************************

'说明:1) 在工程中引用Microsoft ActiveX Data Objects 2.8 Library ,其它版本也行如:2.0

' 2) 在窗体中加Texe1.text(文本框控件),Combo1.text(组合框控件),Command1(命令按钮)各一个

' 3) 在SQL Server2000中创建数据库"MyDatabase",新建表"A用户表",表中包含"ID,姓名,密码"等字段,然后将以上代码复制,OK搞定

EXCEL用户登录窗体代码修改，详细如下

假设要求:用户2，用户名、密码均为456，用户3，用户名、密码均为789

If TextBox1.Text = "123" And TextBox2.Text = "123" Then

Application.Visible = True

For i = 1 To Sheets.Count

Sheets(i).Visible = True

Next

ElseIf TextBox1.Text = "456" And TextBox2.Text = "456" Then

Applincation.Visible = True

Sheets(2).Visible = true

Sheets(1).Visible = False

Sheets(3).Visible = False

ElseIf TextBox1.Text = "789" And TextBox2.Text = "789" Then

Applincation.Visible = True

Sheets(3).Visible = true

Sheets(1).Visible = False

Sheets(2).Visible = False

Else

MsgBox "用户名或密码不正确，请重新输入！", 64

End If

UserForm1.Hide

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

*新建一个表单，添加一个文本框，添加一个命令按钮（其余的修饰控件自己解决）

*form1.init代码：

public times,mima

times=0

mima="a1b2c3"

this.caption="登录"

thisform.text1.passagewordmark="*"

*command1.click代码

if thisform.text1.value==mima

messagebox("登录成功！")

release mima

thisform.release

endif

times=times+1

do case

case time=1

messagebox("密码错！还有两次机会")

case time=2

messagebox("密码错！还有两一次机会")

case time=3

messagebox("密码错！系统拒绝你登录")

release mima

thisform.release

endcase

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

liinput type="text" /li

liinput 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;

}

关于登录窗体代码和实现窗体的登录功能的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。