vb.net制作登錄界面 vb設(shè)計(jì)登錄界面與代碼界面

用vb.net ，后臺用access 做一個(gè)登錄窗口

建個(gè)模塊， Dim varcnn As OleDb.OleDbConnection ReadOnly Property cnn() As OleDb.OleDbConnection

成都創(chuàng)新互聯(lián)公司主要從事網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)開陽,10余年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):18980820575

Get

If varcnn Is Nothing OrElse varcnn.State ConnectionState.Open Then Dim cnstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""" My.Application.Info.DirectoryPath "\Contact.mdb"";Persist Security Info=True"

varcnn = New OleDbConnection(cnstr)

varcnn.Open()

End If

Return varcnn

End Get

登錄窗體，新建一個(gè)就行了。代碼Public Class LoginForm1

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

Using cmd As New OleDb.OleDbCommand("select password from tbuser where userid =?", cnn)

cmd.Parameters.Add("?", OleDbType.VarChar).Value = Me.UsernameTextBox.Text

Dim obj As Object = cmd.ExecuteScalar

If (Not IsDBNull(obj)) AndAlso (obj IsNot Nothing) AndAlso obj = PasswordTextBox.Text Then

Me.DialogResult = Windows.Forms.DialogResult.OK

Else MessageBox.Show("密碼不正確！") Return

End If

End Using Me.Close()

End Sub Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click

Me.DialogResult = Windows.Forms.DialogResult.Cancel

Me.Close()

End SubEnd Class 項(xiàng)目屬性里點(diǎn)查看應(yīng)用程序事件，寫代碼Namespace My ' 以下事件可用于 MyApplication:

'

' Startup: 應(yīng)用程序啟動(dòng)時(shí)在創(chuàng)建啟動(dòng)窗體之前引發(fā)。

' Shutdown: 在關(guān)閉所有應(yīng)用程序窗體后引發(fā)。如果應(yīng)用程序異常終止，則不會引發(fā)此事件。

' UnhandledException: 在應(yīng)用程序遇到未處理的異常時(shí)引發(fā)。

' StartupNextInstance: 在啟動(dòng)單實(shí)例應(yīng)用程序且應(yīng)用程序已處于活動(dòng)狀態(tài)時(shí)引發(fā)。

' NetworkAvailabilityChanged: 在連接或斷開網(wǎng)絡(luò)連接時(shí)引發(fā)。

Partial Friend Class MyApplication

Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup

Dim f As New LoginForm1

If Not f.ShowDialog = DialogResult.OK Then

End

End If

End Sub End ClassEnd Namespace

你測試一下吧。

請用vb.net寫一個(gè)模擬的登錄界面

解決方案資源管理器中右鍵菜單，添加，WINDOWS窗體，彈出的對話框中，左欄已安裝的模板中選擇WINDOWS FORMS ，右邊中找到 登錄窗體。添加 。程序會添加一個(gè)登錄界面。很方便。你試下。

基于VB.NET的windows窗體程序如何連接sql2008數(shù)據(jù)庫，制作一個(gè)登錄界面

這個(gè)問題好寬泛，簡單說下步驟吧：

簡單來說，直接連接需要使用SQLConnection、SQLDataAdapter、SQLCommand、Datatable四個(gè)控件，先寫好連接字符串，然后建立連接，寫好SQL語句，通過DataAdapter從數(shù)據(jù)庫讀取數(shù)據(jù)到Datatable。這樣只有在SQL服務(wù)器中附加數(shù)據(jù)庫才能實(shí)現(xiàn)訪問。還可以使用DSN實(shí)現(xiàn)數(shù)據(jù)庫連接，控件依次更換為ODBCConnection、ODBCDataAdapter、ODBCCommand、datatable、基本步驟和上面說的一樣。

SQL語句就是從數(shù)據(jù)庫查用戶名對應(yīng)的密碼，將數(shù)據(jù)從數(shù)據(jù)庫讀取到DataTable后，與用戶輸入的密碼比對，相符則登陸成功，否則提示錯(cuò)誤。

過程中的細(xì)節(jié)問題歡迎追問

網(wǎng)站題目：vb.net制作登錄界面 vb設(shè)計(jì)登錄界面與代碼界面
標(biāo)題鏈接：http://muchs.cn/article8/docddip.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供面包屑導(dǎo)航、網(wǎng)站建設(shè)、定制開發(fā)、定制網(wǎng)站、ChatGPT、品牌網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)