sys020.pas

电子充值系统:全球通的充值卡通过POS机传到销售点.

unit SYS020;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BaseDialog, StdCtrls, Db, DBTables, Buttons;

type
  TfmSYS020 = class(TfmBaseDialog)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edLoginID: TEdit;
    edAdmName: TEdit;
    edPrevPassword: TEdit;
    edNewPassword: TEdit;
    edConfirmNewPassword: TEdit;
    Label5: TLabel;
    procedure bnOKClick(Sender: TObject);
    procedure bnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure PrepareDlg; override;
  end;

var
  fmSYS020: TfmSYS020;

implementation

uses PublicFunction, Main, DataModule;

var
  sPrevPassword : String;

{$R *.DFM}

procedure TfmSYS020.PrepareDlg;
begin
  edLoginID.Text := sLoginID;
  edAdmName.Text := sAdmName;
end;

procedure TfmSYS020.bnOKClick(Sender: TObject);
begin
  inherited;
  //edPrevPassword.Text := UpperCase(edPrevPassword.Text);
  //edNewPassword.Text := UpperCase(edNewPassword.Text);
  //edConfirmNewPassword.Text := UpperCase(edConfirmNewPassword.Text);
  if Trim(edPrevPassword.Text) = '' then
  begin
    MyWarning('原通行密码不可空白，请重新输入！');
    edPrevPassword.SetFocus;
    Abort;
  end;

  with qyTemp do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select Password from pwpt_administrators ');
    SQL.Add('WHERE AdmCode = :AdmCode');
    ParamByName('AdmCode').AsString := sAdmCode;
    Open;
  end;

  if qyTemp.FieldByName('Password').AsString <> edPrevPassword.Text then
  begin
    MyWarning('原通行密码输入错误，请重新输入！');
    edPrevPassword.SetFocus;
    Abort;
  end;

  if Trim(edNewPassword.Text) = '' then
  begin
    MyWarning('新通行密码不可空白，请重新输入！');
    edNewPassword.SetFocus;
    Abort;
  end;

  if Trim(edNewPassword.Text) <> Trim(edConfirmNewPassword.Text) then
  begin
    MyWarning('确认新密码与新通行密码不一致，请重新输入！');
    edConfirmNewPassword.SetFocus;
    Abort;
  end;

  try
    DM.DB.StartTransaction;
    try
      with qyTemp do
      begin
        Close;
        SQL.Clear;
        SQL.Add('UPDATE pwpt_administrators SET Password = :Password ');
        SQL.Add('WHERE AdmCode = :AdmCode');
        ParamByName('Password').AsString := Trim(edNewPassword.Text);
        ParamByName('AdmCode').AsString := sAdmCode;
        ExecSQL;
      end;
      WriteOperatorLog('[修改密码]') ;
      DM.DB.Commit;
      MyInformation('通行密码变更完成，下次进入系统请使用新的通行密码！');
    except
      DM.DB.Rollback;
      MyError('通行密码变更失败，请稍候再试或与系统管理员联系！');
      raise;
    end;
  finally
    Close;
  end;
end;

procedure TfmSYS020.bnCancelClick(Sender: TObject);
begin
  inherited;
  MyInformation('通行密码未变更。下次进入系统请继续使用原来的通行密码！');
end;

end.