vb登录界面设计笔记（连接SQLServer2000数据库）

   vb登录界面设计（连接SQL Server 2000）实验笔记

实验目的：这次实验目的是设计出一个应用程序的登录界面，并连接SQL server 2000数据库，以实现用户登录功能。

实验任务：

（1）新建数据库并命名为denglu，在该数据库中新建表User1,表包含的列为“ID,username,pwd”。

（2）设计登录界面Frmlogin，以及登录成功后要显示的界面Form2,并连接到数据库，使包含在数据库中的合法用户能成功登录该程序，而不合法用户则无法进入程序。

实验内容：

一、界面设计

各控件名称属性分别为：label1  、text1 、label2、text2、commandok、cmdcancel

 

 登录成功后显示的窗体：

 

 

代码设计如下：

'首先添加一个模块，写上以下通用声明和Sub main()：

Public conn As ADODB.Connection    '通用（声明）

Sub main()

    Set conn = New ADODB.Connection   '通用（main）

     conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _

     + "User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1"      '连接数据库代码

    conn.Open

frmLogin.Show     '首先显示登录界面。也可以在工程属性中设置启动对象为Sub main()或者frmlogin窗体

End Sub

'在Frmlogin 代码窗口，为cmdok控件写以下代码：

Private Sub cmdok_Click()

  If text1.Text = "" Then

        MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"

        text1.SetFocus

        Exit Sub       '若用户名文本框内为空，则出现提示框

    End If

    If text2.Text = "" Then

        MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"

        text2.SetFocus

        Exit Sub     '若输入密码文本框为空，也出现提示框

    End If

    Dim strSQl As String    

    strSQl = "select * from User1 where username='" & Trim$(text1.Text) & "' and pwd='" & Trim$(text2.Text) & "' "    

    '书写SQL代码，查询User1表中是否存在窗体中用户输入的信息。

    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            '若用户连续输入3次错误密码，则系统关闭

            Else

                MsgBox "对不起，用户名不存在或密码错误 ！", vbOKOnly + vbQuestion, "警告"

                text1.SetFocus

                text1.Text = ""

                text2.Text = ""

            End If

        Else

            

            Unload Me    '若登录成功，则隐藏当前窗体

            

          Form2.Show    '然后显示Form窗体            

        End If

    End With

End Sub

Private Sub cmdCancel_Click()    

End         '若单击Cmdcel按钮，则结束应用程序

End Sub

运行中存在的问题：

代码中有Dim conn As adodb.connection，运行时显示"用户定义类型未定义"，请问我应该怎么做?

解决方法：点击“工程”--“引用”找到“Microsoft ActiveX Data Object 2.6”

然后就就可以正常运行了。