modipassfrm.pas

考勤管理是企业内部管理的重要环节和基础

unit ModiPassFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  SDIfrm, ExtCtrls, StdCtrls, Buttons, DBCtrls;

resourcestring
  sPassword='确认口令时不对,请重新输入新口令!!';

type
  TModiPassForm = class(TSDIForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBText1: TDBText;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    bbtnConfirm: TBitBtn;
    bbtnCancel: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure bbtnConfirmEnter(Sender: TObject);
    procedure bbtnCancelClick(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bbtnConfirmClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ModiPassForm: TModiPassForm;

implementation

uses unDM2, Globals, dialog;

{$R *.DFM}

procedure TModiPassForm.FormCreate(Sender: TObject);
begin
  inherited;
  DM2.tblLogo.Locate('UserID',glUserID,[]);
end;

procedure TModiPassForm.bbtnConfirmEnter(Sender: TObject);
begin
  inherited;
  if UpperCase(Trim(Edit2.Text))<>UpperCase(Trim(Edit3.Text)) then begin
    Messagedlg(Pchar(sPassword),mtError,[mbOk],0);
    edit3.SetFocus;
  end;
end;

procedure TModiPassForm.bbtnCancelClick(Sender: TObject);
begin
  inherited;
  ModiPassForm.Close;
end;

procedure TModiPassForm.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if Key = 13 then
    if UpperCase(Trim(Edit1.Text))=DM2.tblLogoPassWord.Value then begin
      Edit2.Enabled:=True;
      Edit3.Enabled:=True;
      bbtnConfirm.Enabled:=True;
    end else begin
      Edit2.Enabled:=False;
      Edit3.Enabled:=False;
      bbtnConfirm.Enabled:=False;
    end;
end;

procedure TModiPassForm.bbtnConfirmClick(Sender: TObject);
begin
  inherited;
  DM2.tblLogo.Locate('UserID',glUserID,[]);
  DM2.tblLogo.Edit;
  DM2.tblLogoPassWord.Value:=UpperCase(Trim(Edit2.Text));
  DM2.tblLogo.Post;
end;

end.