unit2.pas

delphi开发的图书馆管理系统

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls, jpeg, ExtCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Button4: TButton;
    GroupBox2: TGroupBox;
    Button5: TButton;
    DBGrid1: TDBGrid;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
var
a:Integer=1 ;

implementation


uses dem;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin
a:=1;
GroupBox1.Caption:='按书名查询';
GroupBox1.Color:=claqua;
dbgrid1.Visible:=true;
if edit1.Text=''then
begin
showmessage('请输入书名!');
abort;
end;

end;

procedure TForm2.Button5Click(Sender: TObject);

begin

close;
end;

procedure TForm2.Button2Click(Sender: TObject);

begin
a:=2;
GroupBox1.Caption:='按作者查询';
GroupBox1.Color:=ClMoneyGreen;

if edit1.Text=''then
begin
showmessage('请输入作者!');
abort;
end;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin
a:=3;
GroupBox1.Caption:='按输入书号';
GroupBox1.Color:=clSilver;

if edit1.Text=''then
begin
showmessage('请输入书名!');
abort;
end;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin
if a=1 then
begin
dm.libdataset.Active:=false;
dm.libdataset.CommandText:='select * from book where bname='''+edit1.Text+'''';
dm.libdataset.active:=true;
dm.libdataset.requery;
end;

if a=2 then
begin
dm.libdataset.Active:=false;
dm.libdataset.CommandText:='select * from book where author='''+edit1.Text+'''';
dm.libdataset.active:=true;
dm.libdataset.requery;
end;

if a=3 then
begin

dm.libdataset.Active:=false;
dm.libdataset.CommandText:='select * from book where bno='''+edit1.Text+'''';
dm.libdataset.active:=true;
dm.libdataset.requery;
end;
end;

end.