changepassword.~pas

delphi 学生选课系统的实现 附有sql 语句

unit ChangePassWord;

interface

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

type
  TChangePassWordForm = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure OnHide(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChangePassWordForm: TChangePassWordForm;

implementation

uses Login,DataModule;

{$R *.dfm}

procedure TChangePassWordForm.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TChangePassWordForm.Button1Click(Sender: TObject);
begin

if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '') then
begin
  if Edit1.Text = Login.Passwd then
  begin
    if Edit2.Text = Edit3.Text then
    begin
      with DataModule.DataModuleForm.A_ChangePW do
        if Types='学生' then
        begin
          Close;
          SQL.Clear;
          SQL.Add('update 学生基础信息');
          SQL.Add('set 口令 = '+''''+Edit2.Text+'''');
          SQL.Add('where 学号 = '+''''+Login.UseId+'''');
          ExecSQL;
          Application.MessageBox('密码修改成功！','密码修改成功',MB_OK);
          Login.Passwd := Edit2.Text;
        end
        else if Types='教师' then
        begin
          Close;
          SQL.Clear;
          SQL.Add('update 教师基础信息');
          SQL.Add('set 口令 = '+''''+Edit2.Text+'''');
          SQL.Add('where 工号 = '+''''+Login.UseId+'''');
          ExecSQL;
          Application.MessageBox('密码修改成功！','密码修改成功',MB_OK);
          Login.Passwd := Edit2.Text;
        end
        else if Types='管理员' then
        begin
          Close;
          SQL.Clear;
          SQL.Add('update 管理员信息');
          SQL.Add('set 口令 = '+''''+Edit2.Text+'''');
          SQL.Add('where 编号 = '+''''+Login.UseId+'''');
          ExecSQL;
          Application.MessageBox('密码修改成功！','密码修改成功',MB_OK);
          Login.Passwd := Edit2.Text;
        end
    end
    else
    begin
      Application.MessageBox('输入新密码不同，请确认后再试！','密码修改错误信息',MB_OK);
    end
  end
  else
  begin
    Application.MessageBox('输入密码有误，请确认后再试！','密码修改错误信息',MB_OK);
  end;
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Close;
end
else
begin
  Application.MessageBox('输入框不能为空！','错误',MB_OK);
end

end;

procedure TChangePassWordForm.OnHide(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;  
end;

end.