password.~pas

学生成绩管理系统

unit password;

interface

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

type
  TPasswordForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Database1: TDatabase;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Database1Login(Database: TDatabase; LoginParams: TStrings);
    procedure Edit1Exit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PasswordForm: TPasswordForm;

implementation
  uses main;
{$R *.dfm}

procedure TPasswordForm.BitBtn2Click(Sender: TObject);
begin
    database1.Connected:=false;
    Close;
end;

procedure TPasswordForm.FormActivate(Sender: TObject);
begin
      Edit2.Text:='';
      Edit3.Text:='';
      if not right[1] then
      begin
          edit1.Text:=username;
          edit1.Enabled:=false;
          edit2.setfocus;
      end
      else
      begin
          edit1.text:='';
          edit1.SetFocus;
      end;
      database1.Connected:=true;
end;

procedure TPasswordForm.Database1Login(Database: TDatabase;
  LoginParams: TStrings);
begin
    loginparams.Clear;
    loginparams.add('user_name=administator');
    loginparams.add('password=650124');
end;

procedure TPasswordForm.Edit1Exit(Sender: TObject);
var
    query1:TQuery;
begin
    if edit1.text<>'' then
    begin
        query1:=TQuery.Create(self);
        query1.DatabaseName:='student';
        query1.Close;
        query1.SQL.clear;
        query1.sql.Add('select * from operator where username=:s0');
        query1.Params.Clear;
        query1.Params.CreateParam(ftstring,'s0',ptinput);
        query1.Params[0].Value:=edit1.text;
        query1.Active:=true;
        if query1.IsEmpty then
        begin
            Application.MessageBox('您输入的用户名错误，请检查！','提示信息',mb_ok);
            edit1.setfocus;
        end;
        query1.Close;
    end;
end;

procedure TPasswordForm.BitBtn1Click(Sender: TObject);
var
    query1:TQuery;
begin
    if Edit1.text<>'' then
    begin
        if Edit2.text=Edit3.Text then
        begin
            query1:=TQuery.Create(self);
            query1.DatabaseName:='student';
            query1.Close;
            query1.sql.clear;
            query1.sql.add('update operator set password=:s0 where username=:s1');
            query1.Params.Clear;
            query1.Params.CreateParam(ftstring,'s0',ptinput);
            query1.Params[0].Value:=edit2.text;
            query1.Params.CreateParam(ftstring,'s1',ptinput);
            query1.Params[1].Value:=edit1.text;
            query1.ExecSQL;
            query1.close;
        end
        else
        begin
            Application.MessageBox('您两次输入的密码不一致，请检查!','提示信息',mb_ok);
            Edit2.Text:='';
            edit3.Text:='';
            edit2.SetFocus;
        end;
    end;
end;

end.