exbookinfounit.pas

好多上载非界面和非WEB源码

unit exbookinfoUnit;

interface

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

type
  Textimebookfrm = class(TForm)
    Panel1: TPanel;
    ListView1: TListView;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
     { Private declarations }
  public
  procedure paybackbook(b_no:string);
    { Public declarations }
  end;

var
  extimebookfrm: Textimebookfrm;

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

procedure Textimebookfrm.BitBtn1Click(Sender: TObject);
begin
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)+'本';
//mainform.listbookinfo;
messagedlg('操作成功！',mtinformation,[mbyes],0);
end;

procedure Textimebookfrm.BitBtn2Click(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本';
//mainform.listbookinfo;
messagedlg('操作成功！',mtinformation,[mbyes],0);
end;


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;

end.