updatepassword.pas

网络考试系统

unit UpdatePassword;

interface

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

type
  TForm8 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ADOQuery1: TADOQuery;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;
  sqlString: string;


implementation

uses Login, ServerMain;



{$R *.dfm}



procedure TForm8.SpeedButton1Click(Sender: TObject);
begin
      if Edit1.Text='' then
      begin
        MessageBox(handle, '输入原口令!', '提示',  mb_IconInformation + mb_Ok);
        exit;
      end;
      if Edit2.Text='' then
      begin
        MessageBox(handle, '输入新口令!', '提示',  mb_IconInformation + mb_Ok);
        exit;
      end;
      if  Edit2.Text<>Edit3.Text then
      begin
        MessageBox(handle, '两次输入口令不一致!', '提示',  mb_IconInformation + mb_Ok);
        exit;
      end;
      if Edit1.Text= Form1.Tpassword then
      begin
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add('update tb_teacher set th_pw =:password where th_username=:username');
        ADOQuery1.Parameters.ParamByName('username').Value:=form1.Tusername;
        ADOQuery1.Parameters.ParamByName('password').Value:=edit3.Text;
      end;
      if messagedlg('真的要修改么？',mtconfirmation,[mbyes,mbno],0)=mryes  then
      begin
        try
            ADOQuery1.ExecSQL;
            showmessage('修改成功!!!');
           // self.Close;
        except
            raise Exception.Create('执行SQL语句错误');

        end;
          Edit1.Clear;
          Edit2.Clear;
          Edit3.Clear;
         end

         else
         begin
          Edit1.Clear;
          Edit2.Clear;
          Edit3.Clear;
          exit;
          end;

      end;


procedure TForm8.SpeedButton2Click(Sender: TObject);
begin
        Close();
end;

procedure TForm8.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key = 13 then
     Edit3.setfocus;

end;

procedure TForm8.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
      if key = 13 then
      SpeedButton1.click;
end;
procedure TForm8.Edit1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
        if key = 13 then
        Edit2.setfocus;
end;


end.