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

1、VB連接數(shù)據(jù)庫（登錄）o |四j login :數(shù)垢庫（Access 2000文件格式）10 /8faj打開g) |N的(WX | -DAR lit休2使用設(shè)計器創(chuàng)建表麗向,馳建表融輸皿據(jù)創(chuàng)建表login13很表J login :表選擇“工程”一引聊可用的引用（A）:Visual Basic For ApplicationsVisual Basic runtine objects and proceduresVisual Basic objects and procedures WOLE Automation:-)SSOLUIEventSinkLib 1.0 Type Library Acce

2、ssibilityCplAdnin 1.0Microsoft ActiveX Data Objects 2.5 LibraryType Library Aerobat Access 3. 0 Type Library AcroBrokerLib控件I設(shè)計器I可插入對象I IFlyECLProj LibraryiFlyPi tchChartProj LibraryKM Rdp Protocol Provider 1.0 Type LibrgLanguage ActiveX Control nodule Microsoft Access BarCode Control 9. 0Microsoft

3、ADO Data Control 6.0 (OLEDB)Microsoft Comnon Dialog Control 6 ? 0Microsoft Data Bound List Controls 6 ? 0將“ADO控件加入窗體，弁設(shè)置其“visible屬性為“ fa 1汨代碼：添加一 模塊”川來書寫公共的代碼工程？工程 1曰O_日抄工程1 (login, vbp) B學(xué)窗體x|? Q Forml (login.占？自 模塊 vAModulel (ModuJB 性-ModulelModulel Module 刁 按字母序按分類序|（名 稱）Modulel怨工程 1 ? Modulel (C

4、ode)|回 llaAhrljJ z飛通師(聲明)Public conn As ADODB. ConnectionPublic rs As ADODB. RecordsetSub CenterForm(child As Form)使窗體居中顯示！ Dim dw AsIntegerDim dh As Integerdw = Screen. Width - child .Width dh = Screen. Height 一child .Height child. Top 二 dh2 child. Left = dw / 2 End Sub1 12D竊體擁弱小的代詢：Pr I vate Sub F

5、 q nil Load ()Cen t erFormMeS e L coiiu = New AD OD B . ConnectionSot r s= N e w AD OD B。Reco r d setconiL Open ,r P rovicler = Mic r osofl. Jet. 0 LED B。4. 0; D ata Sou r c e - ' & A p p ? Path &叫 log in ? mdb"r s .Op cn wsc 1 cct * fr o m login", c onn, 2,2cmb right。Additem &

6、quot;管理員"cmb r i ght。Add I tem ” 教師”cmb r i gh t. Addlt em ” 學(xué)生”End Sub點古登錄按鈕Priv a te SubCommand 1 Click ()Ift x tunarneA Tex L = ThenMsgBox ”用戶名不能為空，請輸入用戶名！"，vbC ritic al, "提示"Elser s. M o ve F i rstrs. Findr uname = f"& Trim ( t xt u name fc Text) &" "If

7、rs.EOF Then tx t u n ame Te x t=txt p wd k Te xt =也txtuname。 Sc t Foe u sMsABox ”用戶名輸入錯誤萌選擇！"，vbCritical,"提示E 1 scIf t xtpwcL Te x t = r, " TlienM s gBox "密碼不能為空，請輸入密碼 ！ " ，vbCritical,"提示" txt pwd ? Textt x t pwd. S etFo c usEls elfr o Fi e 1 d s (r, u pw d ")

8、 = txtpwd.Tex t Then Se 1 ect C a ser $ ?F i e 1 ds ("rig h t* r) Case I)If cmbright> Text ="管理員 Then MsgBox ”管理員已成 功登錄！ " jbExc I amatio n，”提示"ElseMsgB o x ”您沒有此權(quán)限！"，v bOK On ty + vbCritic d1提示”End If Case 1I f cmb right o Text =八教師"ThenMS gBox "教師己成功登錄！J vbExc

9、laination ?”提示”ElseMs gBox ” 您沒有此權(quán)限匕 vbO KOn I y + vbC r I t i c al, ” 提示 End IfCase 2I f cmbri g h t. TsW 學(xué)生刀 Then MsgBox v學(xué)生已成功登錄IJ vbE xclamation 9"提示"ElseMsg Box ” 您沒有此權(quán)限！"、vbOKOnly + vbCri t ica I ,"提示”End IfEnd Sele c t Els eMsgBox ("密碼輸入錯誤，請重新輸入！ ")，vbCri tical,"提示"