project1.dpr

此代码是关于mapgis的在

program Project1;

uses
  Forms,
  SysUtils,
  Dialogs,
  WinFileSystem,
  ADOConnection,
  BusinessDialogs,
  shellapi,
  MapXContainer in '..\PublicUtils\MapXContainer.pas',
  MapXStyles in '..\PublicUtils\MapXStyles.pas',
  MapXTools in '..\PublicUtils\MapXTools.pas',
  MapXAdvance in '..\PublicUtils\MapXAdvance.pas',
  MapXMessages in '..\PublicUtils\MapXMessages.pas',
  MapXDrv in '..\PublicUtils\MapXDrv.pas',
  MapXBase in '..\PublicUtils\MapXBase.pas',
  MapXAPIs in '..\PublicUtils\MapXAPIs.pas',
  TrackDraw in '..\PublicUtils\TrackDraw.pas',
  LogicalTableStructExecuter in '..\..\..\Delphi库\MyUnits for Delphi7\LogicalTableStructExecuter.pas',
  frmTableDesigner in '..\..\..\工程\TableDesigner\CTRL\frmTableDesigner.pas' {Form_TableDesigner},
  GlobalUtils in '..\..\..\工程\TableDesigner\CTRL\GlobalUtils.pas',
  Global in '..\BIN\Global.pas',
  UnitMainForm in '..\BIN\UnitMainForm.pas' {Form_Main},
  MainFormInstance in '..\BIN\MainFormInstance.pas' {Form_Main},
  UnitProjectOptions in '..\BIN\UnitProjectOptions.pas' {Form_ProjectOptions},
  UnitEagleEye in '..\BIN\UnitEagleEye.pas' {FrmEagleEye},
  UnitNavigation in '..\BIN\UnitNavigation.pas' {FrmNavigation},
  UnitSaveAs in '..\BIN\UnitSaveAs.pas' {Form_SaveAs},
  UnitProject in '..\BIN\UnitProject.pas',
  UnitLayerControl in '..\BIN\UnitLayerControl.pas' {Form_LayerControl},
  UnitLayerInfo in '..\BIN\UnitLayerInfo.pas' {Form_LayerInfo},
  UnitFeatureConfig in '..\BIN\UnitFeatureConfig.pas' {Form_FeatureConfig},
  UnitRecords in '..\BIN\UnitRecords.pas' {Frame_Records: TFrame},
  UnitSearch in '..\BIN\UnitSearch.pas' {Frame_Search: TFrame},
  UnitMapCoordSys in '..\BIN\UnitMapCoordSys.pas' {Form2},
  UnitDrawShape in '..\BIN\UnitDrawShape.pas' {Frame_DrawShape: TFrame},
  UnitMapXShapePropDialog in '..\BIN\UnitMapXShapePropDialog.pas' {CustomMapXShapeDialog},
  UnitMapXShapeMultiPagePropDialog in '..\BIN\UnitMapXShapeMultiPagePropDialog.pas' {MapXShapeMultiPagePropDialog},
  UnitMapXShapeBusinessFrame in '..\BIN\UnitMapXShapeBusinessFrame.pas' {MapXShapeBusinessFrame: TFrame},
  UnitQCProjectTools in '..\七厂实例\UnitQCProjectTools.pas',
  UnitUpLoad in '..\BIN\UnitUpLoad.pas' {Form_UpLoad},
  UnitDownLoad in '..\BIN\UnitDownLoad.pas' {Form_DownLoad},
  UnitDMLinks in '..\七厂实例\UnitDMLinks.pas' {dm_Links: TDataModule},
  UnitMainLinkObjects in '..\七厂实例\UnitMainLinkObjects.pas' {dm_MainLinkObjects: TDataModule},
  UnitLineInfo in '..\七厂实例\UnitLineInfo.pas' {Form_LineInfo},
  UnitChooseSDLine in '..\七厂实例\UnitChooseSDLine.pas' {Form_ChooseSDLine},
  DLControl in '..\七厂实例\DLControl.pas',
  UnitQCGISProject in '..\七厂实例\UnitQCGISProject.pas',
  UnitPowerInfo in '..\七厂实例\UnitPowerInfo.pas' {Form_PowerInfo},
  UnitSubStationData in '..\七厂实例\UnitSubStationData.pas' {Frame_SubStationData: TFrame},
  UnitGetUserInfo in '..\七厂实例\UnitGetUserInfo.pas' {Form_GetUserInfo},
  mis_RightDBStore in 'J:\类库\Delphi\进销存软件\mis_RightDBStore.pas',
  mis_Base in 'J:\类库\Delphi\进销存软件\mis_Base.pas',
  mis_BaseInfoClass in 'J:\类库\Delphi\进销存软件\mis_BaseInfoClass.pas',
  mis_Instance in 'J:\类库\Delphi\进销存软件\mis_Instance.pas',
  mis_Right in 'J:\类库\Delphi\进销存软件\mis_Right.pas',
  mis_AppStruct in 'J:\类库\Delphi\进销存软件\mis_AppStruct.pas',
  DLRight in '..\七厂实例\DLRight.pas',
  MapXAnyDataSet in '..\G:\Delphi库\MyUnits for Delphi7\AnyDB\MapXAnyDataSet.pas',
  UnitConnectToSQLServerDB in '..\七厂实例\UnitConnectToSQLServerDB.pas' {Form_ConnectToSQLServerDB},
  UnitLocalGISProject in '..\BIN\UnitLocalGISProject.pas',
  UnitGISShell in '..\BIN\UnitGISShell.pas',
  UnitShellAPIs in '..\BIN\UnitShellAPIs.pas',
  UnitAppTypes in '..\BIN\UnitAppTypes.pas',
  UnitAppConsts in '..\BIN\UnitAppConsts.pas',
  MapXConsts in '..\PublicUtils\MapXConsts.pas',
  UnitQCAPIs in '..\七厂实例\UnitQCAPIs.pas',
  UnitGroupInfoFrame in '..\七厂实例\UnitGroupInfoFrame.pas' {Frame_GroupInfo: TFrame},
  UnitPopedomInfo in '..\七厂实例\UnitPopedomInfo.pas' {Form_PopedomInfo},
  UnitModuleBase in '..\七厂实例\UnitModuleBase.pas' {Form_Base},
  UnitQCGISRight in '..\七厂实例\UnitQCGISRight.pas',
  UnitQCConsts in '..\七厂实例\UnitQCConsts.pas',
  UnitChangePassword in '..\七厂实例\UnitChangePassword.pas' {Form_ChangePassword},
  UnitQCProjectOptions in '..\七厂实例\UnitQCProjectOptions.pas' {Form_QCProjectOptions},
  UnitSubStationInfo in '..\七厂实例\UnitSubStationInfo.pas' {Form_SubStationInfo},
  UnitAboutForm in '..\BIN\UnitAboutForm.pas' {Form_About};

