updatepass.~pas

1、系统环境要求：WindowsXP/2000 2、DELPHI7.0企业版 3、如果数据库为SQL Server数据库

unit updatepass;

interface

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

type
  Tt_updatepass = class(Tf_baseform)
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Username: TEdit;
    Password: TEdit;
    Confirm: TButton;
    Cancel: TButton;
    Label3: TLabel;
    Confirmpass: TEdit;
    procedure FormShow(Sender: TObject);
    procedure PasswordKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CancelClick(Sender: TObject);
    procedure ConfirmClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  t_updatepass: Tt_updatepass;

implementation
  uses main,data;
{$R *.dfm}

procedure Tt_updatepass.FormShow(Sender: TObject);
begin
  inherited;
  Username.Text := main.Username;
end;

procedure Tt_updatepass.PasswordKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if Key = vk_Return then
    FindNext(True);
end;

procedure Tt_updatepass.CancelClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure Tt_updatepass.ConfirmClick(Sender: TObject);
begin
  inherited;
  if Password.Text <>'' then
  begin
    if Password.Text = Confirmpass.Text then
    begin
      if Application.MessageBox('确实要修改用户密码吗?','提示',mb_yesno)= id_Yes then
      begin
        Try
          With t_data.Query1 do
          begin
            Close;
            SQL.Clear;
            SQL.Add('update tb_operator set password = :password where name = :username');
            Parameters.ParamByName('password').Value := password.Text;
            Parameters.ParamByName('username').Value := Username.Text;
            ExecSQL;
          end;
          Application.MessageBox(pchar('修改成功,密码为: '+password.Text),'提示',64);
          Password.Clear;
          Confirmpass.Clear;
        Except
        End;
      end;
    end
    else
    begin
      Application.MessageBox('两次输入的密码不正确,请重新输入.','提示',64);
      Password.SelectAll;
      Password.SetFocus;
    end;
  end
  else
  begin
    Application.MessageBox('密码不能为空.','提示',64);
  end;
end;

end.