VB連接數(shù)據(jù)庫(登錄)

1、登錄界面的設(shè)置（通過不同的權(quán)限選擇進而進入不同的主界面！）（連接數(shù)據(jù)庫?。┦紫冉缑嫒缦滤?說明："用戶名”，"密碼”，"權(quán)限”三個Label的"Borderstyle”屬性設(shè)置為“0-tansparent” 以使字體背景透明。因為要連數(shù)據(jù)庫，所以首先添加一個“引用”和一個“部件”（此處利用的是 Access97版本以上的數(shù)據(jù)庫）建立了一個“l(fā)ogin ”數(shù)據(jù)庫和一個“ login ”表，如下：J login ;數(shù)庫（Access 2000 文件IS式）扌丁開設(shè)計(D)二新建(W X 壯報表使用設(shè)計器創(chuàng)建表 使用向?qū)?chuàng)建表創(chuàng)建表窗休_ login :表i

2、irLameupvilright血0010J0020021 10030032 1004004o來庫和表建好后，進入 VB界面選擇“工程”-“引用”可用的引用(A)：Visual Basic For Applications亠IMicrosoft ActiveX Data Objects 2、5 LibzraT”Visual Basic runtime objects and procedures 二 1 Visual Basic objects and procedures llOLE AutomationSSOLUIEventSinkLib 1, 0 Type Library I ：Acce

3、ssibilityCplAdnin 1, 0 Type Library Acrobat Access 3.0 Type Library AcroBrokerLib選擇“工程”一“部件”控件I設(shè)計器I可插入對象IZIFlyECLProj Library iFlyPi tchChartFroj LibraryKN Rdp Protocol Provider 1. 0 Type Lib譏Language ActiveX Control module Microsoft Access BarCode Control 9»QMicrosoft ABO Data Control & 0

4、(OLEDB)Microsoft ComiLon Dialog Control 6. 0Microsoft Data Bound List Controls 6, 0將"ADO ”控件加入窗體，并設(shè)置其"visible ”屬性為"false”代碼：添加一“模塊”，用來書寫公共的代碼工程”工程1x|E- fe?工程 1 (login, vbp) 白凸窗體 口 Foml (login.占塔模塊:-我 NIodulel (Modu<川|k雇性-Modulelx|lodulel Module按字母序|按分類序|II（名稱）ModulelII肉工程 1 - Moddl

5、el (Code)匸-s|（通用）日聲明）Public Publicconn As ADODB. Connection! rs As ADODB. RecordsetSub CenterForm(child As Form)使窗體居中顯示！ Dim dw As IntegerDim dh As Integerdw = Screen. Width 一 child. Width dh = Screen*Height - child.Height child. Top 二 dh / 2 child. Left - dw / 2End Sub1窗體加載中的代碼：Private Sub Form_Loa

6、d()Cen terForm MeSet conn = New ADODB.Co nn ectio nSet rs = New ADODB.Recordsetlogi n .mdb"rs.Ope n "select * from log in ”，conn, 2, 2cmbright.Addltem "管理員”cmbright.Addltem "教師”cmbright.AddItem "學(xué)生”End Sub點擊登錄按鈕Private Sub Comma nd1_Click()If txtun ame.Text = "" Th

7、enMsgBox "用戶名不能為空，請輸入用戶名！", vbCritical,"提示”Elsers.MoveFirstrs.Find "uname= '" & Trim(txtuname.Text) & "'"If rs.EOF The ntxtun ame.Text =""txtpwd.Text =""txtun ame.SetFocusMsgBox "用戶名輸入錯誤，請選擇！", vbCritical,"提示”ElseI

8、f txtpwd.Text = "" ThenMsgBox " 密碼不能為空，請輸入密碼！ ", vbCritical, " 提示 " txtpwd.Text = "" txtpwd.SetFocusElseIf rs.Fields("upwd") = txtpwd.Text ThenSelect Case rs.Fields("right")Case 0If cmbright.Text = " 管理員 " ThenMsgBox " 管理員已成功

9、登錄！ ", vbExclamation, " 提示 " ElseMsgBox " 您沒有此權(quán)限！ ", vbOKOnly + vbCritical, " 提示 " End IfCase 1If cmbright.Text = " 教師 " ThenMsgBox " 教師已成功登錄！ ", vbExclamation, " 提示 " ElseMsgBox " 您沒有此權(quán)限！ ", vbOKOnly + vbCritical, " 提示 " End IfCase 2If cmbright.Text = " 學(xué)生 " Then MsgBox " 學(xué)生已成功登錄！ ", vbExclamation, " 提示 " ElseMsgBox " 您沒有此權(quán)限！ ", vbOKOnly + vbCritical, " 提示 " End IfEnd SelectElseMsgBox (" 密碼輸入錯誤，請重新輸入！ &quo