{$R *.res}

begin
  //--------------------------------------------------------------------------//
  //取消远东模式//
  SysLocale.FarEast:=False;
  //--------------------------------------------------------------------------//
  //System//
  Application.Initialize;
  Application.Title := '七星GIS平台';
  //--------------------------------------------------------------------------//
  //设置AppType、AppPath//
  AppType:=atExe;
  AppPath:=CheckPath(ExtractFilePath(Application.ExeName));
  if not DirectoryExists(AppPath) then
  begin
     ShowMessage('系统没有正确取得程序路径，程序退出！');
     Application.Terminate;
  end;
  //--------------------------------------------------------------------------//
  //检查数据库引擎//
  if (not ADOInstalled)or(StrToFloat(ADOVersion1)<2.7) then
  begin
    MyWarning('ADO引擎没有安装或版本过低，系统将启动ADO引擎安装程序。');
    if not fileexists(appPath+'\ADO\Setup.exe') then
    begin
       application.messagebox('ADO引擎安装程序不存在！','提示信息',0);
       exit;
    end;
    ShellExecute(0, PChar('open'), PChar(appPath+'\ADO\Setup.exe'),nil,nil, 0);
    Sleep(5000);
    exit;
  end;
  //--------------------------------------------------------------------------//
  //System//
  Application.CreateForm(TForm_Main, Form_Main);
  Application.CreateForm(TForm_ProjectOptions, Form_ProjectOptions);
  Application.CreateForm(TFrmEagleEye, FrmEagleEye);
  Application.CreateForm(TFrmNavigation, FrmNavigation);
  Application.CreateForm(TForm_About, Form_About);
  //--------------------------------------------------------------------------//
  //System//
  Application.Run;
  //--------------------------------------------------------------------------//
end.