updatepass.pas

物流管理系统是一个典型的数据库应用程序

unit updatepass;

interface

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

type
  Tf_updatepass = class(Tf_frame)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Confirm: TBitBtn;
    Cancel: TBitBtn;
    Label4: TLabel;
    Username: TEdit;
    Oldpass: TEdit;
    Newpass: TEdit;
    Confirmpass: TEdit;
    procedure UsernameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure ConfirmClick(Sender: TObject);
    procedure CancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_updatepass: Tf_updatepass;

implementation
  uses data, main;
{$R *.dfm}
 //按回车键控制焦点移动
procedure Tf_updatepass.UsernameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if Key = VK_Return then
    FindNext(True);
end;

procedure Tf_updatepass.FormShow(Sender: TObject);
begin
  inherited;
  Username.Text := Trim(t_main.Operatorname);
  Oldpass.Text := Trim(t_main.Operatorpass);
end;
//处理确定按钮单击事件,修改密码
procedure Tf_updatepass.ConfirmClick(Sender: TObject);
begin
  inherited;
  if (Trim(Newpass.Text)<>'')and(Trim(Confirmpass.Text)<>'') then  //密码是否为空
  begin
    if Trim(Newpass.Text)=Trim(Confirmpass.Text)then  //密码是否一致
    begin
      Try
        With t_data.update1 do
        begin
          CLose;
          SQL.Clear;
          SQL.Add('update tb_operatorinfo set password = :password where operatorname = :name');
          Parameters.ParamByName('password').Value := Trim(Newpass.Text);
          Parameters.ParamByName('name').Value := Trim(Username.Text);
          ExecSQL;
        end;
        t_main.Operatorpass := Trim(Newpass.Text);
        Oldpass.Text := t_main.Operatorpass;
        Newpass.Clear;
        Confirmpass.Clear;
        Application.MessageBox('操作成功.','提示',64);
      Except
        On E: Exception do
          ShowMessage(E.Message);
      End;
    end
    else
    begin
      Application.MessageBox('用户两次输入的密码不一致,请重新输入.','提示',64);
      Newpass.SetFocus;
      Newpass.SelectAll;
    end;
  end;
end;

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

end.