設計一個登入窗體,兩個文字框和兩個按鈕,一個文字框輸"使用者名稱"(ID),一個輸"密碼"(PW),在"登入"按鈕中寫入:If IsNull(Me![ID]) ThenMsgBox "請選擇用登入使用者!", 64, "系統提示"Me![ID].SetFocusElseIf IsNull(Me![PW]) ThenMsgBox "請輸入密碼,密碼不能為空!", 64, "系統提示"Me![PW].SetFocusElseDim stemp As StringDim rs As ADODB.RecordsetSet rs = New ADODB.Recordsetstemp = "select * from tb使用者資料 where 職員姓名="" & Me![ID] & """rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimisticIf rs("密碼") Me![PW] ThenMsgBox "密碼錯誤,請重新輸入!", vbOKOnly, "系統提示"Me![PW] = ""Me![PW].SetFocusElseDoCmd.CloseDoCmd.OpenForm "管理主介面"End IfEnd IfEnd If