VB.NET登陸界面。要驗(yàn)證登錄用戶名和密碼是否正確。登陸后有管理員和普通用戶權(quán)限判斷。管理員只能登錄一

將用戶名，密碼，用戶類型存在數(shù)據(jù)庫(kù)中，登陸時(shí)比較輸入的值是否與數(shù)據(jù)庫(kù)相同即可。

創(chuàng)新互聯(lián)建站從2013年創(chuàng)立，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目成都網(wǎng)站設(shè)計(jì)、做網(wǎng)站、成都外貿(mào)網(wǎng)站建設(shè)公司網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢(mèng)想脫穎而出為使命，1280元喀什做網(wǎng)站,已為上家服務(wù),為喀什各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:18980820575

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

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

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（）

vb用戶怎么登錄界面？用戶登陸的代碼是多少？

vb登陸程序源代碼

你可以這樣做建一個(gè)模塊在里面輸入下列

Public conn As ADODB.Connection

Sub main()

Set conn = New ADODB.Connection

conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _

+ "User ID=sa;password=sa;Initial Catalog=您的數(shù)據(jù)庫(kù)名;Data Source=127.0.0.1"

conn.Open

from1.Show ’登錄界面

End Sub

再在登錄界面“確定”下寫(xiě)入如下代碼：

Private Sub Command1_Click()

If id.Text = "" Then

MsgBox "用戶名不能為空！", vbOKOnly + vbInformation, "友情提示"

id.SetFocus

Exit Sub

End If

If password.Text = "" Then

MsgBox "密碼不能為空！", vbOKOnly + vbInformation, "友情提示"

password.SetFocus

Exit Sub

End If

Dim strSQl As String

strSQl = "select * from Users where users_name='" Trim$(id.Text) "' and password='" Trim$(password.Text) "' "

Dim str As New ADODB.Recordset

Set str = New ADODB.Recordset

str.CursorLocation = adUseClient

str.Open strSQl, conn, adOpenStatic, adLockReadOnly

With str

If .State = adStateOpen Then .Close

.Open strSQl

If .EOF Then

Try_times = Try_times + 1

If Try_times = 3 Then

MsgBox "您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將自動(dòng)關(guān)閉", vbOKOnly + vbCritical, "警告"

Unload Me

Else

MsgBox "對(duì)不起，用戶名不存在或密碼錯(cuò)誤 ！", vbOKOnly + vbQuestion, "警告"

id.SetFocus

id.Text = ""

password.Text = ""

End If

Else

Unload Me

Form2.Show ’登錄進(jìn)入的另一個(gè)界面

End If

End With

End Sub

求用vb.net做的網(wǎng)站 鏈接sql做的登陸界面

呵呵，如果不需要太復(fù)雜，那么前提下你必須是懂得如何連接SQL數(shù)據(jù)庫(kù)的方法，假如你明白了，那么只要在連接的字符串中修改下“服務(wù)器”項(xiàng)就可以了：

connstr="Driver={sql server};uid=用戶名;pwd=密碼;database=數(shù)據(jù)庫(kù)名;server=網(wǎng)站的SQL服務(wù)器IP或域名"

......

就這么簡(jiǎn)單！

我的一個(gè)遠(yuǎn)程數(shù)據(jù)庫(kù)維護(hù)工具就是這樣連接的網(wǎng)站的SQL2000數(shù)據(jù)庫(kù)的。

網(wǎng)站欄目：vb.net登錄動(dòng)態(tài)界面,vb登錄窗口
本文地址：http://chinadenli.net/article31/dseoosd.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供商城網(wǎng)站、小程序開(kāi)發(fā)、網(wǎng)站排名、、品牌網(wǎng)站建設(shè)、域名注冊(cè)

廣告

聲明：本網(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)