vb登录界面设计笔记连接SQLServer2000数据库 sqlserver数据库培训

vb登录界面设计(连接SQL Server 2000)实验笔记

实验目的:这次实验目的是设计出一个应用程序的登录界面,并连接SQL server 2000数据库,以实现用户登录功能。

实验任务:

(1)新建数据库并命名为denglu,在该数据库中新建表User1,表包含的列为“ID,username,pwd”。

(2)设计登录界面Frmlogin,以及登录成功后要显示的界面Form2,并连接到数据库,使包含在数据库中的合法用户能成功登录该程序,而不合法用户则无法进入程序。

实验内容:

一、界面设计

各控件名称属性分别为:label1 、text1 、label2、text2、commandok、cmdcancel





登录成功后显示的窗体:



代码设计如下:

'首先添加一个模块,写上以下通用声明和Sub main():

Public conn As ADODB.Connection '通用(声明)

Sub main()
vb登录界面设计笔记(连接SQLServer2000数据库) sqlserver数据库培训

Set conn = New ADODB.Connection '通用(main)

conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _

+ "User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1" '连接数据库代码

conn.Open

frmLogin.Show '首先显示登录界面。也可以在工程属性中设置启动对象为Sub main()或者frmlogin窗体

End Sub

'在Frmlogin 代码窗口,为cmdok控件写以下代码:

Private Sub cmdok_Click()

If text1.Text = "" Then

MsgBox "用户名不能为空!", vbOKOnly + vbInformation, "友情提示"

text1.SetFocus

Exit Sub '若用户名文本框内为空,则出现提示框

End If

If text2.Text = "" Then

MsgBox "密码不能为空!", vbOKOnly + vbInformation, "友情提示"

text2.SetFocus

Exit Sub '若输入密码文本框为空,也出现提示框

End If

Dim strSQl As String

strSQl = "select * from User1 where username='" & Trim$(text1.Text) & "' and pwd='" & Trim$(text2.Text) & "' "

'书写SQL代码,查询User1表中是否存在窗体中用户输入的信息。

Dim str As New ADODB.Recordset

Set str = New ADODB.Recordset

str.CursorLocation = adUseClient

str.Open strSQl, conn, adOpenStatic, adLockReadOnly

With str

If .State = adStateOpen Then .Close

.Open strSQl

If .EOF Then

Try_times = Try_times + 1

If Try_times >= 3 Then

MsgBox "您已连续三次输入错误,系统将自动关闭", vbOKOnly + vbCritical, "警告"

Unload Me '若用户连续输入3次错误密码,则系统关闭

Else

MsgBox "对不起,用户名不存在或密码错误 !", vbOKOnly + vbQuestion, "警告"

text1.SetFocus

text1.Text = ""

text2.Text = ""

End If

Else

Unload Me '若登录成功,则隐藏当前窗体

Form2.Show '然后显示Form窗体

End If

End With

End Sub

Private Sub cmdCancel_Click()

End '若单击Cmdcel按钮,则结束应用程序

End Sub

运行中存在的问题:

代码中有Dim conn As adodb.connection,运行时显示"用户定义类型未定义",请问我应该怎么做?

解决方法:点击“工程”--“引用”找到“Microsoft ActiveX Data Object 2.6”

然后就就可以正常运行了。

  

爱华网本文地址 » http://www.aihuau.com/a/25101013/175822.html

更多阅读

VB如何连接访问数据库Access asp访问access数据库

VB如何连接访问数据库Access——简介VB即Visual Basic ,是一种由Microsoft公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。网上有很多教程,但都不详细,这里是自己一步一步演示的

无法打开淘宝账号登录界面的解决办法 淘宝售假解决办法

无法打开淘宝账号登录界面的解决办法——简介很多同鞋会碰到这么一个头疼万分的事情,包括死宅的我!突然发现淘宝的账号登录界面死活就是打不开。无论是用IE浏览器,还是用其他浏览器。明明安全控件和数字证书都装好了的,卸载后重装还是不

怎么更改win7登录界面 win7怎么更改登陆界面

怎么更改win7登录界面——简介简单几步教你将心爱的图片在开机第一时间出现在你眼前。怎么更改win7登录界面——方法/步骤怎么更改win7登录界面 1、第一步,先打开注册表。快捷键是win+R。Win就是Windows图片那个键。打开会是这个。

声明:《vb登录界面设计笔记连接SQLServer2000数据库 sqlserver数据库培训》为网友画唐轻赋临江仙分享!如侵犯到您的合法权益请联系我们删除