mainunit.pas

系统管理 系统管理、操作员的增、删、改 院系信息的增、删、改 班级信息的增、删、改 使用部门信息的增、删、改 密码的修改 书费管理 交纳书费 退回多余的书费 出入库

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, mxOutlookBarPro, ComCtrls, ImgList, ActnMan,
  ActnColorMaps, StdCtrls, CommonUnit, ToolWin, jpeg, ActnList, ExtDlgs;

type
  TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    M1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    F1: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    O1: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    Q1: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    H1: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    LeftBar: TmxOutlookBarPro;
    StatusBar1: TStatusBar;
    ImageList2: TImageList;
    ImageList1: TImageList;
    LogoImg: TPanel;
    N19: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    ImageList3: TImageList;
    ToolBar: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    bgImage: TImage;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ActionList1: TActionList;
    Exit: TAction;
    OperatorManage: TAction;
    ChangePassword: TAction;
    UnitManage: TAction;
    ClassManage: TAction;
    DepartMentManage: TAction;
    BookFee: TAction;
    ReturnFee: TAction;
    StudentTake: TAction;
    DepartmentTake: TAction;
    BookIn: TAction;
    BookFeeQuery: TAction;
    BookQuery: TAction;
    TakeQuery: TAction;
    OperateManual: TAction;
    About: TAction;
    S1: TMenuItem;
    N20: TMenuItem;
    N55: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N110: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ExitExecute(Sender: TObject);
    procedure ChangePasswordExecute(Sender: TObject);
    procedure OperatorManageExecute(Sender: TObject);
    procedure ClassManageExecute(Sender: TObject);
    procedure DepartMentManageExecute(Sender: TObject);
    procedure BookFeeExecute(Sender: TObject);
    procedure ReturnFeeExecute(Sender: TObject);
    procedure StudentTakeExecute(Sender: TObject);
    procedure DepartmentTakeExecute(Sender: TObject);
    procedure BookInExecute(Sender: TObject);
    procedure BookFeeQueryExecute(Sender: TObject);
    procedure BookQueryExecute(Sender: TObject);
    procedure TakeQueryExecute(Sender: TObject);
    procedure AboutExecute(Sender: TObject);
    procedure OperateManualExecute(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N110Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure UnitManageExecute(Sender: TObject);
  private
    { Private declarations }
    procedure setToolBar;
  public
    OperatorInfo:TOperator;
    Settings:TSetupConfig;{ Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses LoginUnit, DataModuleUnit, ChangePasswordUnit, OperatorManageUnit,
  ClassManageUnit, DepartmentManageUnit, BookFeeUnit, StudentTakeUnit,
  DepartmentTakeUnit, BookInUnit, BookFeeQueryUnit, BookQueryUnit,shellAPI,
  AboutUnit, ReturnBookFeeUnit, TakeQueryUnit,DateUtils, ObeyUnitUnit;//DateUtils 获取日期相关的数据

{$R *.dfm}
//设置顶部工具栏中的按钮事件
procedure TfrmMain.setToolBar();
begin
   ToolButton1.Action:=ActionList1.Actions[0];
   ToolButton2.Action:=ActionList1.Actions[1];
   ToolButton3.Action:=ActionList1.Actions[2];
   ToolButton4.Action:=ActionList1.Actions[3];
   ToolButton5.Action:=ActionList1.Actions[4];
   ToolButton8.Action:=ActionList1.Actions[5];
   ToolButton9.Action:=ActionList1.Actions[6];
   ToolButton10.Action:=ActionList1.Actions[7];
   ToolButton12.Action:=ActionList1.Actions[8];
   ToolButton13.Action:=ActionList1.Actions[9];
end;
//系统权限配置
procedure TfrmMain.FormActivate(Sender: TObject);
begin
   frmLogin:=TfrmLogin.Create(nil);
   frmLogin.ShowModal;
   //设置权限1对应的菜单项 (系统管理)

   n1.Enabled:=OperatorInfo.OperatorPower[1]; //操作员管理
   n3.Enabled:=OperatorInfo.OperatorPower[1]; //系统初始化
   n5.Enabled:=OperatorInfo.OperatorPower[1];//班级管理
   n6.Enabled:=OperatorInfo.OperatorPower[1];//院系管理

   //leftBar.Header[0].Button[0].Enabled:=

   //设置权限2对应的菜单项 (书费管理)
   n9.Enabled:=OperatorInfo.OperatorPower[2]; //缴纳书费
   n10.Enabled:=OperatorInfo.OperatorPower[2];  //退回书费

   //设置权限3对应的菜单项 (出入库)
   n11.Enabled:=OperatorInfo.OperatorPower[3];//教材入库
   n12.Enabled:=OperatorInfo.OperatorPower[3];//学生领书
   n13.Enabled:=OperatorInfo.OperatorPower[3];//院系领书

   //设置权限4对应的菜单项  (综合查询)
   n14.Enabled:=OperatorInfo.OperatorPower[4];//书费查询
   n15.Enabled:=OperatorInfo.OperatorPower[4];//库存查询
   n16.Enabled:=OperatorInfo.OperatorPower[4];//领书查询

    //左边工具栏权限
   leftBar.Header[0].Button[0].Enabled:=OperatorInfo.OperatorPower[2];//缴纳书费
   leftBar.Header[0].Button[1].Enabled:=OperatorInfo.OperatorPower[2];//退回书费
   leftBar.Header[0].Button[2].Enabled:=OperatorInfo.OperatorPower[3];//学生领书
   leftBar.Header[0].Button[3].Enabled:=OperatorInfo.OperatorPower[3];//院系领书
   leftBar.Header[0].Button[4].Enabled:=OperatorInfo.OperatorPower[3];//教材入库
   leftBar.Header[1].Button[1].Enabled:=OperatorInfo.OperatorPower[1];//操作员管理
   //leftBar.Header[1].Button[0].Enabled:=OperatorInfo.OperatorPower[2];//密码修改
   leftBar.Header[1].Button[1].Enabled:=OperatorInfo.OperatorPower[1];//院系管理
   leftBar.Header[1].Button[0].Enabled:=OperatorInfo.OperatorPower[1];//班级管理
   leftBar.Header[2].Button[0].Enabled:=OperatorInfo.OperatorPower[4];// 书费查询
   leftBar.Header[2].Button[1].Enabled:=OperatorInfo.OperatorPower[4];//库存查询
   leftBar.Header[2].Button[2].Enabled:=OperatorInfo.OperatorPower[4];//领书查询
end;

//进行系统初始化
procedure TfrmMain.FormCreate(Sender: TObject);
var
  configFilePath:string;
  DateWeekStr,week:shortstring;
  Year,Month,Day,weekday:word;
begin
    Year:=YearOf(Now);
    Month:=MonthOf(now);
    Day:=DayOf(now);
    DateWeekstr:=inttostr(year)+'/'+inttostr(month)+'/'+inttostr(day)+' 【';
    weekday:=DayOfWeek(now);
    case weekday of
      1:week:='星期日';
      2:week:='星期一';
      3:week:='星期二';
      4:week:='星期三';
      5:week:='星期四';
      6:week:='星期五';
      7:week:='星期六';
    end;
    DateWeekstr:=DateWeekstr+week+'】';
    StatusBar1.Panels[5].Text:=DateWeekstr;
    self.setToolBar;
    bgimage.Align:=alClient;
    configFilePath:=ExtractFilePath(paramstr(0))+'\Config.ini';
    OperatorInfo:=TOperator.Create();
    Settings:=TSetupConfig.Create(configFilePath);

    Settings.ReadConfig;
    ToolBar.Visible:=Settings.ShowToolBar;
    LeftBar.Visible:=Settings.ShowLeftBar;
    LogoImg.Visible:=Settings.ShowLogoImg;
    try
    case Settings.SetImgNo of
      -1:begin bgImage.Picture:=nil; N33.Checked:=true; end;
      0:begin bgImage.Picture.LoadFromFile(Settings.BackGroundImage); N25.Checked:=true; end;
      1:begin bgImage.Picture.LoadFromFile(Settings.BackGroundImage); N110.Checked:=true; end;
      2:begin bgImage.Picture.LoadFromFile(Settings.BackGroundImage); N23.Checked:=true; end;
      3:begin bgImage.Picture.LoadFromFile(Settings.BackGroundImage); N24.Checked:=true; end;
    end;
    Except
      Application.MessageBox('背景图片设置失败!','出错提示',mb_ok);
      bgimage.Picture:=nil;
    end;
    //设置左侧工具栏的样式