密码设置窗口的'确定'按扭的事件.txt

来自「是一部详细介绍了DELPHI的经典著作」· 文本 代码 · 共 30 行

密码设置窗口的'确定'按扭的事件
procedure Tsetpassword.okclick(sender:TObject);
begin
 if trim(edit1.text)=trim(edit2.text) then
    begin
    if trim(edit1.text)='' then
//如果'新密码'与'密码确认'两者相同,而且新密码为空,则显示下列信息
       begin
           showmesage('密码不能为空!请重新确认');
       end
       else
       with query1 do
       begin
       close;
       sql.clear;
       sql.add('update user');
       sql.add('set password=:passwd');
       sql.add('where username:=username');
       parambyname('passwd').asstring:=edit1.text;
       parambyname('username').asstring:=edit2.text;
       prepare;
       execsql;
       showmessage('密码已经修改成功,请使用新密码');
       end;
       end
       else
        begin
           showmessage('用户两次输入的密码不一样');
        end;
end;