cqgps.dpr

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

program CQGPS;

uses
  auHTTP,
  auAutoUpgrader,
  IniFiles,
  SysUtils,
  Graphics,
  Forms,
  System,
  ufrmMSCMain in 'ufrmMSCMain.pas' {frmMSCMain},
  cxGridPopupMenuConsts in 'DevExpressCHN\cxGridPopupMenuConsts.pas',
  cxGridStrs in 'DevExpressCHN\cxGridStrs.pas',
  cxFilterControlStrs in 'DevExpressCHN\cxFilterControlStrs.pas',
  dxExtCtrlsStrs in 'DevExpressCHN\dxExtCtrlsStrs.pas',
  cxFilterConsts in 'DevExpressCHN\cxFilterConsts.pas',
  dxBarStrs in 'DevExpressCHN\dxBarStrs.pas',
  cxEditConsts in 'DevExpressCHN\cxEditConsts.pas',
  dxPSRes in 'DevExpressCHN\dxPSRes.pas',
  ufrmCQGPSGroup in 'ufrmCQGPSGroup.pas' {frmCQGPSGroup},
  ufrmCQGPSGroupEdit in 'ufrmCQGPSGroupEdit.pas' {frmCQGPSGroupEdit},
  ufrmCQGPSLevel in 'ufrmCQGPSLevel.pas' {frmCQGPSLevel},
  ufrmCQGPSLevelEdit in 'ufrmCQGPSLevelEdit.pas' {frmCQGPSLevelEdit},
  ufrmCQGPSVehicleEdit in 'ufrmCQGPSVehicleEdit.pas' {frmCQGPSVehicleEdit},
  ufrmCQGPSVehicle in 'ufrmCQGPSVehicle.pas' {frmCQGPSVehicle},
  ufrmCQGPSUserEdit in 'ufrmCQGPSUserEdit.pas' {frmCQGPSUserEdit},
  ufrmCQGPSUser in 'ufrmCQGPSUser.pas' {frmCQGPSUser},
  ufrmCQGPSHigherGroup in 'ufrmCQGPSHigherGroup.pas' {frmCQGPSHigherGroup},
  ufrmCQGPSUnitEdit in 'ufrmCQGPSUnitEdit.pas' {frmCQGPSUnitEdit},
  ufrmCQGPSUnit in 'ufrmCQGPSUnit.pas' {frmCQGPSUnit},
  ufrmCQGPSDriverEdit in 'ufrmCQGPSDriverEdit.pas' {frmCQGPSDriverEdit},
  ufrmCQGPSDriver in 'ufrmCQGPSDriver.pas' {frmCQGPSDriver},
  ufrmCQGPSVehicleOwnerEdit in 'ufrmCQGPSVehicleOwnerEdit.pas' {frmCQGPSVehicleOwnerEdit},
  ufrmCQGPSVehicleOwner in 'ufrmCQGPSVehicleOwner.pas' {frmCQGPSVehicleOwner},
  ufrmCQGPSTerminalTypeEdit in 'ufrmCQGPSTerminalTypeEdit.pas' {frmCQGPSTerminalTypeEdit},
  ufrmCQGPSTerminalType in 'ufrmCQGPSTerminalType.pas' {frmCQGPSTerminalType},
  ufrmCQGPSOperationType in 'ufrmCQGPSOperationType.pas' {frmCQGPSOperationType},
  ufrmCQGPSOperationTypeEdit in 'ufrmCQGPSOperationTypeEdit.pas' {frmCQGPSOperationTypeEdit},
  ufrmCQGPSOperationLevelEdit in 'ufrmCQGPSOperationLevelEdit.pas' {frmCQGPSOperationLevelEdit},
  ufrmCQGPSOperationLevel in 'ufrmCQGPSOperationLevel.pas' {frmCQGPSOperationLevel},
  ufrmCQGPSOperationEdit in 'ufrmCQGPSOperationEdit.pas' {frmCQGPSOperationEdit},
  ufrmCQGPSOperation in 'ufrmCQGPSOperation.pas',
  ufrmCQGPSUserType in 'ufrmCQGPSUserType.pas' {frmCQGPSUserType},
  ufrmCQGPSUserTypeOperationType in 'ufrmCQGPSUserTypeOperationType.pas' {frmCQGPSUserUserTypeOperationType},
  ufrmCQGPSUserUserType in 'ufrmCQGPSUserUserType.pas' {frmCQGPSUserUserType},
  ufrmCQGPSUserUserTypeEdit in 'ufrmCQGPSUserUserTypeEdit.pas' {frmCQGPSUserUserTypeEdit},
  uGPSANAUtils in '..\GPSANA\uGPSANAUtils.pas',
  uBaseDBDataModule in 'D:\DIRS\DEV\Transit\BaseLib\BaseDB\uBaseDBDataModule.pas',
  uBaseDBUtils in 'D:\DIRS\DEV\Transit\BaseLib\BaseDB\uBaseDBUtils.pas';

{$DEFINE SINGLEAPP }
{$R *.res}
var
  ini_file              : TIniFile;
  app_path              : string;
  ini_filename          : string;
  user_id               : Integer;
  user_type_id          : Integer;
  user_purview_group_id : Integer;
begin
  Application.Initialize;
  Application.Title := '长庆服务信息管理模块';
  Application.CreateForm(TBaseDBDataModule, BaseDBDataModule);
  Application.CreateForm(TfrmMSCMain, frmMSCMain);
  // 生成与应用程序同名的INI文件
  ini_filename  := ChangeFileExt(Application.ExeName, '.ini');

  // 取得程序路径
  app_path      := ExtractFilePath(Application.ExeName);

  // 建立配置文件对象
  ini_file      := TIniFile.Create(ini_filename);

  // 读取配置数据
  try
    user_id := ini_file.ReadInteger(
      'TESTAPP', 'UserID'   , 0);
    user_type_id := ini_file.ReadInteger(
      'TESTAPP', 'UserTypeID'   , 0);
    user_purview_group_id := ini_file.ReadInteger(
      'TESTAPP', 'UserPurviewGroupID'   , 0);

    BaseDBGlobal.AppGlobalByName('CQGPSDB')^.UserID := user_id;
    BaseDBGlobal.AppGlobalByName('CQGPSDB')^.UserGroupID := user_type_id;
    BaseDBGlobal.AppGlobalByName('CQGPSDB')^.UserPurGroupID := user_purview_group_id;
  finally
    ini_file.Free;
  end;
  Application.Run;
end.