姓名:辛雅松 专业:电气工程及其自动化学号: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设计登录窗口很难,有很多的地方需要注意,我认为还可以加一个注册的链接,目前正在努力。