4chang.txt

pb开发学生成绩管理系统代码

确定
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)