vb制作登陆界面.doc

Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-datevb制作登陆界面vb制作登陆界面体验用vb制作登陆界面的美感（程序源代码）先建一个模块在里面输入下列内容：Public conn As ADODB.ConnectionSub main()    Set conn = New ADODB.Connection     conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _     + "User ID=sa;password=sa;Initial Catalog=您的数据库名;Data Source=127.0.0.1"    conn.Openfrom1.Show     登录界面End Sub再在登录界面“确定”下写入如下代码：Private Sub Command1_Click()     If id.Text = "" Then        MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"        id.SetFocus        Exit Sub    End If    If password.Text = "" Then        MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"        password.SetFocus        Exit Sub    End If    Dim strSQl As String    strSQl = "select * from Users where users_name='" & Trim$(id.Text) & "' and password='" & Trim$(password.Text) & "' "        Dim str As New ADODB.Recordset    Set str = New ADODB.Recordset    str.CursorLocation = adUseClient    str.Open strSQl, conn, adOpenStatic, adLockReadOnly        With str        If .State = adStateOpen Then .Close        .Open strSQl        If .EOF Then            Try_times = Try_times + 1            If Try_times >= 3 Then                MsgBox "您已经三次尝试进入本系统，均不成功，系统将自动关闭", vbOKOnly + vbCritical, "警告"                Unload Me            Else                MsgBox "对不起，用户名不存在或密码错误 ！", vbOKOnly + vbQuestion, "警告"                id.SetFocus                id.Text = ""                password.Text = ""            End If        Else                        Unload Me                      Form2.Show    登录进入的另一个界面                    End If    End WithEnd Sub-