unit ShowBook_Form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TFlatButtonUnit, ComCtrls, ExtCtrls,DB,ADODB;

type
  TShowBook_F = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    HSXX_LV: TListView;
    QD_FBtn: TFlatButton;
    QX_FBtn: TFlatButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure QX_FBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure HSXX_LVDblClick(Sender: TObject);
    procedure QD_FBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ShowBook_F: TShowBook_F;

implementation

uses
  IniFiles, Share_Unit, TSJH_Form;

{$R *.dfm}

procedure TShowBook_F.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;
//***********************************************************************************
procedure TShowBook_F.FormDestroy(Sender: TObject);
begin
  ShowBook_F:=nil;
end;
//***********************************************************************************
procedure TShowBook_F.QX_FBtnClick(Sender: TObject);
begin
  close;
end;

procedure TShowBook_F.FormCreate(Sender: TObject);
var
  HSXX_Q:TADOQuery;
  Book:TListItem;
begin
  HSXX_Q:=TADOQuery.Create(nil);
  HSXX_Q.Connection:=Connect;
  HSXX_Q.SQL.Add('Select A.圖書(shū)編號(hào),還書(shū)日期,書(shū)名,數(shù)量 From 借閱信息 A,圖書(shū)信息 B ');
  HSXX_Q.SQL.Add('Where A.用戶帳號(hào)=:用戶帳號(hào) and A.圖書(shū)編號(hào)=B.圖書(shū)編號(hào)');
  HSXX_Q.Parameters.ParamByName('用戶帳號(hào)').Value:=BH;//TTSJH_F(Share_JSHS).TSBH_FE.Text;
  HSXX_Q.Open;
  if not(HSXX_Q.Bof and HSXX_Q.Eof) then
    while not HSXX_Q.Eof do
      begin
        if HSXX_Q.FieldByName('還書(shū)日期').IsNull then      //顯示沒(méi)有還的書(shū)的信息
          begin
            Book:=HSXX_LV.Items.Add;
            Book.Caption:=HSXX_Q.FieldValues['圖書(shū)編號(hào)'];
            Book.SubItems.Add(HSXX_Q.FieldValues['書(shū)名']);
            Book.SubItems.Add(HSXX_Q.FieldValues['數(shù)量']);
          end;
        HSXX_Q.Next;
      end;
  FreeAndNil(HSXX_Q);    
end;
//***********************************************************************************
procedure TShowBook_F.HSXX_LVDblClick(Sender: TObject);
var
  HSXX_Q:TADOQuery;
  SH:String;
  TS:Integer;
  MyIniFile:TiniFile;
  FJ,FJDay:Double;
begin
  SH:=HSXX_LV.Selected.Caption;
  TSJH_F.HSSL_FE.Text:=HSXX_LV.Selected.SubItems[1];

  //TTSJH_F(Share_JSHS).HSSL_FE.Text:=HSXX_LV.Selected.SubItems[1];
  HSXX_Q:=TADOQuery.Create(nil);         //查詢此圖書(shū)的基本信息
  HSXX_Q.Connection:=Connect;
  HSXX_Q.SQL.Add('Select * From 圖書(shū)信息 A Where A.圖書(shū)編號(hào)=:圖書(shū)編號(hào)');
  HSXX_Q.Parameters.ParamByName('圖書(shū)編號(hào)').Value:=SH;
  HSXX_Q.Open;

  TSJH_F.HSBH_FE.Text:=SH;
  TSJH_F.HSSM_FE.Text:=HSXX_Q.FieldValues['書(shū)名'];
  TSJH_F.HSZZ_FE.Text:=HSXX_Q.FieldValues['作者'];
  TSJH_F.HSCBS_FE.Text:=HSXX_Q.FieldValues['出版社'];
  TSJH_F.HSDJ_FE.Text:=HSXX_Q.FieldValues['定價(jià)'];


  {TTSJH_F(Share_JSHS).HSBH_FE.Text:=SH;
  TTSJH_F(Share_JSHS).HSSM_FE.Text:=HSXX_Q.FieldValues['書(shū)名'];
  TTSJH_F(Share_JSHS).HSZZ_FE.Text:=HSXX_Q.FieldValues['作者'];
  TTSJH_F(Share_JSHS).HSCBS_FE.Text:=HSXX_Q.FieldValues['出版社'];
  TTSJH_F(Share_JSHS).HSDJ_FE.Text:=HSXX_Q.FieldValues['定價(jià)'];
   }
  HSXX_Q.Close;            //讀取借書(shū)者的姓名和到期的時(shí)間
  HSXX_Q.SQL.Clear;
  HSXX_Q.SQL.Add('Select A.姓名,B.到期日期 From 用戶 A,借閱信息 B Where A.用戶帳號(hào)=:用戶帳號(hào) and 還書(shū)日期 is Null');
  HSXX_Q.SQL.Add(' and A.用戶帳號(hào)=B.用戶帳號(hào)');
  HSXX_Q.Parameters.ParamByName('用戶帳號(hào)').Value:=BH;//TSJH_F.TSBH_FE.Text; //用戶ID號(hào)
  HSXX_Q.Open;
  TSJH_F.HSXM_FE.Text:=HSXX_Q.FieldValues['姓名'];

  //TTSJH_F(Share_JSHS).HSXM_FE.Text:=HSXX_Q.FieldValues['姓名'];

  TS:=Date-HSXX_Q.FieldValues['到期日期'];
  if TS<0 then TS:=0;              //天數(shù)為負(fù)，表示按時(shí)歸還

  TSJH_F.HSCGTS_FE.Text:=IntToStr(TS);
  //TTSJH_F(Share_JSHS).HSCGTS_FE.Text:=IntToStr(TS);

  if TS>0 then                     //計(jì)算罰金
    begin
      MyIniFile:=TiniFile.Create(Application.ExeName+'set.ini');
      FJDay:=MyIniFile.ReadFloat('set','FJDay',0.5);
      FreeAndNil(MyIniFile);
    end;
  FJ:=FJDay * TS * (StrToInt(HSXX_LV.Selected.SubItems[1]));
  TSJH_F.HSFJ_FE.Text:=FloatToStr(FJ);

  //TTSJH_F(Share_JSHS).HSFJ_FE.Text:=FloatToStr(FJ);

  FreeAndNil(HSXX_Q);
  close;
end;
//***********************************************************************************
procedure TShowBook_F.QD_FBtnClick(Sender: TObject);
begin
  HSXX_LVDblClick(HSXX_LV);
end;

end.