关闭

制作窗口

21人阅读 评论(0) 收藏 举报

制作登录窗口

一、 实验目的

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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:370次
    • 积分:110
    • 等级:
    • 排名:千里之外
    • 原创:11篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章存档