本文主要說明如何利用VB結合數據庫制作出系統登錄界面。(效果如圖一)

(圖一)

該實例主要分為三大部分。

一、數據庫的創建：

①：在vb中選擇“外界程序”\“可視化數據管理器”，新建數據庫，并且保存到程序文件目錄下

② 在數據庫窗口中單擊右鍵，新建表。

③ 在“表結構”對話框表名稱中輸入“系統用戶”，并且添加兩個字段—“用戶名\密碼”

④ 添加索引，名稱為“用戶名索引”，在可用字段列表中雙擊“用戶名”添加到索引的字段中，最后生成表。

二、窗體設計

可參照圖一，進行窗體的簡單設計。

三、代碼部分

在書寫的時候一定要細心，否則將錯誤百出。

Option Explicit

Const maxlogtimes As Integer = 3

Private Sub cmdcancel_Click()

Dim intresult As Integer

intresult = MsgBox("你選擇了推出系統登錄，退出將不能啟動管理系統！" & vbCrLf _

& "是否真的退出？",vbYesNo,"登錄驗證")

If intresult = vbYes Then End

End Sub

Private Function check_password(ByVal username As String,ByVal password As String) As Byte

On Error GoTo gperror

Dim objcn As New Connection,objrs As New Recordset,strcn As String

Dim strsql As String

objcn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\實例2.mdb"

objcn.Open

strsql = "select 口令 from 系統用戶 where 用戶名='" & username & "'"

Set objrs.ActiveConnection = objcn

objrs.Open (strsql)

If objrs.EOF Then

check_password = 0

Else

If password <> Trim(objrs.Fields("口令").Value) Then

check_password = 1

Else

check_password = 2

End If

End If

objcn.Close

Set objrs = Nothing

Set objcn = Nothing

Exit Function

gperror:

check_password = 255

Set objrs = Nothing

Set objcn = Nothing

End Function

Private Sub cmdok_Click()

Static intlogtimes As Integer '保存用戶請求登錄次數

Dim intchecked As Integer,strname As String,strpassword As String

intlogtimes = intlogtimes + 1

If intlogtimes > maxlogtimes Then

'超過允許登錄次數，顯示提示信息

MsgBox "你已經超過允許驗證次數！" & vbCr _

& "應用程序將結束！",vbCritical,"登錄驗證"

End

Else

strname = Trim(txtusername.Text)

strpassword = Trim(txtpassword.Text)

'檢驗用戶名和口令的合法性

Select Case check_password(strname,strpassword)

Case 0

MsgBox "

">不是系統用戶，請檢查用戶名輸入是否正確！","登錄驗證"

txtusername.SetFocus

txtusername.SelStart = 0

txtusername.SelLength = Len(txtusername)

Case 1

MsgBox "口令錯誤，請重新輸入！","登錄驗證"

txtpassword = ""

txtpassword.SetFocus

Case 2

Unload Me

MsgBox "登錄成功，將啟動系統程序！",vbInformation,"登錄驗證"

Case Else

MsgBox "登錄驗證未正常完場！，請重新運行登錄程序," & vbCrLf

End Select

End If

End Sub

今天是高中最后一天，祝你們考個好成績！

總結

以上是編程之家為你收集整理的VB\數據庫--模擬系統登錄界面全部內容，希望文章能夠幫你解決VB\數據庫--模擬系統登錄界面所遇到的程序開發問題。

如果覺得編程之家網站內容還不錯，歡迎將編程之家網站推薦給程序員好友。

本圖文內容來源于網友網絡收集整理提供，作為學習參考使用，版權屬于原作者。

如您喜歡交流學習經驗，點擊鏈接加入交流1群：1065694478(已滿)交流2群：163560250

總結

以上是生活随笔為你收集整理的vb mysql登录界面_VB\数据库--模拟系统登录界面的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。