dengl.pas

图书管理系统

unit dengl;

interface

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

type
  TForm1 = class(TForm)
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    DBComboBox1: TDBComboBox;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    Edit2: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses main;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var username,pw,sqlstr,aa:string;
begin
  username:=trim(edit1.Text);
  aa:=DBComboBox1.Text;
  pw:=trim(edit2.Text);
  sqlstr:='select * from 系统管理 where 用户对象="'+aa+'" and 用户名="'+username+'" and 密码="'+pw+'"';
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(sqlstr);
  ADOQuery1.Open;
  if not adoquery1.Eof   then
   begin
     showmessage('欢迎使用本系统！');
     self.Close;
     form2.show;
   end
 else
   showmessage('嘿嘿,错误的用户名或密码！');
 if adoquery1['用户对象']='guest' then
 begin

    form2.SpeedButton7.Enabled:=false;
    form2.n5.Enabled:=false;
    form2.toolbutton11.enabled:=false;
   end
 else
 begin
    form2.SpeedButton7.enabled:=true;
    form2.n5.Enabled:=true;
    form2.toolbutton11.Enabled:=true;
  end;
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
 while not adotable1.Eof do
  begin
   DBComboBox1.Items.Add(adotable1.fieldbyname('用户对象').AsString);
   adotable1.Next;
   end;

end;

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

procedure TForm1.SpeedButton1Click(Sender: TObject);
var username,pw,sqlstr,aa:string;
begin
    username:=trim(edit1.Text);
  aa:=DBComboBox1.Text;
  pw:=trim(edit2.Text);
  sqlstr:='select * from 系统管理 where 用户对象="'+aa+'" and 用户名="'+username+'" and 密码="'+pw+'"';
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(sqlstr);
  ADOQuery1.Open;
  if not adoquery1.Eof   then
   begin
     showmessage('欢迎使用本系统！');
     self.Close;
     form2.show;
   end
 else
   showmessage('嘿嘿,错误的用户名或密码！');
 if adoquery1['用户对象']='guest' then
 begin

    form2.SpeedButton7.Enabled:=false;
    form2.n5.Enabled:=false;
    form2.toolbutton11.enabled:=false;
   end
 else
 begin
    form2.SpeedButton7.enabled:=true;
    form2.n5.Enabled:=true;
    form2.toolbutton11.Enabled:=true;
  end;
end;




procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   speedbutton1.Click;
end;

end.