arrangebook.pas

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

unit arrangebook;

interface

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

type
  Tdelfrm = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    p1: TPageControl;
    t1: TTabSheet;
    t2: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    e1: TEdit;
    Button1: TButton;
    b1: TBitBtn;
    BitBtn2: TBitBtn;
    ListView1: TListView;
    Label2: TLabel;
    b2: TBitBtn;
    q1: TQuery;
    DataSource1: TDataSource;
    procedure b1Click(Sender: TObject);
    procedure b2Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    function checkbookno(bno:string):boolean;
    procedure delbook(bno:string);
    procedure listallbooks;
 
  public
    { Public declarations }
   
  end;

var
  delfrm: Tdelfrm;
  bno:string;
  ch:integer;

implementation
     uses gl;
{$R *.dfm}

procedure Tdelfrm.b1Click(Sender: TObject);

begin

   if checkbookno(e1.text) then bno:=e1.text
   else
      begin
       messagedlg('书库无此书!',mterror,[mbyes],0);
       exit;
      end;

   if gf.isborrowed(bno) then
       begin
         messagedlg('该书已借出，不能删除!',mtwarning,[mbyes],0);
         exit;
       end;
   ch:=messagedlg('确认删除图书吗?',mtconfirmation,[mbyes,mbno],0);
   if ch=mrno then exit;
   delbook(bno);
end;

procedure Tdelfrm.b2Click(Sender: TObject);
begin
   if listview1.selected=nil then exit
   else bno:=listview1.selected.caption;
   if  gf.isborrowed(bno) then
       begin
         messagedlg('该书已借出，不能删除!',mtwarning,[mbyes],0);
         exit;
       end;
   ch:=messagedlg('确认删除图书吗?',mtconfirmation,[mbyes,mbno],0);
   if ch=mrno then exit;
   delbook(bno);
   listallbooks;
end;

function Tdelfrm.checkbookno(bno:string):boolean;

begin
     q1.sql.clear;
     q1.sql.add('select * from book_info where 图书编号='''+bno+'''');
     q1.open;
     if q1.RecordCount<>0 then  result:=true else result:=false;
     q1.Close;


end;


procedure Tdelfrm.delbook(bno:string);
begin
    q1.close;
    q1.sql.clear;
    q1.sql.add('delete from book_info where 图书编号=:no');
    q1.parambyname('no').asstring:=bno;
    q1.execsql;
     messagedlg('成功删除!',mtconfirmation,[mbyes],0);
    q1.close;
    
end;

procedure Tdelfrm.listallbooks;
begin
   q1.SQL.Clear;
   q1.SQL.Add('select * from book_info order by 图书编号');
   q1.Open;
   q1.First;
   listview1.Items.Clear;
   while not q1.Eof do
     begin
       with listview1.Items.add do
         begin
          caption:=q1.fieldbyname('图书编号').AsString;
          subitems.add(q1.fieldbyname('书名').AsString);
          subitems.add(q1.fieldbyname('作者').AsString);
          subitems.add(q1.fieldbyname('出版社').AsString);
          subitems.add(datetostr(q1.fieldbyname('出版时间').Asdatetime));
          subitems.add(q1.fieldbyname('类别').AsString);
          if gf.isborrowed(caption) then subitems.add('是') else    subitems.add('否') ;
          end;
       q1.Next;

     end;
     q1.Close;

end;

procedure Tdelfrm.BitBtn2Click(Sender: TObject);
begin
q1.Free;
close;
end;



procedure Tdelfrm.FormShow(Sender: TObject);
begin
listallbooks;
end;

end.