資源描述：
《教案用戶登錄與權限管理.doc》由會員上傳分享，免費在線閱讀，更多相關內容在教育資源-天天文庫。
1、用戶登錄與權限管理步驟1：首先創(chuàng)建三個表1、用戶管理表：用戶ID（文本、4、不為空）、用戶名（文本、10、不為空）、密碼（文本、7、不為空）2、窗體表：窗體ID（數(shù)字、整型、不為空）、窗體名稱（文本、30、不為空）3、權限表：用戶ID（文本、4、不為空）、窗體ID（數(shù)字、整型、不為空）、權限（是/否、整型、不為空，默認值為False）步驟2：在關系中增加3個表。步驟3：創(chuàng)建用戶登錄界面：添加圖片。三個文本框，標簽與文本框名為用戶ID、用戶名、密碼。鎖定用戶名文本框控件密碼的輸入掩碼屬性為“密碼”。添加三個命令按鈕，名字分別為：“用戶登錄”、“取消登錄”、“用戶注冊
2、”。在“用戶ID”中輸入值后，在鼠標離開之前系統(tǒng)要先判斷值是否合法（長度是否為4）。在“用戶ID”文本框的“更新前”事件中添加下列代碼：PrivateSub用戶ID_BeforeUpdate(CancelAsInteger)OnErrorGoToErr_用戶ID_BeforeUpdateIfLen(Me![用戶ID])<>4ThenMsgBox"'用戶ID'是由4位數(shù)字組成!",vbInformation,"用戶ID錯誤"Cancel=TrueEndIfExit_用戶ID_BeforeUpdate:ExitSubErr_用戶ID_BeforeUpdate:MsgB
3、oxErr.DescriptionResumeExit_用戶ID_BeforeUpdateEndSub測試：在當前數(shù)據(jù)庫中插入一個模塊，名字為“登錄及權限管理”。雙擊“模塊1”，另存為“登錄及權限管理”。聲明全局變量：PublicUserIDAsString'保存表中已有的用戶登錄的"用戶ID"值PublicSUserIDAsString'保存"用戶ID"PublicSUserNameAsString'保存"用戶名"PublicvarPasswordAsVarian'保存"密碼在用戶ID文本框輸入用戶登錄的“用戶ID”值，當鼠標離開之后，系統(tǒng)將從“用戶表”中查找該
4、“用戶ID”對應的“用戶名”并顯示于窗體的“用戶名”文本框內，如果沒有找到該用戶，系統(tǒng)將顯示“無此用戶”。在“用戶ID”文本框的“更新后”事件中添加如下代碼：PrivateSub用戶ID_AfterUpdate()OnErrorGoToErr_用戶ID_AfterUpdate'定義字符型變量DimSTempAsStringIfIsNull(Me![用戶ID])ThenUserID=NullElse'使用DLookup函數(shù)從'用戶表'中查詢待登錄的用戶是否存在STemp=DLookup("用戶ID","用戶表","[用戶ID]='"&Me![用戶ID]&"'")'判
5、斷STemp是否為空IfIsNull(STemp)Then'如果為空,則把UserID變量置為空UserID=Null'把窗體中的"用戶ID"文本框的值設置為空Me![用戶ID]=""ElseUserID=STemp'使用DLookup函數(shù)從"用戶表"中查詢出待登錄用戶的"用戶名"Me![用戶名]=DLookup("用戶名","用戶表","[用戶ID]='"&Me![用戶ID]&"'")EndIfEndIfExit_用戶ID_AfterUpdate:ExitSubErr_用戶ID_AfterUpdate:'彈出"無此用戶"信息MsgBox"你'用戶ID'輸入錯誤,
6、或者還沒有注冊,請檢查!",vbCritical,"無此用戶"ResumeExit_用戶ID_AfterUpdateEndSub
