機房收費系統之一般使用者修改密碼窗體

介面設計

流程圖

**實現

private sub cmdok_click()

dim mrc as adodb.recordset
dim txtsql as string
dim msgtext as string
'判斷各個文字框的內容是否為空
if testtxt(txtoldcode.text) = false or testtxt(txtnewcode1.text) = false or testtxt(txtnewcode2.text) = false then
msgbox "密碼不能為空，請輸入！", 0 + 48, 警告
exit sub
end if
'從card_info表中進行查詢
txtsql = "select * from card_info where cardno='" & trim(username) & "'"
set mrc = executesql(txtsql, msgtext)
'判斷原密碼是否正確
if trim(mrc!pwd) = trim(txtoldcode.text) then
'判斷原密碼和新密碼是否一致
if trim(mrc!pwd) = trim(txtnewcode1.text) then
msgbox "密碼沒有任何修改！", 0 + 48, 警告
txtnewcode1.text = ""
txtnewcode2.text = ""
txtnewcode1.setfocus
exit sub
else
'判斷兩次新密碼是否一致
if trim(txtnewcode1.text) <> trim(txtnewcode2.text) then
msgbox "兩次新密碼不一致！", 0 + 48, 警告
txtnewcode1.text = ""
txtnewcode2.text = ""
txtnewcode1.setfocus
exit sub
else
'更新card_info表，修改密碼成功
txtsql = "update card_info set pwd='" & trim(txtnewcode1.text) & "' where cardno='" & trim(username) & "'"
set mrc = executesql(txtsql, msgtext)
msgbox "修改密碼成功，下次登入時新密碼生效！"
unload me
end if
end if
else
msgbox "原密碼不正確，請重新輸入！", 0 + 48, 警告
txtoldcode.text = ""
txtoldcode.setfocus
exit sub
end if

第一次機房收費系統之一般使用者修改密碼

輸入原密碼，查詢是否正確，不正確提示，否則輸入新密碼，確認密碼，兩者對比是否相同，相同則將密碼設定為新密碼，退出系統重新登陸，否則提示兩者不同，無法修改。user info 存放使用者資訊 private sub cmdcancel click unload me end sub private s...

機房之一般使用者查詢餘額

介面 當前卡號登入上機，label顯示當前登入的卡號，各個文字框設定成不可編輯 流程圖 實現 private sub form load lblcardno.caption 卡號 username dim mrc as adodb.recordset dim txtsql as string dim...

更改應用系統密碼的一般步驟

公司mes的系統密碼忘記了 一 首先查詢出使用者所在的表名 二 根據查詢出來的表明，查詢裡面的所有資料 三 如果沒有加密的話即可看出其密碼，如果經過可以重新設定為空密碼，如果不能設定為空密碼那自己再找有管理員許可權的同事去改吧。進入資料庫查詢所有表 select from all tables 查詢...