MainPage.pas

{*******************************************************}
{                                                       }
{       HimsSoft                                        }
{                                                       }
{       版权所有 (C) 2019 thumb0422@163.com             }
{                                                       }
{*******************************************************}

unit MainPage;

interface

uses
  System.SysUtils,
  System.Classes,Vcl.Controls, Vcl.Forms, Data.DB, Datasnap.DBClient,
  dxNavBarCollns, cxClasses,
  dxNavBar,
  cxPC, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
  dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
  dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
  dxSkinOffice2016Dark, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
  dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
  dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier,
  dxSkinsDefaultPainters, dxSkinValentine, dxSkinVisualStudio2013Blue,
  dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
  dxSkinWhiteprint, dxSkinXmas2008Blue, dxBarBuiltInMenu,HHistoryDataPage;

type
  TFMainPage = class(TForm)
    dxNavBar1: TdxNavBar;
    cxPageControl1: TcxPageControl;
    procedure FormCreate(Sender: TObject);
    procedure cxPageControl1CanClose(Sender: TObject; var ACanClose: Boolean);
    procedure cxPageControl1CanCloseEx(Sender: TObject; ATabIndex: Integer;
      var ACanClose: Boolean);
  private
    { Private declarations }
    procedure InitNavBar();
    procedure InitData;
    procedure itemClick(Sender: TObject);
  public
    { Public declarations }
  private
    fData: TClientdataset;
  end;

var
  FMainPage: TFMainPage;
  FMenuList: TList;

implementation

uses HMenu, HRoom1,HSettingPage,HSecuritySetPage,superobject;
{$R *.dfm}

procedure TFMainPage.cxPageControl1CanClose(Sender: TObject;
  var ACanClose: Boolean);
begin
  ACanClose := True;
end;

procedure TFMainPage.cxPageControl1CanCloseEx(Sender: TObject;
  ATabIndex: Integer; var ACanClose: Boolean);
begin
  // Writeln('-----'+IntToStr(ATabIndex));
  ACanClose := True;
end;

procedure TFMainPage.FormCreate(Sender: TObject);
begin
  InitData;
  InitNavBar;
end;

procedure TFMainPage.InitData;
var
  lMenu: TMenu;
  m: Integer;
begin
  fData := TClientdataset.Create(Self);
  fData.FieldDefs.Clear;
  fData.FieldDefs.Add('MID', ftInteger, 0); // ID
  fData.FieldDefs.Add('MDesc', ftString, 30); // 显示Caption
  fData.FieldDefs.Add('MParent', ftInteger, 0); // 父类
  fData.FieldDefs.Add('MVisible', ftInteger, 0); // 是否显示
  fData.FieldDefs.Add('MClass', ftString, 100); // 显示的className
  fData.CreateDataSet;

  FMenuList := TList.Create;
  begin
    lMenu := TMenu.Create;
    lMenu.MID := 1000;
    lMenu.MDesc := '展示区域';
    lMenu.MParent := 0;
    lMenu.MVisible := 1;
    FMenuList.Add(lMenu);

    lMenu := TMenu.Create;
    lMenu.MID := 1001;
    lMenu.MDesc := '区域一';
    lMenu.MParent := 1000;
    lMenu.MVisible := 1;
    lMenu.MClass := 'TRoomPage';
    FMenuList.Add(lMenu);

    lMenu := TMenu.Create;
    lMenu.MID := 1002;
    lMenu.MDesc := '历史数据查询';
    lMenu.MParent := 1000;
    lMenu.MVisible := 1;
    lMenu.MClass := 'THistoryDataPage';
    FMenuList.Add(lMenu);

    lMenu := TMenu.Create;
    lMenu.MID := 2000;
    lMenu.MDesc := '设置';
    lMenu.MParent := 0;
    lMenu.MVisible := 1;
    FMenuList.Add(lMenu);

    lMenu := TMenu.Create;
    lMenu.MID := 2001;
    lMenu.MDesc := '用户设置';
    lMenu.MParent := 2000;
    lMenu.MVisible := 1;
    lMenu.MClass := 'TSettingPage';
    FMenuList.Add(lMenu);

    lMenu := TMenu.Create;
    lMenu.MID := 100000;
    lMenu.MDesc := '隐藏功能';
    lMenu.MParent := 0;
    lMenu.MVisible := 1;
    lMenu.MClass := '';
    FMenuList.Add(lMenu);

    lMenu := TMenu.Create;
    lMenu.MID := 100001;
    lMenu.MDesc := '功能一';
    lMenu.MParent := 100000;
    lMenu.MVisible := 1;
    lMenu.MClass := 'TSecuritySetPage';
    FMenuList.Add(lMenu);
  end;

  with fData do
  begin
    DisableControls;
    for m := 0 to FMenuList.Count - 1 do
    begin
      lMenu := FMenuList[m];
      Append;
      FieldByName('MID').AsInteger := lMenu.MID;
      FieldByName('MDesc').AsString := lMenu.MDesc;
      FieldByName('MParent').AsInteger := lMenu.MParent;
      FieldByName('MVisible').AsInteger := lMenu.MVisible;
      FieldByName('MClass').AsString := lMenu.MClass;
      Post;
    end;
    EnableControls;
  end;
end;

procedure TFMainPage.InitNavBar();
var
  tempitem: TdxnavbarItem;
  tempgroup: Tdxnavbargroup;
begin
  dxNavBar1.Items.Clear;

  if fData.Active = False then
  begin
    fData.Active := True;
  end;

  with fData do
  begin
    DisableControls;
    First;
    while not Eof do
    begin
      if (FieldByName('MParent').AsInteger = 0) and
        (FieldByName('MVisible').AsInteger = 1) then
      // 父节点
      begin
        tempgroup := dxNavBar1.Groups.Add;
        tempgroup.Caption := FieldByName('MDesc').AsString;
      end
      else
      begin // 子节点
        if (FieldByName('MVisible').AsInteger = 1) then
        begin
          tempitem := dxNavBar1.Items.Add;
          tempitem.Caption := FieldByName('MDesc').AsString;
          tempitem.Tag := FieldByName('MID').AsInteger;
          tempitem.OnClick := itemClick;
          tempitem.Name := FieldByName('MClass').AsString;
          tempgroup.CreateLink(tempitem);
        end;
      end;
      Next;
    end;
    EnableControls;
  end;
end;

procedure TFMainPage.itemClick(Sender: TObject);
var
  litem: TdxnavbarItem;
  I: Integer;
  lTabSheet :TcxTabSheet;
  tabSheetCaption,itemCaption:string;
begin
  litem := TdxnavbarItem(Sender);
  lTabSheet := nil;
  for I := 0 to cxPageControl1.TabCount-1 do
  begin
    tabSheetCaption := cxPageControl1.Pages[I].Name;
    itemCaption := litem.Name;
    if tabSheetCaption.Contains(itemCaption) then
    begin
      lTabSheet := cxPageControl1.Pages[I];
      Break;
    end;
  end;
  if not Assigned(lTabSheet) then
  begin
    lTabSheet := TcxTabSheet.Create(Self);
    with lTabSheet do
    begin
      Visible := True;
      Caption := litem.Caption;
      Name := litem.Name + 'sheet';
      PageControl := cxPageControl1;
    end;
  end;
  cxPageControl1.ActivePage := lTabSheet;
  case litem.Tag of
    1001:
    begin
      TRoomPage.loadSelf(lTabSheet, alClient);
    end;
    1002:
    begin
      THistoryDataPage.loadSelf(lTabSheet,alClient);
    end;
    2001:
    begin
      TSettingPage.loadSelf(lTabSheet, alClient);
    end;
    100001:
    begin
      TSecuritySetPage.loadSelf(lTabSheet, alClient);
    end;
  end;
end;

end.