unit change_pasw;

interface

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

type
  Tchange_psw = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Query1: TQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  change_psw: Tchange_psw;

implementation

{$R *.dfm}

procedure Tchange_psw.BitBtn1Click(Sender: TObject);
begin
Query1.DatabaseName:='qcgl';
if edit1.Text='' then
begin
messagebeep(0);
showmessage('用戶名不能為空!');
edit1.SetFocus;
exit;
end;
if edit2.Text='' then
begin
messagebeep(0);
showmessage('舊口令不能為空!');
edit2.SetFocus;
exit;
end;
if edit3.Text='' then
begin
messagebeep(0);
showmessage('新口令不能為空!');
edit3.SetFocus;
exit;
end;
if edit3.Text<>edit4.Text then
begin
messagebeep(0);
showmessage('兩次輸入的新口令不同!');
edit4.SetFocus;
exit;
end;
with Query1 do
 begin
 close;
 SQL.Clear;
 SQL.Add('select* from admin where user_name=:str1 and pswd=:str2');
 parambyName('str1').AsString:=Trim(edit1.Text);
 parambyName('str2').AsString:=Trim(edit2.Text);
 prepare;
 open;
 end;
 if Query1.Eof then
 begin
 messagebeep(0);
 showmessage('用戶名或舊口令錯誤,請重新輸入!');
 edit1.SetFocus;
 exit;
 end;
 Query1.Active:=false;
 with Query1 do
 begin
 close;
 SQL.Clear;
 SQL.Add('update admin set pswd=:g where user_name=:e and pswd=:f');
 parambyName('e').AsString:=Trim(edit1.Text);
 parambyName('f').AsString:=Trim(edit2.Text);
 parambyName('g').AsString:=Trim(edit3.Text);
 ExecSQL;
 messagebeep(0);
 showmessage('修改成功!');
 edit1.SetFocus;
 exit;
 edit2.Clear;
 edit3.Clear;
 edit4.Clear;
 end;
end;
procedure Tchange_psw.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
BitBtn1.Click
end;

end.