unt_changepassword.pas

来自「酒店资源管理的软件」· PAS 代码 · 共 67 行

unit unt_ChangePassword;

interface

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

type
  TChangePasswordForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChangePasswordForm: TChangePasswordForm;

implementation
uses Main;
{$R *.dfm}

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

procedure TChangePasswordForm.BitBtn1Click(Sender: TObject);
var
  sSql: String;
begin
  if Edit2.Text = Edit3.Text then
  begin
    sSql := 'select * from operator where name=''' + Edit1.Text + '''';
    mainForm.exeSql(mainForm.query1,sSql,'1');
    if mainForm.query1.RecordCount = 1 then
    begin
      sSql := 'update operator set loginpass=''' + Edit2.Text + ''' where name='''
            + Edit1.Text + '''';
      mainForm.exeSql(mainForm.query1,sSql,'2');
      MessageDlg('该用户密码修改成功,谢谢使用!',mtinformation,[mbOK],0);
      ChangePasswordForm.Close;
    end
    else
    begin
      MessageDlg('该用户不存在，请重新输入!',mtinformation,[mbOK],0);
    end;
  end
  else
  begin
    MessageDlg('您两次输入的密码不一致，请检查后重新输入!',mtinformation,[mbOK],0);
  end;
end;

end.