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

輸入原密碼，查詢是否正確，不正確提示，否則輸入新密碼，確認密碼，兩者對比是否相同，相同則將密碼設定為新密碼，退出系統重新登陸，否則提示兩者不同，無法修改。

user_info（存放使用者資訊）

private sub cmdcancel_click()

unload me
end sub
private sub cmdok_click()
dim a as vbmsgboxresult
'對user_info表操作
dim mrcuser as adodb.recordset '用於存放記錄集
dim usersql as string '用於存放sql語句
dim usermsgtext as string '用於存放返回資訊
'輸入舊密碼判斷是否為空，是否正確
if trim(txtoldpassword.text) = "" then
msgbox "請輸入原始密碼", vbokcancel + vbquestion, "提示"
else
usersql = "select * from user_info where userid='" & trim(frmlogin.txtusername) & "'"
set mrcuser = executesql(usersql, usermsgtext)
'判斷原密碼是否正確
if txtoldpassword = trim(mrcuser.fields(1)) then
'判斷修改的密碼是否與原密碼一致
if txtnewpassword.text = trim(txtoldpassword.text) then
msgbox "修改密碼與原密碼一致，無須修改！", vbokcancel + vbquestion, "提示"
txtoldpassword = ""
txtnewpassword = ""
txtdetermine = ""
mrcuser.close
else
if txtnewpassword.text <> trim(txtdetermine.text) then
msgbox "確認密碼和新密碼不一致，請重新輸入！", vbokcancel + vbquestion, "提示"
else
mrcuser.fields(1) = trim(txtnewpassword.text)
mrcuser.update
mrcuser.close
a = msgbox("密碼已修改完畢，是否重新登入？", vbokcancel + vbquestion, "提示")
if a = vbok then
unload me
unload frmmain
frmlogin.show
end if
end if
end if
else
msgbox "原密碼不正確，請重新輸入！", vbokcancel + vbquestion, "提示"
txtoldpassword = ""
txtnewpassword = ""
txtdetermine = ""
mrcuser.close
end if
end if
end sub

private sub txtdetermine_mousedown(button as integer, shift as integer, x as single, y as single)

'禁止貼上
if button = 2 then
clipboard.clear
end if
end sub

3.背景圖隨窗體改變而改變

dim h as single '定義窗體高的變數

dim w as single '定義窗體高的變數
private sub form_load()
h = me.height
w = me.width
me.paintpicture me.picture, 0, 0, me.scalewidth, me.scaleheight '實現背景圖隨窗體變大而改變 '背景圖隨窗體改變
end sub
private sub form_resize()
me.height = h
me.width = w
end sub

第一次機房收費系統 幽夢

經過了分析需求 基本配置。終於開始敲機房了。第一步就是敲模組，我只能按照學生資訊管理系統的模組照葫蘆畫瓢。稍微改改，雖然當時整學生時把模組的 一句一句的查了一遍，但到現在還是不懂。不管怎樣，接著進行吧。於是，正式開始了！0.0 登入 在敲登入窗體時，還是要參考學生資訊管理系統。這第一句 就讓我一頭霧...

第一次機房收費系統總結

1.sub與function的區別 1 sub 過程，不需要返回值 function 函式,可以帶返回值 2 語法 sub subname 引數1,引數2,end sub function functionname 引數1,引數2,functionname 返回值 end function 2.如何...

第一次機房收費系統 總攻

前言 今天終於驗完了機房收費系統，驗完後感覺如釋重負 終於結束了。這次的驗專案相比上次的完善功能相比，更多的是對邏輯 使用者體驗的要求，所以這次的驗證相比上次來說要重要的多 因為後面我們會不斷進行機房收費系統的重構，而第一遍的邏輯若能梳理好，那麼後面不僅會輕鬆，更會少走不必要的彎路。首先我先來總結一...