Access專家課堂周年慶
網站公告
·Access快速平臺QQ群號:277422564    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
您的位置: 首頁 > 技術文章 > Access數據庫-教程

新剑侠情缘段氏技能:登陸窗體代碼說明

新剑侠情缘3藏剑 www.djqok.icu 時 間:2017-09-09 16:51:29
作 者:qq1985178585   ID:34294  城市:永濟
摘 要:登陸窗體學習,有好多小的注意點.用注釋說明了.
正 文:


1、取消按鈕單擊事件

Private Sub Command10_Click()

    DoCmd.Quit     ‘此處不用DoCmd.close,close只是關閉了當前窗體,沒有退出Access,主窗體還在

End Sub


2、確定按鈕----單擊事件

Private Sub Command9_Click()

判斷用戶名不能為空

    If IsNull(Me.Combo5) Then                                                                      

        MsgBox "用戶名不能為空", vbOKOnly, "提示"

        Me.Combo5.SetFocus

        Exit Sub

    End If

 ‘判斷密碼不能為空

    If IsNull(Me.Text7) Then                                                                               

        MsgBox "密碼不能為空", vbOKOnly, "提示"

        Me.Text7.SetFocus

        Exit Sub

    End If

 ‘Dlookup函數判斷輸入的密碼是否與表中的密碼一致

    If Me.Text7 = DLookup("dlmm", "tbl用戶", "dlxm = '" & Me.Combo5 & "'") Then

        DoCmd.Close acForm, Me.Name                                         關閉登陸窗體

  ‘下面這句是Access主窗體最大化,這句與上面一句順序不能顛倒,要不Access主窗體是最小化在任務欄     

DoCmd.RunCommand acCmdAppMaximize           

        DoCmd.OpenForm "frm主窗體", acNormal                    密碼正確打開主窗體

        DoCmd.Maximize                                                                     當前窗體最大化

    Else

        MsgBox "密碼錯誤", vbOKOnly, "提示"                                      密碼錯誤提示

        Me.Text7.SetFocus

        Exit Sub

    End If

End Sub


3、窗體加載事件

Private Sub Form_Load()

       DoCmd.ShowToolbar "ribbon", acToolbarNo                              隱藏功能區

       DoCmd.SelectObject acForm, , True                                             這句與下面一句隱藏左側導航窗體

DoCmd.RunCommand acCmdWindowHide

DoCmd.RunCommand acCmdAppMinimize                              

上面這句Access主窗體最小化,這句要放最后,放最前主窗體就不能最小化;

         DoCmd.RunCommand acCmdAppMinimize 命令要生效,必須先要用DoCmd.SelectObject acForm, , True,

   ‘這句將光標定位到Access數據庫窗口。

End Sub


4 、窗體屬性設置:

1》彈出方式和模式選擇:是;《2》邊框樣式:細邊框;《3》最大最小化按鈕:無(如果不選擇無,雙擊標題欄會最大化,改變窗體形狀);《4》記錄選擇器和導航按鈕選擇:否;


附 件:

 點擊下載此附件



Access軟件網QQ交流群 (群號:86789465)       access源碼網店

最新評論 查看更多評論(9)

2018/11/25 21:46:42qq1985178585
@銷香葉雨 按Shift鍵進去,表中找密碼。

2018/11/25 21:46:06qq1985178585
@劉振宇 看的我代碼,你是不是哪抄錯了。

2018/11/11 20:46:53劉振宇
大神~我照著你這個代碼劃拉出一個登陸界面,但是一運行自動最小化了,怎么解決呢

2018/11/6 23:20:55銷香葉雨
登陸密碼多少?

2017/9/21 9:29:43七彩屋
謝謝分享很詳細

發表評論您的評論將提升作者分享的動力!快來評論一下吧!

用戶名:
密 碼:
內 容:
 

常見問答

技術分類

相關資源

關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助