登录窗口

姓名:辛雅松 专业:电气工程及其自动化学号:15050341033

制作登录窗口

一、实验目的

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

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

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

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

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

二、实验内容

1、建立登录窗口

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

b、属性设置

 

对象	属性	属性值	说明
Form1	名称	FrmLogin
	Caption	登录	Form1的标题
	Alignment	Center	窗口居中
Label1	Caption	用户（U）	命名label1
Label2	Caption	密码（P）	命名label2
Textbox1	名称	txtUserID
Textbox2	名称	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，长度6，可变，不允许为零，关闭。添加记录信息，选中表右击打开添加UserID为user，UserPassword为123456,更新。

3、编写程序

OptionExplicit

ConstMaxLoginTimes As Integer = 3

PrivateSub 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\jf\Desktop\TestExample.mdb"

Cn.Open

Rs.ActiveConnection= Cn

 strSQL = "select UserPassword from UserInformationwhere 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.txtPass

      word.TextThen

    MsgBox"登录成功"

    Unload Me

Else

    MsgBox"密码错误"

     Me.UserPassword.SetFocus

     Me.UserPassword.SelStart= 0

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

End If

End If       

ppp:

Cn.Close

Else

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

Me.cmdLogin.Enable=False

EndIf

EndSub

PrivateSub txtUserID_Change()

EndSub

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

5、运行并检查问题

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

三、心得体会

用VB设计登录窗口很难，有很多的地方需要注意，我认为还可以加一个注册的链接，目前正在努力。