unit u_main;

interface

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

type
  TF_main = class(TForm)
    MainMenu1: TMainMenu;
    operate: TMenuItem;
    k_longin: TMenuItem;
    N5: TMenuItem;
    k_exit: TMenuItem;
    b_settle: TMenuItem;
    StatusBar1: TStatusBar;
    book: TMenuItem;
    system: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N7: TMenuItem;
    b_add: TMenuItem;
    N6: TMenuItem;
    customer: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    b_query: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolBar2: TToolBar;
    borrowbtn: TToolButton;
    ToolButton5: TToolButton;
    returnbtn: TToolButton;
    ToolButton8: TToolButton;
    ToolBar3: TToolBar;
    arrangebtn: TToolButton;
    ToolButton14: TToolButton;
    regbtn: TToolButton;
    ToolButton18: TToolButton;
    infomgrbtn: TToolButton;
    ToolButton20: TToolButton;
    b_querycustomer: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton9: TToolButton;
    ToolButton2: TToolButton;
    ToolButton10: TToolButton;
    b_querybook: TToolButton;
    N3: TMenuItem;
    b_borrow: TMenuItem;
    b_return: TMenuItem;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ImageList3: TImageList;
    Panel1: TPanel;
    ToolButton1: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    N4: TMenuItem;
    N8: TMenuItem;
    procedure k_longinClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure k_exitClick(Sender: TObject);
    procedure b_addClick(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure b_queryClick(Sender: TObject);
    procedure b_querybookClick(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure borrowbtnClick(Sender: TObject);
    procedure returnbtnClick(Sender: TObject);
    procedure arrangebtnClick(Sender: TObject);
    procedure infomgrbtnClick(Sender: TObject);
    procedure regbtnClick(Sender: TObject);
    procedure b_borrowClick(Sender: TObject);
    procedure b_returnClick(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure b_querycustomerClick(Sender: TObject);
    procedure b_settleClick(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure showMenu(p:integer);//  對于不同用戶顯示不同界面
  end;


var
  F_main: TF_main;

implementation

uses u_dm,u_import,u_query,u_queryCustomerBorrow,u_borrow,u_return,
     u_modifybook,u_user,u_customer,u_dataset,u_statistic;

{$R *.dfm}

////////////////////////////////
//登陸系統
////////////////////////////////
procedure TF_main.k_longinClick(Sender: TObject);
var
  authority:integer;
begin
  if f_dm.Login(authority) then  //登陸成功
  begin
    showMenu(authority);//對于不同用戶顯示不同界面
  end
  else   //登陸失敗
  begin
    showMenu(0);//沒有登陸用戶
    messagedlg('登陸失敗：用戶名或密碼錯',mtconfirmation,[mbYes],0);
  end;
end;

//////////////////////////
//     對于不同用戶顯示不同界面
///////////////////////////
procedure TF_main.showMenu(p:integer);
begin
case p of
0:begin//沒有登錄用戶
  book.visible:=false;
  customer.Visible := false;
  system.visible:=false;
  coolbar1.Bands[0].Visible := false;
  coolbar1.Bands[1].Visible := false;
  coolbar1.Bands[2].Visible := false;
  statusbar1.Panels[0].Text := '沒有用戶登錄！';
  end;
1:begin//一般操作員登錄
  book.visible:=true;     //書庫管理
  b_query.Visible := true; //查詢圖書
  b_settle.Visible := false;
  b_add.visible:=false;
  b_borrow.visible:=true;   //借書
  b_return.visible:=true;   //還書
  customer.Visible := false;
  system.visible:=false;
  coolbar1.Bands[0].Visible := false;
  coolbar1.Bands[1].Visible := true;//借書和還書
  coolbar1.Bands[2].Visible := false;
  statusbar1.Panels[0].Text := '一般操作員登錄！';
  end;
2:begin//采購員登錄
  book.visible:=true;     //書庫管理
  b_query.Visible := true; //查詢圖書
  b_settle.Visible := false;
  b_add.visible:=true;     //添加新圖書
  b_borrow.visible:=false;
  b_return.visible:=false;
  customer.Visible := false;
  system.visible:=false;
  coolbar1.Bands[0].Visible := true;//新書入庫
  coolbar1.Bands[1].Visible := false;
  coolbar1.Bands[2].Visible := false; 
  statusbar1.Panels[0].Text := '采購員登錄！';
  end;
3:begin//系統管理員登錄
  book.visible:=true;     //書庫管理
  b_query.Visible := false;
  b_settle.Visible := true;//整理書庫
  b_add.visible:=false;
  b_borrow.visible:=false;
  b_return.visible:=false;
  customer.Visible := true;       //客戶管理
  system.visible:=true;          //系統管理
  coolbar1.Bands[0].Visible := false;
  coolbar1.Bands[1].Visible := false;
  coolbar1.Bands[2].Visible := true;   //系統管理
  statusbar1.Panels[0].Text := '系統管理員登錄！';
  end;
end;
end;

procedure TF_main.FormCreate(Sender: TObject);
begin
  //客戶最大借書數和每本書可擁有天數
  c_books:=5;
  c_days:=30;
  //會員最大借書數和每本書可擁有天數
  m_books:=30;
  m_days:=360;

  c_cost:=2; //客戶每10日租金
  m_cost:=1;//會員每10日租金
  out_cost:=5;//過期每10日租金
end;

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

procedure TF_main.b_addClick(Sender: TObject);
begin
    f_import.show;
end;

procedure TF_main.ToolButton2Click(Sender: TObject);
begin
  b_addClick(self);
end;

procedure TF_main.FormShow(Sender: TObject);
begin
  showmenu(0);
end;

procedure TF_main.b_queryClick(Sender: TObject);
begin
   f_query.Show;
end;

procedure TF_main.b_querybookClick(Sender: TObject);
begin
  b_queryClick(self);
  
end;

procedure TF_main.ToolButton12Click(Sender: TObject);
begin
  b_queryClick(self);
end;

procedure TF_main.borrowbtnClick(Sender: TObject);
begin
b_borrowClick(self);
end;

procedure TF_main.returnbtnClick(Sender: TObject);
begin
b_returnClick(self);
end;

procedure TF_main.arrangebtnClick(Sender: TObject);
begin
b_settleClick(self);
end;

procedure TF_main.infomgrbtnClick(Sender: TObject);
begin
N1Click(self);
end;

procedure TF_main.regbtnClick(Sender: TObject);
begin
N13Click(self);
end;

procedure TF_main.b_borrowClick(Sender: TObject);
begin
f_borrow.show;
end;

procedure TF_main.b_returnClick(Sender: TObject);
begin
  f_return.Show;
end;

procedure TF_main.N8Click(Sender: TObject);
begin
  f_Customerborrow.show;
end;

procedure TF_main.b_querycustomerClick(Sender: TObject);
begin
N8Click(self);
end;

procedure TF_main.b_settleClick(Sender: TObject);
begin
  f_modifybook.Show;
end;

procedure TF_main.N13Click(Sender: TObject);
begin
  f_customer.Show;
end;

procedure TF_main.N1Click(Sender: TObject);
begin
   f_user.Show;
end;

procedure TF_main.N2Click(Sender: TObject);
begin
  f_dataset.Show;
end;

procedure TF_main.ToolButton4Click(Sender: TObject);
begin
N2Click(self);
end;

procedure TF_main.N7Click(Sender: TObject);
begin
   f_statistic.Show;
end;

procedure TF_main.ToolButton7Click(Sender: TObject);
begin
N7Click(self);
end;

procedure TF_main.N9Click(Sender: TObject);
begin
 f_customer.Show;
end;

end.