vb登录界面代码（VB设置用户和密码登录界面设计及代码 我是新手哦 先谢个）

ConstPwd=“Admin“ConstUsr=“Admin“加入两个文本框和一个按钮控件，2个文本框控件名分别为UsrTxt和PwdTxt按钮控件写代码:ifUsrTxt=UsrandPwdTxt=Pwdthenmsgbox“密码正确!“,vbinformation,“提示“elsemsgbox“密码错误!“,vbinformation,“提示“endif这是简单的密码登陆，通过更改常量在程序内部规定用户名和密码!其他的自己琢磨下或者给我发邮件[email protected]

 这种东西，要两个窗口的好（一个窗口也能做）

form1 登录窗口

text1  用户名

text2  密码

（label1）可省略，用窗口屏的一样。

command1 登录按钮

form2   欢迎窗口

label1   欢迎字幕

command1 关闭按钮

这些东西，既然是在学，该是自己试着弄的。

Private Sub Command1_Click()

If Form1.Text1.Text = ““ Or Form1.Text2.Text = ““ Then

MsgBox “用户名或密码不能为空“

Exit Sub

End If

Form1.Visible = False

Form2.Visible = True

Form2.Label1.Caption = “您好“ & Form1.Text1.Text & “欢迎登录“

End Sub

按楼主要求编的，Text1输入用户名，Text2输入密码，Command1为登录按钮，Command2为取消按钮。如果楼主要实现用户名不区分大小写，只要把Text1.Text=“admin“改成LCase(Text1.Text)=“admin“就可以了。如果想要密码框不显示输入的字符，而是显示“*”号的话，只要把Text2的PasswordChar属性设为“*”即可。PrivateSubCommand1_Click()StatictAsIntegerIfText1.Text=“admin“AndText2.Text=“admin“ThenUnloadMeForm2.ShowElseMsgBox“对不起，输入错误。“t=t+1Ift=3ThenUnloadMeEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub

’添加好控件，把代码复制到窗体模块可以了吧。’label1，Label2，Text1’Command1:确定,command2:重输Private Sub Form_Load()    Text1.PasswordChar = “*“    Text1.MaxLength = 6    Command1.Enabled = False    Command2.Visible = False    Label2.Visible = FalseEnd SubPrivate Sub Command1_Click()    If Text1.Text = “123456“ Then        Label2.ForeColor = vbBlue        Label2.Caption = “欢迎进入应用程序！“    Else        Label2.ForeColor = vbRed        Label2.Caption = “密码错误！“    End If    Label2.Visible = TrueEnd SubPrivate Sub Command2_Click()    Text1.Text = ““    Command1.Enabled = False    Command2.Visible = FalseEnd SubPrivate Sub Text1_Change()    If Text1.Text 《》 ““ Then        Command1.Enabled = True        Command2.Visible = True    Else        Label2.Visible = False        Command1.Enabled = False        Command2.Visible = False    End IfEnd Sub

1、在桌面上，鼠标左键双击程序，打开VB编程软件，在左边工具栏上，单击【Label】按钮，在Form1窗口上绘制出两标签，用来写文字的说明。

2、接着，根据窗口的大小，感觉文字小了，可以在Label属性窗口上，修改Font属性值，单击其选择按钮就可以更改字体的大小了。

3、在弹出的字体对话框中，选择四号字的大小，单击【确定】。

4、接着，在程序左边工具栏上，单击【TextBox】按钮，在Form1窗口上绘制出两文本框，并在TextBox属性面板上，修改Text的值，将其清空。

5、然后，在程序左边工具栏上，单击【CommandButton】按钮，在Form1窗口上绘制出两命令按钮在其属性面板上，将Caption的值改为确定，另一个改为取消。

6、最后，在程序左边工具栏上，单击【Image】按钮，在Form1窗口上绘制出两图框，并修改其两处属性值。

7、最后点击运行，如下图所示就完成了。

VB编写一个可以注册帐号的登录系统步骤：

1）1）首先需要用数据库软件（如ACCESS软件）建立一个数据库，新建几个表，用以记录帐号密码的表、登录日志表和其他与此有关的所需要的表等。

2）VB新建数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

3）然后在FORM1窗体中添加ADO数据控件，右键-ADODC1控件属性页-使用连接字符串，选生成，在提供者选项中选合适的OLE DB连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。

ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。

4）可以将SQL查询语句赋值给ADO数据控件的RecordSource属性实现。

5）数据的输入、修改等可灵活应用文本框或数据表格控件与ADO数据控件通过代码绑定。

6）想使用ADO数据对象，也可将ADO数据控件所写的代码较方便的移植给ADO数据对象。

以下是用ADO数据对象编写的登录和注册的代码：

1）标准模块代码：

Option Explicit    Public loginname As String    Public cn As New ADODB.Connection ’定义数据库的连接存放数据和代码    Public rs As New ADODB.Recordset    Public sql As String    Public Newname As String

2）注册窗体代码：

