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

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

崇禮網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)！從網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、響應(yīng)式網(wǎng)站開發(fā)等網(wǎng)站項(xiàng)目制作，到程序開發(fā)，運(yùn)營維護(hù)。創(chuàng)新互聯(lián)2013年開創(chuàng)至今到現(xiàn)在10年的時(shí)間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)。

如何用vb做登錄界面

Dim Rs0 As New ADODB.Recordset

Dim Conn As New ADODB.Connection

Sql = "select * from 密碼表 where 用戶名='" Trim(Text1.Text) "' and 密碼='" Trim(Text2.Text) "'"

If Rs0.State = 1 Then Rs0.Close

Rs0.CursorLocation = adUseClient

Rs0.Open Sql, Conn

If Not Rs0.EOF And Not Rs0.BOF Then

Label1.Caption = "登 錄 成 功"

Else

Label1.Caption = "用戶名或密碼錯(cuò)誤"

Exit Sub

End If

vb.net 用戶登錄

哈哈簡單哪

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

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

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

源代碼：

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

源代碼：

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

用vb.net做一個(gè)系統(tǒng)的登錄界面，如何與access相連接？

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Application.StartupPath() "汽車出租管理系統(tǒng).mdb" Dim con As SqlClient.SqlConnection = New SqlClient.SqlConnection(str)

Try

con.Open()

Dim b As String = "Select * From Table1 Where 用戶名='" UsernameTextBox.Text "' And 密碼 = '" PasswordTextBox.Text "' "And 是否管理員 = '" True "'"

Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(b, con)

Dim dr As SqlClient.SqlDataReader

dr = sqlcmd.ExecuteReader

If dr.Read = True Then '判斷一條記錄為真

Form1.Show()

Me.Hide()

Else

MessageBox.Show("輸入信息有誤！", "提示")

PasswordTextBox.Text = ""

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try