制作登录窗口

    姓名:孟圣均专业:电气工程及其自动化二班 学号:15050342021

制作登录窗口

一、实验目的

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

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

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

二、  实验内容

1、    建立登录窗口

a．    首先放置两个label，左对齐，在label右侧放置两个text box左对齐，并且与label上对齐，在下侧最后放置两个command。

b．    属性设置

 

对象	属性	属性值
Form1	Caption	FrmLogin
	Alignment	Center
Label1	Caption	用户（U）
Label2	Caption	密码（P）
Textbox	Text	txtUserID
Textbox	Text	txtPassword
	Passwordchar	*
Command1	Caption	登录
	名称	cmdLogin
	Default	True
Command2	Caption	取消
	名称	cmdCancel
	Cancel	True

   所有控件的TabIndex属性：txtUserID-0

                          txtPassword-1

                          cmdLogin-2

                          cmdCancel-3

2、    程序内容

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

4、可以读取并改写数据表的第三方程序\ActiveX—OLE\工程\引用\Microsoft ActiveX Data Objects 2.5 Library

5、运行并检查问题

  输入用户名，点击Tab键，分别输入正确和错误的密码，点击登录看程序运行情况。

一、  遇到的困难。

在设置LABEL窗口时，无法找到设置对齐的按钮。