TRoleAuth TDSDataModule不起作用

Question

RoleAuth完成工作并拒绝其他联系：

[TRoleAuth('ModuleAdmin')]
TAdmin = class(TBaseServerClass)

但这不起作用。为什么呢？

[TRoleAuth('ModuleAdmin')]
TDataModuleEmployee = class(TDSServerModule)