untmodifypassword.pas

销售软件

(*===========================================================*)
(*                                                           *)
(*              Jerk Computer Assembly Manager               *)
(*                                                           *)
(*                    程序作者：杨芹勍                       *)
(*          武汉科技大学 理学院 信息与计算科学031班          *)
(*                  武汉科技大学 莘特工作室                  *)
(*                                                           *)
(*              IDE：Borland Delphi 2006 Update 2            *)
(*                 第三方控件：Raize 4.03                    *)
(*             数据库：Microsoft SQL Server 2000             *)
(*            数据库访问引擎：原生ADO（ADODB_TLB）           *)
(*           数据库管理引擎：JERK DBMANAGER ALPHA            *)
(*                                                           *)
(*           此软件及源代码归 JERK SYSTEM 版权所有           *)
(*            (C)Copyright 2002-2006 Jerk System.            *)
(*                                                           *)
(*===========================================================*)

unit untModifyPassword;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  ComCtrls,
  ExtCtrls,
  Menus,
  StdCtrls,
  StrUtils,
  Mask,
  ADODB_TLB,
  RzButton,
  RzBtnEdt,
  RzCmboBx,
  RzCommon,
  RzEdit,
  RzListVw,
  RzRadChk,
  RzSplit,
  RzPanel,
  RzTabs,
  JSDBListView,
  JCAMConsts,
  JCAMUtils,
  JCAMDialogForm,
  JCAMManagerForm,
  JCAMTableViewEditor;

type
  TfrmModifyPassword = class( TfrmJCAMDialogForm )
    Label1: TLabel;
    edtUserName: TRzEdit;
    Label2: TLabel;
    edtPassword: TRzEdit;
    Label3: TLabel;
    edtNewPassword: TRzEdit;
    Label4: TLabel;
    edtRePassword: TRzEdit;
    procedure btnOKClick( Sender: TObject );
  private
    m_sLoginName: string;
    m_cn: _Connection;
    procedure SetLoginName( const Value: string );
    procedure SetConnection( const Value: _Connection );
  public
    property LoginName: string
      read m_sLoginName
      write SetLoginName;
    property Connection: _Connection
      read m_cn
      write SetConnection;
  end;

var
  frmModifyPassword: TfrmModifyPassword;

implementation

{$R *.dfm}

uses
  untTEmployee;

{ TfrmModifyPassword }

procedure TfrmModifyPassword.btnOKClick( Sender: TObject );
var
  te: TTableEmployee;
  sNewPassword, sRePassword, sPassword: string;
begin
  inherited;

  { 用户选择了确定 }

  sPassword := edtPassword.Text;
  sNewPassword := edtNewPassword.Text;
  sRePassword := edtRePassword.Text;

  if sRePassword <> sNewPassword then
  begin
    MessageBox( Self.Handle, PChar( RSTR_MODIFYPASSWORD_REPASSWORDWORING ),
      PChar( STR_APPTITLE ),
      MB_ICONEXCLAMATION );

    edtNewPassword.Text := EmptyStr;
    edtRePassword.Text := EmptyStr;
    edtNewPassword.SetFocus;
    ModalResult := mrNone;
  end
  else
  begin
    te := TTableEmployee.Create;
    with te do
    begin
      Connection := Self.Connection;
      if te.ModifyPassword( m_sLoginName, sPassword, sNewPassword ) then
      begin
        { 密码保存成功 }
        MessageBox( Self.Handle, PChar( RSTR_MODIFYPASSWORD_MODIFYSUCCESS ),
          PChar( STR_APPTITLE ),
          MB_ICONINFORMATION );
        Exit;
      end
      else
      begin
        { 不能保存密码 }
        MessageBox( Self.Handle, PChar( RSTR_MODIFYPASSWORD_CANTMODIFY ),
          PChar( STR_APPTITLE ),
          MB_ICONEXCLAMATION );
        edtPassword.Text := EmptyStr;
        edtPassword.SetFocus;
        ModalResult := mrNone;
      end;
    end;
    FreeAndNil( te );
  end;
end;

procedure TfrmModifyPassword.SetConnection( const Value: _Connection );
begin
  m_cn := Value;
end;

procedure TfrmModifyPassword.SetLoginName( const Value: string );
begin
  m_sLoginName := Value;
  edtUserName.Text := Value;
end;

end.