!!!!!!!新手跪求大神帮助！

Question

我需要一个登录代码.
不用连接数据库 .TEXT1 是用户名TEST2 是密码  然后一个OK按钮我需要OK里的代码 
当用户和密码对的时候
点OK跳转到下一个界面！
高手帮忙写下啊 ！不要错的！

Answer 1

Const User = "aaa"
Const Pwd = "111"
Private Sub Command1_Click()
    If Text1 = "" Or Text2 = "" Then '检测文本框是否为空
    MsgBox "请输入用户名和密码"
    Else            If Text1.Text <> User Then '验证用户名是否正确2
                MsgBox "用户名不存在", vbInformation, "提示"
            Else
                If Text2.Text = Pwd Then   '验证密码是否正确
                   ' MsgBox "登陆成功了"
                    Form2.Show
                    Unload Me  '卸载自己                    Else
                        MsgBox "密码错误"
                        Text1.Text = ""
                        Text2.Text = ""
                    End If
            End If
    End If
 挺简单的，不知道是不是你需要的 

Answer 2

Const User = "aaa"
Const Pwd = "111"
这两句应该写在哪里呢 ？  

Answer 3

写在函数外边，放在最上边就行了，也可以在函数里定义两个string
建议楼主看看VB集出书吧

Answer 4

打开 Visual Basic 6.0
新建 - 窗体 - 登录窗体
确定。
完成。