upasschg.pas

是个办公系统,可以实现财务上的管理和人员的流动

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('两次输入密码不一致，请认真核对！');
    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('密码已修改,请记住您的新密码!');
   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.