unit UnitQCGISProject;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Forms, Graphics,
  Dialogs, MapXLib_TLB, Grids, yhbGrid, Buttons, DB, MapXTools, Controls, 
  ADODB, TFlatEditUnit, ComCtrls, Menus, ExtCtrls, ToolWin, MapXContainer,
  AppCmdCtrl, jpeg, DBTrees, VirtualDBEngine, WinControl, MapXDrv, MapXBase,
  DLControl, DBTools, UnitProject, UnitSubStationData, mis_RightDBStore,
  AnyPoster, DBM_MSSQL, DLRight, ActiveX, UnitAppTypes, AnyDBFactory,
  UnitQCConsts, IniFiles, UnitRecords;
  
type
  TDirectState=(dsKeepState, dsDisConnected, dsConnected);
  {七廠GIS工程類}
  TqcGISProject=class(TGISProject)
  private
    //---------------------------------------------------------------------//
    FDLCtrl:TDLControl;
    FRootMenuItem:TMenuItem;
    NAddStation:TMenuItem;
    NAddLine:TMenuItem;
    NAddKG:TMenuItem;
    NAddBT:TMenuItem;
    NLinkToPower:TMenuItem;
    NUserRight:TMenuItem;
    NReDirectServer:TMenuItem;
    NUpLoad:TMenuItem;
    NDownLoad:TMenuItem;
    NConfigPopedom:TMenuItem;
    NShapeProperties:TMenuItem;
    NConfigBDS:TMenuItem;
    PIMLoaded: Boolean;
    FDataFrom: Integer;
    {子站當前狀態Frame}
    FSubStationFrame:TFrame_SubStationData;
    {SQLServer數據庫管理者，因為物理數據庫的不同導致了SQL語句的細微差別，
    數據庫管理者就是為外界提供所需的SQL語句或子句}
    FDBManager:TSQLServerDBManager;
    {數據工廠對象}
    FDBFactory:TAnyDBFactory;
    {用戶層}
    FUserLayer:CMapXLayer;
    {線路層}
    FLineLayer:CMapXLayer;
    {變壓器層}
    FBTLayer:CMapXLayer;
    {開關層}
    FDotLayer:CMapXLayer;
    {子站層}
    FSubStationLayer:CMapXLayer;
    {水系層}
    FWaterSystemLayer:CMapXLayer;
    {道路層}
    FRoadLayer:CMapXLayer;
    {建筑物層}
    FBuildingLayer:CMapXLayer;
    {底圖層}
    FBottomLayer:CMapXLayer;
    {當前變電所編號}
    FCurUnitID:Integer;
    {隨機模擬開關狀態的Timer}
    FPowerTimer:TTimer;
    //---------------------------------------------------------------------//
    {設置某個系統圖層為編輯狀態}
    procedure EditSystemLayer(LayerId:Integer);
    procedure DefConnectToServer;
    procedure ReInitServerPart;
    {加載圖層樹
        如果為系統管理員，可以維護圖層樹。維護內容包括：增加圖層，圖層屬性，刪除圖
    層，拖動圖層。拖動圖層時：當FeatureClass中只有一個圖層時，FeatureClass的編號變
    化。
        如果為一般用戶，則可以查看圖層屬性，但不能修改。}
    procedure CreateFeatureClassNode(const FCId:Integer;
      ATreeView:TTreeView; ATreeNode:TTreeNode);
    procedure LoadLayerTreeInfo;
    procedure LoadAndInitMap;
    function IsOldLayer(aUnitID:Integer; aTableName:string):Boolean;
    procedure SetDownloadDate(aUnitID:Integer; aTableName:string;
      aDownDate:TDateTime);
    {加載地圖內容}
    function CheckLocalMap:Boolean;
    procedure DownloadSymbolBitmaps(Section:Integer; LocalPath:string);
    procedure DownloadBinaryLayer(const UnitID:Integer;
      const LayerName, LocalPath, LocalLayerName:string);
    procedure DownLoadSystemLayers;
    {從系統表創建圖層}
    procedure CreateLayerFromTable(aLayerInfo:TLayerTreeNodeRecord;
      const Index:Integer);
    {上載地圖}
    procedure UpLoadResources(Section:Integer; ResType, ResPath:string);
    procedure UpLoadLayerFile(const UnitID:Integer; const FileName:string);
    procedure UpLoadSystemLayers;
    {加載一個菜單項}
    function LoadMenuItem(aPItem:TMenuItem; const Caption:string;
      const Tag:Integer; ClickProc:TNotifyEvent):TMenuItem;
    //---------------------------------------------------------------------//
    function ReDirectSQLServer(INIF:TIniFile; PState:TDirectState):TDirectState;
    //---------------------------------------------------------------------//
    {連接服務器菜單事件處理過程}
    procedure ConnectClick(Sender: TObject);
    {上載圖層菜單事件處理過程}
    procedure UpLoadClick(Sender: TObject);
    {下載圖層菜單事件處理過程}
    procedure DownLoadClick(Sender: TObject);
    {增加子站菜單事件處理過程}
    procedure AddStationClick(Sender: TObject);
    {增加線路菜單事件處理過程}
    procedure AddLineClick(Sender: TObject);
    {增加開關菜單事件處理過程}
    procedure AddKGClick(Sender: TObject);
    {增加變臺菜單事件處理過程}
    procedure AddBTClick(Sender: TObject);
    {分析子站是否關聯記錄}
    procedure AnalyzeSubStationClick(Sender: TObject);
    {分析開關是否關聯記錄}
    procedure AnalyzePowerClick(Sender: TObject);
    {分析線路是否關聯記錄}
    procedure AnalyzeSDLineClick(Sender: TObject);
    {分析線路是否關聯開關}
    procedure AnalyzeLinkPowerClick(Sender: TObject);
    {輸電線路關聯到開關}
    procedure LinkToPowerClick(Sender: TObject);
    {裝載電力模擬數據}
    procedure LoadDLControlDataClick(Sender: TObject);
    {隨機演示開關狀態}
    procedure RandomPowerStateClick(Sender: TObject);
    {圖形屬性信息菜單事件處理過程}
    procedure ShapePropertiesClick(Sender: TObject);
    {窗口切換菜單事件處理過程}
    procedure ChangeWindowClick(Sender: TObject);
    {權限分配}
    procedure ConfigPopedomClick(Sender: TObject);
    {重新連接}
    procedure ReConnectClick(Sender: TObject);
    {重新登陸}
    procedure CheckPasswordClick(Sender: TObject);
    {圖形類是否存在}
    function FeatueClassExists(const FCId:Integer):Boolean;
    {如果連接到數據庫，則進一步設置}
    procedure DoAfterUserConnect;
    {圖層是否存在}
    function LayerExists(const LayerName:string):Boolean;
    {取得單位名稱}
    function GetCurUnitName: string;
    {取得系統圖層路徑，注意：和具體單位有關}
    function GetLocalMapPath: string;
    function GetConnected: Boolean;
    procedure GetUnits(List:TStrings);
    function GetUserUnitType: Integer;
    procedure AnalyzeFeatures(ALyr:Layer; Fts:Features; FtType:TOLEEnum;
      WarningColor:TColor);
    procedure PowerTimerOnTimer(Sender:TObject);
    //---------------------------------------------------------------------//
  protected
    FirstFeature:Boolean;
    FirstFeatureKeyValue:string;
    {數據提交者，對有必要隱藏的SQL語句進行了隔離處理，對于變成者來說，
    編寫提交數據的代碼將更加簡潔}
    GDBPoster:TDBPosterWithSQL;
    {取得圖層的圖形類編號}
    function GetLayerFeatureId(ALyr:Layer):Integer;
    {注冊本GIS實例所需的風格}
    procedure RegisterProjectStyles; override;
    {注冊本GIS實例所需的工具}
    procedure RegisterProjectTools; override;
  public
    //---------------------------------------------------------------------//
    constructor Create(AOwner:TComponent; MapX:TMapXObject); override;
    destructor Destroy; override;
    //---------------------------------------------------------------------//
    {應用權限}
    procedure DoApplayFunctions; override;
    {檢查是否有權操作}
    function CheckFunction(ActionId:Integer):Boolean; override;
    {顯示屬性對話框}
    procedure DoOnCtrlPropDialog(Sender:TObject; ActionId:Integer; Ft:Feature); override;
    {開始動作}
    procedure DoBeginAction(ActionId:Integer; var Cancel:Boolean); override;
    {結束動作}
    procedure DoEndAction(ActionId:Integer); override;
    {圖形刪除前}
    procedure DoBeforeDelete(Ft:Feature; ActionId:Integer); override;
    {圖形創建后}
    procedure DoFeatureCreate(Ft:Feature; ActionId:Integer); override;
    {填寫網格數據}
    function DoWriteDataGridData(AGridFrame:TFrame_Records):Boolean; override;
    //---------------------------------------------------------------------//
    {增加本地圖層到工程}
    procedure AddLayerToProject(ALyr:CMapXLayer; aLayerInfo:TLayerTreeNodeRecord;
      const FCId:Integer); override;
    {從工程下載圖層}
    procedure DownloadProjectLayer(ALyr:CMapXLayer; aLayerInfo:TLayerTreeNodeRecord;
      const LayerName, Path:string); override;
    {創建業務菜單項}
    procedure LoadBusinessMenuItems(AMenuItem:TMenuItem); override;
    {工程實例加載，包括連接數據庫、加載所有系統圖層等操作}
    procedure LoadProject; override;
    {連接數據庫}
    function ConnectToDataBase(const Server, UserName, Password:string):Boolean;
    {登陸到服務器}
    function Connect(const UserName, Password:string):Boolean;
    {用對話框登陸}
    function ConnectUseDialog:Boolean;
    {加載地圖}
    procedure LoadMaps(const ItemIndex:Integer); override;
    procedure SetCurrentUnit(const UnitID:Integer);
    {注冊命令}
    procedure RegisterCmdCtrlGroups; override;
    {刷新開關顯示}
    procedure RefreshDotState(aDot:TDot);
    {刷新所有開關顯示}
    procedure RefreshAllDotState;
    {刷新電路狀態顯示}
    procedure RefreshLineLayerState(const bChanged:Boolean);
    {監控擴展菜單}
    procedure LoadParentInstanceModules; override;
    {刷新模擬圖}
    procedure RefreshSimulantMap; 
    {選擇子站當前狀態刷新}
    procedure RefreshSelectedSubStationsState;
    {取得子站關聯的開關及其當前狀態}
    function GetSubStationLinkPowerInfo(const SubStationId:Integer;
      var ZKPowerId, GLPower1Id, GLPower2Id:Integer;
      var ZKPowerState, GLPower1State, GLPower2State:Smallint):Boolean;
    {子站報警}
    procedure SubStationWarning(const SubStationId:Integer;
      const WarningString:string; BoundSeed:Double);
    {定位子站}
    procedure GoToSubStation(const SubStationId:Integer; BoundSeed:Double);
    {設置開關狀態}
    procedure SetPowerState(aDot:TDot; aState:TDotState; bAnalyze,
      bSaveState:Boolean); overload;
    {設置開關狀態}
    procedure SetPowerState(const PowerId:Integer; aState:Smallint; bAnalyze,
      bSaveState:Boolean); overload;
    {雙擊}
    procedure DoFeatureDblClick(Sender:TObject; Ft:Feature); override;
    procedure InitLineLayerRecords;
    procedure InitDotLayerRecords;
    //---------------------------------------------------------------------//
    property DLCtrl:TDLControl read FDLCtrl;
    property SubStationLayer:CMapXLayer read FSubStationLayer;
    property DotLayer:CMapXLayer read FDotLayer;
    property LineLayer:CMapXLayer read FLineLayer;
    property DataFrom:Integer read FDataFrom write FDataFrom;
    property UserUnitType:Integer read GetUserUnitType;
    property CurUnitID:Integer read FCurUnitID;
    property CurUnitName:string read GetCurUnitName;
    property LocalMapPath:string read GetLocalMapPath;
    property Connected:Boolean read GetConnected;
    property DefDBPoster:TDBPosterWithSQL read GDBPoster;
    //---------------------------------------------------------------------//
  end;

