unitqcgisright.~pas

来自「此代码是关于mapgis的在」· ~PAS 代码 · 共 56 行

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.