【正文】 用戶登錄的“用戶名” Public username As String Public varTemp(5) As Variant Function OpenForm(FormID As Integer) On Error GoTo Err_OpenForm Dim i As Integer Dim sTem。刷新“系統(tǒng)權(quán)限管理 子窗體”子窗體 Me![系統(tǒng)權(quán)限管理 子窗體 ].Requery Exit_用戶編號 _AfterUpdate: Exit Sub Err_用戶編號 _AfterUpdate: MsgBox Resume Exit_用戶編號 _AfterUpdate End Sub 33 Private Sub 退出窗體 _Click() On Error GoTo Err_退出窗體 _Click Exit_退出窗體 _Click: Exit Sub Err_退出窗體 _Click: MsgBox Resume Exit_退出窗體 _Click End Sub 附錄 D 通用代碼 Option Compare Database Option Explicit 39。 39。 amp。) 39。 Me![用戶編號 ] amp。使用 DLookup 函數(shù)在“系統(tǒng)用戶”數(shù)據(jù)表中搜索“用戶名” Me![用戶名 ] = DLookup(用戶名 , 系統(tǒng)用戶 , _ [用戶編號 ]= 39。打開“系統(tǒng)權(quán)限”數(shù)據(jù)表 sTemp = Select * From 系統(tǒng)權(quán)限 sTemp, , adOpenKeyset, adLockOptimistic For i = 1 To If Rs(用戶編號 ) = Me![用戶編號 ] Then 1 32 i = + 1 Else End If Next i MsgBox 用 戶資料已經(jīng)刪除完成！ , vbOKOnly, 刪除完成 Me![系統(tǒng)權(quán)限管理 子窗體 ].Requery Me![用戶編號 ].Requery Me![用戶名 ] = Set Rs = Nothing Exit_刪除用戶 _Click: Exit Sub Err_刪除用戶 _Click: MsgBox Resume Exit_刪除用戶 _Click End Sub Private Sub 修改權(quán)限 _Click() On Error GoTo Err_修改權(quán)限 _Click 39。判斷記錄集中的“用戶編號”字段值是否與子窗體中“用戶編號”文本框內(nèi)的值 If Rs(用戶編號 ) = Me![用戶編號 ] Then 1 i = + 1 Else End If Next i 39。打開“系統(tǒng)用戶”數(shù)據(jù)表 sTemp, , adOpenKeyset, adLockOptimistic 39。判斷輸入的“密碼”與從“系統(tǒng)用戶”數(shù)據(jù)表中搜索出的值是否相等 If CStr(Me![密碼 ]) = sTemp Then UserID = Me![用戶編號 ] , , acSaveNo Else MsgBox 您輸入的密碼不正確！ , vbCritical, 密碼錯誤 Me![密碼 ].SetFocus End If End If End If Exit_用戶 登錄 _Click: Exit Sub 31 Err_用戶登錄 _Click: MsgBox Resume Exit_用戶登錄 _Click End Sub Private Sub 取消登錄 _Click() On Error GoTo Err_取消登錄 _Click 39。 39。 amp。) 39。 Me![用戶編號 ] amp。找出系統(tǒng)用戶的“密碼” sTemp = DLookup(密碼 , 系統(tǒng)用戶 , 用戶編號 = 39。使用 Len 函數(shù)判斷在“用戶編號”文本框內(nèi)輸入的值是否為 4 個字符 If Len(Me![用戶編號 ]) 4 Then MsgBox “用戶編號”是由四位數(shù)字組成！ , vbInformation, 用戶編號錯誤 Cancel = True End If Exit_用戶編號 _BeforeUpdate: Exit Sub Err_用戶編號 _BeforeUpdate: MsgBox Resume Exit_用戶編號 _BeforeUpdate End Sub Private Sub 用戶登錄 _Click() On Error GoTo Err_用戶登錄 _Click Dim sTemp As String 39。 39。 amp。) 39。 Me![用戶編號 ] amp。 Mid(gdt, gdi, 1) End If gdi = gdi + 1 End Sub Private Sub 用戶編號 _AfterUpdate() On Error GoTo Err_用戶編號 _AfterUpdate Dim sTemp As String If IsNull(Me![用戶編號 ]) Then UserID = Null Else sTemp = DLookup(用戶編號 , 系統(tǒng)用戶 , [用戶編號 ]= 39。 25 參考文獻(xiàn) [1] 韓澤坤編著 .Access 2020 公司數(shù)據(jù)庫管理綜合應(yīng)用 [M].北京：中國青年出版社， 2020. [2] 王成春，蕭雅云編著 .實(shí)戰(zhàn) Access 2020 VBA 程序設(shè)計 [M].北京：中國鐵道出 版社， . [3] 楊濤，李敏，劉青蘭編著 .中文版 Access2020 實(shí)用教程 [M].北京：清華大學(xué)出版社， . [4] 華天科技編著 .無師自通 .Access2020 入門與應(yīng)用篇 [M].北京：人民郵電出版社 .. [5] 本書編委會編著 .Access2020 數(shù)據(jù)庫管理與提高 [M].北京：電子工業(yè)出版社，. [6] 張強(qiáng)編著 .中文 Access2020 入門 與實(shí)例教程 [M].北京：電子工業(yè)出版社，： 83. [7] 李佳，范俊弟，鄧劍民 編著 .Office 高手 — Access2020 數(shù)據(jù)庫應(yīng)用 [M].北京 ：人民郵電出版社 ,： 129. [8] 李春葆，曾平編著 .數(shù)據(jù)庫原理與應(yīng)用 — 基于 Access[M].北京：清華大學(xué)出版社， ： 119. [9] 華天科技編著 .無師自通 — Access2020 入門與應(yīng)用篇 [M].北京：人民郵電出版社 出版發(fā)行， ： 117. [10] 桂思強(qiáng)編著 .Access 行家實(shí)戰(zhàn)問答集 [M].北京：中國鐵道出版社， ：72. [11] 張強(qiáng)編著 .中文 Access2020 入門 與實(shí)例教程 [M].北京：電子工業(yè)出版社 ，： 165. [12] 導(dǎo)向科技編著 .Access 2020 辦公應(yīng)用快易通 [M].北京 :人民郵電出版社 ,. [13] 王宇虹 ,熊 靖 ,李宏亮編著 .專家門診 — Access 開發(fā)答疑 200 問 [M].北京 :人民郵電出版社 ,. [14] 杰誠文化編著 .數(shù)據(jù)專家 :Access 快速入門與實(shí)用范例精選 [M].北京 :中國青年 出版社 ,2020. [15] 章立民編著 .Access 2020 高手攻略 [M].北京 : 中國鐵道出版社 ,. [16] 譚浩強(qiáng)主編 .Access 數(shù)據(jù)庫應(yīng) 用技術(shù)基礎(chǔ)版 [M].華夏出版社， . 26 附錄 附錄 A 表 A1 學(xué)生信息表 Form of Student’s File 字段名稱 數(shù)據(jù)類型 字段大小 屬性 宿舍號 文本 50 主鍵 姓名 文本 50 — 學(xué)號 文本 50 掩碼： ************ 系別 文本 50 — 班別 文本 50 — 籍貫 文本 50 — 宿舍類型 文本 50 — 入住時間 日期 /時間 短日期 — 宿舍電話 文本 50 — 備注 文本 50 — 表 A2 晚歸登記表 Registration Form 字段名稱 數(shù)據(jù)類型 字段大小 屬性 姓名 文本 50 — 學(xué)號 文本 50 — 晚歸日期 日期 /時間 短日期 — 晚歸時間 日期 /時間 短時間 — 記錄人 文本 50 — 表 A3 宿舍衛(wèi)生情況記錄 Quarters Health Record 字段名稱 數(shù)據(jù)類型 字段大小 屬性 宿舍號 文本 50 — 系別 文本 50 — 班別 文本 50 — 門窗 數(shù)字 長整型 — 床鋪 數(shù)字 長整型 — 地板 數(shù)字 長整型 — 桌 面 數(shù)字 長整型 — 陽臺 數(shù)字 長整型 — 宿舍等級 文本 文本 — 記錄時間 日期 /時間 短日期 — 27 表 A4 來訪登記 Register Here 字段名稱 數(shù)據(jù)類型 字段大小 屬性 訪客證件類型 文本 255 — 證件號 文本 50 — 訪客姓名 文本 50 — 訪客性別 文本 50 — 訪客單位 文本 50 — 訪客登記時間 日期 /時間 常規(guī)日期 — 拜訪宿舍 文本 50 — 離去時間 日期 /時間 常規(guī)日期 — 表 A5 宿舍物品維修登記 Maintenance of Quarters Registered Items 字段名稱 數(shù)據(jù)類型 字段大小 屬性 宿舍號 文本 50 主鍵 報修時間 日期 /時間 短日期 — 報修人 文本 50 — 維修項目 1 數(shù)字 長整型 使用查閱向?qū)? 維修項目 2 數(shù)字 長整型 使用查閱向?qū)? 維修項目 3 數(shù)字 長整型 使用查閱向?qū)? 維修項目 4 數(shù)字 長整型 使用查閱向?qū)? 維修項目 5 數(shù)字 長整型 使用查閱向?qū)? 維修人員 文本 50 — 維修時間 日期 /時間 短日期 — 備注 文本 255 — 表 A6 系統(tǒng)用戶 Users of the System 字段名稱 數(shù)據(jù)類型 字段大小 屬性 用戶編號 文本 10 主鍵 密碼 文本 50 掩碼：密碼 用戶姓名 文本 50 — 用戶性別 文本 50 — 所管樓號 文本 50 — 個人電話 文本 50 — 28 表 A7 宿舍類別 Quarter’s Categories 字段名稱 數(shù)據(jù)類型 字段大小 屬性 宿舍類別 文本 50 主鍵 說明 文本 50 — 圖片 OLE 對象 — — 表 A8 入住信息 Check Information 字段名稱 數(shù)據(jù)類型 字段大小 屬性 宿舍編號 文本 50 — 宿舍號 文本 50 主鍵 宿舍類型 文本 50 — 入住狀態(tài) 文本 50 — 表 A9 宿舍狀態(tài)圖 State Quarters Map 字段名稱 數(shù)據(jù)類型 字段大小 屬性 0101 OLE 對象 — — …… OLE 對象 — — 0112 OLE 對象 — — 0201 OLE 對象 — — …… OLE 對象 — — 0212 OLE 對象 — — …… OLE 對象 — — 0501 OLE 對象 — — …… OLE 對象 — — 0512 OLE 對象 — — 表 A10 窗體編號 Form No. 字段大小 數(shù)據(jù)類型 字段大小 屬性 窗體編號 數(shù)字 整型 主鍵 窗體名稱 文本 50 — 表 A11 用戶權(quán)限