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 'G:\Delphi庫\MyUnits for Delphi7\LogicalTableStructExecuter.pas',
  frmTableDesigner in 'G:\工程\TableDesigner\CTRL\frmTableDesigner.pas' {Form_TableDesigner},
  GlobalUtils in 'G:\工程\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',
  AnyDBTools in '..\G:\Delphi庫\MyUnits for Delphi7\AnyDB\AnyDBTools.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},
  AnyDBFactory in '..\G:\Delphi庫\MyUnits for Delphi7\AnyDB\AnyDBFactory.pas',
  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.