pswunt.pas

商品销售系统完全的功能SQL和JAVA

unit pswunt;

interface

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

type
  Tpswfrm = class(TForm)
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Edit3Enter(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
    procedure Edit4Enter(Sender: TObject);
    procedure Edit4Exit(Sender: TObject);
    procedure Edit5Exit(Sender: TObject);
    procedure Edit5Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 const  StartKey=888; 
var
  pswfrm: Tpswfrm;

implementation

uses data,mainunt,datam;
 var
  update_user:tadoquery;
{$R *.dfm}

procedure Tpswfrm.BitBtn2Click(Sender: TObject);
begin
try
 update_user:=TADOQuery.Create(APPLICATION.Owner);
 update_user.Connection:=dataman.ADOCon;
 if edit5.Text<>edit4.Text then
  begin
  showmessage('两次输入的密码不对！');
  exit;
  end;

 with update_user do
  begin
    close;
    sql.clear;
    sql.Add('select yonghu from syslogin where yonghu =:usr and mima =:mma');
    parameters.ParamByName('usr').Value:=usrname;
    parameters.ParamByName('mma').Value:=de_crypt(edit3.Text,StartKey);
    prepared;
    open;
    if IsEmpty then
     begin
       showmessage('对不起！你输入的旧密码不对！');
       exit;
     end;
    close;
    sql.Clear;
    sql.Add('update syslogin set mima =:mm where yonghu =:us');
    parameters.ParamByName('mm').Value :=en_crypt(edit4.Text,StartKey);
    parameters.ParamByName('us').Value :=usrname;
    execsql;
    showmessage('密码修改成功！');
  end;
 finally
  update_user.Free;
 end;
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
end;

procedure Tpswfrm.FormActivate(Sender: TObject);
begin
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
end;

procedure Tpswfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
pswfrm:=nil;
pswfrm.Free;
end;

procedure Tpswfrm.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure Tpswfrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
      Perform(CM_DialogKey,Vk_TAB,0);
      key:=#0;
    end;
end;

procedure Tpswfrm.Edit3Enter(Sender: TObject);
begin
Edit3.Color:=clSkyBlue;
end;

procedure Tpswfrm.Edit3Exit(Sender: TObject);
begin
Edit3.color:=clWindow;
end;

procedure Tpswfrm.Edit4Enter(Sender: TObject);
begin
Edit4.Color:=clSkyBlue;
end;

procedure Tpswfrm.Edit4Exit(Sender: TObject);
begin
Edit4.color:=clWindow;
end;

procedure Tpswfrm.Edit5Exit(Sender: TObject);
begin
Edit5.color:=clWindow;
end;

procedure Tpswfrm.Edit5Enter(Sender: TObject);
begin
Edit5.Color:=clSkyBlue;
end;

end.