unit2.pas

这个是我自主研发的图书管理系统的应用

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    Label2: TLabel;
    Label3: TLabel;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
 uses unit1;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
 adoquery1.Close;
 AdoQuery1.SQL.Clear;
 AdoQuery1.SQL.Add('select * from admin where '
 +'username=:user and password=:pass');
 adoquery1.Parameters.ParamByName('user').Value:=ComboBox1.Text;
 adoquery1.Parameters.ParamByName('pass').Value:=edit1.Text;
 username1:=ComboBox1.Text;
 AdoQuery1.Open;
 if ADoquery1.Bof and adoquery1.Eof then
   begin
     Application.MessageBox('用户名或密码错误, 登录失败','错误',MB_OK);
     ComboBox1.SetFocus;
     ComboBox1.SelectAll;
   end
 else
 begin
 adoquery1.Close;
 AdoQuery1.SQL.Clear;
 AdoQuery1.SQL.Add('select * from admin where username=:user1');
 adoquery1.Parameters.ParamByName('user1').Value:=username1;
 AdoQuery1.Open;
 if adoquery1.FieldByName('right').AsBoolean  then
   begin
      form1.N1.Enabled:=true;
      form1.N8.Enabled:=true;
      form1.N10.Enabled:=true;
      form1.N2.Enabled:=false;
      form1.N3.Enabled:=false;
      form1.N4.Enabled:=false;
      form1.N5.Enabled:=false;
      form1.N9.Enabled:=false;
      form1.N12.Enabled:=false;
   end
 else
  begin
      form1.N1.Enabled:=true;
      form1.N8.Enabled:=true;
      form1.N10.Enabled:=true;
      form1.N2.Enabled:=True;
      form1.N3.Enabled:=True;
      form1.N4.Enabled:=True;
      form1.N5.Enabled:=True;
      form1.N9.Enabled:=true;
      form1.N12.Enabled:=True;
  end;
 close;
 end;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
 application.Terminate;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
ComboBox1.Clear;
 Adoquery2.Close;
 AdoQuery2.SQL.Clear;
 AdoQuery2.SQL.Add('select username from admin');
 AdoQuery2.Open;
 while not Adoquery2.Eof do
  begin
    ComboBox1.Items.Add(Adoquery2.fieldbyname('username').AsString);
    ADoquery2.Next;
  end;
end;

end.