张娜4.txt

着 是 学生管理系统的代码

4.“确定 ”按钮(cb_ok)的Clicked事件代码:
string  ls_oldpassword ,ls_newpassword,ls_renewpassword
ls_oldpassword=trim(sle_oldpassword.text)
ls_newpassword=trim(sle_newpassword.text)
ls_renewpassword+trim(sle_renewpasssword.text)
if len(gs_password)=0 or isnull(gs_password) then
 gs_passsword=space(10)
end if
if len(ls_oldpasssword=0 or isnull(ls_oldpassword) then 
ls_oldpassword=space(10)
end if
if len(ls_newpassword)=0 or isnull (ls_newpassswor) then
ls_newpassword=space(10)
end if
 if len (ls_renewpassword)=0 or isnull (ls_renewpassword) then
ls_renwpassword=space(10)
end if

if ls_oldpassword<>gs_password then
messgebox("警告，旧口令不对!")
sle_oldpassword.text=" "
sle_oldpassword.setfocus()
return
end if
if ls_newpassword<>ls__newpasssword 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)
“退出”按钮(cb_exit)的Clicked事件代码：
close(parent)