unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, Menus, TFlatSpeedButtonUnit, StdCtrls,
  Grids, DBGrids, DB, DBTables,DateUtils, ImgList, ToolWin;

type
  Tmainfrm = class(TForm)
    StatusBar1: TStatusBar;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    k_longin: TMenuItem;
    N5: TMenuItem;
    k_exit: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    k_new: TMenuItem;
    k_arrange: TMenuItem;
    k_modify: TMenuItem;
    N11: TMenuItem;
    k_infomgr: TMenuItem;
    k_queryuser: TMenuItem;
    k_reg: TMenuItem;
    k_query: TMenuItem;
    k_borrow: TMenuItem;
    k_return: TMenuItem;
    k_about: TMenuItem;
    N19: TMenuItem;
    k_setpath: TMenuItem;
    k_encf: TMenuItem;
    N23: TMenuItem;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Label2: TLabel;
    edit1: TEdit;
    Panel3: TPanel;
    Panel4: TPanel;
    Memo1: TMemo;
    Query1: TQuery;
    DataSource1: TDataSource;
    Label1: TLabel;
    ex_time: TIntegerField;
    return_time: TDateField;
    fj: TFloatField;
    b_no: TStringField;
    b_name: TStringField;
    b_date: TDateField;
    b_type: TStringField;
    b_author: TStringField;
    b_publisher: TStringField;
    Label3: TLabel;
    Label4: TLabel;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    loginbtn: TToolButton;
    ToolButton2: TToolButton;
    exitbtn: TToolButton;
    ToolBar2: TToolBar;
    querybtn: TToolButton;
    ToolButton3: TToolButton;
    borrowbtn: TToolButton;
    ToolButton5: TToolButton;
    returnbtn: TToolButton;
    user_encfbtn: TToolButton;
    ToolButton8: TToolButton;
    ToolBar3: TToolBar;
    newbtn: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    arrangebtn: TToolButton;
    modifybtn: TToolButton;
    ToolButton14: TToolButton;
    queryuserbtn: TToolButton;
    ToolButton16: TToolButton;
    regbtn: TToolButton;
    ToolButton18: TToolButton;
    infomgrbtn: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    setpathbtn: TToolButton;
    mgr_encfbtn: TToolButton;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ImageList3: TImageList;
    ToolButton1: TToolButton;
    ToolButton4: TToolButton;
    Splitter1: TSplitter;
    ToolButton6: TToolButton;

    procedure k_regClick(Sender: TObject);
    procedure k_longinClick(Sender: TObject);
    procedure loginbtnClick(Sender: TObject);
    procedure exitbtnClick(Sender: TObject);
    procedure k_exitClick(Sender: TObject);
    procedure k_setpathClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Query1CalcFields(DataSet: TDataSet);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure k_aboutClick(Sender: TObject);
    procedure k_queryClick(Sender: TObject);
    procedure querybtnClick(Sender: TObject);
    procedure k_newClick(Sender: TObject);
    procedure k_borrowClick(Sender: TObject);
    procedure borrowbtnClick(Sender: TObject);
    procedure k_returnClick(Sender: TObject);
    procedure returnbtnClick(Sender: TObject);
    procedure k_encfClick(Sender: TObject);
    procedure user_encfbtnClick(Sender: TObject);
    procedure k_infomgrClick(Sender: TObject);
    procedure newbtnClick(Sender: TObject);
    procedure arrangebtnClick(Sender: TObject);
    procedure modifybtnClick(Sender: TObject);
    procedure queryuserbtnClick(Sender: TObject);
    procedure regbtnClick(Sender: TObject);
    procedure infomgrbtnClick(Sender: TObject);
    procedure setpathbtnClick(Sender: TObject);
    procedure mgr_encfbtnClick(Sender: TObject);
    procedure k_arrangeClick(Sender: TObject);
    procedure k_modifyClick(Sender: TObject);
    procedure k_queryuserClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  procedure listextimebook;//列舉用戶超時圖書情況
  public
    { Public declarations }
  procedure viewmenu(p:integer);
  procedure listbookinfo;//列舉用戶圖書借閱情況
  end;

var
  mainfrm: Tmainfrm;

implementation
 uses global,login,regulation,setpath,about,uquery,newbook,borrowbooks,exbookinfo,
      enc,userinfo,returnbook,delrec,modify,mgrquery;
{$R *.dfm}

procedure Tmainfrm.listextimebook ;
begin
//初始化處理
exbook_num:=0;
extimebookfrm.ListView1.Items.Clear ;
with query1 do
  begin
  first;
  while not eof do
  begin
  if fieldbyname('罰金').AsFloat<>0 then
  with extimebookfrm.ListView1.Items.Add do
     begin
     caption:=query1.fieldbyname('圖書編號').AsString ;
     subitems.Add(query1.fieldbyname('書名').AsString);
     subitems.Add(query1.fieldbyname('作者').AsString);
     subitems.Add(query1.fieldbyname('出版社').AsString);
     subitems.Add(query1.fieldbyname('借出時間').AsString);
     subitems.Add(query1.fieldbyname('超時').AsString);
     subitems.Add(query1.fieldbyname('罰金').AsString);
     inc(exbook_num);
     end;
  next;
  end;
  end;
end;

procedure Tmainfrm.viewmenu(p:integer);
begin
case p of
-1:begin//沒有用戶登錄
  k_encf.Visible :=false;
  n5.Visible :=false;
  n2.Visible :=false;
  n3.Visible :=false;
  coolbar1.Bands[1].Visible :=false;
  panel1.Visible :=false;
  coolbar1.Bands[2].Visible :=false;
  k_longin.Caption :='登錄系統';
  loginbtn.Caption :='登錄系統';
  statusbar1.Panels[0].Text :='沒有用戶登錄！';
  end;
1:begin//學生登錄
  listbookinfo;
  panel1.Visible :=true;
  n2.Visible :=false;
  n3.Visible :=true;
  coolbar1.Bands[1].Visible :=true;
  coolbar1.Bands[2].Visible :=false;
  k_encf.Visible :=true;
  n5.Visible :=true;
  k_longin.Caption :='注銷';
  loginbtn.Caption :='注銷';
  statusbar1.Panels[0].Text :='';
  edit1.Text :=username;
  end;
0:begin//管理員登錄
  panel1.Visible :=false;
  coolbar1.Bands[2].Visible :=true;
  n2.Visible :=true;
  n3.Visible :=false;
  coolbar1.Bands[1].Visible :=false;
  k_encf.Visible :=true;
  n5.Visible :=true;
  k_longin.Caption :='注銷';
  loginbtn.Caption :='注銷';
  statusbar1.Panels[0].Text :='管理員：'+username;
  end;
end;
end;


