unit f_xgmm;

interface

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

type
  Tf_xgmima = class(TForm)
    StaticText1: TStaticText;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery1bh: TWideStringField;
    ADOQuery1username: TWideStringField;
    ADOQuery1password: TWideStringField;
    ADOQuery1xb: TWideStringField;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  f_xgmima: Tf_xgmima;

implementation

uses Unit1, f_yhgl;

{$R *.dfm}

procedure Tf_xgmima.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tf_xgmima.BitBtn1Click(Sender: TObject);
begin
if trim(edit2.Text)<>trim(edit3.Text) then
   begin
      showmessage('你輸入新密碼不一致');
   end
else
   begin
   if  trim(edit1.Text)<> trim(s_mima)  then
      begin
        showmessage('輸入的原密碼不正確');
      end
 else
   begin
       adoquery1.Close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add('update username set password='+char(39)+trim(edit2.Text)
       +char(39)+'where username ='+char(39)+trim(s_name)+char(39));
       adoquery1.execsql;
       application.MessageBox('修改密碼成功了',char(48));
      end;
   end;
end;
end.