如何用vb.net實現(xiàn)用戶登陸界面的操作？

select * from t1 where name=** and password=** and style=**

創(chuàng)新互聯(lián)建站于2013年創(chuàng)立，是專業(yè)互聯(lián)網(wǎng)技術服務公司，擁有項目成都做網(wǎng)站、成都網(wǎng)站制作網(wǎng)站策劃，項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元錯那做網(wǎng)站,已為上家服務,為錯那各地企業(yè)和個人服務,聯(lián)系電話:18980820575

如果查詢到的表是空的，說明登陸錯誤，否則成功

請用vb.net寫一個模擬的登錄界面

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

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

建個模塊， 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

登錄窗體，新建一個就行了。代碼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: 在連接或斷開網(wǎng)絡連接時引發(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

你測試一下吧。