vb登陆界面用户名调用数据库如何实现？

使用Access 2003来建立一个新的空数据库，命名为db1，存储路径为D：\db1，在db1中创建一张新的表格，命名为用户信息表,并设定用户信息表中有两个字段，分别为用户名称和用户口令，注意它们的数据类型均为文本格式，一定要注意，不然到后面代码就会出错，而且极难查错。 完成设计视图之后输入一条记录，记录中的用户名属性值为Angel,密码为123。输入一条记录的目的是用于检验登录代码是否正确以及起到一点演示效果。

下面打开VB6.0，建立一个新的工程，命名为工程1，打开就有一个新的窗体Form1。布置界面如图所示，当然这只是个示例，你可以有更好的界面设计。图中，管理员名称和口令是两个文本框，名称分别为TxtUserName 和TxtPassword，登录和取消为两个按钮，名称分别为CmdLogin和CmdCancel。

准备工作完成之后，就可以添加代码了。代码如下，我将逐行注释。

取消按钮最为简单，代码如下：

Private Sub CmdCancel_Click()

'//结束

End

End Sub

下面添加登录按钮的代码。

Private Sub CmdLogin_Click()

Dim UserName As String

Dim PassWord As String

Dim conn As New ADODB.Connection '定义新的连接

Dim rs As New ADODB.Recordset'定义新的记录集

Dim StrSQL As String '定义字符串StrSQL

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=D:\db1.mdb" '打开连接，指定连接路径和支持

UserName = Trim(TxtUserName.Text)'将文本框内的值赋给定义好的变量，trim为类型转换函数

PassWord = Trim(TxtPassword.Text)

If UserName = "" Or PassWord = "" Then'如果输入的用户名和密码为空则

MsgBox "对不起，用户或密码不能为空！请重新输入！！", vbCritical, "错误"

ElseIf UserName <>Empty And PassWord <>Empty Then '否则如果用户名与密码都不为空则Cnum自加1，Cnum为窗体载入时添加数字变量，用于记录错误登录次数

Cnum = Cnum + 1

StrSQL = "select * from 用户信息表 where 用户名称= '" &UserName &"'and 用户口令 ='" &PassWord &"'"

'从用户信息表中查询用户名称和用户口令两个字段并获得属性值，为下面的判断语句做准备

rs.Open StrSQL, conn, adOpenKeyset, adLockPessimistic '//打开记录集,可以用数字代替

If rs.EOF = True Then '此句为判断的核心语句，EOF的返回值表示为最后一行的后一行，和BOF类似，返回值为TRUE，则表示表中不存在这一行记录，由此判断密码是否与表中记录相一致，从而达到验证的目的。

MsgBox "对不起，无此用户或者密码不正确！请重新输入！！", vbCritical, "错误"

TxtUserName.Text = "" '置文本框为空

TxtPassword.Text = ""

TxtUserName.SetFocus

rs.Close '每次打开记录完成后需要注意及时关闭，不然下次使用时会出错

If Cnum >= 3 Then '判断输入错误次数，以提高系统的安全性能

MsgBox "对不起，您已经多次失败，无权 *** 作本系统！", vbCritical, "无权限"

Unload Me

Exit Sub

End If

Else '登陆成功,以下为权限验证

Form2.Show

Unload Me

End if

End if

End Sub

Private Sub Form_Load()

'//加载主窗时给文本框赋值

Cnum = 0

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

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

1、DimobjCnAsNewConnection,objRsAsNewRecordset

objCn.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51"&"DataSource="&App.Path&objCn.Open

2、dimobjCnAsConnection

SetobjCn=NewConnection

objCn.Open“DSN=实例2DSN”

3、ADOData控件创建连接

扩展资料

ACCESS数据库特性

1、access有强大的数据处理、统计分析能力，利用access的查询功能，可以方便地进行各类汇总、平均等统计。并可灵活设置统计的条件。

2、access用来开发软件，比如生产管理、销售管理、库存管理等各类企业管理软件，其最大的优点是：易学，非计算机专业的人员，也能学会。

3、在开发一些小型网站WEB应用程序时，用来存储数据。例如ASP+Access。这些应用程序都利用ASP技术在InternetInformationServices运行．比较复杂的WEB应用程序则使用PHP/MySQL或者ASP/MicrosoftSQLServer。

---