登录窗体

Question

刚学VB不久,感觉挺爽的.最近想做一个"学生公寓管理系统",哪位大哥有它的原代码请发给我  E-mail:[email protected],如果说我的要求有点过份,也可以只发给我一个登录窗体连接ACCESS数据库的部分代码,谢了.

Answer 1

Private Sub cmdlogin_Click()
Dim rst As ADODB.RecordSet
    Dim password As String
    userId = Left(Trim(txtname.Text), 10)
    SQL = " select * from admin where 用户名='" & userId & "'"
    Set rst = SelectSQL(SQL, msg)
    If rst.RecordCount > 0 Then
        password = Trim(rst.Fields(1))
        rst.Close
    Else
        MsgBox "用户名错误！", vbCritical + vbOKOnly, "错误"
        txtname.SetFocus
        Exit Sub
    End If
    If password = Trim(txtpwd.Text) Then
      加载窗.Show
      Unload Me
    Else
      MsgBox "密码错误！", vbCritical + vbOKOnly, "错误"
      txtpwd.SetFocus
      Exit Sub
    End If
End Sub
Public Function OpenConn() As Boolean
    On Error GoTo ErrorHandle
    Set conn = New ADODB.Connection
    With conn
        .CursorLocation = adUseClient
        .ConnectionTimeout = 60
    End With
    conn.Open GetConnStr
    OpenConn = True
    Exit Function
ErrorHandle:
    MsgBox "连接数据库失败！请重新连接！"
    OpenConn = False
    Exit Function
End Function