bookreturnform.pas

图书管理系统,使用Delphi开发,数据库为Microsoft SQL Server 2

unit BookReturnForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2, ADODB, ImgList, DB, Grids, DBGrids, ExtCtrls, StdCtrls,
  Buttons, ComCtrls, ToolWin;

type
  TBookReturn = class(TParent)
    ADOCommand1: TADOCommand;
    ADOQuery2: TADOQuery;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure FormCreate(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BookReturn: TBookReturn;

implementation

{$R *.dfm}
uses
DataMod;

procedure TBookReturn.FormShow(Sender: TObject);
begin
  inherited;
//

//adoquery2.Active:=true;
//adotable1.Clone(adoquery2,ltunspecified);
//adotable1.Active:=true;
end;

procedure TBookReturn.BitBtn1Click(Sender: TObject);
begin
//  inherited;
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select a.*,b.*,c.* from BookLend a,BookInfo b,ReaderInfo c');
  adoquery1.SQL.Add('where (a.BookInfo_No=b.BookInfo_No)and(a.ReaderInfo_No=c.ReaderInfo_No)and(BookLend_State=''未还'')');
  adoquery1.SQL.Add('and(c.ReaderInfo_No like ''%'+edit1.Text+'%'')');
  adoquery1.SQL.Add('and(a.BookInfo_No like ''%'+edit2.Text+'%'')');
  adoquery1.SQL.Add('and(c.ReaderInfo_Name like ''%'+edit3.Text+'%'')');
  adoquery1.Open;
  //
  adotable1.Clone(adoquery1,ltUnspecified);
//  adotable1.Active:=true;
end;

procedure TBookReturn.BitBtn2Click(Sender: TObject);
var
  returndate:TDateTime;
  money:double;
  forfeit,num:string;
begin
  inherited;
  returndate:=adotable1.fieldByName('BookLend_RestoreDate').AsDateTime;
  num:=adotable1.fieldByName('BookLend_No').AsString;
  //
  if num='' then exit;
  if(date+time-returndate)>0 then
    begin
      //
      money:=0.1*(date-returndate);
      //
      forfeit:=InputBox('该书已经过期，需交纳罚款','应交纳的罚款数额',floattostr(money));
      adocommand1.CommandText:='Update BookLend set BookLend_State=''已还'' where BookLend_No='''+num+'''';
      adocommand1.Execute;
      //
      adoquery2.Active:=false;
      adoquery2.Active:=true;
      adotable1.Clone(adoquery2,ltunspecified);
    end;

end;

//

procedure TBookReturn.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  inherited;
  DBgrid1.Columns[0].Width:=64;
  DBgrid1.Columns[1].Width:=64;
  DBgrid1.Columns[2].Width:=166;
  DBgrid1.Columns[3].Width:=80;
  DBgrid1.Columns[4].Width:=64;
  DBgrid1.Columns[5].Width:=64;
  DBgrid1.Columns[6].Width:=64;
  DBgrid1.Columns[7].Width:=64;
  DBgrid1.Columns[8].Width:=48;
  DBgrid1.Columns[9].Width:=48;
end;

procedure TBookReturn.FormCreate(Sender: TObject);
begin
  inherited;
  adoquery2.active:=true;
adotable1.Clone(adoquery2,ltunspecified);
end;

end.