changepassword.~pas

彩票销售系统

unit ChangePassWord;

interface

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

type
  TChangePassWordFrm = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit3: TEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChangePassWordFrm: TChangePassWordFrm;

implementation

uses UserAndPassWord;

{$R *.DFM}

procedure TChangePassWordFrm.FormActivate(Sender: TObject);
var
  Str1,Str2: string;
begin
  Str1 := UserAndPassWordFrm.ListView1.Selected.Caption;
  Str2 := UserAndPassWordFrm.ListView1.Selected.SubItems.Strings[0];
  ChangePassWordFrm.Caption :=  '设置【'+ Str1 + '】' + Str2 + '的密码';
  ChangePassWordFrm.ActiveControl:=Edit3;
end;

procedure TChangePassWordFrm.BitBtn1Click(Sender: TObject);
var
  Str1, Str2, Str3: string;
begin
  if Edit1.Text = '' then begin
     MessageDlg('新密码不能为空！',mtError,[mbOk],0);
     ChangePassWordFrm.ActiveControl:=Edit1;
  end
  else if Edit1.Text <> Edit2.Text then begin
     MessageDlg('你键入的新密码不匹配，请在第二个和第三个文本框内键入匹配的密码。',mtError,[mbOk],0);
     ChangePassWordFrm.ActiveControl:=Edit1;
  end else
  begin
     Str1 := UserAndPassWordFrm.ListView1.Selected.Caption;
     Str2 := UserAndPassWordFrm.ListView1.Selected.SubItems.Strings[0];
     with UserAndPassWordFrm.ManagerTable do
     begin
       try
         Open;
         if not Locate('FUserName;FUserPower', VarArrayOf([Str1,Str2]), []) then
         begin
           MessageDlg('该用户不存在！', mtError, [mbOK], 0);
           Exit;
         end;

         Str3 := FieldByName('FUserPassWord').AsString;
         if Str3 <> Edit3.Text then
         begin
           MessageDlg('你输入该用户的原密码不正确！',mtError,[mbOk],0);
           ChangePassWordFrm.ActiveControl:=Edit3;           
           Close;
           Exit;
         end;
         Edit;
         FieldByName('FUserPassWord').AsString := Edit1.Text;
         Post;
         MessageDlg('密码修改成功！',mtInformation,[mbOk],0);
         Close;
         UserAndPassWordFrm.ListView1.SetFocus;
         ChangePassWordFrm.Close;
       except
         Close;
       end;
     end;
  end;
end;



procedure TChangePassWordFrm.BitBtn2Click(Sender: TObject);
begin
  UserAndPassWord.UserAndPassWordFrm.ListView1.SetFocus;
  Close;
end;

procedure TChangePassWordFrm.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ( (Key = VK_RETURN) or (Key = VK_DOWN) ) then ChangePassWordFrm.ActiveControl:=Edit1;
end;

procedure TChangePassWordFrm.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ( (Key = VK_RETURN) or (Key = VK_DOWN) ) then ChangePassWordFrm.ActiveControl:=Edit2;
  if Key = VK_UP then ChangePassWordFrm.ActiveControl:=Edit3;
end;

procedure TChangePassWordFrm.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then BitBtn1.Click;
  if Key = VK_UP then ChangePassWordFrm.ActiveControl:=Edit1;
end;

procedure TChangePassWordFrm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then Self.Close;
end;

end.