sy140.pas

利用delhpi 开发的一个关于零售业进销管理系统

unit SY140;

interface

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

type
  TfmSY140 = class(TfmBaseDialog)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edUserID: TEdit;
    edUserName: 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
  fmSY140: TfmSY140;

implementation

uses PublicFunction, Main, DataModule;

var
  sPrevPassword : String;

{$R *.DFM}

procedure TfmSY140.PrepareDlg;
begin
  with qyTemp do begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT UserID, UserName, PasswordCode ');
    SQL.Add('FROM Users ');
    SQL.Add('WHERE CompanyID = :CompanyID AND UserID = :UserID ');
    ParamByName('CompanyID').AsString := sCompanyID;
    ParamByName('UserID').AsString := sUserID;
    Open;
  end;
  sPrevPassword := qyTemp.FieldByName('PasswordCode').AsString;
  edUserID.Text := qyTemp.FieldByName('UserID').AsString;
  edUSerName.Text := qyTemp.FieldByName('UserName').AsString;
  edPrevPassword.Text := '';
  edNewPassword.Text := '';
  edConfirmNewPassword.Text := '';
end;

procedure TfmSY140.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;
  if edPrevPassword.Text <> sPrevPassword 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 Users SET PasswordCode = :PasswordCode ');
        SQL.Add('WHERE CompanyID = :CompanyID AND UserID = :UserID');
        ParamByName('CompanyID').AsString := sCompanyID;
        ParamByName('PasswordCode').AsString := edNewPassword.Text;
        ParamByName('UserID').AsString := sUserID;
        ExecSQL;
      end;
      DM.DB.Commit;
      MyInformation('通行密码变更完成，下次进入系统请使用新的通行密码！');
    except
      DM.DB.Rollback;
      MyError('通行密码变更失败，请稍候再试或与系统管理员联系！');
      raise;
    end;
  finally
    Close;
  end;
end;

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

end.