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

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

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

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)用程序事件，寫(xiě)代碼Namespace My ' 以下事件可用于 MyApplication:

'

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

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

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

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

' NetworkAvailabilityChanged: 在連接或斷開(kāi)網(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

你測(cè)試一下吧。

VB.Net 新手問(wèn)題：如何關(guān)閉登錄界面并跳到另一個(gè)界面

me.dispose()

樓主針對(duì)這個(gè)問(wèn)題我也糾結(jié)過(guò)很久不過(guò)就在剛剛我找到了問(wèn)題所在：

還是用me.close（）

打開(kāi)

項(xiàng)目

》

最下面一行有一個(gè)屬性》

應(yīng)用程序》下面

有一個(gè)關(guān)機(jī)模式

改為：當(dāng)最后一個(gè)窗體關(guān)閉時(shí)。。。注意

me.close要寫(xiě)在窗體show（）后面

例如

寫(xiě)成

f2.show()

me.close()

不要寫(xiě)成

me.close（）

f2.show（）

請(qǐng)教一個(gè)關(guān)于vb.net登錄界面的問(wèn)題

你的算法非常的傻，劇慢沒(méi)有可用性。

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

dim oRd as new recordset

dim db as connection ' 用db打開(kāi)數(shù)據(jù)庫(kù)

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做登錄窗口，連接數(shù)據(jù)庫(kù)失敗。

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=數(shù)據(jù)庫(kù)名稱;Data Source=本機(jī)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程序設(shè)計(jì)登錄窗口
URL鏈接：http://www.chinadenli.net/article10/doddsdo.html

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

廣告

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