之前曾經和小夥伴討論過關於機房收費系統的安全性的問題，如果忘了密碼怎麼辦？
於是腦洞就來了，就聯想到了qq的密保功能！於是就開始幹了
密保用來找回密碼，所以需要在資料庫user_info中新增兩個字段用來放置密保問題及密保答案！
找回密碼按鈕當然是放在登入窗體。
使用者在設定完密保後還可以在主程式裡面找到乙個修改密保的入口！所以我就在選單上新增了乙個安全的選單！
窗體的設計與修改密碼的窗體大同小異！
其他的實現沒有那麼複雜！接下來看一下驗證碼的實現！
private
sub drawvc()
dim i, vc, px, py as long
dim r, g, b as byte
randomize
vc = clng(8999 * rnd + 1000)
vccode = vc
'顯示檢驗碼
picture1.cls
picture1.print vc
'新增噪點
for i = 0
to2000
px = clng(picture1.width * rnd)
py = clng(picture.height * rnd)
r = cbyte(255 * rnd)
g = cbyte(255 * rnd)
b = cbyte(255 * rnd)
picture1.line (px, py)-(px + 1, py + 1), rgb(r, g, b)
next
endsub
private
sub picture1_click()
drawvc
endsub
if
trim(txtusername.text) = ""
then
msgbox
"請輸入要找回的使用者名稱！", vbokonly + vbexclamation, "提示"
txtusername.setfocus
else
iftrim(cmbencryptedquestion.text) = ""
then
msgbox
"請選擇密保問題！", vbokonly + vbexclamation, "提示"
cmbencryptedquestion.setfocus
else
iftrim(txtyanzhengma.text) = ""
then
msgbox
"請輸入驗證碼！", vbokonly + vbexclamation, "提示"
txtyanzhengma.setfocus
else
iftrim(txtyanzhengma.text) <> vccode then
msgbox
"驗證碼輸入錯誤！", vbokonly + vbexclamation, "提示"
txtyanzhengma.text = ""
txtyanzhengma.setfocus
drawvc
else
txtsql = "select * from user_info where userid='" & trim(txtusername.text) & "'"
set mrc = executesql(txtsql, msgtext)
if mrc.eof then
msgbox
"沒有該使用者!", vbokonly + vbexclamation, "提示"
txtusername.text = ""
txtusername.setfocus
else
iftrim(mrc.fields(6)) <> trim(cmbencryptedquestion.text) then
msgbox
"請選擇正確的密保問題！"
cmbencryptedquestion.setfocus
else
iftrim(mrc.fields(5)) <> trim(txtencryptedanwser.text) then
msgbox
"請輸入正確的密保答案!", vbokonly + vbexclamation, "提示"
txtencryptedanwser.text = ""
txtencryptedanwser.setfocus
micount = micount + 1
if micount = 3
then
msgbox
"超過輸入限制次數，系統即將關閉!", vbkonly + vbexclamation, "提示"
endend
ifexit
subelse
mima = inputbox("請輸入新密碼！", "密碼找回!")
mrc.fields(1) = trim(mima)
mrc.update
msgbox
"密碼已經重置，請您牢記密碼！", vbokonly + vbinformation, "密碼重置成功!"
unload me
endif
endif
endif
endif
endif
endif
endif
其實要實現這個功能很簡單，但是我更覺得我們要經常有這種想法，無論是在哪個專案上，哪個系統上！可能敲**很簡單， 但是我們有想法更加重要！
感謝你的閱讀！
機房收費系統 功能介紹
一般使用者 學生檢視餘額 輸入卡號查詢卡號對應的學生資訊及餘額。學生檢視上機狀態 輸入卡號查詢學生上機時間 日期，下機時間 日期，消費金額及其餘額。學生充值記錄查詢 輸入卡號查詢歷史充值金額，充值日期，充值時間以及充值教師。學生上機狀態檢視 查詢上機資訊統計。顯示上機的資訊。所有學生下線 全部下線和...
（三）查詢功能 機房收費系統
前提 機房最先熟悉的是查詢，通過查詢，漸漸地明白了機房的整個布局，本來很畏懼橋機房，但有了開始的途徑就覺得一切可以進行了。接下來是我對查詢的簡單理解 內容 查詢是最常見的，所以要熟悉以邪見的資料庫查詢語句的書寫方式，慢慢的熟悉資料庫。vb中資料庫查詢語句 任務一 判斷卡號是否為空 if txtcar...
機房收費系統
利用幾乎兩個多禮拜的時間，終於把機房收費系統基本完工了。這個過程中，因為有了學生系統做為鋪墊，所以做的時候還算得心應手吧。在其實也遇到了一引些問題，還是好解決的。這個系統到現在為止，也只能說是基本實現了功能，但是還很不健壯，而且漏洞我想還有很多，還有待進一步的除錯與完善。雖然在敲機房收費系統前，把命...