ufrmmscmain.pas

msc map program to control client of tools,use for map guide

//==============================================================================
// $修订版本号: 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.