alterpassword.pas

1. 发卡服务端：Server 项目文件：autojet.prj 2. 计费客户端：Client 项目文件：internet.prj Explorer.prj 先启动Exp

unit AlterPassword;

interface

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

type
  TFrm_AlterPassword = class(TForm)
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edt_oldpasswd: TEdit;
    Edt_NewPasswd: TEdit;
    Edt_TryPasswd: TEdit;
    Bevel1: TBevel;
    BtBtn_Ok: TBitBtn;
    BtBtn_Cancel: TBitBtn;
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edt_oldpasswdExit(Sender: TObject);
    procedure Edt_NewPasswdExit(Sender: TObject);
    procedure Edt_TryPasswdExit(Sender: TObject);
    procedure BtBtn_OkClick(Sender: TObject);
    procedure BtBtn_CancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_AlterPassword: TFrm_AlterPassword;

implementation

uses sys_dm, sys_global ;

{$R *.DFM}
var
  M_passwd: string ;

procedure TFrm_AlterPassword.FormShow(Sender: TObject);
begin
  Edt_oldpasswd.text := '';
  Edt_NewPasswd.text := '';
  Edt_TryPasswd.text := '';
  Edt_oldpasswd.SetFocus ;
  with frm_sys_dm.qr_tmp1 do
  begin
    close;
    sql.Clear ;
    sql.text := 'select * from operator where gname = '''+Trim(m_OpName)+'''' ;
    open;
    M_passwd := fieldbyname('passwd').asstring ;
    close;
  end;
end;


procedure TFrm_AlterPassword.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frm_sys_dm.qr_tmp1.Close;
end;


procedure TFrm_AlterPassword.Edt_oldpasswdExit(Sender: TObject);
begin
  if Edt_oldpasswd.Text ='' then exit ;

  if Edt_oldpasswd.Text <> M_passwd then
  begin
    MessageBox(handle, ' 旧密码不对! ','提示', mb_ok+mb_iconstop);
    Edt_oldpasswd.SetFocus ;
    exit;
  end;
end;

procedure TFrm_AlterPassword.Edt_NewPasswdExit(Sender: TObject);
begin
  Edt_NewPasswd.Text := trim(Edt_NewPasswd.Text);
end;

procedure TFrm_AlterPassword.Edt_TryPasswdExit(Sender: TObject);
begin
  if Edt_TryPasswd.text <> Edt_NewPasswd.text then
  begin
    MessageBox(handle, ' 核对密码时出错! 请再次输入新密码.','提示', mb_ok+mb_iconstop);
    Edt_TryPasswd.text := '' ;
    Edt_newpasswd.text := '' ;
    Edt_newpasswd.SetFocus ;
    exit;
  end;
end;

procedure TFrm_AlterPassword.BtBtn_OkClick(Sender: TObject);
begin
  with frm_sys_dm.qr_tmp1 do
  begin
    close;
    sql.Clear ;
    sql.text := 'update operator set passwd = '''+Edt_NewPasswd.text
                 +''' where gname = '''+Trim(m_OpName)+'''' ;
    try
      ExecSQL ;
    except
      MessageBox(handle, '修改不成功!','提示', mb_ok+MB_iconstop);
      exit;
    end;
    MessageBox(handle, '您好,密码修改已完成!','提示', mb_ok+MB_iconwarning);
  end;
  close;
end;

procedure TFrm_AlterPassword.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    vk_escape:
       close ;
    vk_return:
    begin
      SelectNext(ActiveControl As Twincontrol,true,true);
      key:=0;
    end;
    vk_up,vk_down:
    begin
      SelectNext(ActiveControl As Twincontrol,key=vk_down,true);
      key:=0;
    end;
  end;
end;

procedure TFrm_AlterPassword.BtBtn_CancelClick(Sender: TObject);
begin
  close ;
end;

end.