pwd.pas

大二时做的

unit pwd;

interface

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

type
  TF_pwd = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    MaskEdit1: TMaskEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    MaskEdit2: TMaskEdit;
    MaskEdit3: TMaskEdit;
    L_login: TLabel;
    ADOQuery1: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_pwd: TF_pwd;

implementation
uses main;
{$R *.dfm}

procedure TF_pwd.FormShow(Sender: TObject);
var tablename,loginname:string;
begin
    l_login.Caption :=vloginname;
    adoquery1.SQL.clear;

    if vloginstatus='管理员' then
    begin
    tablename:='admin';
    loginname:='login';
    end;
    if vloginstatus='教师' then
    begin
    tablename:='teacher';
    loginname:='teacherno';
    end;
    if vloginstatus='学生' then
    begin
    tablename:='student';
    loginname:='studentno';
    end;
    adoquery1.sql.Add('select name,password from '+tablename+' where '+loginname+'='''+vlogin+''' ');
    adoquery1.Open;



end;

procedure TF_pwd.BitBtn2Click(Sender: TObject);
begin
     F_pwd.Close ;
end;

procedure TF_pwd.BitBtn1Click(Sender: TObject);
var tablename,loginname:string;
begin
     if maskedit1.Text <>adoquery1.FieldByName('password').AsString   then
     begin
        showmessage('原密码输入不正确！');
        exit;
     end;

     if maskedit2.Text <> maskedit3.Text then
     begin
        showmessage('两次输入的密码不一致！');
        exit;
     end;

    adoquery1.sql.Clear;
    if vloginstatus='管理员' then
    begin
    tablename:='admin';
    loginname:='login';
    end;
    if vloginstatus='教师' then
    begin
    tablename:='teacher';
    loginname:='teacherno';
    end;
    if vloginstatus='学生' then
    begin
    tablename:='student';
    loginname:='studentno';
    end;

    adoquery1.sql.Add('update '+tablename+' set password='''+maskedit2.Text+''' where '+loginname+'='''+vlogin+''' ');
    adoquery1.ExecSQL ;

    F_pwd.Close ;

end;

end.