untchangepwd.pas

车辆管理系统

unit untChangePwd;

interface

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

type
  TfrmChangePwd = class(TfrmBase_S)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Bevel1: TBevel;
    Edit2: TEdit;
    Edit1: TEdit;
    Qpwdconfir: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmChangePwd: TfrmChangePwd;

implementation

uses untDmServer;

{$R *.dfm}

procedure TfrmChangePwd.BitBtn1Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmChangePwd.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmChangePwd:=nil;
end;

procedure TfrmChangePwd.BitBtn2Click(Sender: TObject);
begin
  inherited;
  if edit1.Text='' then
    begin
      messagedlg('Old Password can not empty !',mterror,[mbok],0);
      exit;
    end;

  if edit1.Text='' then
    begin
      messagedlg('New Password can not empty !',mterror,[mbok],0);
      exit;
    end;

  if edit1.Text='' then
    begin
      messagedlg('Confir Password can not empty !',mterror,[mbok],0);
      exit;
    end;

  with Qpwdconfir do
    begin
      close;
      sql.Clear;
      sql.Add('select * from Master..AdminLogin where UserCode='+'''Admin''');
      open;
    end;

    if Qpwdconfir.FieldByName('PassWord').AsString <> edit1.Text then
      begin
        messagedlg('Old Password Error !',mtError,[mbok],0);
        Exit;
      end;

    if edit2.Text <> edit3.Text then
      begin
        messagedlg('New password is not Match with confir password!',mtError,[MBOK],0);
        Exit;
      end;

    with Qpwdconfir do
      begin
        close;
        sql.Clear;
        sql.Add('update Master..AdminLogin set password='+''''+(edit3.Text)+''''+' where UserCode='+'''Admin''');
        ExecSQL;
      end;

    messagedlg('Modify Password Success !',mtWarning,[mbok],0);
    frmchangepwd.Close; 
end;

end.