?? ufrm_changepassword.pas
字號(hào):
// ***************************************
// * Program name :ufrm_changepassword*
// * AUTHOR :Guo xuliang *
// * Name :郭許良 *
// * Date :2005/05/18 *
// * Porgram type :主程序 *
// ***************************************
unit ufrm_changepassword;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ComCtrls, ImgList, ExtCtrls, Grids, DBGrids, Db,
DBTables;
type
Tfrm_changepassword = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
ImageList1: TImageList;
Image1: TImage;
Label1: TLabel;
ed_old: TEdit;
Label2: TLabel;
ed_new: TEdit;
Label3: TLabel;
ed_confirm: TEdit;
bt_yes: TBitBtn;
bt_no: TBitBtn;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure bt_noClick(Sender: TObject);
procedure bt_yesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_changepassword: Tfrm_changepassword;
implementation
uses udm,u_encrypt,uglobal_var;
{$R *.DFM}
procedure Tfrm_changepassword.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then selectnext(activecontrol,true,true);
end;
procedure Tfrm_changepassword.bt_noClick(Sender: TObject);
begin
close;
end;
procedure Tfrm_changepassword.bt_yesClick(Sender: TObject);
var l_oldi,l_oldc,l_new,l_confirm:string;
begin
l_oldi:=ed_old.Text;
l_new:=ed_new.Text;
l_confirm:=ed_confirm.Text;
if l_new<>l_confirm then
begin
messagedlg('兩次輸入的新密碼不同!',mtinformation,[mbok],0);
try ed_new.SetFocus; except ; end;
exit;
end;
with dm do
begin
p_update1.close;
p_update1.sql.clear;
p_update1.sql.add('SELECT * FROM ZD_FILE WHERE ZD02='''+
g_user+'''');
p_update1.open;
l_oldc:=p_update1.fieldbyname('ZD04').asstring;
l_oldc:=u_encrypt.Decrypt(l_oldc,g_pwdkey);
if l_oldc<>l_oldi then
begin
messagedlg('輸入的舊密碼不正確!',mtinformation,[mbok],0);
try ed_old.SetFocus; except ; end;
exit;
end;
try
p_update1.edit;
l_new:=u_encrypt.Encrypt(l_new,g_pwdkey);
p_update1.fieldbyname('ZD04').asstring:=l_new;
p_update1.post;
messagedlg('Change password ok!',mtinformation,[mbok],0);
close;
except
messagedlg('Change password fail!',mtinformation,[mbok],0);
end;
end;
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -