exbookinfo.pas

delphi编写的图书管理系统,一般的管理系统

unit exbookinfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons,dbtables;

type
  Textimebookfrm = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ListView1: TListView;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  procedure paybackbook(b_no:string);//还书(在returnbook单元还用到)
  end;

var
  extimebookfrm: Textimebookfrm;

implementation
   uses global,main;
{$R *.dfm}

procedure textimebookfrm.paybackbook(b_no:string);
var q:tquery;
begin
q:=tquery.Create(nil);
q.DatabaseName :=dbname ;
q.SQL.Add('delete from borrow_info where borrow_info.图书编号=:book_no');
q.ParamByName('book_no').AsString :=b_no ;
q.ExecSQL;
q.Close;
q.Free ;
end;


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

procedure Textimebookfrm.FormShow(Sender: TObject);
begin
label2.Caption :='共'+inttostr(listview1.Items.Count)+'本';
end;

procedure Textimebookfrm.BitBtn2Click(Sender: TObject);
begin
if listview1.Items.Count=0 then exit;
if listview1.Selected=nil then
   begin
   messagedlg('您要还哪本图书？',mtinformation,[mbYes],0);
   exit;
   end;
paybackbook(listview1.Selected.Caption);
exbook_num :=exbook_num -1;
listview1.Selected.Delete ;
label2.Caption :='共'+inttostr(listview1.Items.Count)+'本';
mainfrm.listbookinfo ;//更新mainfrm中的表
messagedlg('操作成功！',mtinformation,[mbYes],0);
end;

procedure Textimebookfrm.BitBtn3Click(Sender: TObject);
var n,i:integer;
begin
n:=listview1.Items.Count;
if n=0 then exit;
if messagedlg('真的全部归还吗？',mtconfirmation,[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本';
mainfrm.listbookinfo ;
messagedlg('操作成功！',mtinformation,[mbYes],0);
end;

end.