VB连接数据库登录知识分享.docx

VB连接数据库登录知识分享.docx

《VB连接数据库登录知识分享.docx》由会员分享，可在线阅读，更多相关《VB连接数据库登录知识分享.docx（8页珍藏版）》请在冰豆网上搜索。

VB连接数据库登录知识分享

VB连接数据库（登录）

登录界面的设置（通过不同的权限选择进而进入不同的主界面！

）

（连接数据库！

）

首先界面如下所示：

说明：

“用户名”，“密码”，“权限”三个Label的“BorderStyle”属性设置为“0-tansparent”以使字体背景透明。

因为要连数据库，所以首先添加一个“引用”和一个“部件”（此处利用的是Access97版本以上的数据库）建立了一个“login”数据库和一个“login”表，如下：

库和表建好后，进入VB界面

选择“工程”-“引用”

选择“工程”—“部件”

将“ADO”控件加入窗体，并设置其“visible”属性为“false”

代码：

添加一“模块”，用来书写公共的代码

窗体加载中的代码：

PrivateSubForm_Load（）

CenterFormMe

Setconn=NewADODB.Connection

Setrs=NewADODB.Recordset

conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\login.mdb"

rs.Open"select*fromlogin",conn,2,2

cmbright.AddItem"管理员"

cmbright.AddItem"教师"

cmbright.AddItem"学生"

EndSub

点击登录按钮

PrivateSubCommand1_Click（）

Iftxtuname.Text=""Then

MsgBox"用户名不能为空，请输入用户名！

",vbCritical,"提示"

Else

rs.MoveFirst

rs.Find"uname='"&Trim（txtuname.Text）&"'"

Ifrs.EOFThen

txtuname.Text=""

txtpwd.Text=""

txtuname.SetFocus

MsgBox"用户名输入错误，请选择！

",vbCritical,"提示"

Else

Iftxtpwd.Text=""Then

MsgBox"密码不能为空，请输入密码！

",vbCritical,"提示"

txtpwd.Text=""

txtpwd.SetFocus

ElseIfrs.Fields（"upwd"）=txtpwd.TextThen

SelectCasers.Fields（"right"）

Case0

Ifcmbright.Text="管理员"Then

MsgBox"管理员已成功登录！

",vbExclamation,"提示"

Else

MsgBox"您没有此权限！

",vbOKOnly+vbCritical,"提示"

EndIf

Case1

Ifcmbright.Text="教师"Then

MsgBox"教师已成功登录！

",vbExclamation,"提示"

Else

MsgBox"您没有此权限！

",vbOKOnly+vbCritical,"提示"

EndIf

Case2

Ifcmbright.Text="学生"Then

MsgBox"学生已成功登录！

",vbExclamation,"提示"

Else

MsgBox"您没有此权限！

",vbOKOnly+vbCritical,"提示"

EndIf

EndSelect

Else

MsgBox（"密码输入错误，请重新输入！

"）,vbCritical,"提示"

txtpwd.Text=""

txtpwd.SetFocus

EndIf

EndIf

EndIf

EndSub

点击退出按钮

PrivateSubCommand2_Click（）

UnloadMe

EndSub

验证如下：