checkuser.pas

数据库的开发与建设大学、中小学版)、《智之星学校教材管理系统》、《智之星学生成绩管理 系统》、《Office Anywhere网络...大学、中小学版)、《智之星学校教材管 理系统》、《智之星学生成绩

unit checkuser;

interface

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

type
  TCheckUserForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  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.BitBtn1Click(Sender: TObject);
var
  Adodataset1:TAdoDataset;
begin
  AdoDataSet1:=TAdoDataset.Create(self);
  adoDataset1.Connection:=adoconnection1;
  adodataset1.CommandType:=cmdtext;
  Adodataset1.CommandText:='select * from 操作用户表 where 用户名=:username and 密码=:password';
  adodataset1.close;
  Adodataset1.Parameters.Clear;
  Adodataset1.Parameters.AddParameter;
  adodataset1.Parameters[0].name:='username';
  adodataset1.Parameters[0].DataType:=ftstring;
  Adodataset1.Parameters[0].Direction:=pdinput;
  adodataset1.Parameters[0].Value:=edit1.text;
  Adodataset1.Parameters.AddParameter;
  adodataset1.Parameters[1].name:='password';
  adodataset1.Parameters[1].DataType:=ftstring;
  Adodataset1.Parameters[1].Direction:=pdinput;
  adodataset1.Parameters[1].Value:=edit2.text;
  adodataset1.active:=true;
  if adodataset1.Recordset.RecordCount=1 then
  begin
      username:=edit1.Text;
      qx[1]:=adodataset1.FieldByName('权限一').asboolean;
      qx[2]:=adodataset1.FieldByName('权限二').asboolean;
      qx[3]:=adodataset1.FieldByName('权限三').asboolean;
      qx[4]:=adodataset1.FieldByName('权限四').asboolean;
      close;
  end
  else
  begin
      Application.MessageBox('您输入的用户名或密码错误，请检查！','提示信息',mb_ok);
      i:=i-1;
      edit1.text:='';
      edit2.text:='';
      edit1.SetFocus;
  end;
  if i=0 then
  begin
      username:='';
      close;
  end;
  adodataset1.Active:=false; 
end;

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

end.