unit9.pas

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

unit Unit9;

interface

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

type
  TForm9 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    CheckBox1: TCheckBox;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button3: TButton;
    ADOQuery3: TADOQuery;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure showBKlist();
  end;

var
  Form9: TForm9;

implementation
 uses unit1;
{$R *.dfm}
var typeid:string;
procedure Tform9.showBKlist();
begin
  adoquery2.Close;
  adoquery2.SQL.Clear;
  adoquery2.SQL.Add('select * from booktype order by typename');
  adoquery2.Open;
  combobox1.Text:=adoquery2.fieldbyname('typename').AsString;
  typeid:=adoquery2.fieldbyname('btype').AsString;
  while not adoquery2.Eof do
  begin
    combobox1.Items.Add(adoquery2.fieldbyname('typename').AsString);
    adoquery2.Next;
  end;
end;

procedure TForm9.FormCreate(Sender: TObject);
begin
Label2.Caption:='';
label4.Caption:='';
showbklist();
end;

procedure TForm9.ComboBox1Change(Sender: TObject);
begin
  adoquery2.Close;
  adoquery2.SQL.Clear;
  adoquery2.SQL.Add('select * from booktype where typename=:type1');
  adoquery2.Parameters.ParamByName('type1').Value:=combobox1.Text;
  adoquery2.Open;
  typeid:=adoquery2.fieldbyname('btype').AsString;
end;

procedure TForm9.Button1Click(Sender: TObject);
var Querystr,showstr:string;
begin
  Dbgrid2.Visible:=false;
  dbgrid1.Visible:=true;
  Querystr:='select * from teacher ,book ,borrow where teacher.borrowbook_id=borrow.borrowbook_id and '
            +'borrow.bookno=book.bookno';
  showstr:='所有图书';
  if checkbox1.Checked then
    begin
       adoquery1.Close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Text:=querystr;
       adoquery1.SQL.Add('and btype=:type1');
       adoquery1.Parameters.ParamByName('type1').Value:=typeid;
       adoquery1.Open;
       showstr:=combobox1.Text;
    end
  else
  begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add(querystr);
  adoquery1.Open;
  end;
  Label2.Caption:=showstr;
  label4.Caption:=IntToStr(adoquery1.RecordCount);
end;

procedure TForm9.Button2Click(Sender: TObject);
var Querystr,showstr:string;
begin
  Dbgrid1.Visible:=false;
  dbgrid2.Visible:=true;
  Querystr:='select * from student ,book ,borrow where student.borrowbook_id=borrow.borrowbook_id and '
            +'borrow.bookno=book.bookno';
  showstr:='所有图书';
  if checkbox1.Checked then
    begin
       adoquery3.Close;
       adoquery3.SQL.Clear;
       adoquery3.SQL.Text:=querystr;
       adoquery3.SQL.Add('and btype=:type1');
       adoquery3.Parameters.ParamByName('type1').Value:=typeid;
       adoquery3.Open;
       showstr:=combobox1.Text;
    end
  else
   begin
  adoquery3.Close;
  adoquery3.SQL.Clear;
  adoquery3.SQL.Add(querystr);
  adoquery3.Open;
  end;
  Label2.Caption:=showstr;
  label4.Caption:=IntToStr(adoquery3.RecordCount);

end;

procedure TForm9.Button3Click(Sender: TObject);
begin
  //animatewindow(handle,1000,aw_hide or aw_center);
  form9.Hide;
  //Application.CreateForm(Tform1,form1);
  animatewindow(form1.handle,1000,aw_Activate or aw_center);
  form1.Show;
end;

end.