3個(gè)表中用戶名和密碼及權(quán)限都放到一個(gè)表如User中吧 方便些。用戶名用下拉框,選擇姓名后直接彈出權(quán)限(Lable).在下拉框SelectedIndexChanged事件中寫即可。

創(chuàng)新互聯(lián)建站專注于溫江網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供溫江營(yíng)銷型網(wǎng)站建設(shè),溫江網(wǎng)站制作、溫江網(wǎng)頁(yè)設(shè)計(jì)、溫江網(wǎng)站官網(wǎng)定制、成都微信小程序服務(wù),打造溫江網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供溫江網(wǎng)站排名全網(wǎng)營(yíng)銷落地服務(wù)。
需要連接數(shù)據(jù)庫(kù),你可以用access做個(gè)小型數(shù)據(jù)庫(kù)
每次系統(tǒng)登錄的時(shí)候,根據(jù)用戶名去數(shù)據(jù)庫(kù)查詢密碼
哈哈簡(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ú)法連接
你每次取出的是表中的首條記錄,當(dāng)然只能用首條記錄登陸了!
Dim name, password As String
name = TextBox1.Text
Dim com As New OleDb.OleDbCommand("select * from denglu where name='" name "'", conn)
Dim dr As OleDb.OleDbDataReader
conn.Open()
dr = com.ExecuteReader
dr.Read()
password = dr.GetString(1)
If TextBox3.Text = password Then
mesbox("成功!")
Else
msgbox("失敗")
End If
dr.Close()
conn.Close()
這種情況下,效率極不好!你能理解什么意思就行了!否則將你的程序改完了!
文章名稱:關(guān)于vb.net三層登錄的信息
文章出自:http://chinadenli.net/article16/hpjedg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供ChatGPT、營(yíng)銷型網(wǎng)站建設(shè)、移動(dòng)網(wǎng)站建設(shè)、云服務(wù)器、全網(wǎng)營(yíng)銷推廣、商城網(wǎng)站
聲明:本網(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)