?? alterpassword.pas
字號:
unit AlterPassword;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls;
type
TFrm_AlterPassword = class(TForm)
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edt_oldpasswd: TEdit;
Edt_NewPasswd: TEdit;
Edt_TryPasswd: TEdit;
Bevel1: TBevel;
BtBtn_Ok: TBitBtn;
BtBtn_Cancel: TBitBtn;
Label1: TLabel;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edt_oldpasswdExit(Sender: TObject);
procedure Edt_NewPasswdExit(Sender: TObject);
procedure Edt_TryPasswdExit(Sender: TObject);
procedure BtBtn_OkClick(Sender: TObject);
procedure BtBtn_CancelClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_AlterPassword: TFrm_AlterPassword;
implementation
uses sys_dm, sys_global ;
{$R *.DFM}
var
M_passwd: string ;
procedure TFrm_AlterPassword.FormShow(Sender: TObject);
begin
Edt_oldpasswd.text := '';
Edt_NewPasswd.text := '';
Edt_TryPasswd.text := '';
Edt_oldpasswd.SetFocus ;
with frm_sys_dm.qr_tmp1 do
begin
close;
sql.Clear ;
sql.text := 'select * from operator where gname = '''+Trim(m_OpName)+'''' ;
open;
M_passwd := fieldbyname('passwd').asstring ;
close;
end;
end;
procedure TFrm_AlterPassword.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_sys_dm.qr_tmp1.Close;
end;
procedure TFrm_AlterPassword.Edt_oldpasswdExit(Sender: TObject);
begin
if Edt_oldpasswd.Text ='' then exit ;
if Edt_oldpasswd.Text <> M_passwd then
begin
MessageBox(handle, ' 舊密碼不對! ','提示', mb_ok+mb_iconstop);
Edt_oldpasswd.SetFocus ;
exit;
end;
end;
procedure TFrm_AlterPassword.Edt_NewPasswdExit(Sender: TObject);
begin
Edt_NewPasswd.Text := trim(Edt_NewPasswd.Text);
end;
procedure TFrm_AlterPassword.Edt_TryPasswdExit(Sender: TObject);
begin
if Edt_TryPasswd.text <> Edt_NewPasswd.text then
begin
MessageBox(handle, ' 核對密碼時出錯! 請再次輸入新密碼.','提示', mb_ok+mb_iconstop);
Edt_TryPasswd.text := '' ;
Edt_newpasswd.text := '' ;
Edt_newpasswd.SetFocus ;
exit;
end;
end;
procedure TFrm_AlterPassword.BtBtn_OkClick(Sender: TObject);
begin
with frm_sys_dm.qr_tmp1 do
begin
close;
sql.Clear ;
sql.text := 'update operator set passwd = '''+Edt_NewPasswd.text
+''' where gname = '''+Trim(m_OpName)+'''' ;
try
ExecSQL ;
except
MessageBox(handle, '修改不成功!','提示', mb_ok+MB_iconstop);
exit;
end;
MessageBox(handle, '您好,密碼修改已完成!','提示', mb_ok+MB_iconwarning);
end;
close;
end;
procedure TFrm_AlterPassword.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
vk_escape:
close ;
vk_return:
begin
SelectNext(ActiveControl As Twincontrol,true,true);
key:=0;
end;
vk_up,vk_down:
begin
SelectNext(ActiveControl As Twincontrol,key=vk_down,true);
key:=0;
end;
end;
end;
procedure TFrm_AlterPassword.BtBtn_CancelClick(Sender: TObject);
begin
close ;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -