制作登录窗口

 

    姓名:杨健 专业:电气工程及其自动化 学号:15050341036                                         制作登录窗口

一、    实验目的

1、     掌握在窗体上添加控件的方法；

2、     了解窗体等基本对象属性的设置方法；

3、     掌握可视化数据管理器的使用方法；

4、     掌握数据控件及绑定控件的使用方法；

5、     掌握代码操作数据库的方法。

二、    实验内容和步骤、

     1、打开VB，在左侧菜单栏中选中标签组，在右侧空白处选中，重复两次并对齐。
   2、在左侧选中command button键，并在右侧选中，重复两次，左右对齐。
   3、把上下两标签改名为账号，密码。
   4、把左右的命令按钮名称改为确定，取消。
   5、在VB6.0内单击“外接程序”菜单下的“可视化数据管理器”命令，即打开了VisDate窗口。
   6、在VisDate上单击“文件”下的“新建”下的（M）中“Version7.0MDB（7）”命令。
   7、设置文件名，点击保存。
   8、打开数据库，在窗口中点击“新建表”，点击添加字进行更改。
   9、回到VB，双击“确定”键，输入以下内容：

Option Explicit

Const MaxLoginTimes As Integer = 3

Private Sub cmdLogin_Click()

    Static loginTimes As Integer

    loginTimes = loginTimes + 1

If loginTimes < MaxLoginTimes Then

    On Error GoTo ppp

    Dim Cn As Connection

    Dim Rs As Recordset

    Dim strSQL As String

    Set Cn = New Connection

    Set Rs = New Recordset

Cn.ConnectionString="provider=Microsoft.Jet.OLEDB.3.51;

Data Source=C:\Users\jf\Desktop\TestExample.mdb"

   Cn.Open

   Rs.ActiveConnection = Cn

        strSQL = "select UserPassword from UserInformation where UserID= '" & Me.txtUserID.Text & "'"

   Rs.Open (strSQL)

   If Rs.EOF = True Then

       MsgBox txtUserID.Text & "不存在"

        Me.txtUserID.SetFocus

        Me.txtUserID.SelStart = 0

        Me.txtUserID.SelLength = Len(Me.txtUserID.Text)

    Else

       If Rs.Fields("UserPassword").Value = Me.txtPassword.Text Then

            MsgBox "登录成功"

            Unload Me

       Else

        MsgBox "密码错误"

       End If

     End If

       

ppp:

    Cn.Close

Else

    MsgBox "亲，您的输入次数超过允许的最大次数", vbCritical, "登录"

End If

End Sub

 

Private Sub txtUserID_Change()

 

End Sub

三、实验感想

    1、“Cn.Close”不能丢掉

         原因：前面有“Cn.Open”，所以一定要有Cn.close去结束

     2、不理解Data Source=C:\Users\jf\Desktop\TestExample.mdb"的含义

     如何处理：问过同学后，了解了这句程序的意思是帐号和密码存储的地方，不可缺少。