<rp id="wnpn7"><ruby id="wnpn7"></ruby></rp>
<progress id="wnpn7"><track id="wnpn7"><rt id="wnpn7"></rt></track></progress>
<ruby id="wnpn7"></ruby>
<ruby id="wnpn7"><blockquote id="wnpn7"><div id="wnpn7"></div></blockquote></ruby>

    1. <em id="wnpn7"><ruby id="wnpn7"><input id="wnpn7"></input></ruby></em>
      1. <button id="wnpn7"><acronym id="wnpn7"></acronym></button><button id="wnpn7"><acronym id="wnpn7"></acronym></button>

        <rp id="wnpn7"><acronym id="wnpn7"></acronym></rp>

        <li id="wnpn7"><object id="wnpn7"><u id="wnpn7"></u></object></li>
        VB.net 2010 視頻教程 VB.net 2010 視頻教程 python基礎視頻教程
        SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
        當前位置:
        首頁 > 編程開發 > vb >
        • vb教程之VB5.0中實現系統登錄

         ---- 一般進入系統都要登錄(如進入Windows NT),進行身份檢驗,以保證軟件的合法使用和維護,便于明確責任。我們自己開發的系統也必須保證系統使用者是合法用戶,登錄時要進行身份驗證。 

        ---- 系統登錄時一般有三次機會,超過則視為非法用戶,不讓使用系統。本程序是用VB5.0實現的,后臺數據庫是Access 97。 

        其主要源程序代碼如下: 
        Private Sub cmd_yes_Click() 
        '開始檢驗 
        Picture1.Picture = LoadPicture("trffc10b.ico") 
        times = times + 1 
        '解密 
        txt_mm.Text = invert(txt_mm.Text) 
        '查找用戶名 
        ordc_dlmmk.Recordset.FindFirst 
        "username='" & txt_bh.Text & "'" 
        If ordc_dlmmk.Recordset.NoMatch Then 
        If times < 3 Then 
        Picture1.Picture = LoadPicture("trffc10c.ico") 
        MsgBox "無此用戶,請重新輸入!", 
        vbExclamation + vbOKOnly,"提示信息" 
        Picture1.Picture = LoadPicture("trffc09.ico") 
        txt_bh.SetFocus 
        Call txt_bh_GotFocus 
        Exit Sub 
        Else 
        MsgBox "對不起,您無權使用本系統 
        ," + vbCrLf + vbCrLf + " 請與系統管理員聯系! ", 
        vbCritical + vbOKOnly, "提示信息" 
        End 
        End If 
        End If 
        If times < 3 Then 
        If Not (UCase(txt_mm.Text) 
        = UCase(Text2.Text)) Then 
        txt_mm.Text = invert(txt_mm.Text) 
        Picture1.Picture = LoadPicture("trffc10c.ico") 
        MsgBox "用戶密碼錯誤,請重新輸入!", 
        vbExclamation, "提示信息" 
        Picture1.Picture = LoadPicture("trffc09.ico") 
        txt_mm.SetFocus 
        Call txt_mm_GotFocus 
        Exit Sub 
        Else 
        Picture1.Picture = LoadPicture("trffc10a.ico") 
        MsgBox "歡迎您使用本系統!", vbInformation, "提示信息" 
        Unload Me 
        frm_welcome.Show 
        End If 
        ElseIf times = 3 Then 
        If UCase(txt_mm.Text) = UCase(Text2.Text) Then 
        Picture1.Picture = LoadPicture("trffc10a.ico") 
        MsgBox "歡迎您使用本系統!", vbInformation, "提示信息" 
        Unload Me 
        frm_welcome.Show 
        Exit Sub 
        End If 
        MsgBox "對不起,您無權使用本系統, 
        " + vbCrLf + vbCrLf + " 請與系統管理員聯系! ", 
        vbCritical + vbOKOnly, "提示信息" 
        End 
        End If 
        End Sub 

        ---- 由于一般系統用戶有多個,所以必須設置多用戶。通常用戶名和對應密碼以數據庫的形式保存。但數據庫極易暴露,可直接通過打開數據庫而獲取用戶名和密碼,安全性不好,所以應進行加密工作--保存在數據庫中的密碼與登錄時輸入的密碼不一樣,保存時進行加密,登錄時進行解密。這樣,即使看到了數據庫內容,如果不知道解密過程也無法進入系統。 

        ---- 一個比較簡單的加密過程如下: 

        Public Function invert(passw As String) 
        Dim i As Integer 
        Dim Temp As String 
        Temp = "" 
        For i = Len(passw) To 1 Step -1 
        Temp = Temp + Mid(passw, i, 1) 
        Next i 
        invert = Temp 
        End Function 

        ---- 至此一個簡單的系統登錄過程就實現了。
        相關教程
                
        免费看成年人视频大全_免费看成年人视频在线观看