umodifypw.pas

来自「已经投入使用的商业级管理系统：液化气管理系统。 附带全部源码」· PAS 代码 · 共 77 行

unit UMODIFYPW;

interface

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

type
  TFMODIFYPW = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    EdtNEWPAWW: TEdit;
    EdtPW: TEdit;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMODIFYPW: TFMODIFYPW;

implementation
   USES U_dm,UsysPub,UsysConst,ULIGON;
{$R *.dfm}

procedure TFMODIFYPW.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    EnterToChangeFocus(self,key);
end;


procedure TFMODIFYPW.BitBtn2Click(Sender: TObject);
begin
  self.Close;
end;

procedure TFMODIFYPW.BitBtn1Click(Sender: TObject);
var
  strSQL,strNEWPW,strPW,strCZY:string;
  i:integer;
begin
  strNEWPW:=Trim(Encrypt(EdtNEWPAWW.Text,255));
  strPW:=Trim(Encrypt(EdtPW.Text,255));
  strCZY:='';
  i:=FLIGON.Cobyh.ItemIndex;
  if i>=0 then
    strCZY:=Trim(TStrczy.Strings[i]);
  if strNEWPW<>strPW then
  begin
    Application.MessageBox('新密码和确认密码不一致，请重新输入！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    EdtNEWPAWW.SetFocus;
    abort;
  end;
  strSQL:='update JCCZYXX set CZMM='
             +''''+strNEWPW+''''
             +'where (CYZID='+''''+strCZY+''''+')';
  if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
  begin
    Application.MessageBox('密码保存成功！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    self.Close;
  end
  else
    Application.MessageBox('密码保存失败！',MsgBxCaption,MB_OK+MB_ICONWARNING);
end;

end.