returnbook.~pas

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

unit returnbook;

interface

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

type
  Treturnbookfrm = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    GroupBox1: TGroupBox;
    l1: TLabel;
    ListView1: TListView;
    BitBtn1: TBitBtn;
    b2: TBitBtn;
    b3: TBitBtn;
    q1: TQuery;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure b2Click(Sender: TObject);
    procedure b3Click(Sender: TObject);
  private
    { Private declarations }
    procedure paybackbook(b_no:string);
  public
    { Public declarations }
  end;

var
  returnbookfrm: Treturnbookfrm;

implementation
      uses main1,gl;
{$R *.dfm}

procedure Treturnbookfrm.FormShow(Sender: TObject);
begin
  // q1.Close;
  // q1.SQL.Clear;
   //q1.SQL.Add('select * from student ');
   //listview1.Items.Clear;
  // with main do
     main.query1.First;
     while not main.query1.eof do
         begin

           with ListView1.Items.Add do
             begin
               caption:=main.query1.fieldbyname('图书编号').AsString;
               subitems.Add(main.query1.fieldbyname('书名').AsString);
               subitems.Add(main.query1.fieldbyname('作者').AsString);
               subitems.Add(main.query1.fieldbyname('出版社').AsString);
               subitems.Add(main.query1.fieldbyname('借出时间').AsString);
               subitems.Add(main.query1.fieldbyname('超时').AsString);
               subitems.Add(main.query1.fieldbyname('罚金').AsString);

             end;
         main.query1.next;
         end;
     main.query1.first;
end;


procedure Treturnbookfrm.BitBtn1Click(Sender: TObject);
begin
 if listview1.Items.Count=0 then
    begin
      messagedlg('您没有借书！',mtinformation,[mbYes],0);
      exit;
    end;
 if listview1.Selected=nil then
    begin
    messagedlg('您要还那本书？',mtinformation,[mbYes],0);
    exit;
    end ;
  paybackbook(listview1.Selected.Caption);
  if  strtoint(listview1.Selected.SubItems[4])<>0 then
  exbook_num:=exbook_num-1;
  listview1.Selected.Delete;
  //label2.Caption:='共有'+inttostr(listview1.Items.Count)+'本书超时';
  main.listbookinfo;
  messagedlg('还书成功!',mtinformation,[mbYes],0);

end;

procedure Treturnbookfrm.b2Click(Sender: TObject);
var n,i:integer;
begin
   n:=listview1.Items.Count;
   if n=0 then  exit;
   if messagedlg ('真的全部归还吗？',mtinformation,[mbYes,mbNo],0)=mrNo then exit;
   for i:=0 to n-1 do
    paybackbook(listview1.Items[i].Caption);
    listview1.Items.Clear;
    exbook_num:=0;
    //label2.Caption:='[共有0本书超时]';
    main.listbookinfo;
    messagedlg('操作成功!',mtinformation,[mbYes],0);


end;

procedure Treturnbookfrm.paybackbook(b_no:string);
begin
   with q1 do
     begin
     close;
     Sql.Clear;
     sql.Add('delete from borrow_info where borrow_info.图书编号=:book_no');
     parambyname('book_no').AsString:=b_no;
     execsql;
     close;
     

   end;

end;

procedure Treturnbookfrm.b3Click(Sender: TObject);
begin
close;
end;

end.