changepasswordunit.pas

三层的通用架构

unit ChangePasswordUnit;

interface

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

type
  TChangePasswordForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label3: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Bevel1: TBevel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit2Enter(Sender: TObject);
    procedure Edit4Enter(Sender: TObject);
    procedure Edit6Enter(Sender: TObject);
  private
    { Private declarations }
    procedure WMNcActivate(var Msg: TMessage); message WM_NCACTIVATE;
  public
    { Public declarations }
    LoginFlag: Boolean;
  end;

var
  ChangePasswordForm: TChangePasswordForm;

implementation

uses MainUnit;

{$R *.dfm}

procedure TChangePasswordForm.WMNcActivate(var Msg: TMessage);
begin
  if not LongBool(Msg.WParam) then
  begin
    Edit1Exit(nil);
    Msg.Result := 1;
  end;
  inherited;
end;

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

procedure TChangePasswordForm.Button1Click(Sender: TObject);
var
  TempString1, TempString2, TempString3: string;
begin
  TempString1 := Edit1.Text;
  if Edit1.MaxLength = 0 then
    TempString1 := TheMainForm.ProcessPassword('Edit1', Edit1.Text, True);
  TempString2 := Edit3.Text;
  if Edit3.MaxLength = 0 then
    TempString2 := TheMainForm.ProcessPassword('Edit3', Edit3.Text, True);
  TempString3 := Edit5.Text;
  if Edit5.MaxLength = 0 then
    TempString3 := TheMainForm.ProcessPassword('Edit5', Edit5.Text, True);
  if TheMainForm.SetUserPassword(TempString1, TempString2, TempString3) then
    Close;
end;

procedure TChangePasswordForm.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TChangePasswordForm.Edit1Exit(Sender: TObject);
begin
  Edit2.Visible := True;
  if Edit1.MaxLength = 16 then
  begin
    Edit1.MaxLength := 0;
    Edit1.Text := TheMainForm.ProcessPassword('Edit1', Edit1.Text);
  end;
  Edit4.Visible := True;
  if Edit3.MaxLength = 16 then
  begin
    Edit3.MaxLength := 0;
    Edit3.Text := TheMainForm.ProcessPassword('Edit3', Edit3.Text);
  end;
  Edit6.Visible := True;
  if Edit5.MaxLength = 16 then
  begin
    Edit5.MaxLength := 0;
    Edit5.Text := TheMainForm.ProcessPassword('Edit5', Edit5.Text);
  end;
end;

procedure TChangePasswordForm.Edit2Enter(Sender: TObject);
begin
  if Edit1.MaxLength = 0 then
  begin
    Edit1.MaxLength := 16;
    Edit1.Text := TheMainForm.ProcessPassword('Edit1', Edit1.Text, True);
  end;
  Edit1.SetFocus;
  TEdit(Sender).Visible := False;
end;

procedure TChangePasswordForm.Edit4Enter(Sender: TObject);
begin
  if Edit3.MaxLength = 0 then
  begin
    Edit3.MaxLength := 16;
    Edit3.Text := TheMainForm.ProcessPassword('Edit3', Edit3.Text, True);
  end;
  Edit3.SetFocus;
  TEdit(Sender).Visible := False;
end;

procedure TChangePasswordForm.Edit6Enter(Sender: TObject);
begin
  if Edit5.MaxLength = 0 then
  begin
    Edit5.MaxLength := 16;
    Edit5.Text := TheMainForm.ProcessPassword('Edit5', Edit5.Text, True);
  end;
  Edit5.SetFocus;
  TEdit(Sender).Visible := False;
end;

end.