VB+SQL的登录窗口

Question

要做一个登录窗口，然后登录成功后的下一个窗口有四个主菜单，是一个学生管理系统，就这两个界面，能做够300行代码吗？有的话，给我点吧！

Answer 1

Option Explicit
Public OK As Boolean
'记录确定次数
Dim miCount As Integer
Private Sub Form_Load()
    OK = False
    miCount = 0
End SubPrivate Sub cmdCancel_Click()
    OK = False
    Me.Hide
End Sub
Private Sub cmdOK_Click()
    Dim txtSQL As String
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    '变量定义 txtSQL是用来存放SQL语句，MsgText存放返回信息
    UserName = ""
    If Trim(txtUserName.Text = "") Then
    '判断用户名输入是否为空
        MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
        txtUserName.SetFocus
    Else
        txtSQL = "select * from 用户登录表 where username = " & txtUserName.Text & ""
        '对所输入的用户名进行查询
        Set mrc = ExecuteSQL(txtSQL, MsgText)
       ' MsgBox MsgText
        If mrc.EOF = True Then
            MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
            txtUserName.SetFocus
        Else
            If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
            '判断密码输入正确性
                OK = True
                mrc.Close
                Me.Hide
                UserName = Trim(txtUserName.Text)
                PWD = Trim(txtPassword.Text)
                '记录用户名和密码到全局变量
            Else
                MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
                txtPassword.SetFocus
                txtPassword.Text = ""
            End If
        End If
    End If
    miCount = miCount + 1
    If miCount = 3 Then
    '记录密码输入的次数，累计到3此则自动结束程序
        Me.Hide
    End If
    Exit Sub
End Sub