implementation

uses
  UnitDMLinks, UnitMainLinkObjects, BusinessDialogs, MapXStyles, MapXAPIs,
  MapXAdvance, MapXConsts, MapXMessages, UnitLineInfo, UnitPowerInfo, IntList,
  ADODBTools, StringOperations, WinFileSystem, MainFormInstance, DBBase,
  UnitGetUserInfo, mis_Instance, UnitQCProjectTools, UnitConnectToSQLServerDB,
  ADOConnection, UnitGISShell, UnitShellAPIs, UnitAppConsts, UnitQCAPIs,
  UnitEagleEye, UnitPopedomInfo, mis_Right, UnitChangePassword,
  UnitQCProjectOptions, AppDebug, TypInfo, UnitSubStationInfo, DBS_MSSQL;
  
{ TqcGISProject }

function GetPowerLocalState(strState:string):SmallInt;
begin
  strState:=Trim(strState);
  if strState='開' then
    Result:=1
  else if strState='關' then
    Result:=0
  else
    Result:=-1;
end;

procedure TqcGISProject.AddBTClick(Sender: TObject);
begin
  EditSystemLayer(LAYER_SYS_BT);
end;

procedure TqcGISProject.AddKGClick(Sender: TObject);
begin
  EditSystemLayer(LAYER_SYS_POWER);
  SetCurrentMapTool('TAddKGLineMapTool', OnTurnTool);
