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

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

創(chuàng)新互聯(lián)是專(zhuān)業(yè)的寶安網(wǎng)站建設(shè)公司，寶安接單;提供做網(wǎng)站、成都網(wǎng)站制作,網(wǎng)頁(yè)設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專(zhuān)業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行寶安網(wǎng)站開(kāi)發(fā)網(wǎng)頁(yè)制作和功能擴(kuò)展;專(zhuān)業(yè)做搜索引擎喜愛(ài)的網(wǎng)站,專(zhuān)業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來(lái)合作!

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è)試一下吧。

請(qǐng)用vb.net寫(xiě)一個(gè)模擬的登錄界面

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

vb.net 用戶(hù)登錄

哈哈簡(jiǎn)單哪

第一步：登陸網(wǎng)頁(yè)代碼

第二步：登陸以后判斷是否登陸成功

有兩種方法：1.獲取網(wǎng)頁(yè)代碼，判斷網(wǎng)頁(yè)字符有無(wú)”登陸成功”字樣

源代碼：

2.就是判斷網(wǎng)頁(yè)是否跳轉(zhuǎn)到了某一頁(yè)

源代碼：

兩種方法結(jié)合起來(lái)用，可以判斷網(wǎng)頁(yè)是否無(wú)法連接

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

這個(gè)問(wèn)題好寬泛，簡(jiǎn)單說(shuō)下步驟吧：

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

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

過(guò)程中的細(xì)節(jié)問(wèn)題歡迎追問(wèn)