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 '..\七廠實(shí)例\UnitQCProjectTools.pas',
  UnitUpLoad in '..\BIN\UnitUpLoad.pas' {Form_UpLoad},
  UnitDownLoad in '..\BIN\UnitDownLoad.pas' {Form_DownLoad},
  UnitDMLinks in '..\七廠實(shí)例\UnitDMLinks.pas' {dm_Links: TDataModule},
  UnitMainLinkObjects in '..\七廠實(shí)例\UnitMainLinkObjects.pas' {dm_MainLinkObjects: TDataModule},
  UnitLineInfo in '..\七廠實(shí)例\UnitLineInfo.pas' {Form_LineInfo},
  UnitChooseSDLine in '..\七廠實(shí)例\UnitChooseSDLine.pas' {Form_ChooseSDLine},
  DLControl in '..\七廠實(shí)例\DLControl.pas',
  UnitQCGISProject in '..\七廠實(shí)例\UnitQCGISProject.pas',
  UnitPowerInfo in '..\七廠實(shí)例\UnitPowerInfo.pas' {Form_PowerInfo},
  UnitSubStationData in '..\七廠實(shí)例\UnitSubStationData.pas' {Frame_SubStationData: TFrame},
  UnitGetUserInfo in '..\七廠實(shí)例\UnitGetUserInfo.pas' {Form_GetUserInfo},
  mis_RightDBStore in 'J:\類庫\Delphi\進(jìn)銷存軟件\mis_RightDBStore.pas',
  mis_Base in 'J:\類庫\Delphi\進(jìn)銷存軟件\mis_Base.pas',
  mis_BaseInfoClass in 'J:\類庫\Delphi\進(jìn)銷存軟件\mis_BaseInfoClass.pas',
  mis_Instance in 'J:\類庫\Delphi\進(jìn)銷存軟件\mis_Instance.pas',
  mis_Right in 'J:\類庫\Delphi\進(jìn)銷存軟件\mis_Right.pas',
  mis_AppStruct in 'J:\類庫\Delphi\進(jìn)銷存軟件\mis_AppStruct.pas',
  DLRight in '..\七廠實(shí)例\DLRight.pas',
  MapXAnyDataSet in '..\G:\Delphi庫\MyUnits for Delphi7\AnyDB\MapXAnyDataSet.pas',
  UnitConnectToSQLServerDB in '..\七廠實(shí)例\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 '..\七廠實(shí)例\UnitQCAPIs.pas',
  UnitGroupInfoFrame in '..\七廠實(shí)例\UnitGroupInfoFrame.pas' {Frame_GroupInfo: TFrame},
  UnitPopedomInfo in '..\七廠實(shí)例\UnitPopedomInfo.pas' {Form_PopedomInfo},
  UnitModuleBase in '..\七廠實(shí)例\UnitModuleBase.pas' {Form_Base},
  UnitQCGISRight in '..\七廠實(shí)例\UnitQCGISRight.pas',
  UnitQCConsts in '..\七廠實(shí)例\UnitQCConsts.pas',
  UnitChangePassword in '..\七廠實(shí)例\UnitChangePassword.pas' {Form_ChangePassword},
  UnitQCProjectOptions in '..\七廠實(shí)例\UnitQCProjectOptions.pas' {Form_QCProjectOptions},
  UnitSubStationInfo in '..\七廠實(shí)例\UnitSubStationInfo.pas' {Form_SubStationInfo},
  UnitAboutForm in '..\BIN\UnitAboutForm.pas' {Form_About};

{$R *.res}

begin
  //--------------------------------------------------------------------------//
  //取消遠(yuǎn)東模式//
  SysLocale.FarEast:=False;
  //--------------------------------------------------------------------------//
  //System//
  Application.Initialize;
  Application.Title := '七星GIS平臺(tái)';
  //--------------------------------------------------------------------------//
  //設(shè)置AppType、AppPath//
  AppType:=atExe;
  AppPath:=CheckPath(ExtractFilePath(Application.ExeName));
  if not DirectoryExists(AppPath) then
  begin
     ShowMessage('系統(tǒng)沒有正確取得程序路徑，程序退出！');
     Application.Terminate;
  end;
  //--------------------------------------------------------------------------//
  //檢查數(shù)據(jù)庫引擎//
  if (not ADOInstalled)or(StrToFloat(ADOVersion1)<2.7) then
  begin
    MyWarning('ADO引擎沒有安裝或版本過低，系統(tǒng)將啟動(dòng)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.