checkuser.~pas

一个详实的图书信息管理系统

unit CheckUser;

interface

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

type
  TCheckUserForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
   // Table1: TTable;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

 var
      CheckUserForm: TCheckUserForm;



implementation
uses main;

{$R *.dfm}

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

procedure TCheckUserForm.BitBtn1Click(Sender: TObject);
     var adodataset1:tadodataset;
begin
    //动态创建一个tadodateset控件
      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:= checkuserform.edit1.Text;
             qx[1]:=adodataset1.FieldByName('权限一').AsBoolean;
             username:=edit1.Text;
             qx[2]:=adodataset1.FieldByName('权限二').AsBoolean;
             username:=edit1.Text;
             qx[3]:=adodataset1.FieldByName('权限三').AsBoolean;
             username:=edit1.Text;
             qx[4]:=adodataset1.FieldByName('权限四').AsBoolean;
             username:=edit1.Text;
             username:= checkuserform.edit1.Text;
             password:=edit2.Text;
           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
    CheckUserForm.ADOConnection1:=MAINFORM.ADOConnection1;
end;

end.