資源描述：
《access-vba之用戶登錄窗口》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、access-vba之用戶登錄窗口博客分類：·accessvba開發(fā)界面截圖如下：創(chuàng)建一個窗體設(shè)計，然后在設(shè)計中找到控件因為科室更新，帶來了用戶的更新，所有用戶的行來源不指定，但科室的行來源要指定最后，我們通過VBA實現(xiàn)用戶的行來源，這樣可以保證在科室變化的情況下，用戶實時顯示每個科室的人員PrivateSubkeshi_AfterUpdate()zgy.RowSource="SELECT用戶查詢.ID,用戶查詢.科室ID,用戶查詢.科室名稱,用戶查詢.用戶姓名FROM用戶查詢where用戶查詢.科室ID="&keshiDoCmd.GoToControl("user")EndSub編
2、寫登錄按鈕的VBA代碼PrivateSublogin_btn__login_Click()DimpasswdAsVariantDiminputpassAsVariantIfNotIsNull(password)Theninputpass=passwordElseinputpass=""EndIfIfNotIsNull(DLookup("[密碼]","[用戶]","[ID]="&zgy))Thenpasswd=DLookup("[密碼]","[用戶]","[ID]="&zgy)Elsepasswd=""EndIfIfTrim(inputpass)<>Trim(passwd)ThenMs
3、gBox("密碼錯誤!")ElseIfTrim(passwd)=""ThenMsgBox("密碼為空,請登錄后修改密碼!")Callshowmain(keshi,zgy)ElseMsgBox("現(xiàn)在是"&Now&",歡迎您來到XXXXXXX系統(tǒng)!")Callshowmain(keshi,zgy)EndIfEndSub此外，窗體顯示后，輸入焦點需要停在科室處PrivateSubForm_Current()DoCmd.GoToControl("keshi")EndSub窗體下方還有一個當(dāng)前時間的顯示，文本框控件名稱為nowtime，在窗體的時間事件中編寫代碼，同時將時間觸發(fā)設(shè)為1000（
4、即：1秒）PrivateSubForm_Timer()nowtime=NowEndSubshowmain是一個自定義的函數(shù)，即顯示系統(tǒng)的主界面PrivateFunctionshowmain(keshiidAsString,zgyidAsString)DoCmd.CloseDoCmd.OpenForm("管理系統(tǒng)")Forms!管理系統(tǒng)!keshi=keshiidForms!管理系統(tǒng)!zgy=zgyidEndFunction大家可以看出來，在access的vba中對系統(tǒng)中其它窗體的引用采用Forms!窗體名稱對其它窗體控件的引用采用Forms!窗體名稱!控件名稱比如登錄窗口中有一個文本
5、框控件name即為Forms!登錄窗口!name我們可以指定name的文本內(nèi)容，F(xiàn)orms!登錄窗口!name="張三"運行界面如下:
