登陸賬號和密碼 沒問題 現(xiàn)在就是要加個判斷

1、3/3登陸賬號和密碼沒問題 現(xiàn)在就是要加個判斷設(shè)想就是如果管理員權(quán)限這個字段是真則打開系統(tǒng)菜單，如果是假則打開系統(tǒng)菜單下面是沒有加入權(quán)限設(shè)置的代碼Pvate bmoi_ck（） On ErrorGoo Er_cmdLoin_ick Di r As ew AOB。Reorst imstrAsting Dimnu A Inteer str ”select CUNT(ppl。用戶名)fromppl were pl.用戶名=” & e.uname str = str ” andpp。用戶密碼 M。asswod Set rs = GeRS（str) 查詢數(shù)據(jù)庫 num = rs(0） I Iulernm

2、) Thn MsgBox(”請輸入用戶名稱!”) EleIf IsNul(Me。passord)Then MsgBox （請輸入用戶密碼！”） Elsef num 1The 判斷是否正確 MsgBox （沒有這個用戶，或者密碼錯誤?。?Ese eVsie Flse Dom.OpenFor 系統(tǒng)菜單 打開主菜單窗口 En IfExit_cmLon_Clic: Exit SuE_cmdLogi_Clc： sgB （ErDecriptio) Resume Exit_cmLonlikEnd Sub下面的是公共模塊代碼PublicFuncton etRS（ylsQuery s Sring） sADORe

3、crdset Dim rs As Nw ADOD.Recrdet DiconnAsNew AODBConnecon O Errr GTo GetREro S co =rrenocncion 打開當(dāng)前連接 .Oen T$（trQry）， cn， dOpnKeyset， adLoOptimitc Set GtRS =sGetRSi： Set s = Noing Set conn =Nothin Exit Fncin GetRSror： MsgBox(ErrDecpton） Rsue etS_xitEnd FunctionPublc uecueQL(yValstrmd Strig） Dimcnn s

4、 New ADODBConecin OnEror oTEeuQL_Er S cn= CurentProject.Connei 打開當(dāng)前連接 conn。Exeue ri$(stCmd)xecuteSQL_Exit: Set con= thing Exit Sub ExcuteSL_ror: gox （Err。Dsrtion） Rem ExcuteSQL_ExE Sub圖片是登陸界面聯(lián)系的數(shù)據(jù)庫表問題補(bǔ)充:我來幫他解答 滿意回答1014 0：06rvae Sb cmdLogin_Clc() OrrorToErr_cmdo_Click Di st Sng im Admin As Ineger tr

5、= ”slect COUN(pp用戶名) fro pp wher pp.用戶名 Me。usename st = str & ” andpl用戶密碼=” &Mpaswr ” IsAdmin GetRS（s） 查詢數(shù)據(jù)庫并返回管理員權(quán)限的值,如果找不到用戶，則返回值為空 If IsNulenae） The Msgox （請輸入用戶名稱?。?ElseI INl（epasswod)n sBox （”請輸入用戶密碼！”) I Isul(IsAdmin）Then 判斷是否正確 Msgo（沒有這個用戶，或者密碼錯誤?。?Ee M.Visibl = ase 判斷是否管理員 I sAdin = 1 he DoC

6、m。enFom ”系統(tǒng)菜單 打開主菜單窗口 Es DoCmd。OpenFrm ”系統(tǒng)菜單2 打開系統(tǒng)菜單2 ndIf EnIfExt_cmLogn_Click： ExtubEr_cmdog_Clic: Mgo (rr。Dscriptin） Resme Eit_dLoginlicknd u下面的是公共模塊代碼Public Fnction GeS（ByVa streryAs String） A DODBRecordset DirsAsNewADODB.Rordet Dim conn swADODCnctin n ErroTo GeR_Ero Se conn = CrretPrect.Connc 打開當(dāng)前連接 rs。Open im$(strQer）， con, adOpenKeyse, adLkptimsi If r.eoount 0 Then et G = rs(”管理員權(quán)限) End If GetS_Exi： Exitunion tRS_Eror: Msgox(.Descripto） Rsue GetRSExitEnd untionPblic EeuteSQL（yVal srCmd As Sting） Dim onnA New DODB。necion O Eror Goo ExecuteSQL_Error eton = CrrentP