ufrm_changepassword.pas

完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0

//  ***************************************
//  *    Program name :ufrm_changepassword*
//  *    AUTHOR       :Guo xuliang        *
//  *    Name         :郭许良　　　　     *
//  *    Date         :2005/05/18         *
//  *    Porgram type :主程序             *
//  ***************************************
unit ufrm_changepassword;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, ImgList, ExtCtrls, Grids, DBGrids, Db,
  DBTables;

type
  Tfrm_changepassword = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ImageList1: TImageList;
    Image1: TImage;
    Label1: TLabel;
    ed_old: TEdit;
    Label2: TLabel;
    ed_new: TEdit;
    Label3: TLabel;
    ed_confirm: TEdit;
    bt_yes: TBitBtn;
    bt_no: TBitBtn;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bt_noClick(Sender: TObject);
    procedure bt_yesClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_changepassword: Tfrm_changepassword;

implementation

uses udm,u_encrypt,uglobal_var;

{$R *.DFM}

procedure Tfrm_changepassword.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then selectnext(activecontrol,true,true);
end;

procedure Tfrm_changepassword.bt_noClick(Sender: TObject);
begin
  close;
end;

procedure Tfrm_changepassword.bt_yesClick(Sender: TObject);
var l_oldi,l_oldc,l_new,l_confirm:string;
begin
  l_oldi:=ed_old.Text;
  l_new:=ed_new.Text;
  l_confirm:=ed_confirm.Text;
  if l_new<>l_confirm then
    begin
      messagedlg('兩次輸入的新密碼不同！',mtinformation,[mbok],0);
      try ed_new.SetFocus; except ; end;
      exit;
    end;
  with dm do
    begin
      p_update1.close;
      p_update1.sql.clear;
      p_update1.sql.add('SELECT * FROM ZD_FILE WHERE ZD02='''+
         g_user+'''');
      p_update1.open;
      l_oldc:=p_update1.fieldbyname('ZD04').asstring;
      l_oldc:=u_encrypt.Decrypt(l_oldc,g_pwdkey);
      if l_oldc<>l_oldi then
        begin
          messagedlg('輸入的舊密碼不正確！',mtinformation,[mbok],0);
          try ed_old.SetFocus; except ; end;
          exit;
        end;
      try
        p_update1.edit;
        l_new:=u_encrypt.Encrypt(l_new,g_pwdkey); 
        p_update1.fieldbyname('ZD04').asstring:=l_new;
        p_update1.post;
        messagedlg('Change password ok!',mtinformation,[mbok],0);
        close;
      except
        messagedlg('Change password fail!',mtinformation,[mbok],0);
      end;
    end;
end;

end.