首先說說簡單的上機登陸

1.窗體界面設計

簡單的上機登錄很簡單，它首先需要在vb.net中新建項目，添加一個windows窗體應用程序。對于窗口界面的設計，主要根據用戶的需求來做，用戶至上嘛，在這里我就做了個簡單的界面，主要以實現它的功能為主，窗體界面設計如圖：

2.主要實現的功能

單擊確定按鈕時，上機成功，彈出“登陸成功！”，否則彈出“登陸失敗！”。單機取消按鈕時，退出系統。

3.數據庫操作

利用SQL Server數據庫，建了一個“Login”數據庫，其中建了一張UserInfo表，數據表內容具體如圖：

4.代碼設計

'引用命名空間

Imports System

Imports System.Data

Imports System.Data.SqlClient

Public Class Form1

Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click

'連接數據庫

Dim sqlConnection1 As SqlClient.SqlConnection

Dim sqlConnect As String = "Server=waly-pc;database=Login;uid=sa;pwd=123456;" '“server=計算機名;database=數據庫名;uid=登錄數據庫用戶名;pwd=登錄數據庫密碼”

sqlConnection1 = New System.Data.SqlClient.SqlConnection(sqlConnect)

sqlConnection1.Open() '打開數據庫

'驗證代碼

Dim sql As String = "select count(*) from UserInfo where UserID='" & txtUserName.Text.Trim() & "' and UserPassword='" & txtPassword.Text() & "'"

Dim sqlCmd As SqlCommand = New SqlCommand(sql, sqlConnection1)

Dim count As Integer

count = sqlCmd.ExecuteScalar

If count > 0 Then

MsgBox("登陸成功!")

Else

MsgBox("登陸失敗!")

End If

sqlConnection1.Close() '關閉數據庫

End Sub

'退出系統

Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click

End

End Sub

End Class

總結

以上是生活随笔為你收集整理的vb mysql登录界面_vb.net 简单上机登陆（面向过程思维）的全部內容，希望文章能夠幫你解決所遇到的問題。

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