VB连接数据库(登录).doc

《VB连接数据库(登录).doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、登录界面的设置（通过不同的权限选择进而进入不同的主界面！）（连接数据库！）首先界面如下所示：说明：“用户名”，“密码”，“权限”三个Label的“BorderStyle”属性设置为“0-tansparent”以使字体背景透明。因为要连数据库，所以首先添加一个“引用”和一个“部件”（此处利用的是Access97版本以上的数据库）建立了一个“login”数据库和一个“login”表，如下：库和表建好后，进入VB界面选择“工程”-“引用”选择“工程”—“部件”将“ADO”控件加入窗体，并设置其“visible”属性为“false”代码

2、：添加一“模块”，用来书写公共的代码窗体加载中的代码：PrivateSubForm_Load()CenterFormMeSetconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"login.mdb"rs.Open"select*fromlogin",conn,2,2cmbright.AddItem"管理员"cmbright.AddItem"教师"cmbr

3、ight.AddItem"学生"EndSub点击登录按钮PrivateSubCommand1_Click()Iftxtuname.Text=""ThenMsgBox"用户名不能为空，请输入用户名！",vbCritical,"提示"Elsers.MoveFirstrs.Find"uname='"&Trim(txtuname.Text)&"'"Ifrs.EOFThentxtuname.Text=""txtpwd.Text=""txtuname.SetFocusMsgBox"用户名输入错误，请选择！",vbCritical,"提示"E

4、lseIftxtpwd.Text=""ThenMsgBox"密码不能为空，请输入密码！",vbCritical,"提示"txtpwd.Text=""txtpwd.SetFocusElseIfrs.Fields("upwd")=txtpwd.TextThenSelectCasers.Fields("right")Case0Ifcmbright.Text="管理员"ThenMsgBox"管理员已成功登录！",vbExclamation,"提示"ElseMsgBox"您没有此权限！",vbOKOnly+vbCritical,"提示"E

5、ndIfCase1Ifcmbright.Text="教师"ThenMsgBox"教师已成功登录！",vbExclamation,"提示"ElseMsgBox"您没有此权限！",vbOKOnly+vbCritical,"提示"EndIfCase2Ifcmbright.Text="学生"ThenMsgBox"学生已成功登录！",vbExclamation,"提示"ElseMsgBox"您没有此权限！",vbOKOnly+vbCritical,"提示"EndIfEndSelectElseMsgBox("密码输入错误，请重新输入！"),

6、vbCritical,"提示"txtpwd.Text=""txtpwd.SetFocusEndIfEndIfEndIfEndSub点击退出按钮PrivateSubCommand2_Click()UnloadMeEndSub验证如下：