end;

procedure TqcGISProject.AddLayerToProject(ALyr: CMapXLayer;
  aLayerInfo:TLayerTreeNodeRecord; const FCId:Integer);
var
  LayerId:Integer;
  Path:string;
  TableName:string;
  ANode:TTreeNode;
begin
  if not dm_Links.DBMachine1.Connected then Exit;
  Path:=CheckPath(ExtractFilePath(aLayerInfo.FileName));
  TableName:=ExtractFileNameNoExt(aLayerInfo.FileName);
  {圖形類是否存在}
  if not FeatueClassExists(FCId) then
    raise Exception.Create('圖形類不存在！');
  {圖層是否存在}
  if LayerExists(ALyr.Name) then
    raise Exception.Create('工程中存在同名圖層，請重新命名后加入！');
  case DataFrom of
    1:begin
      {將數據導入到表中}
      with GMapTools.m_Layer do
      begin
        Layer:=aLyr;
        SaveFeaturesToTable(dm_MainLinkObjects.PublicQuery,
                         aLyr.DataSets.Item[1],
                         dbtSQLServer,
                         TableName);
      end;
    end;
    2:begin
      UpLoadLayerFile(CurUnitID, Path+TableName+'.DAT');
      UpLoadLayerFile(CurUnitID, Path+TableName+'.ID');
      UpLoadLayerFile(CurUnitID, Path+TableName+'.MAP');
      UpLoadLayerFile(CurUnitID, Path+TableName+'.TAB');
    end;
    else begin
      WarningAbort('錯誤', '無法識別圖層存儲標志！');
    end;
  end;
  {記錄圖層信息}
  LayerId:=GetNewIntID(dm_MainLinkObjects.PublicQuery, 't_Layers', 'LayerId', '', 1);
  with dm_MainLinkObjects.PublicQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from t_Layers where LayerId=:LayerId');
    SetParamValue(dm_MainLinkObjects.PublicQuery, 'LayerId', -1);
    Open;
    Append;
    FieldByName('LayerId').Value:=LayerId;
    FieldByName('LayerName').Value:=ALyr.Name;
    FieldByName('LayerIndex').Value:=1;
    FieldByName('FCId').Value:=FCId;
    FieldByName('LayerType').Value:=1;
    FieldByName('Visible').Value:=aLyr.Visible;
    FieldByName('DataFrom').Value:=DataFrom;
    FieldByName('TableName').Value:=TableName;
    FieldByName('SysCfg').Value:='InitBounds='+GetBoundsString(GMapTools.MapX.Bounds)+';KeyField=;Caption=;ShowCaption=False';
    FieldByName('UserCfg').Value:='';
    FieldByName('CDataTime').Value:=Now;
    FieldByName('CUser').Value:='';
    FieldByName('LMDateTime').Value:=Now;
    FieldByName('LMUser').Value:='';
    Post;
  end;  
  {增加圖層類的LayerCount}
  with dm_MainLinkObjects.PublicQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('update t_FeatureClasses set LayerCount=LayerCount+1');
    SQL.Add('where FCId=:FCId');
    SetParamValue(dm_MainLinkObjects.PublicQuery, 'FCId', FCId);
    ExecSQL;
  end;
  {刪除原有節點，增加新節點}
  ANode:=FindFeatureClassNode(FCId);
  AddLayerNode(SysTree, ANode, naAddChildFirst,
               -1, aLyr.Name, aLayerInfo.FileName, False, 2, -1, 3);
  ANode:=FindLayerNode(ALyr);
  DeleteNode(ANode);
end;

procedure TqcGISProject.AddLineClick(Sender: TObject);
begin
  EditSystemLayer(LAYER_SYS_LINE);
  SetCurrentMapTool('TAddSDLineMapTool', OnTurnTool);
end;

procedure TqcGISProject.AddStationClick(Sender: TObject);
begin
  EditSystemLayer(LAYER_SYS_SUBSTATION);
  SetCurrentMapTool('TAddSubStationMapTool', OnTurnTool);
end;

constructor TqcGISProject.Create(AOwner:TComponent; MapX:TMapXObject);
begin
  inherited Create(AOwner, MapX);

  RegOwnerName:='大慶采油七廠';
  ProjectName:=RegOwnerName+'電力監控系統 -- 地理信息子系統';

  FDBManager:=TSQLServerDBManager.Create;
  GDBPoster:=TDBPosterWithSQL.Create;
  GDBPoster.DBManager:=FDBManager;
  FDBFactory:=TAnyDBFactory.Create;
  FDBFactory.DBManager:=FDBManager;