additionalinfo1.pas

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

unit additionalinfo1;

interface

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

type
  Tadditional1frm = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    GroupBox1: TGroupBox;
    ListView1: TListView;
    BitBtn1: TBitBtn;
    q1: TQuery;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
   
  public
    { Public declarations }
       procedure addinfo(leibie:string);
  end;                      

var
  additional1frm: Tadditional1frm;

implementation

{$R *.dfm}


procedure Tadditional1frm.addinfo(leibie:string);
var  s,s1,a0:string;
    
     number:integer;
    // label l1   ;
begin
  q1.SQL.Clear;
  q1.SQL.Add('select * from book_info where 类别=:no order by 图书编号');
  q1.ParamByName('no').AsString:=leibie;
  q1.Open;
  q1.First;
  listview1.Items.Clear;

  number:=1;

  while not q1.Eof do
    begin
         s:=copy(q1.fieldbyname('图书编号').asstring,1,4);
         a0:=q1.fieldbyname('书名').asstring;
         q1.Next;
         if not q1.Eof  then
          begin
         s1:=copy(q1.fieldbyname('图书编号').asstring,1,4);

        while (s=s1) and (not q1.eof) do
         begin
            number:=number+1;
            q1.Next;
             s1:=copy(q1.fieldbyname('图书编号').asstring,1,4);
         end;
         end;
         with listview1.Items.Add do
           begin
             caption:=leibie;
             subitems.add(s);
             subitems.Add(a0);
             subitems.Add(inttostr(number));
             number:=1;
            end;

    end;
  q1.Close;
end;

procedure Tadditional1frm.BitBtn1Click(Sender: TObject);
begin
close;
end;

end.