【正文】 ror GoTo Err_用戶編號_AfterUpdateDim sTemp As String If IsNull(Me![用戶編號]) Then UserID = Null Else sTemp = DLookup(用戶編號, 系統(tǒng)用戶, [用戶編號]= 39。) 39。 39。找出系統(tǒng)用戶的“密碼” sTemp = DLookup(密碼, 系統(tǒng)用戶, 用戶編號 = 39。) 39。 39。打開“系統(tǒng)用戶”數(shù)據(jù)表 sTemp, , adOpenKeyset, adLockOptimistic 39。打開“系統(tǒng)權限”數(shù)據(jù)表 sTemp = Select * From 系統(tǒng)權限 sTemp, , adOpenKeyset, adLockOptimistic For i = 1 To If Rs(用戶編號) = Me![用戶編號] Then 1 i = + 1 Else End If Next i MsgBox 用戶資料已經刪除完成！, vbOKOnly, 刪除完成 Me![系統(tǒng)權限管理 子窗體].Requery Me![用戶編號].Requery Me![用戶名] = Set Rs = NothingExit_刪除用戶_Click: Exit SubErr_刪除用戶_Click: MsgBox Resume Exit_刪除用戶_ClickEnd SubPrivate Sub 修改權限_Click()On Error GoTo Err_修改權限_Click 39。 Me![用戶編號] amp。 amp。刷新“系統(tǒng)權限管理 子窗體”子窗體 Me![系統(tǒng)權限管理 子窗體].RequeryExit_用戶編號_AfterUpdate: Exit SubErr_用戶編號_AfterUpdate: MsgBox Resume Exit_用戶編號_AfterUpdateEnd SubPrivate Sub 退出窗體_Click()On Error GoTo Err_退出窗體_Click Exit_退出窗體_Click: Exit SubErr_退出窗體_Click: MsgBox Resume Exit_退出窗體_ClickEnd Sub附錄D 通用代碼Option Compare DatabaseOption Explicit39。打開“系統(tǒng)窗體”數(shù)據(jù)表sTemp = Select * From 系統(tǒng)窗體 sTemp, , adOpenKeyset, adLockOptimisticDim blnOpen As BooleanDim FormName As String blnOpen = False 39。判斷用戶是否有權限打開窗體，blnOpen為“真”有權限 If blnOpen = False Then MsgBox 您沒有權限使用 amp。 amp。屏蔽系統(tǒng)錯誤 update 系統(tǒng)用戶 SET 密碼 = 39。 where 用戶名=39。 True MsgBox 恭喜你！密碼修改成功！, vbInformation acForm, 修改密碼Else MsgBox 操作有誤，請重新輸入!, vbInformation = = End IfEnd SubPrivate Sub 取消_Click()On Error GoTo Exit_Err acForm, 修改密碼 Forms! = TrueExit_Err: Exit SubEnd Sub35。 username amp。 新密碼 amp。 39。 FormName amp。判斷當前“登錄用戶”是否有權限打開FormID對應的窗體 For i = 1 To If Rs1(用戶編號) = UserID And Rs1(窗體編號) = FormID _ And Rs1(權限) = True Then blnOpen = True Else End If Next i End If 39。用戶登錄的“用戶名”Public username As StringPublic varTemp(5) As VariantFunction OpenForm(FormID As Integer)On Error GoTo Err_OpenFormDim i As IntegerDim sTemp As StringDim Rs1 As Dim Rs2 As Set Rs1 = New Set Rs2 = New 39。 39。) 39。使用DLookup函數(shù)在“系統(tǒng)用戶”數(shù)據(jù)表中搜索“用戶名” Me![用戶名] = DLookup(用戶名, 系統(tǒng)用戶, _ [用戶編號]= 39。判斷記錄集中的“用戶編號”字段值是否與子窗體中“用戶編號”文本框內的值 If Rs(用戶編號) = Me![用戶編號] Then 1 i = + 1 Else End If Next i 39。判斷輸入的“密碼”與從“系統(tǒng)用戶”數(shù)據(jù)表中搜索出的值是否相等 If CStr(Me![密碼]) = sTemp Then UserID = Me![用戶編號] , , acSaveNo Else MsgBox 您輸入的密碼不正確！, vbCritical, 密碼錯誤 Me![密碼].SetFocus End If End If End IfExit_用戶登錄_Click: Exit SubErr_用戶登錄_Click: MsgBox Resume Exit_用戶登錄_ClickEnd SubPrivate Sub 取消登錄_Click()On Error GoTo Err_取消登錄_Click 39。 amp。 Me![用戶編號] amp。使用Len函數(shù)判斷在“用戶編號”文本框內輸入的值是否為4個字符 If Len(Me![用戶編號]) 4 Then MsgBox “用戶編號”是由四位數(shù)字組成！, vbInformation, 用戶編號錯誤 Cancel = True End IfExit_用戶編號_BeforeUpdate: Exit SubErr_用戶編號_BeforeUpdate: MsgBox Resume Exit_用戶編號_BeforeUpdateEnd SubPrivate Sub 用戶登錄_Click()On Error GoTo Err_用戶登錄_ClickDim sTemp As String 39。 amp。 Me![用戶編號] amp。 參考文獻[1] 2003 公司數(shù)據(jù)庫管理綜合應用[M].北京：中國青年出版社，2004.[2] 王成春， 2003 VBA程序設計[M].北京：中國鐵道出版社，.[3] 楊濤，李敏，[M].北京：清華大學出版社，.[4] [M].北京：.[5] [M].北京：電子工業(yè)出版社，.[6] [M].北京：電子工業(yè)出版社，：83.[7] 李佳，范俊弟，—Access2003數(shù)據(jù)庫應用[M].北京：人民郵電出版社,：129.[8] 李春葆，—基于Access[M].北京：清華大學出版社，：119.[9] —Access2003入門與應用篇[M].北京：人民郵電出版社出版發(fā)行，：117.[10] [M].北京：中國鐵道出版社，：72.[11] [M].北京：電子工業(yè)出版社，：165.[12] 2003 辦公應用快易通[M].北京:人民郵電出版社,.[13] 王宇虹,熊 靖,—Access開發(fā)答疑200問[M].北京:人民郵電出版社,. [14] :Access快速入門與實用范例精選[M].北京:中國青年出版社,2007.[15] 2003 高手攻略[M].北京: 中國鐵道出版社,.[16] [M].華夏出版社，.附錄附錄A表A1 學生信息表 Form of Student’s File 字段名稱數(shù)據(jù)類型字段大小屬性宿舍號文本50主鍵姓名文本50—學號文本50掩碼：************系別文本50—班別文本50—籍貫文本50—宿舍類型文本50—入住時間日期/時間短日期—宿舍電話文本50—備注文本50—表A2 晚歸登記表 Registration Form字段名稱數(shù)據(jù)類型字段大小屬性姓名文本50—學號文本50—晚歸日期日期/時間短日期—晚歸時間日期/時間短時間—記錄人文本50