?? 密碼設(shè)置窗口的'確定'按扭的事件.txt
字號:
密碼設(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;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -