VB语言设计“用户名”与“密码”实验报告
2016-06-02 17:11
447 查看
VB语言设计“用户名”与“密码”实验报告
姓名:刘兆国
学号:15050342020
实验日期:2016.5.26
实验内容:首先创作一个登录页面,然后输入相应的字并对字符大小进行修改,然后建立数据库,在数据库内建立数据表并对表格进行相应的命名,然后编制程序,最后运行输出结果。
实验步骤:
登录-Form-frmlogin StartUpPosition=2,账号-Label TextBox-txtUserID,
密码-Label TextBox-txtpassword,
登录`取消-commandbutton
Cmdlogin-default:true-ENTER
Cmdcancel-cancel:true-ESC
字体:大小:小一
所有控件的tablndex属性:0,1,2,3
Txtuserid-0
Txtpassword-1
Cmdlogin-2
Cmdcandel-3
数据—KU—酷(库)
关系数据
数据表-数据库
列(column)-field(字段,字段语)
行(row)-recorder(记录)
1数据库和表字段如何建立
并向其中添加记录
建库:access:testexample.mdb
建表:userinformation
建字段(2个)
Userid,20,
userpassword,6
添加记录信息:选中表-右键-打开-添加
2可以读取并改写数据表的
第三方程序在哪里
activeX-OLE:
工程-引用-Microsoft activeX Data Objects2.5 library 3VB 如何通过第三方和数据库交互
Connection cn.connectionstriong=“”
Provider=Microsoft。Jet。OLEDN.3.51;
Data source=数据库地址
在connection联通的掉剑侠,可以和数据表进行数据双向传输Recordset
学习一个新的语言[SQL]
Select Update insert into delete
实验程序: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
'frmNew.show
Else
MsgBox "密码错误"
End If
End If
ppp:
Cn.Close
Else
MsgBox "亲,您的输入次数超过允许的最大次数", vbCritical, "登录"
End If
End Sub
发现的错误:
建立数据库失败,原因是未能正确的建立正确的库,询问其他同学后得以改正。
程序编写有误,缺少相应的语句,并已经改正。
对部分程序不了解,经同学辅助后得以了解和改正。
感想
Vb是一科逻辑性非常强的科目,仍需透彻研究,抓住并重视细节,再接再厉。
姓名:刘兆国
学号:15050342020
实验日期:2016.5.26
实验内容:首先创作一个登录页面,然后输入相应的字并对字符大小进行修改,然后建立数据库,在数据库内建立数据表并对表格进行相应的命名,然后编制程序,最后运行输出结果。
实验步骤:
登录-Form-frmlogin StartUpPosition=2,账号-Label TextBox-txtUserID,
密码-Label TextBox-txtpassword,
登录`取消-commandbutton
Cmdlogin-default:true-ENTER
Cmdcancel-cancel:true-ESC
字体:大小:小一
所有控件的tablndex属性:0,1,2,3
Txtuserid-0
Txtpassword-1
Cmdlogin-2
Cmdcandel-3
数据—KU—酷(库)
关系数据
数据表-数据库
列(column)-field(字段,字段语)
行(row)-recorder(记录)
1数据库和表字段如何建立
并向其中添加记录
建库:access:testexample.mdb
建表:userinformation
建字段(2个)
Userid,20,
userpassword,6
添加记录信息:选中表-右键-打开-添加
2可以读取并改写数据表的
第三方程序在哪里
activeX-OLE:
工程-引用-Microsoft activeX Data Objects2.5 library 3VB 如何通过第三方和数据库交互
Connection cn.connectionstriong=“”
Provider=Microsoft。Jet。OLEDN.3.51;
Data source=数据库地址
在connection联通的掉剑侠,可以和数据表进行数据双向传输Recordset
学习一个新的语言[SQL]
Select Update insert into delete
实验程序: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
'frmNew.show
Else
MsgBox "密码错误"
End If
End If
ppp:
Cn.Close
Else
MsgBox "亲,您的输入次数超过允许的最大次数", vbCritical, "登录"
End If
End Sub
发现的错误:
建立数据库失败,原因是未能正确的建立正确的库,询问其他同学后得以改正。
程序编写有误,缺少相应的语句,并已经改正。
对部分程序不了解,经同学辅助后得以了解和改正。
感想
Vb是一科逻辑性非常强的科目,仍需透彻研究,抓住并重视细节,再接再厉。
相关文章推荐
- VB 中 copymemory的有关问题
- 没有找到msvbvm60.dll,因此这个应…
- 银河U1 VB 真空烧 + 银河北斗 + 锐科特小蓝火
- office2007给VBA增加数字签名保证宏安全
- 【原创】VB6.0应用程序安装包的生成(Setup Factory 9.0制作安装包的方法)
- 基于ffmpeg的内存数据UDP直播推流
- 【办公-WORD】vba 统一改变word文档所有的图片大小 然后导出成PDF
- 计算Spearman等级相关系数的VBA函数
- VB实现USB摄像头视频图像的监控、截图、录像
- 2016年4月编程语言排行榜 Visual Basic正渐行渐远
- VB Cells.find函数参数解释
- 安装vbundle
- excel中用当天日期命名工作表名vba
- 对反正弦函数的泰勒公式的转换加速
- VB 颜色RGB
- VB.net学习笔记(二十三)再识委托
- vbox丢失*MultiArch_amd64.msi或者*MultiArch_x86.msi重新制作
- VBA编程之放假倒计时器
- VAO,VBO绘图方式及GLSL传值
- VB 导出数据到Excel