?? 4chang.txt
字號:
確定
string ls_oldpassword ,ls_newpassword,ls_renewpassword
ls_oldpassword=trim(sle_oldpassword.text)
ls_newpassword=trim(sle_newpassword.text)
ls_renewpassword=trim(sle_renewpassword.text)
if len(gs_password)=0 or isnull(gs_password) then
gs_password=space(10)
end if
if len(ls_oldpassword)=0 or isnull(ls_oldpassword) then
ls_oldpassword=space(10)
end if
if len(ls_newpassword)=0 or isnull (ls_newpassword) then
ls_newpassword=space(10)
end if
if len (ls_renewpassword)=0 or isnull (ls_renewpassword) then
ls_renewpassword=space(10)
end if
if ls_oldpassword<>gs_password then
messagebox("警告","舊口令不對!")
sle_oldpassword.text=" "
sle_oldpassword.setfocus()
return
end if
if ls_newpassword<>ls_renewpassword then
messagebox("警告","兩次輸入的新口令不同!")
sle_newpassword.text=" "
sle_renewpassword.text=" "
sle_newpassword.setfocus()
return
end if
update "operator"
set "password"= :ls_newpassword
where "operator"."operator_id"=gs_operator_id;
if sqlca.sqlcode<>0 then
rollback;
messagebox("錯誤","修改口令失敗,請重試!")
return
end if
gs_password=ls_newpassword
commit;
messagebox("提示","修改口令成功!")
close(parent)
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -