mainunit.pas

是一个Delphi的教材管理系统,内容很全面详细

unit MainUnit;

interface

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

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;
    PopupMenu1: TPopupMenu;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: 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;
    procedure setToolBarPower;
  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.setToolBarPower;
begin
   toolButton1.Enabled:=OperatorInfo.OperatorPower[2];
   toolButton2.Enabled:=OperatorInfo.OperatorPower[2];
   toolButton3.Enabled:=OperatorInfo.OperatorPower[3];
   toolButton4.Enabled:=OperatorInfo.OperatorPower[3];
   toolButton5.Enabled:=OperatorInfo.OperatorPower[3];
   toolButton8.Enabled:=OperatorInfo.OperatorPower[4];
   toolButton9.Enabled:=OperatorInfo.OperatorPower[4];
   toolButton10.Enabled:=OperatorInfo.OperatorPower[4];
end;
//设置顶部工具栏中的按钮事件
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.Headers[1].Button[2].Enabled:=OperatorInfo.OperatorPower[1];
   leftBar.Headers[1].Button[3].Enabled:=OperatorInfo.OperatorPower[1];

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

   //设置权限2对应的菜单项 (书费管理)
   n9.Enabled:=OperatorInfo.OperatorPower[2]; //缴纳书费
   n10.Enabled:=OperatorInfo.OperatorPower[2];  //退回书费
   n43.Enabled:=OperatorInfo.OperatorPower[2]; //
   n44.Enabled:=OperatorInfo.OperatorPower[2];
   toolButton1.Enabled:=OperatorInfo.OperatorPower[2];
   toolButton2.Enabled:=OperatorInfo.OperatorPower[2];
   //设置权限3对应的菜单项 (出入库)
   n11.Enabled:=OperatorInfo.OperatorPower[3];//教材入库
   n12.Enabled:=OperatorInfo.OperatorPower[3];//学生领书
   n13.Enabled:=OperatorInfo.OperatorPower[3];//院系领书
   n34.Enabled:=OperatorInfo.OperatorPower[3];//学生领书
   n35.Enabled:=OperatorInfo.OperatorPower[3];//院系领书
   toolButton3.Enabled:=OperatorInfo.OperatorPower[3];
   toolButton4.Enabled:=OperatorInfo.OperatorPower[3];
   toolButton5.Enabled:=OperatorInfo.OperatorPower[3];
   //设置权限4对应的菜单项  (综合查询)
   n14.Enabled:=OperatorInfo.OperatorPower[4];//书费查询
   n15.Enabled:=OperatorInfo.OperatorPower[4];//库存查询
   n16.Enabled:=OperatorInfo.OperatorPower[4];//领书查询
   n38.Enabled:=OperatorInfo.OperatorPower[4];//书费查询
   n39.Enabled:=OperatorInfo.OperatorPower[4];//库存查询
   n40.Enabled:=OperatorInfo.OperatorPower[4];//领书查询
   toolButton8.Enabled:=OperatorInfo.OperatorPower[4];
   toolButton9.Enabled:=OperatorInfo.OperatorPower[4];
   toolButton10.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);