VB连接数据库(登录)

登录界面的设置（通过不同的权限选择进而进入不同的主界面！）（连接数据库！）首先界面如下所示：说明：“用户名”，“密码”，“权限”三个Label的“BorderStyle”属性设置为“0-tansparent”以使字体背景透明。因为要连数据库，所以首先添加一个“引用”和一个“部件”（此处利用的是Access97版本以上的数据库）建立了一个“login”数据库和一个“login”表，如下：库和表建好后，进入VB界面选择“工程”-“引用”选择“工程”—“部件”将“ADO”控件加入窗体，并设置其“visible”属性为“false”代码：添加一“模块”，用来书写公共的代码窗体加载中的代码：PrivateSubForm_Load()CenterFormMeSetconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.OpenProvider=Microsoft.Jet.OLEDB.4.0;DataSource=&App.Path&\login.mdbrs.Openselect*fromlogin,conn,2,2cmbright.AddItem管理员cmbright.AddItem教师cmbright.AddItem学生EndSub点击登录按钮PrivateSubCommand1_Click()Iftxtuname.Text=ThenMsgBox用户名不能为空，请输入用户名！,vbCritical,提示Elsers.MoveFirstrs.Finduname='&Trim(txtuname.Text)&'Ifrs.EOFThentxtuname.Text=txtpwd.Text=txtuname.SetFocusMsgBox用户名输入错误，请选择！,vbCritical,提示ElseIftxtpwd.Text=ThenMsgBox密码不能为空，请输入密码！,vbCritical,提示txtpwd.Text=txtpwd.SetFocusElseIfrs.Fields(upwd)=txtpwd.TextThenSelectCasers.Fields(right)Case0Ifcmbright.Text=管理员ThenMsgBox管理员已成功登录！,vbExclamation,提示ElseMsgBox您没有此权限！,vbOKOnly+vbCritical,提示EndIfCase1Ifcmbright.Text=教师ThenMsgBox教师已成功登录！,vbExclamation,提示ElseMsgBox您没有此权限！,vbOKOnly+vbCritical,提示EndIfCase2Ifcmbright.Text=学生ThenMsgBox学生已成功登录！,vbExclamation,提示ElseMsgBox您没有此权限！,vbOKOnly+vbCritical,提示EndIfEndSelectElseMsgBox(密码输入错误，请重新输入！),vbCritical,提示txtpwd.Text=txtpwd.SetFocusEndIfEndIfEndIfEndSub点击退出按钮PrivateSubCommand2_Click()UnloadMeEndSub验证如下：