passunit.~pas

图书馆管理系统,非常有用,希望给你带来帮助

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.