passwordchange.pas

网络考试系统

unit PasswordChange;

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;
    ADOConnection1: TADOConnection;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation
uses Login;


{$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('select * from tb_teacher where th_username='+chr(39)+Form1.Tusername +chr(39));
        ADOQuery1.Open;
        ADOQuery1.edit;
        ADOQuery1.Fields[3].AsString:=edit3.Text;
        if messagedlg('真的要修改么？',mtconfirmation,[mbyes,mbno],0)=mryes  then
             begin
             ADOQuery1.Post;
             Edit1.Clear;
              Edit2.Clear;
              Edit3.Clear;
             end
         else
             begin
              Edit1.Clear;
              Edit2.Clear;
              Edit3.Clear;
              exit;

             end;


      end;     //---------------------用户名及密码的修改------------------------------
end;


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

end.