statistic.~pas

蛮不错的图书管理系统,大家可以载着试试看啊

unit statistic;

interface

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

type
  Tstatisticfrm = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    GroupBox1: TGroupBox;
    l1: TLabel;
    e1: TEdit;
    e2: TEdit;
    Label1: TLabel;
    ListView1: TListView;
    Label2: TLabel;
    b1: TBitBtn;
    q1: TQuery;
    DataSource1: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure b1Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
  private
    { Private declarations }
    procedure booksum;
  public
    { Public declarations }
  end;

var
  statisticfrm: Tstatisticfrm;

implementation
      uses additionalinfo1;
{$R *.dfm}

procedure Tstatisticfrm.booksum;
begin
   q1.Close;
   q1.SQL.Clear;
   q1.SQL.Add('select * from book_info');
   q1.Open;
   e1.Text:=inttostr(q1.RecordCount);
   q1.Close;
   q1.SQL.Clear;
   q1.SQL.Add('select * from borrow_info');
   q1.Open;
   e2.Text:=inttostr(q1.RecordCount);
   q1.Close;
   q1.SQL.Clear;
   q1.SQL.add('select 类别,count(类别) as 藏书总数 from book_info group by 类别');
   q1.open;
   listview1.Items.Clear;
   while not q1.Eof do
      begin
        with listview1.items.Add do
          begin
             caption:=q1.fieldbyname('类别').AsString;
             subitems.Add(q1.fieldbyname('藏书总数').AsString);
          end;
        q1.Next;
      end;
   q1.Close;
   q1.Free;


end;

procedure Tstatisticfrm.FormShow(Sender: TObject);
begin
   booksum;
end;

procedure Tstatisticfrm.b1Click(Sender: TObject);
begin
      close;
end;

procedure Tstatisticfrm.ListView1DblClick(Sender: TObject);
begin
   if(listview1.selected<>nil) then
      begin
         additional1frm.addinfo(listview1.selected.Caption);
         additional1frm.show;
      end;
end;

end.