Option Explicit    Dim Password As String    Private Sub Text1_KeyPress(KeyAscii As Integer)    If KeyAscii = 13 And Text1 《》 ““ Then        sql = “select * from 用户管理 where 用户名=’“ & Text1.Text & “’“ ’ and 密码=’“ & Text2.Text & “’“        cn.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“ & App.Path & “\data\data.mdb;Persist Security Info=False“        cn.Open        rs.CursorLocation = adUseClient        rs.Open sql, cn, adOpenDynamic, adLockOptimistic        If rs.EOF = True Then ’没有该用户名可以注册                MsgBox “用户名可以注册!“                rs.Close                cn.Close                Newname = Text1.Text                Text4 = Newname                Text2.SetFocus        Else            MsgBox “该用户名已经存在，换名注册!“                Text1.Text = ““                Text1.SetFocus        End If    End If    Exit Subfinish:    MsgBox Err.DescriptionEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)    If KeyAscii = 13 And Text2 《》 ““ Then        Password = Text2.Text        Text5 = Password        Text3.SetFocus    End IfEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer)    If KeyAscii = 13 And Text3.Text = Text2.Text Then        Command3.Enabled = True        Command3.SetFocus    ElseIf KeyAscii = 13 And Text3.Text 《》 Text2.Text Then        Text3 = ““        Text3.SetFocus    End IfEnd SubPrivate Sub Command1_Click()    Unload MeEnd SubPrivate Sub Command3_Click()    sql = “select * from 用户管理“    cn.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“ & App.Path & “\data\data.mdb;Persist Security Info=False“    cn.Open    rs.CursorLocation = adUseClient    rs.Open sql, cn, adOpenDynamic, adLockOptimistic    rs.AddNew    rs.Fields(0) = Newname    rs.Fields(1) = Password    rs.Update    rs.Close    cn.Close    Command3.Enabled = FalseEnd Sub

3）登录窗体代码：

Option Explicit    Dim pnum As IntegerPrivate Sub Command1_Click()    On Error GoTo finish ’防错代码，防止意外而导致的退出    sql = “select * from 用户管理 where 用户名=’“ & Text1.Text & “’ and 密码=’“ & Text2.Text & “’“    cn.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“ & App.Path & “\data\data.mdb;Persist Security Info=False“    cn.Open    rs.CursorLocation = adUseClient    rs.Open sql, cn, adOpenDynamic, adLockOptimistic    ’以上使用最通用的方法来查询数据库中是否有匹配的记录    If rs.EOF = True Then ’如果没有记录则说明用户或密码为错误的        If pnum 《 2 Then ’pnum就是密码验证次数，当次数超过3次，系统会自动保护退出            pnum = pnum + 1            MsgBox “用户名或密码错误!“, vbInformation, “错误次数：“ & pnum            rs.Close            cn.Close            Text1.Text = ““            Text2.Text = ““            Text1.SetFocus            Exit Sub        Else            MsgBox “用户名或密码错误超过三次,系统会自动退出“, vbInformation, “提示“            End        End If    Else        loginname = rs.Fields(0)        Form1.Show        rs.Close        cn.Close    End If    Exit Subfinish:    MsgBox Err.Description    rs.Close    cn.CloseEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)    If KeyAscii = 13 Then ’获取按键，如果是回车就运行image_click按钮的内容        Call Command1_Click    End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)    If KeyAscii = 13 Then        Text2.SetFocus    End IfEnd SubPrivate Sub Command2_Click()    EndEnd SubPrivate Sub Command3_Click()    frmZhuce.ShowEnd Sub

Dim AAA As StringPrivate Sub Command1_Click()Dim aa, bbaa = “admin“ ’账号bb = “admin888“ ’密码AAA = Val(AAA) + 1 ’记录登录次数If Val(AAA) 》= 3 Then ’等于大于3次，提示并退出程序MsgBox “你已经错误输入三次！“EndEnd IfIf Text1 = aa And Text2 = bb Then ’如果输入正确MsgBox “登录成功!“Me.Hideform2.Show ’登录成功后，转到form2界面Else ’如果输入错误MsgBox “账号或密码输入错误!“End IfEnd SubPrivate Sub Form_Load()Label1 = “欢迎光临！“End Sub

登陆界面为form1，加一个Text1，输入用户名，text2，输入密码，一个按钮，用来登陆，进入的主界面为form2，代码如下Private sub command1_click()if text1.text=“jenny“ and text2.text=“12345“ then form2.showelsemsgbox (“用户名不存在或密码错误！“)end ifend sub

在登录按钮里写代码啊很简单if条件（判断账号和密码是否正确）then系统界面.showme.closeelsemsgbox(“用户名/密码错误“)endif

1.首先添加2个label控件，一个caption为用户名，一个为密码然后分别在2个label控件后面添加一个text控件，

2.将text的text属性设置为空再添加2个button按钮，一个名为登陆，一个名为取消简要代码如下：

private sub text2_change() sswordchar=“*“end subprivate sub button1_click()if text1.text=“text“ and text2.text=“123456“ then ’这里写验证代码...  ’通过验证后要干么elsemsgbox(“用户名或者密码不正确！“)end if end subprivate sub button2_click()endend sub