unit PassUnit;

interface

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

type
  TPassForm = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label5: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure WMNCpaint(var Msg:TWMNCPaint); message WM_NCPAINT;
  public
    { Public declarations }
  end;

var
  PassForm: TPassForm;

implementation
uses DMUnit,Share;

{$R *.dfm}

{ TPassForm }

procedure TPassForm.WMNCpaint(var Msg: TWMNCPaint);
begin
  inherited;
  Draw(PassForm);
end;

procedure TPassForm.FormShow(Sender: TObject);
begin
  label1.Caption:=curusername+'  ';
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
end;

procedure TPassForm.BitBtn1Click(Sender: TObject);
begin
  if edit1.Text='' then
  begin
    showmessage('沒有輸入舊密碼！');
    edit1.SetFocus;
    edit1.SelectAll;
    exit;
  end;
  if edit2.Text='' then
  begin
    showmessage('密碼不可以為空！');
    edit2.SetFocus;
    edit2.SelectAll;
    exit;
  end;
  if edit2.Text<>edit3.Text then
  begin
    showmessage('兩次輸入的密碼不一致？');
    edit2.SetFocus;
    exit;
  end;
  if not DM.ValUser(curusername,trim(edit1.Text)) then
  begin
    showmessage('輸入的舊密碼不正確!');
    edit1.SetFocus;
    exit;
  end;
  if DM.SetUserPass(curusername,trim(edit2.Text)) then
    close
  else
    showmessage('修改當前用戶密碼時發生異常情況!');
end;

procedure TPassForm.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  dirc:boolean;
begin
  if (key=13) or (key=vk_down) then
    dirc:=True
  else if key=vk_up then
    dirc:=False
  else begin
    key:=0;
    exit;
  end;
  SelectNext(ActiveControl,dirc,True);
  if ActiveControl is TEdit then
    (activecontrol as TEdit).SelectAll;
end;

procedure TPassForm.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
    BitBtn1Click(sender)
  else if key=vk_down then
    bitbtn1.SetFocus
  else if key=vk_up then
  begin
    edit2.SetFocus;
    edit3.SelectAll;
  end;
end;

procedure TPassForm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TPassForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  PassForm:=nil;
  Action:=caFree;
end;

end.