如何用pb12.5实现更改密码代码，求帮忙，求代码，以及备注，急用~~

如何用pb12.5实现更改密码代码，求帮忙，求代码，以及备注，急用~~

您好，你现有代码 1234 不就是密码
upsd = String(1234) 改成 upsd = String(5678) 不就改了

如果你要让用户自己改，那你需要把密码存储在 ini 文件中 或者是数据库中追问我不是在后台做个更改，我只是想重新建立个界面在，界面上进心更改密码~类似下面的界面，并将新密码存储到数据库中...

追答大概步骤，先取出数据库中的用户名、密码，然后和输入信息比较，一致则更新密码到数据库表


例 表结构为  sys_user id,mc,mm
窗口控件：用户名：sle_user,旧密码：sle_pw_old 新密码:sle_pw_new 确认按钮：cb_ok
数据库连接实例：sqlca （默认）


cb_ok的 clicked 事件，这样写


string   ls_user_input                      //用户输入的用户名
string   ls_mm_db                          //数据库中的密码
string   ls_mm_old                         //用户输入旧密码   
string   ls_mm_new                         //用户输入新密码   
long    ll_jl
ls_user_input =  trim(sle_user.text)   //如果不允许用户名、密码前后有空格，trim()函数去除
ls_mm_old     =  trim(sle_old.text) 
ls_mm_new   =  trim(sle_new.text) 
select count(*) into :ll_jl from sys_user where mc = :ls_user_input using sqlca ;
if ll_jl < 1 then
    messagebox("","用户名无效，操作中断")
    return
end if
select mm into :ls_mm_db from sys_user where mc = :ls_user_input using sqlca ;
if ls_mm_db <> ls_mm_old then
    messagebox("","旧密码错误，操作中断")
    return
end if
//修改新密码
update sys_user set mm = :ls_mm_new  where mc = :ls_user_input using sqlca ;

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息