自己建造的登录窗口

自己建造的登录窗口

一实验目的

❶自己学习，自己寻找方法，建造窗口。

❷掌握可视化数据管理器的使用方法。

❸掌握代码操作数据库的使用方法。

二实验内容

⒈    编写一个“用户登录“的程序，对用户输入的用户名和密码进行验证。

⑴    用户名不超过6位数，密码不超过6位数。

⑵    用户名可以为有数字和非数字字符。

⑶    密码输入时，屏幕上不能显示输入字符，以“*“代替。

三实验步骤

⑴    界面设计

在窗体上添加两个标签控件，两个文本控件，和两个按钮控件。调整控件的位置使窗体美观。

⑵    属性设置

╱label1                caption            用户名（p）

╲label2                caption            密      码（u）

╱textbox1 名称：txtUserID  TabIndex        0

╲textbox2 名称：txtPassword     TabIndex        1       passwordchar改为“*“

╱command1名称：cmdLogin             default    :true         TabIndex-2    caption-登录

╲command2名称：cmdcancel            cancel:true     TabIndex-3    caption

-取消

Form 名称：Form-frmlogin                  caption   ---登录             staruppostion=2

⑶    建立数据库

①   在可视化数据管理器窗体中选择---文件---新建---MicrosoftAcess----version7.0mdb---弹出选择要创建的MicrosoftAcess数据库的对话框以Testexample.mdb文件名保存，存完后在向库中添加表：UserInformation建两个字段:

UserID只需把顺序位置改为0

②   可以读取并改写第三方程序

ActiveX-OLE:工程---引用---Mircroft   ActiveXData  Objects2.5library

⑷    编写代码通过第三方与数据库交会

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;DataSource=C:\Users\Administrator\Desktop\TestExample1.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

            'frmNew.show

      Else

       MsgBox "密码错误"

       Me.txtPassword.SetFocus

       Me.txtPassword.SelStart = 0

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

      End If

    End If

       

ppp:

    Cn.Close

Else

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

End If

End Sub

四调试与运行

Perfect完美

五 心得体会

没看老师的之前，是只会建立一个数据库，不会怎么用代码通过第三方与数据库进行交流，看完了之后，我有查了下课本Microsoft  Jet  SQL,,, Microsoft   Jet数据访问对象模型，以及OLE控件但还是有点不懂，又去网上查以及看了下视频，基本上能看懂像Option Explicit，Const MaxLoginTimes As Integer = 3不过像一些细的地方，还是有点迷糊，不过可以了，这个真的很难，看上去比较容易，做起来，真是伤神，以后我还会继续去看视频学习的  加油加油加油…