密碼設(shè)置窗口的'確定'按扭的事件
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('密碼已經(jīng)修改成功,請使用新密碼');
       end;
       end
       else
        begin
           showmessage('用戶兩次輸入的密碼不一樣');
        end;
end;