passwordunit.pas

东华休闲山庄洗浴、餐饮、客房管理系统

unit PasswordUnit;

interface

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

type
  TPasswordForm = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PasswordForm: TPasswordForm;

implementation

uses MainUnit, LoginUnit;

{$R *.dfm}

procedure TPasswordForm.FormActivate(Sender: TObject);
begin
  Edit1.Text:=LoginForm.userid;
  Edit2.SetFocus;
end;

procedure TPasswordForm.BitBtn1Click(Sender: TObject);
begin
  if Edit2.Text<>loginform.password then
    begin
      showmessage('旧密码错误，请重新输入！');
      Edit2.SetFocus;
      exit;
    end;
  if Edit3.Text<>Edit4.Text then
    begin
      showmessage('密码不一致，请重新输入！');
      Edit3.Clear;
      Edit4.Clear;
      Edit3.SetFocus;
      exit;
    end;
  if not LoginForm.ExecuteSQL('update users set user_mm='''+Edit3.Text+''' '+
                              'where (user_bh='''+Edit1.Text+''') and (user_mm='''+Edit2.Text+''')') then
    begin
      MessageDlg('修改当前用户'+Edit1.Text+'【'+loginform.username+'】密码时错误！',mtConfirmation, [mbYes], 0);
      Edit2.Clear;
      Edit3.Clear;
      Edit4.Clear;
      Edit2.SetFocus;
    end
  else
    begin
      loginform.ExecuteSQL('insert into log '+
                           'values('''+formatdatetime('yyyy-mm-dd hh:nn:ss',now)+''','''+loginform.userid+
                                   ''','''+LoginForm.username+''',''当前用户'+Edit1.Text+
                                   '【'+loginform.username+'】成功修改密码'')');
      MessageDlg('成功修改当前用户'+Edit1.Text+'【'+loginform.username+'】密码！',mtConfirmation, [mbYes], 0);
      LoginForm.password:=Edit3.Text;
      close;
    end;
  LoginForm.dsQuery.Close;
end;

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

procedure TPasswordForm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    Edit3.SetFocus;
end;

procedure TPasswordForm.Edit3KeyPress(Sender: TObject;var Key: Char);
begin
  if key=#13 then
    Edit4.SetFocus;
end;

procedure TPasswordForm.Edit4KeyPress(Sender: TObject;var Key: Char);
begin
  if key=#13 then
    BitBtn1.SetFocus;
end;

procedure TPasswordForm.FormClose(Sender: TObject;var Action: TCloseAction);
begin
  mainform.Enabled:=true;
end;

end.