//==============================================================================
// $修訂版本號: 1.0 $
// $日期      : 2005年12月6日 星期二 11:51:52 $
// $版本號    : 1.0.0 Alpha 1 $
//
// 長慶分組信息管理模塊的功能實現。
//
//
// $BeginLog$
// $Endlog  $
// $Copyright 版權所有 (c)2005 TRANSIT  保留所有權利$
//==============================================================================
{:
  長慶分組信息管理模塊的功能實現。
}

unit ufrmMSCMain;

//{$DEFINE SINGLEAPP }

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, dxStatusBar, ExtCtrls, dxNavBar, cxControls,
  cxContainer, cxEdit, cxLabel, dxDockPanel, dxDockControl, uBaseSystemNavForm,
  ImgList, uBaseDBLog4SQL, uBaseDBDefs, DBClient, DB,
  auHTTP, auAutoUpgrader, Menus, IdBaseComponent, IdAntiFreezeBase,
  IdAntiFreeze, jpeg,
  ufrmBaseDBDataExport, ufrmBaseDBDataImport, ufrmBaseDBDataReport,
  uBaseDBUtils, uBaseDBDataModule,
  cxTextEdit, cxMaskEdit,
  cxDropDownEdit, cxColorComboBox,
  ufrmBaseDBUser,
  ufrmBaseDBSimpleView, ufrmBaseDBSQLLog, ufrmBaseDBLogon,
  ufrmCQGPSLevel, ufrmCQGPSGroup, ufrmCQGPSVehicle,
  ufrmCQGPSUser, ufrmCQGPSUnit, ufrmCQGPSDriver, ufrmCQGPSVehicleOwner,
  ufrmCQGPSTerminalType, ufrmCQGPSOperationType, ufrmCQGPSOperationLevel,
  ufrmCQGPSOperation, ufrmCQGPSUserUserType, ufrmCQGPSUserGroup;

const
  APP_CAPTION = '服務信息管理的功能實現';

type
  TfrmMSCMain = class(TBaseSystemNavForm)
    dxDockSiteMain: TdxDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    dxLayoutDockSite3: TdxLayoutDockSite;
    dxDockPanelWelcome: TdxDockPanel;
    Image1: TImage;
    lblSystemName: TcxLabel;
    lblSystemName1: TcxLabel;
    dxDockPnlNavi: TdxDockPanel;
    dxNavBar: TdxNavBar;
    dxStatusBar: TdxStatusBar;
    dxDockingManager1: TdxDockingManager;
    ilMain: TImageList;
    AutoUpgraderPro: TauAutoUpgrader;
    procedure FormCreate(Sender: TObject);
  public
    procedure CheckLogon;
  end;

var
  frmMSCMain: TfrmMSCMain;

{$IFNDEF SINGLEAPP }

   procedure ExecutefrmMSCMain;

{$ENDIF }

implementation

{$IFNDEF SINGLEAPP}
uses uFrmMain, uPubFun;
{$ENDIF}

{$R *.dfm}

//------------------------------------------------------------------------------
//  全局方法
//------------------------------------------------------------------------------

{$IFNDEF SINGLEAPP }
{: 服務信息管理的全局調用方法。
}
procedure ExecutefrmMSCMain;
begin
  if frmMain.frmMSCMain = nil then
  begin
    frmMain.frmMSCMain := TfrmMSCMain.Create(frmMain);
  end;
  frmMain.frmMSCMain.Execute;
end;
{$ENDIF }

procedure TfrmMSCMain.CheckLogon;
var
  logon_str                    : string;
  p_app_global                 : PBaseDBAppGlobal;
  str_sql                      : string;
  user_id                      : Integer;
  user_group_id                : Integer;
  user_group_name              : string;
  user_purview_group_id        : Integer;
  user_purview_group_name      : string;
  user_inner_purview_group_id  : Integer;
  user_inner_purview_group_name: String;
  data_set                     : TClientDataSet;
begin
{$IFNDEF SINGLEAPP}

  data_set := BaseDBDataModule.ClientDataSetByName(AppName);

  str_sql := 'select * from V_BaseDB_User where UserName =''%s''';

  // 進行用戶身份認證
  if TfrmBaseDBLogon.DBCheckLogon(
      data_set,
      str_sql,
      AppName,
      'GroupID',
      'GroupName',
      gLogName,
      gPassWd,
      'PurviewGroupID',
      'PurviewGroupName',
      'InnerPurviewGroupID',
      'InnerPurviewGroupName',
      user_id,
      user_group_id, user_group_name,
      user_purview_group_id,user_purview_group_name,
      user_inner_purview_group_id, user_inner_purview_group_name) then
    begin
      p_app_global := BaseDBGlobal.AppGlobalByName(AppName);
      baseDBUtilReadINI(AppName, p_app_global);
      BaseDBLog4SQLGlobal.UserGroupID := user_purview_group_id;

      p_app_global^.UserID                := user_id;
      p_app_global^.UserName              := gLogName;
      p_app_global^.UserGroupID           := user_group_id;
      p_app_global^.UserPurGroupID        := user_purview_group_id;
      p_app_global^.UserPurGroupName      := user_purview_group_name;
      p_app_global^.UserInnerPurGroupID   := user_inner_purview_group_id;
      p_app_global^.UserInnerPurGroupName := user_inner_purview_group_name;


      logon_str := Format('  [%s:%s]', [
      p_app_global^.UserGroupName,
      p_app_global^.UserName
      ]);

//    // 根據用戶類型設置功能界面
      InitialViewByUserType(data_set, user_purview_group_id, AppDBName, dxNavBar, AppName);
    end;
{$ELSE}
   Exit;
{$ENDIF}


end;

//------------------------------------------------------------------------------
//  窗口事件
//------------------------------------------------------------------------------

procedure TfrmMSCMain.FormCreate(Sender: TObject);
begin
  {$IFNDEF SINGLEAPP}
  // 設置應用程序名稱
  AppName := getDBName;
  {$ELSE}
  AppName := 'CQGroup';
  {$ENDIF}
  
  // 設置應用程序數據庫名稱
  AppDBName := 'MSC';

  // 設置日志模式
  BaseDBLog4SQLGlobal.UseLog4SQLOption := basedblog4sqluselogoptionAlways;
//  BaseDBLog4SQLGlobal.UseLog4SQLOption := basedblog4sqluselogoptionNever;

//  // 設置應用程序標題
//  Application.Title := '長慶服務信息管理' +
//    baseDBUtilGetVersionFromFile(Application.ExeName);

  NavBar := dxNavBar;

  case gBaseDBOfficeStyle of
    0:
    begin
      NavBar.View := 13;
    end;
    1:
    begin
      NavBar.View := 4;
//      dxDockingManager1.ViewStyle := vsStandard;
//      dxNavBar.View := 1;
    end;
  end;

  // 填寫導航窗口屬性
  DockPanelWelcome := dxDockPanelWelcome;
  StatusBar := dxStatusBar;
  WelcomeLabel := lblSystemName;
  WelcomeLabel1 := lblSystemName1;

  SystemCaption := '服務信息管理';

  Caption := Caption + ' ' + baseDBUtilGetVersionFromFile(Application.ExeName);

  // 增加導航項目組
  AddNavGroup('用戶信息設置', 30);
  AddNavGroup('基本信息設置', 29);
  addNavGroup('業務統計報表', 79);
  addNavGroup('數據導入導出', 102);
  addNavGroup('系統日志管理', 107);

  //用戶分組管理
  AddNavFunction('業務管理', 45, 0, TfrmCQGPSOperation);
  AddNavFunction('單位信息', 27, 0, TfrmCQGPSUnit);
  AddNavFunction('車主信息', 96, 0, TfrmCQGPSVehicleOwner);
  AddNavFunction('車輛分組', 72, 0, TfrmCQGPSGroup);
  AddNavFunction('用戶信息', 107, 0, TfrmCQGPSUser);
  AddNavFunction('車輛信息', 43, 0, TfrmCQGPSVehicle);
  AddNavFunction('司機信息', 82, 0, TfrmCQGPSDriver);

  // 增加基礎數據項目
  AddNavFunction('終端類型管理', 30, 1, TfrmCQGPSTerminalType);
  AddNavFunction('車輛類型管理', 28 , 1, TfrmBaseDBSimpleView,
    TfrmBaseDBSimpleView.GetParamPointer('MSC_VehicleType', '車輛類型管理'));
  AddNavFunction('車輛品牌管理', 95 , 1, TfrmBaseDBSimpleView,
    TfrmBaseDBSimpleView.GetParamPointer('MSC_VehicleBand', '車輛品牌管理'));
  AddNavFunction('車輛用途管理', 47 , 1, TfrmBaseDBSimpleView,
    TfrmBaseDBSimpleView.GetParamPointer('MSC_VehicleUsage', '車輛用途管理'));
  AddNavFunction('車輛型號管理', 72 , 1, TfrmBaseDBSimpleView,
    TfrmBaseDBSimpleView.GetParamPointer('MSC_VehicleManufactory', '車輛型號管理'));
  AddNavFunction('車輛顏色管理', 56 , 1, TfrmBaseDBSimpleView,
    TfrmBaseDBSimpleView.GetParamPointer('MSC_VehicleColor', '車輛顏色管理'));
  AddNavFunction('單位分級管理', 47, 1, TfrmCQGPSLevel);
  AddNavFunction('業務類型管理',  5, 1, TfrmCQGPSOperationType);
  AddNavFunction('用戶業務類型', 38, 1, TfrmCQGPSUserUserType);
  AddNavFunction('油品類型管理', 94 , 1, TfrmBaseDBSimpleView,
    TfrmBaseDBSimpleView.GetParamPointer('MSC_OilType', '油品類型管理'));
//  AddNavFunction('業務等級', 31, 1, TfrmCQGPSOperationLevel);


  AddNavFunction('統一制表', 13 , 2, TfrmBaseDBDataReport,
                 TBaseDBGlobal.GetAppNamePointer(AppName));

  AddNavFunction('數據導入', 102 , 3, TfrmBaseDBDataImport,
                 TBaseDBGlobal.GetAppNamePointer(AppName));
  AddNavFunction('數據導出', 103 , 3, TfrmBaseDBDataExport,
                 TBaseDBGlobal.GetAppNamePointer(AppName));

//  AddNavFunction('用戶組', 107 , 4, TfrmBaseDBSimpleView,
//    TfrmBaseDBSimpleView.GetParamPointer('BaseDB_UserGroup', '用戶組'));
  AddNavFunction('用戶組',   107, 4, TfrmCQGPSUserGroup);
  AddNavFunction('操作日志', 28 , 4, TfrmBaseDBSQLLog);

  {$IFNDEF SINGLEAPP }
  CheckLogon ;
  {$ENDIF }
end;

end.