unit UnitQCGISRight;

interface

uses
  UnitModuleBase, UnitMainForm;
  
type
  TQCGISRight=class(TAppModule_Main)
  protected
    procedure InitFunctions;override;
  public
    constructor Create;override;
  end;

implementation

uses
  mis_Instance, UnitGISShell, UnitQCConsts, AppDebug;
  
{ TQCGISRight }

constructor TQCGISRight.Create;
begin
  inherited Create;
end;

procedure TQCGISRight.InitFunctions;
begin
  Functions.Add(ID_FUNC_CONFIGBDS, '變電所管理', '', True);
  Functions.Add(ID_FUNC_DRAW_USER, '用戶圖層繪制權', '', True);
  Functions.Add(ID_FUNC_DRAW_SUBSTATION, '子站圖層繪制權', '', True);
  Functions.Add(ID_FUNC_DRAW_POWER, '開關圖層繪制權', '', True);
  Functions.Add(ID_FUNC_DRAW_SDLINE, '線路圖層繪制權', '', True);
  Functions.Add(ID_FUNC_DRAW_BT, '變臺圖層繪制權', '', True);
  Functions.Add(ID_FUNC_DRAW_BUILDING, '建筑物圖層繪制權', '', True);
  Functions.Add(ID_FUNC_DRAW_ROAD, '道路圖層繪制權', '', True);
  Functions.Add(ID_FUNC_DRAW_WATERSYSTEM, '水系圖層繪制權', '', True);
  Functions.Add(ID_FUNC_DRAW_BOTTOM, '底圖圖層繪制權', '', True);
  Functions.Add(ID_FUNC_SHAPEPROPTIES, '圖形屬性', '', True);
  Functions.Add(ID_FUNC_LINKTOPOWER, '關聯開關', '', True);
  Functions.Add(ID_FUNC_UPLOAD, '上載圖層', '', True);
  Functions.Add(ID_FUNC_DOWNLOAD, '下載圖層', '', True);
  Functions.Add(ID_FUNC_CONFIGPOPEDOM, '分配權限', '', True);
end;

initialization
  RegisterAppModule(TQCGISRight);
  DebugLog.Add('DB500TS-C', ['注冊【七廠權限】']);

finalization
  UnRegisterAppModule(TQCGISRight);
  DebugLog.Add('DB500TS-C', ['卸載【七廠權限】']);
  
end.