checkuser.pas

学生成绩管理系统

unit checkuser;

interface

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

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

var
  CheckUserForm: TCheckUserForm;
  i:integer;
implementation
  uses main;
{$R *.dfm}

procedure TCheckUserForm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TCheckUserForm.FormActivate(Sender: TObject);
begin
    Edit1.text:='';
    Edit2.Text:='';
    Edit1.SetFocus;
    i:=3;
end;

procedure TCheckUserForm.BitBtn1Click(Sender: TObject);
var
    query1:TQuery;
begin
    query1:=TQuery.Create(self);
    query1.DatabaseName:='student';
    database1.Connected:=true;
    query1.Close;
    query1.SQL.Clear;
    query1.SQL.add('select * from operator where username=:s0 and password=:s1');
    query1.Params.Clear;
    query1.Params.CreateParam(ftstring,'s0',ptinput);
    query1.Params[0].Value:=edit1.text;
    query1.Params.CreateParam(ftstring,'s1',ptinput);
    query1.Params[1].Value:=edit2.text;
    query1.Prepare;
    query1.Open;
    if not query1.IsEmpty then
    begin
        username:=edit1.text;
        right[1]:=query1.FieldByName('right_1').AsBoolean;
        right[2]:=query1.FieldByName('right_2').AsBoolean;
        right[3]:=query1.FieldByName('right_3').AsBoolean;
        i:=0;
    end
    else
    begin
        i:=i-1;
        username:='';
        Application.MessageBox('您输入的用户名或密码错误，请检查！','提示信息',mb_ok);
    end;
    if i=0 then
    begin
        close;
    end;
    query1.Close;
    database1.Connected:=false;
end;

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

end.