?? upasschg.pas
字號(hào):
unit Upasschg;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TfrmPasschg = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
bbtnSave: TBitBtn;
bbtnExit: TBitBtn;
procedure FormShow(Sender: TObject);
procedure bbtnSaveClick(Sender: TObject);
procedure bbtnExitClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmPasschg: TfrmPasschg;
implementation
uses UlogIn, MyData, Umain;
{$R *.dfm}
procedure TfrmPasschg.FormShow(Sender: TObject);
begin
Edit1.Text:=frmLogIn.Edit2.Text;
end;
procedure TfrmPasschg.bbtnSaveClick(Sender: TObject);
begin
if Edit1.Text='' then Exit;
if Edit2.Text<>Edit3.Text then
begin
ShowMessage('兩次輸入密碼不一致,請(qǐng)認(rèn)真核對(duì)!');
Edit3.Text:='';
Exit;
end;
with dm.AQUsers do
begin
close;
sql.Clear;
sql.Add('update Users set PWD='''+frmMain.Encrypt(Trim(Edit2.Text))+''' where Department='''+DeptName+''' and UserName='''+UserName+'''');
ExecSQL;
ShowMessage('密碼已修改,請(qǐng)記住您的新密碼!');
Edit2.Text:='';
Edit3.Text:='';
end;
end;
procedure TfrmPasschg.bbtnExitClick(Sender: TObject);
begin
Close;
end;
procedure TfrmPasschg.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -