回覆列表
-
1 # 不萬能的Comedy
-
2 # 一個小海羅
首先建好使用者表,表中設好使用者名稱和密碼欄位及其內容,
用“程式碼生成器”,寫入以下程式碼:12345678910if isnull(me.使用者名稱) or isnull(me.密碼) then msgbox "請輸入使用者名稱和密碼!"elseif isnull(DLookup("密碼","使用者表","使用者名稱="" & me.使用者名稱 & """)) then msgbox "使用者名稱不存在!"elseif DLookup("密碼","使用者表","使用者名稱="" & me.使用者名稱 & """)=me.密碼 then msgbox "登陸成功!" "docmd.openform 窗體名稱else msgbox "密碼錯誤!"end if
以上程式碼的中文名稱請改為你的實際名稱。:
補充;輸入密碼實現登陸,要求,使用者名稱是“ABC”,密碼“123”,輸入空的話會有提示“請輸入密碼/使用者名稱”,輸入錯的話會有“使用者名稱或是密碼錯誤”,輸入錯三次的話自動退出。
儲存窗體,然後給窗體起個名字
2.在新增控制元件之前,需要對這個窗體進行一定的先期處理。由於我想要這個窗體成為一個獨立的,自動跳出來的窗體,因此需要輸入一些簡單的VBA程式碼,並且調節這個窗體的一些屬性。
窗體雛形初現,但還需要進一步的加工
3.接下來要給這個空白窗體增加一些內容,要將我們想要表達的東西設計在窗體之中。首先這個窗體應該有一個名字,我們將其命名為“梁山人力資源管理登入介面”。
4.如果要預設開啟資料庫自動彈出窗體介面,需要做兩件事,第一是在“Access選項”中的“顯示窗體”中選擇“梁山人力管理系統 登入介面”。
DoCmd.RunCommand acCmdAppMinimize " 讓主窗體最大化
5.做完這兩步之後,再開啟窗體檢視,我們會發現窗體的背景變成了電腦的桌面,Access程式設計部分被很好的隱藏了起來,這樣我們編寫的窗體更像一個獨立的軟體,比較簡潔和清爽,這樣就完成了。