VB怎么编写密码登陆

添加两个按扭command1,command2和两个文本框text1,text2和两个窗体form1和form2

command1的default属性设置为True

然后复制代码!

Private Sub Command1_Click()

If Text1Text = "" And Text2Text = "" Then MsgBox "请先输入帐号和密码!", vbCritical, "错误": Exit Sub

If Text1Text = "" Then MsgBox "请输入帐号!", vbCritical, "错误": Exit Sub

If Text2Text = "" Then MsgBox "请输入密码!", vbCritical, "错误": Exit Sub

If Text1Text = "这里是可以帐号自己设置" And Text2Text = "这里是密码可以自己设置" Then

Form2Show

MeHide

Unload Me

Else

MsgBox "帐号或密码错误,请重新输入!", vbCritical, "错误"

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Command1Caption = "登入"

Command2Caption = "退出"

End Sub

添加如下控件

Private Sub Command1_Click()

If Text1 = "" Then

    MsgBox "用户名为空！", 64

    Text1SetFocus

Else

    If Text2 = "" Then

        MsgBox "密码为空！", 64

        Text2SetFocus

    Else

        If Text3 = "" Then

            MsgBox "附加码为空！", 64

             Text3SetFocus

        Else

            If Text1 <> "test" Then               '用户名

                MsgBox "用户名错误！", 64

                Text = ""

                Text1SetFocus

            Else

                If Text2 <> "test" Then              '用户名

                    MsgBox "密码错误！", 64

                    Text2 = ""

                    Text2SetFocus

                Else

                    If Text3 <> Label4Caption Then

                        MsgBox "附加码错误！", 64

                        Label4Caption = fjm         '附加码错误刷新附加码

                        Text3 = ""

                        Text3SetFocus

                    Else

                        MsgBox "登录成功！", 64

                    End If

                End If

            End If

        End If

    End If

End If

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

Label1Caption = "用户名："

Label2Caption = "密  码："

Label3Caption = "附加码："

Label4Caption = fjm

Text1 = ""

Text2 = ""

Text3 = ""

Text2PasswordChar = ""

Command1Caption = "提 交"

Command2Caption = "退 出"

End Sub

Function fjm() As String

Randomize

fjm = Int(Rnd(1)  900) + 100

End Function

Private Sub Label4_Click()

    Label4Caption = fjm

End Sub

在登录按钮的单击事件（Click）中获取输入的用户名和密码

dim username as string

dim password as string

username=text1text

password=text2text

然后和和数据库中的数据比较就行了

以上就是关于VB怎么编写密码登陆全部的内容，包括:VB怎么编写密码登陆、VB设计实现登录验证功能的应用程序、VB中我想制作一个登陆窗体，账号和密码已经设置在一个数据库中，怎样编VB程序用账号密码准确登录等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！