同一使用者的兩種登入方式
之前做的登入視窗之能用卡號登入，如果忘記了卡號怎麼辦？經過比較權衡，最終決定讓使用者用兩個號碼等錄，就是說用卡號也能登入用學生的學號也可以登入。這樣就方便很多了。根據這個思想對登入視窗做了如下的改動，完整**如下所示：（可以比較之前所寫的部落格）
option explicit
public ok as boolean
'記錄確定次數
dim micount as integer
private declare function getusername lib"advapi32.dll" alias "getusernamea" (byval lpbuffer asstring, nsize as long) as long
private sub command1_click()
'用來存放sql 語句
dim txtsql as string
dim mrc as adodb.recordset
'用來存放記錄集物件
dim msgtext as string
'查詢指定使用者名稱的記錄
txtsql = "select*from user_info"
'執行查詢語句
set mrc = executesql(txtsql, msgtext)
username = ""
'判斷輸入使用者名稱是否為空
if mrc.eof then
msgbox "沒有這個使用者，請重新輸入使用者名稱！", vbokonly +vbexclamation, "警告"
text1.setfocus
else
while (mrc.eof = false)
if trim(text1.text = "") then
msgbox "沒有這個使用者，請重新輸入使用者名稱！", vbokonly +vbexclamation, "警告"
text1.setfocus
'判斷輸入的使用者名稱是否是已經註冊的使用者名稱卡號
elseif trim(text1.text) = trim(mrc.fields(0)) then
'判斷密碼是否正確
if trim(mrc.fields(1)) =trim(text2.text) then
ok = true
username = trim(mrc.fields(0))
mrc.close
me.hide
else
msgbox "輸入密碼不正確，請重新輸入！", vbokonly + vbexclamation, "警告"
text2.text = ""
text2.setfocus
end if
exit sub
'判斷輸入的使用者名稱是否是已註冊學生學號
elseif trim(text1.text) = trim(mrc.fields(5)) then
'判斷密碼是否正確
if trim(mrc.fields(1)) =trim(text2.text) then
ok = true
username = trim(mrc.fields(0))
mrc.close
me.hide
else
msgbox "輸入密碼不正確，請重新輸入！", vbokonly + vbexclamation, "警告"
text2.text = ""
text2.setfocus
end if
exit sub
else
'資料庫中游標移動到下乙個資料行
mrc.movenext
end if
'返回while從頭執行此段程式
wend
'記載輸入密碼次數
micount = micount + 1
if micount = 3 then
msgbox "輸入錯誤已到3次，請檢查後再登陸！", vbokonly + vbexclamation,"警告"
endend if
exit sub
end if
end sub
private sub command2_click()
ok= false
me.hide
end sub
private sub form_load()
dim sbuffer as string
dim lsize as long
sbuffer = space$(255)
lsize = len(sbuffer)
call getusername(sbuffer, lsize)'防止存在上一次輸入的使用者名稱
if lsize > 0 then
text1.text = ""
else
text1.text = vbnullstring
end if
ok = false
micount = 0
end sub
機房收費系統總結六
下面自然就到了上下機部分了，上下機需要建立兩個表 1 上下機表 儲存上機記錄和消費記錄 2 正在上機表 正在上機的學生資訊會儲存在此表中 因此需要注意主窗體了，裡面幾乎承載了上機下機的所有資訊。但是在mdi窗體裡怎麼也加不上控制項，這我就慌了，問了問別人也是笑而不語，讓我自己去解決。我在網上查到了兩...
機房收費系統總結六
下面自然就到了上下機部分了，上下機需要建立兩個表 1 上下機表 儲存上機記錄和消費記錄 2 正在上機表 正在上機的學生資訊會儲存在此表中 因此需要注意主窗體了，裡面幾乎承載了上機下機的所有資訊。但是在mdi窗體裡怎麼也加不上控制項，這我就慌了，問了問別人也是笑而不語，讓我自己去解決。我在網上查到了兩...
機房收費系統之結尾
機房收費系統在這個冬月告乙個不完美的結局，剛開始接觸他的時候，各種糾結，各種逃避，各種不想做，接觸乙個新的事物，內心充滿了恐懼與排斥，機房收費系統與學生管理系統不一樣，沒有原始碼，這個時候，需要自己不斷的給予自己鼓勵，七 期的師哥師姐都做出來了，你完全有理由相信，自己也能做出來。機房收費系統來來回回...