extimebook.~pas

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

unit extimebook;

interface

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

type
  Textimebookfrm = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Panel2: TPanel;
    Label1: TLabel;
    ListView1: TListView;
    rb: TBitBtn;
    qr: TBitBtn;
    exit: TBitBtn;
    Label2: TLabel;
    Query1: TQuery;
    DataSource1: TDataSource;
    procedure rbClick(Sender: TObject);
    procedure qrClick(Sender: TObject);
  private
    { Private declarations }
    procedure paybackbook(b_no:string);
  public
    { Public declarations }
  end;

var
  extimebookfrm: Textimebookfrm;

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

procedure Textimebookfrm.rbClick(Sender: TObject);
  label   l1;
begin
  if listview1.Selected=nil then
    begin
    messagedlg('您要还那本书？',mtinformation,[mbYes],0);
    //exit;
    goto l1;
    //break;
    end ;
  paybackbook(listview1.Selected.Caption);
  exbook_num:=exbook_num-1;
  listview1.Selected.Delete;
  label2.Caption:='共有'+inttostr(listview1.Items.Count)+'本书超时';
  main.listbookinfo;
  messagedlg('还书成功!',mtinformation,[mbYes],0);

l1:end;

procedure Textimebookfrm.qrClick(Sender: TObject);
label l1;
var n,i:integer;
begin
   n:=listview1.Items.Count;
   if n=0 then  goto l1;
   if messagedlg ('真的全部归还吗？',mtinformation,[mbYes,mbNo],0)=mrNo then goto l1;
   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);

l1:    end;

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

   end;

end;

end.