string ls_password
if trim (sle_1.text)<>ls_password then
messagebox("提示","舊密碼錯誤")
else
if trim(sle_2.text)<>trim(sle_3.text) then
messagebox("提示","兩次密碼不相同")
else
ls_password=(sle_2.text)
gs_password=(sle_2.text)
update users
set password=:ls_password
where(user.name= gs_name) and
(user.password=:gs_password);
if sqlca.sqlcod<>0 then
messagebox("提示","密碼修改失敗")
else
close(parent)
messagebox("提示","密碼修改成功")
end if
end if
end if
uj5u.com熱心網友回復：
user.name= :gs_nameuj5u.com熱心網友回復：
學童級錯誤！轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/6930.html
標籤：數據庫相關