u_main.pas.~1~

对于小型图书销售书店而言此软件具有图书销售管理功能

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.