制作窗口

制作登录窗口

一、 实验目的

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

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

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

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

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

二、 实验内容

1、 建立登录窗口

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

b． 属性设置

 

对象	属性	属性值	说明
Form1	Caption	FrmLogin	Form1的标题
	Alignment	Center	窗口居中
Label1	Caption	用户（U）	命名label1
Label2	Caption	密码（P）	命名label2
Textbox	Text	txtUserID
Textbox	Text	txtPassword
	Passwordchar	*	输入密码时显示为*
Command1	Caption	登录	命名command1
	名称	cmdLogin
	Default	True	Enter—登录
Command2	Caption	取消	命名command2
	名称	cmdCancel
	Cancel	True	Esc—取消

   所有的字体为小二号；

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

 txtPassword-1

 cmdLogin-2

 cmdCancel-3

2、 建立数据库

a． 启动可视化数据管理器，建立数据库，选择文件\新建\Microsoft Access\Version\弹出对话框后输入TestExample.mdb为文件名\保存到桌面

b． 添加数据表：右击可视化数据管理器窗口，然后从弹出的快捷菜单中选择新建表命令，表名称为UserInformation，单击“添加字段”，弹出对话框，UserID，20，UserPassword，添加记录信息，选中表右击打开添加UserID为123456，UserPassword为123456。

3、 编写程序

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键，分别输入正确和错误的密码，点击登录看程序运行情况。