frm_s_reparpasswordpas.pas

来自「是一个用delphi设计的考勤系统」· PAS 代码 · 共 106 行

unit frm_s_ReparPassWordpas;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ModalForm, StdCtrls, Menus, ExtCtrls, YLabelButton, ChangeImage,
  ImgList, UErrDisplay;

type
   Tfrm_s_ReparPassWord = class(TMyModalForm)
      Label1: TLabel;
      Edit1: TEdit;
      Label2: TLabel;
      Edit2: TEdit;
      Label3: TLabel;
      Edit3: TEdit;
      Panel1: TPanel;
      Label4: TLabel;
      Image2: TImage;
      lblUserName: TLabel;
      ChangeImg15: TChangeImg;
      LabelB16: TLabelB;
      ChangeImg16: TChangeImg;
      LabelB17: TLabelB;
      procedure FormShow(Sender: TObject);
      procedure FormCreate(Sender: TObject);
      procedure ChangeImg16Click(Sender: TObject);
      procedure ChangeImg15Click(Sender: TObject);
   private
    { Private declarations }
   public
    { Public declarations }
      UserName: string;
   end;

var
   frm_s_ReparPassWord: Tfrm_s_ReparPassWord;

implementation

uses UTUser;
var
   User: TUser;

{$R *.dfm}

procedure Tfrm_s_ReparPassWord.FormShow(Sender: TObject);
begin
   inherited;
   if User.GetUserInfo(UserName) then
   begin
      lblUserName.Caption := UserName;
      edit1.Enabled := True;
      edit1.Text := '';
      edit2.Enabled := True;
      edit2.Text := '';
      edit3.Enabled := True;
      edit3.Text := '';
   end;
end;

procedure Tfrm_s_ReparPassWord.FormCreate(Sender: TObject);
begin
   inherited;
   User := TUser.create;
end;

procedure Tfrm_s_ReparPassWord.ChangeImg16Click(Sender: TObject);
begin
   inherited;
   close;
end;

procedure Tfrm_s_ReparPassWord.ChangeImg15Click(Sender: TObject);
begin
   inherited;
   if edit1.Text <> user.PassWord then
   begin
      application.MessageBox('原密码用误', '系统提示', mb_ok + mb_iconwarning);
      exit;
   end
   else
   begin
      if edit2.Text <> edit3.Text then
      begin
         application.MessageBox('新密码不一致', '系统提示', mb_ok + mb_iconwarning);
         exit;
      end
      else
      begin
         User.PassWord := trim(edit2.Text);
         User.RpassWord := 0;
         if user.UpdateUserInfo then
            application.MessageBox(pchar(user.RetMsg), '系统提示', mb_ok + mb_iconwarning)
         else
         begin
            application.MessageBox(pchar(user.RetMsg), '系统提示', mb_ok + mb_iconwarning);
            close;
         end;
      end;
   end;
end;

end.