論壇中vb版裡經常見到一些朋友問到關於登陸的問題，這篇文章專門為初學的朋友提供一些幫助，當然希望有更好辦法的高手給予指點。
首先 檔案→新建→專案 選擇windows應用程式 並在窗體上新增2個label控制項、2個textbox控制項、2 個buton控制項如下圖（1-1）：
介面設計好後在button的click事件中寫入**如下：
（在程式頂部引用imports system.data.oledb）
private sub bok_click(byval sender as system.object, byval e as system.eventargs) handles bok.click
'定義dim olecn as new oledbconnection("provider=microsoft.jet.oledb.4.0;data source=data.mdb")
dim olecm as new oledbcommand("select * from login", olecn)
dim olead as new oledbdataadapter
dim olerd as oledbdatareader
dim pd as boolean = false '定義boolean為後面錯誤處理使用
dim i as integer
olecm = new oledbcommand("select * from login", olecn)
'與資料庫建立連線
olecn.open()
olerd = olecm.executereader
'迴圈判斷與資料庫中資料是否相同
do while olerd.read()
for i = 0 to olerd.fieldcount - 1
if trim(tuser.text) = (olerd.item("帳號")) and trim(tpassword.text) = (olerd.item("密碼")) then
msgbox("成功登陸")
pd = true
exit sub
end if
next
loop
tuser.text = ""
tpassword.text = ""
tuser.focus()
olerd.close()
olecn.close()
end sub
整個過程就做完了簡單吧。
機房收費之登陸窗體
總結是在機房結束以後寫的，總結的不及時之前的進度慢了，中間趕了一段時間沒有去及時總結部落格，隨時總結確實有很大的作用，不過只要寫了就不晚，結束之後讓我有了更深刻的了解，乙個簡單的登陸窗體其實也不能想的太過片面，我剛開始做的很多不完善的地方，在做的過程中也回頭不斷地完善。首先我沒做乙個窗體應該先去思考...
windows form 窗體 之間傳值
申明 來自網際網路 在windows form 之間傳值，我總結了有四個方法 全域性變數 屬性 窗體建構函式和 delegate 第乙個全域性變數 這個最簡單，只要把變數描述成 static 就可以了，在 form2 中直接引用 form1 的變數，如下 在form1 中定義乙個 static 變數...
機房收費系統 登陸窗體部分
在做機房的時候，發現自己把登陸窗體的部分給丟掉了，於是查了一下有關的登入知識 1 登陸 的實現 首先，登陸就需要有username，需要先在模組裡用乙個api函式，getuser。public declare function getusername lib advapi32.dll alias g...