首先要把Label1的屬性Visible設置為false,然后雙擊button1輸入:

創新互聯公司服務項目包括新華網站建設、新華網站制作、新華網頁制作以及新華網絡營銷策劃等。多年來,我們專注于互聯網行業,利用自身積累的技術優勢、行業經驗、深度合作伙伴關系等,向廣大中小型企業、政府機構等提供互聯網行業的解決方案,新華網站推廣取得了明顯的社會效益與經濟效益。目前,我們服務的客戶以成都為中心已經輻射到新華省份的部分城市,未來相信會繼續擴大服務區域并繼續獲得客戶的支持與信任!
Dim rs As New Data.DataView()
Dim rs As New DataView()
conn.DataFile = "users.mdb"
conn.SelectCommand = "select top 1 * from users where name='" txtUserName.Text "'and pass='" txtPassword.Text "'"
rs = conn.Select(DataSourceSelectArguments.Empty)
if rs.Count Then
Label1.Visible=true
Session("name") = Trim(txtUserName.Text)
Session("pass") = Trim( txtPassword.Text)
MsgBox("登錄成功", MsgBoxStyle.SystemModal)
Response.Redirect("")
Else
MsgBox("對不起!用戶名和密碼不正確,請重新輸入。", MsgBoxStyle.SystemModal)
End If
3個表中用戶名和密碼及權限都放到一個表如User中吧 方便些。用戶名用下拉框,選擇姓名后直接彈出權限(Lable).在下拉框SelectedIndexChanged事件中寫即可。
哈哈簡單哪
第一步:登陸網頁代碼
第二步:登陸以后判斷是否登陸成功
有兩種方法:1.獲取網頁代碼,判斷網頁字符有無”登陸成功”字樣
源代碼:
2.就是判斷網頁是否跳轉到了某一頁
源代碼:
兩種方法結合起來用,可以判斷網頁是否無法連接
Private?Sub?BtOk_Click(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?Btok.Click
Dim?con?As?OleDbConnection?=?New?OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data?Source=Admin.accdb;Persist?Security?Info=True")
Dim?com?As?OleDbCommand?=?New?OleDbCommand("select?*?from?用戶名",?con)
con.Open()
Dim?h1?As?OleDbDataReader
Dim?table?As?New?DataTable
h1?=?com.ExecuteReader()
table.Load(h1)
If?txtName.Text?=?""?Then
MsgBox("請輸入用戶名",?MsgBoxStyle.OkCancel?+?MsgBoxStyle.Exclamation,?"錯誤提示")
ElseIf?txtName.Text??""?And?txtPasswd.Text?=?""?Then
MsgBox("請輸入密碼",?MsgBoxStyle.OkCancel?+?MsgBoxStyle.Exclamation,?"錯誤提示")
ElseIf?table.Select("用戶名='"??txtName.Text??"'").Length??0?Then
If?table.Select("用戶名='"??txtName.Text??"'")(0)("密碼").ToString?=?txtPasswd.Text?Then
MsgBox("成功登陸",?MsgBoxStyle.OkCancel?+?MsgBoxStyle.Exclamation,?"錯誤提示")?Then
Form1.Show()
Me.Visible?=?False
Exit?Sub
Else
MsgBox("密碼錯誤",?MsgBoxStyle.OkCancel?+?MsgBoxStyle.Exclamation,?"錯誤提示")
End?If
Else
MsgBox("用戶名不存在",?MsgBoxStyle.OkCancel?+?MsgBoxStyle.Exclamation,?"錯誤提示")
Exit?Sub
End?If
table.Clear()
h1.Close()
con.Close()
End?Sub
Dim conn As SqlConnection
Dim cn As New SqlConnection("Data Source=(local);Initial Catalog=用戶登錄;" "Integrated Security=true") '鏈接數據庫
你這里初始化了的CONNECTION其實是CN,不是CONN,
所以
Dim login As New SqlCommand(sqlstr, conn)
這里應該是
Dim login As New SqlCommand(sqlstr, cn)
本文名稱:vb.net用戶登陸 vb登錄系統
本文路徑:http://www.yijiale78.com/article0/doddioo.html
成都網站建設公司_創新互聯,為您提供外貿建站、虛擬主機、靜態網站、動態網站、用戶體驗、App開發
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