用vb.net ，后臺用access 做一個登錄窗口

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

東海ssl適用于網站、小程序/APP、API接口等需要進行數據傳輸應用場景，ssl證書未來市場廣闊！成為創(chuàng)新互聯(lián)公司的ssl證書銷售渠道，可以享受市場價格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：18982081108（備注：SSL證書合作）期待與您的合作！

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

登錄窗體，新建一個就行了。代碼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 項目屬性里點查看應用程序事件，寫代碼Namespace My ' 以下事件可用于 MyApplication:

'

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

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

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

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

' NetworkAvailabilityChanged: 在連接或斷開網絡連接時引發(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 新手問題：如何關閉登錄界面并跳到另一個界面

me.dispose()

樓主針對這個問題我也糾結過很久不過就在剛剛我找到了問題所在：

還是用me.close（）

打開

項目

》

最下面一行有一個屬性》

應用程序》下面

有一個關機模式

改為：當最后一個窗體關閉時。。。注意

me.close要寫在窗體show（）后面

例如

寫成

f2.show()

me.close()

不要寫成

me.close（）

f2.show（）

請教一個關于vb.net登錄界面的問題

你的算法非常的傻，劇慢沒有可用性。

用一個sql查詢 查找 密碼=輸入密碼，用戶名等于輸入的用戶的記錄，找到了即登錄..

dim oRd as new recordset

dim db as connection ' 用db打開數據庫

dim sa as string

sa=”select * from table where username='" txtDIM_Username.Text _

"' and userpassword='" txtDIM_Password.Text "'"

ord.open sa,db

if ord.eof() or ord.bof()

‘未找到，不能登錄

else

'找到 登錄成功....

endif

用VB。net做登錄窗口，連接數據庫失敗。

Private Sub Command1_Click()

\'首先引用Microsoft Activex Data Objects 2.x Library

Dim objcon As New ADODB.Connection

Dim objrs As New ADODB.Recordset

Dim strConn As String

strConn = \"Provider=SQLOLEDB.1;User ID=sa;password=密碼;Initial Catalog=數據庫名稱;Data Source=本機IP地址(192.168.1.136)\"

objcon.Open strConn

\'strConn = \"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=hNXQF222;Initial Catalog=database;Data Source=192.168.1.136\"

\'objcon.Open \"Provider=sqloledb.1;user id=sa;password=hNXQF222;Initial Catalog=Northwind;Data Source=\"

objrs.Open \"select * from Orders\", objcon, 3, 1

\'在部件中添加DataGrid控件

Set DataGrid1.DataSource = objrs

End Sub

新聞名稱：vb.net登錄窗 vb程序設計登錄窗口
URL鏈接：http://chinadenli.net/article10/doddsdo.html

成都網站建設公司_創(chuàng)新互聯(lián)，為您提供微信公眾號、域名注冊、網站收錄、全網營銷推廣、App開發(fā)、電子商務

廣告

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