string czy,ymm,xmm,qrmm
czy = sle_1.text
ymm = sle_2.text
xmm = sle_3.text
qrmm = sle_4.text
select czy into :ls_czy
FROM XGMMB
WHERE czid = :sle_1.text;
if sle_1.text="" or sle_2.text="" or sle_3.text="" then
messagebox("錯誤！","用戶名或密碼不能為空！",exclamation!,ok!,2)
return
end if
if sle_3.text=xmm <> sle_4.text=qrmm then messagebox("提示","您輸入的兩次新密碼不一致,請重新輸入!!") sle_3.setfocus() return end if //更新密碼
UPDATE XGMMB
SET xmm =:sle_3.text where czy= :sle_1.text ;
if sqlca.sqlcode = 0 then
messagebox("密碼修改成功！","請記住新密碼，下次登錄時請使用新密碼！",exclamation!,ok!,2)
else
messagebox("錯誤！","用戶名或密碼錯誤，請重新輸入！",exclamation!,ok!,2)
end if
我是想操作員，原密碼，新密碼，確認密碼，這樣操作的
uj5u.com熱心網友回復：
修改為以下代碼試試:
string ls_czy, ls_ymm, ls_xmm, ls_qrmm
ls_czy = sle_1.text
ls_ymm = sle_2.text
ls_xmm = sle_3.text
ls_qrmm = sle_4.text
if sle_1.text = "" or sle_2.text = "" or sle_3.text = "" then
messagebox("錯誤！", "用戶名或密碼不能為空！", exclamation!, ok!, 2)
return
end if
long ll_cnt
select count(1) into :ll_cnt
FROM XGMMB
WHERE czid = :ls_czy;
if ll_cnt > 0 then
//
else
messagebox("提示", "您輸入的操作員代碼不存在，請檢查！")
return
end if
if ls_xmm = ls_qrmm then
//
else
messagebox("提示","您輸入的兩次新密碼不一致,請重新輸入!!")
sle_3.setfocus()
return
end if
//更新密碼
UPDATE XGMMB SET xmm = :ls_xmm where czy = :ls_czy ;
if sqlca.sqlcode = 0 then
messagebox("密碼修改成功！","請記住新密碼，下次登錄時請使用新密碼！",exclamation!,ok!,2)
else
messagebox("錯誤！","用戶名或密碼錯誤，請重新輸入！",exclamation!,ok!,2)
end if
uj5u.com熱心網友回復：
謝謝謝 沒有錯誤了轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/28178.html
標籤：腳本語言