u5_1.pas

前言 随着旅游业的发展

unit U5_1;

interface

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

type
  TF5_1 = class(TForm)
    xmLabel1: TLabel;
    klLabel1: TLabel;
    EDpassword: TEdit;
    SBTok: TSpeedButton;
    SBTcancel: TSpeedButton;
    xklPanel1: TPanel;
    xklLabel1: TLabel;
    qrLabel1: TLabel;
    EDxpw: TEdit;
    EDqueren: TEdit;
    Image1: TImage;
    EDname: TEdit;
    procedure SBTcancelClick(Sender: TObject);
    procedure compare(names:string;password:string);
    procedure EDnameExit(Sender: TObject);
    procedure EDpasswordExit(Sender: TObject);
    procedure SBTokClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F5_1: TF5_1;
  flag:integer;

implementation

uses UDmo, UMainForm;


{$R *.dfm}

procedure TF5_1.compare(names:string;password:string);
begin
  password:=F5_1.EDpassword.Text;
  names:=F5_1.EDname.Text;
  with Dmo.ADOQuery1 do
  begin
     close;
     sql.Clear;
     sql.Add('select * from yuangong');
     sql.Add('where na=:names and passwd=:passwd');
     parameters.ParamByName('names').Value:=names;
     parameters.ParamByName('passwd').Value:=password;
     open;
     if RecordCount=1 then flag:=1
     else begin
            flag:=0;
            MessageBox(Handle, '密码有误，请从新输入', '提示',
                       MB_ICONEXCLAMATION);
     end;
  end;
end;

procedure TF5_1.SBTcancelClick(Sender: TObject);
begin
  Close;
end;

procedure TF5_1.EDnameExit(Sender: TObject);
begin
  if (EDname.Text<>'') and (EDpassword.Text<>'')
  then begin
    compare(EDname.Text,Edpassword.Text);
    if flag=1 then
    begin
      EDxpw.Enabled:=true;
      EDxpw.Color:=clwindow;
      EDqueren.Enabled:=true;
      EDqueren.Color:=clwindow;
      SBTok.Enabled:=true;
      EDxpw.SetFocus;
    end;
  end;
end;

procedure TF5_1.EDpasswordExit(Sender: TObject);
begin
  if (EDname.Text<>'') and (EDpassword.Text<>'')
  then begin
    compare(EDname.Text,Edpassword.Text);
    if flag=1 then
    begin
      EDxpw.Enabled:=true;
      EDxpw.Color:=clwindow;
      EDqueren.Enabled:=true;
      EDqueren.Color:=clwindow;
      SBTok.Enabled:=true;
      EDxpw.SetFocus;
    end;
  end;
end;

procedure TF5_1.SBTokClick(Sender: TObject);
begin
  if EDxpw.text<>EDqueren.Text then
  begin
     MessageBox(Handle, '密码不一致，请从新输入', '提示',
                       MB_ICONEXCLAMATION);
     EDqueren.SetFocus;
  end
  else begin
    with Dmo.ADOQuery1 do
    begin
      close;
      sql.Clear;
      sql.Add('update yuangong set passwd=:passwd');
      sql.Add('where na=:names');
      parameters.ParamByName('names').Value:=EDname.Text;
      parameters.ParamByName('passwd').Value:=EDqueren.Text;
      execsql;
      MessageBox(Handle,'密码已经更新成功！！','提示',
                 MB_ICONEXCLAMATION);
      F5_1.Close;
    end;
  end;
end;

procedure TF5_1.FormCreate(Sender: TObject);
begin
  Edname.Text:='';
  EDpassword.Text:='';
  EDxpw.Text:='';
  EDxpw.Enabled:=false;
  Edxpw.Color:=clbtnFace;
  EDqueren.Enabled:=false;
  Edqueren.Color:=clBtnface;
end;

end.