unit Unit3;

interface

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

type
  Tpassword = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    oldpassword: TEdit;
    newpassword: TEdit;
    newpassword1: TEdit;
    ADOQuery1: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure newpasswordKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  password: Tpassword;

implementation

uses Unit1;

{$R *.dfm}

procedure Tpassword.BitBtn1Click(Sender: TObject);
begin   //對組件初始化
   newpassword.Clear;
   newpassword1.Clear;
   oldpassword.Clear;
end;

procedure Tpassword.BitBtn2Click(Sender: TObject);
begin  //修改用戶密碼
    if (trim(oldpassword.Text)<>'') and (trim(newpassword.Text)<>'') and (trim(newpassword.Text)<>'') then
      begin
        if trim(newpassword.Text)=trim(newpassword1.Text) then //判斷兩次新密碼是否一至
           begin
              adoquery1.Close;
              adoquery1.SQL.Clear;
              adoquery1.SQL.Add('select opname,oppw from opration where opname=:opname and oppw=:oppw');
              adoquery1.Parameters.ParamByName('opname').value:=trim(user);
              adoquery1.Parameters.ParamByName('oppw').Value:=trim(oldpassword.Text);
              adoquery1.Open;
              if not adoquery1.IsEmpty then //判斷輸入的舊密碼是否正確
                begin
                  adoquery1.Edit;
                  adoquery1.FieldByName('oppw').Value:=trim(newpassword.Text);
                  adoquery1.Post; //修改密碼
                  showmessage('密碼修改成功');
                  password.Close;
                end
              else
                begin
                showmessage('您輸入的密碼有誤，請檢查密碼');
                oldpassword.SetFocus;
                end;
           end
        else
           begin
           showmessage('兩輸入的新密碼不相同，請重新輸入');
           newpassword.SetFocus;
           end ;
      end
    else
      begin
      showmessage('密碼不能為空');
      oldpassword.SetFocus;
      end;
end;

procedure Tpassword.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  resize:=false;
end;

procedure Tpassword.newpasswordKeyPress(Sender: TObject; var Key: Char);
begin
    if not(key in['0'..'9','a'..'z','A'..'Z',#008]) then
    begin
    showmessage('密碼為數(shù)字，字母');
    key:=#0;
    end;
end;

end.