機房收費系統優化——新增密保功能
阿新 • • 發佈:2018-12-17
前言
機房中有改密碼的功能,但是是要知道原密碼才能改。如果現在系統已經打包供給客戶進行使用了,客戶登入密碼忘記了,怎麼解決?這時,密保派上用場了。看看我是怎麼實現這個功能的!
樣式展覽
功能介紹
1.登入時自動檢測此賬號是否設定密保,如果沒有密保,自動彈出設定密保窗體,設定成功才可登入。 2.忘記密碼通過之前設定的密保找回,選擇問題,答案,輸入驗證碼,全部正確後方可修改密碼。 3.我在資料庫中添加了一個表,列名分別為:使用者名稱,密保問題,密保答案。
驗證碼部分程式碼
Private Sub Picture1_Click() Randomize Timer '隨機種子 y = "" Picture1.Cls '圖片框清屏 For i = i To 3 '四個字元 '設定字元字號,字形 Picture1.FontSize = Int(Rnd * 13 + 12) '[12,24]字號隨機 j = Int(Rnd * 4) + 1 '[1,4]隨機數 If i = j Then Picture1.FontItalic = True '對應位置傾斜 '顏色隨機 k1 = Int(Rnd * 256) k2 = Int(Rnd * 256) k3 = Int(Rnd * 256) Picture1.ForeColor = RGB(k1, k2, k3) '產生隨機字元 k = Int(Rnd * 3) Select Case k Case 0: a = 48: b = 57 '數字 Case 1: a = 65: b = 90 '大寫字母 Case 2: a = 90: b = 122 '小寫字母 End Select '記錄並輸出字元 x = Int(Rnd * (b - a + 1) + a) '隨機數 y = y & (Chr(x)) Picture1.Print Chr(x) & " "; '圖片框輸出 Picture1.FontItalic = False '不傾斜 Next i '畫一條隨機位置的線條 Picture1.Line (0, 0)-(Int(Rnd * 500 + 1000), Int(Rnd * 150) + 100) End Sub