changemima.pas

模块名称: 一、基础信息管理 碟片管理 歌曲管理 歌星管理 人员管理 二、借阅管理 借出登记 归还登记 借阅查询 其它管理 三、系统管理 权限设置 更改密

unit ChangeMiMa;

interface

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

type
  TfrmChangeMiMa = class(TForm)
    Panel1: TPanel;
    Bevel1: TBevel;
    Btn_OK: TBitBtn;
    Btn_Undo: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Lab_User: TLabel;
    Edit_OMM: TEdit;
    Edit_Nmm: TEdit;
    Edit_RNmm: TEdit;
    Image1: TImage;
    QryComm: TADOQuery;
    procedure Btn_UndoClick(Sender: TObject);
    procedure Btn_OKClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure Edit_OMMKeyPress(Sender: TObject; var Key: Char);
    procedure Edit_RNMMKeyPress(Sender: TObject; var Key: Char);
    procedure Edit_NmmKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmChangeMiMa: TfrmChangeMiMa;

implementation

uses  uCommon, CDDM;


{$R *.DFM}

//取消
procedure TfrmChangeMiMa.Btn_UndoClick(Sender: TObject);
begin
  Close;
end;

//确定
procedure TfrmChangeMiMa.Btn_OKClick(Sender: TObject);
begin
  try
    //showmessage(UpperCase(Trim(Encode(Edit_OMM.Text))));
    //showmessage(UpperCase(gg_LoginMiMa));
    if  trim(Edit_OMM.Text)<>GG_LoginMiMa  then  begin
        Application.MessageBox('对不起,您的旧密码不正确,无法更改！','错误',MB_ICONEXCLAMATION);
        Edit_OMM.SetFocus;
        Exit;
    end;
    if  Edit_NMM.Text<>Edit_RNMM.Text  then  begin
        Application.MessageBox('对不起,新密码不一致,无法更改！','错误',MB_ICONEXCLAMATION);
        Edit_RNMM.SetFocus;
        Exit;
    end;
    with  QryComm  do  begin
       Close;
       SQL.Clear;
       SQL.Add('Update   借阅人表  Set  密码=:p_password  Where  借阅人id=:p_staffid');
       Parameters.ParamByName('p_password').Value:=trim(Edit_NMM.Text);
       Parameters.ParamByName('p_staffid').Value:=GG_StaffID;
       ExecSQL;
    end;
    gg_LoginMiMa:=trim(Edit_NMM.Text);
    Application.MessageBox('密码更改完毕！','提示',MB_ICONINFORMATION);
    Close;
  except
    Application.MessageBox('更改密码失败！','错误',MB_ICONEXCLAMATION);
  end;
end;

procedure TfrmChangeMiMa.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TfrmChangeMiMa.FormActivate(Sender: TObject);
begin
  Edit_OMM.Text:='';
  Edit_NMM.Text:='';
  Edit_RNMM.Text:='';
  Lab_User.Caption:=GG_StaffName;
end;

procedure TfrmChangeMiMa.Edit_OMMKeyPress(Sender: TObject; var Key: Char);
begin
  if  Key=#13  then   perform(WM_NEXTDLGCTL,0,0);
end;

procedure TfrmChangeMiMa.Edit_RNMMKeyPress(Sender: TObject; var Key: Char);
begin
  if  Key=#13  then   Btn_OKClick(nil);
end;

procedure TfrmChangeMiMa.Edit_NmmKeyPress(Sender: TObject; var Key: Char);
begin
  if  Key=#13  then   perform(WM_NEXTDLGCTL,0,0);
end;

end.