procedure Tmainfrm.listbookinfo ;
begin
with Query1 do
  begin
  Close;
  DatabaseName :=dbname ;
  SQL.Clear ;
  SQL.Add('select b.圖書編號,b.書名,b.作者,b.出版社,b.類別,a.借出時間 '+
  'from  borrow_info a,book_info b '+
  'where a.學生證號='''+userpwd+''' and a.圖書編號=b.圖書編號');
  Open ;
  listextimebook;//查看是否有超時圖書
  end;
end;


procedure Tmainfrm.k_regClick(Sender: TObject);
begin
regfrm.ShowModal ;
end;

procedure Tmainfrm.k_longinClick(Sender: TObject);
begin
if copy(k_longin.Caption,1,4)='登錄' then
loginfrm.ShowModal
else
if messagedlg('確實要注銷"'+username+'"嗎？',mtconfirmation,[mbYes,mbNo],0)=mrYes then
  begin
  username:='';
  userpwd:='';
  viewmenu(-1);
  end;
end;

procedure Tmainfrm.loginbtnClick(Sender: TObject);
begin
k_longin.OnClick(self);
end;

procedure Tmainfrm.exitbtnClick(Sender: TObject);
begin
k_exit.OnClick(self);
end;

procedure Tmainfrm.k_exitClick(Sender: TObject);
begin
close;
end;

procedure Tmainfrm.k_setpathClick(Sender: TObject);
begin
 setpathfrm.showmodal;
end;

procedure Tmainfrm.FormCreate(Sender: TObject);
begin
viewmenu(-1);
end;

procedure Tmainfrm.Query1CalcFields(DataSet: TDataSet);
begin
return_time.Value :=query1.fieldbyname('借出時間').Value+P_days;
if return_time.Value<date then
  ex_time.Value :=daysbetween(date,return_time.Value)
else ex_time.Value :=0;
fj.Value :=p_momey*ex_time.Value ;
end;

procedure Tmainfrm.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
with dbgrid1.Canvas do
if query1.FieldByName('罰金').Value>0 then
  begin
  brush.Color :=clRed;
  font.Color :=clWhite;
  end;
dbgrid1.DefaultDrawDataCell(Rect,column.Field,State);
end;

procedure Tmainfrm.k_aboutClick(Sender: TObject);
begin
aboutfrm.ShowModal ;
end;

procedure Tmainfrm.k_queryClick(Sender: TObject);
begin
 uqueryfrm.ShowModal ;
end;

procedure Tmainfrm.querybtnClick(Sender: TObject);
begin
k_query.OnClick(self);
end;

procedure Tmainfrm.k_newClick(Sender: TObject);
begin
newfrm.ShowModal ;
end;

procedure Tmainfrm.k_borrowClick(Sender: TObject);
begin
borrowfrm.ShowModal ;
end;

procedure Tmainfrm.borrowbtnClick(Sender: TObject);
begin
k_borrow.OnClick(self);
end;

procedure Tmainfrm.k_returnClick(Sender: TObject);
begin
returnbookfrm.ShowModal ;
end;

procedure Tmainfrm.returnbtnClick(Sender: TObject);
begin
k_return.OnClick(self);
end;

procedure Tmainfrm.k_encfClick(Sender: TObject);
begin
if panel1.Visible then
  begin
  p1visible :=true;
  panel1.Visible :=false;
  end
else p1visible :=false;
encfrm.ShowModal ;
end;

procedure Tmainfrm.user_encfbtnClick(Sender: TObject);
begin
k_encf.OnClick(self);
end;

procedure Tmainfrm.k_infomgrClick(Sender: TObject);
begin
userinfofrm.ShowModal ;
end;

procedure Tmainfrm.newbtnClick(Sender: TObject);
begin
k_new.OnClick(self);
end;

procedure Tmainfrm.arrangebtnClick(Sender: TObject);
begin
k_arrange.OnClick(self);
end;

procedure Tmainfrm.modifybtnClick(Sender: TObject);
begin
k_modify.OnClick(self);
end;

procedure Tmainfrm.queryuserbtnClick(Sender: TObject);
begin
k_queryuser.OnClick(self);
end;

procedure Tmainfrm.regbtnClick(Sender: TObject);
begin
k_reg.OnClick(self);
end;

procedure Tmainfrm.infomgrbtnClick(Sender: TObject);
begin
k_infomgr.OnClick(self);
end;

procedure Tmainfrm.setpathbtnClick(Sender: TObject);
begin
k_setpath.OnClick(self);
end;

procedure Tmainfrm.mgr_encfbtnClick(Sender: TObject);
begin
k_encf.OnClick(self);
end;

procedure Tmainfrm.k_arrangeClick(Sender: TObject);
begin
delfrm.ShowModal ;
end;

procedure Tmainfrm.k_modifyClick(Sender: TObject);
begin
modifyfrm.ShowModal;
end;

procedure Tmainfrm.k_queryuserClick(Sender: TObject);
begin
mgrqfrm.ShowModal ;
end;

procedure Tmainfrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if messagedlg('真的要退出系統嗎？',mtconfirmation,[mbYes,mbNo],0)=mrNo then
canclose:=false;
end;

end.