XafApplication.Security Property

static class Program {
   // ... 
   public static void Main() {
      // ... 
      MySolutionWindowsFormsApplication application = new MySolutionWindowsFormsApplication();
      application.Security = new MySecurityStrategy<User, Role>(new MyAuthenticationStrategy<User, 
         AuthenticationStandardLogonParameters>())
      // ... 
      application.Setup();
      application.Start();
      // ... 
   }
}

Friend Class Program
   ' ... 
   Public Shared Sub Main()
      ' ... 
      Dim _application As MySolutionWindowsFormsApplication = _
      New MySolutionWindowsFormsApplication()
      _application.Security = New MySecurityStrategy(Of User, Role)( _
      New MyAuthenticationStrategy(Of User, AuthenticationStandardLogonParameters)())
      ' ... 
      _application.Setup()
      _application.Start()
      ' ... 
   End Sub 
End Class

XAF_how-to-allow-a-user-to-select-the-authentication-type-at-runtime-e2371/CS/E2371.Module/SetupAuthenticationHelper.cs#L17

mixedAuthentication.IsSupportChangePassword = true;
CustomAuthenticationStandardProvider authenticationStandardProvider = new CustomAuthenticationStandardProvider(application.Security.UserType);
AuthenticationActiveDirectoryProvider authenticationActiveDirectoryProvider = new AuthenticationActiveDirectoryProvider(application.Security.UserType, (ICanInitializeNewUser)application.Security, true);

XAF_how-to-implement-custom-permission-role-and-user-objects-e3794/CS/SecuredExportExample.Win/WinApplication.cs#L20

        new SecuredObjectSpaceProvider(
            (SecurityStrategy)Security, ConnectionString, Connection);
}

XAF_how-to-implement-middle-tier-security-with-the-wcf-service-e4036/CS/SecuritySystemExample.Win/WinApplication.cs#L19

    args.ObjectSpaceProvider = new SecuredObjectSpaceProvider(
        (SecurityStrategy)Security, args.ConnectionString, args.Connection);
}

XAF_how-to-change-connection-to-the-database-at-runtime-e1344/CS/RuntimeDbChooser.Win/WinApplication.cs#L21

InitializeComponent();
((SecurityStrategyComplex)Security).Authentication = new AuthenticationStandard<SecuritySystemUser, CustomLogonParametersForStandardAuthentication>();
//((SecurityStrategyComplex)Security).Authentication = new ChangeDatabaseActiveDirectoryAuthentication();

XAF_how-to-separate-employees-data-in-different-departments-using-security-permissions-in-xpo-e4045/CS/MainDemo.Web/WebApplication.cs#L25

protected override void CreateDefaultObjectSpaceProvider(CreateCustomObjectSpaceProviderEventArgs args) {
    args.ObjectSpaceProvider = new SecuredObjectSpaceProvider((ISelectDataSecurityProvider)Security, args.ConnectionString, args.Connection);
}

XAF_how-to-allow-a-user-to-select-the-authentication-type-at-runtime-e2371/VB/E2371.Module/SetupAuthenticationHelper.vb#L20

mixedAuthentication.IsSupportChangePassword = True
Dim authenticationStandardProvider As New CustomAuthenticationStandardProvider(application.Security.UserType)
Dim authenticationActiveDirectoryProvider As New AuthenticationActiveDirectoryProvider(application.Security.UserType, CType(application.Security, ICanInitializeNewUser), True)

XAF_how-to-implement-custom-permission-role-and-user-objects-e3794/VB/SecuredExportExample.Win/WinApplication.vb#L18

Protected Overrides Sub CreateDefaultObjectSpaceProvider(ByVal args As CreateCustomObjectSpaceProviderEventArgs)
    args.ObjectSpaceProvider = New SecuredObjectSpaceProvider(CType(Security, SecurityStrategy), ConnectionString, Connection)
End Sub

XAF_how-to-implement-middle-tier-security-with-the-wcf-service-e4036/VB/SecuritySystemExample.Win/WinApplication.vb#L20

Protected Overrides Sub CreateDefaultObjectSpaceProvider(ByVal args As CreateCustomObjectSpaceProviderEventArgs)
    args.ObjectSpaceProvider = New SecuredObjectSpaceProvider(CType(Security, SecurityStrategy), args.ConnectionString, args.Connection)
End Sub

XAF_how-to-change-connection-to-the-database-at-runtime-e1344/VB/RuntimeDbChooser.Win/WinApplication.vb#L23

InitializeComponent()
CType(Security, SecurityStrategyComplex).Authentication = New AuthenticationStandard(Of SecuritySystemUser, CustomLogonParametersForStandardAuthentication)()
''CType(Security, SecurityStrategyComplex).Authentication = New RuntimeDbChooser.Module.ChangeDatabaseActiveDirectoryAuthentication()

XAF_how-to-separate-employees-data-in-different-departments-using-security-permissions-in-xpo-e4045/VB/MainDemo.Web/WebApplication.vb#L28

Protected Overrides Sub CreateDefaultObjectSpaceProvider(ByVal args As CreateCustomObjectSpaceProviderEventArgs)
    args.ObjectSpaceProvider = New SecuredObjectSpaceProvider(CType(Security, ISelectDataSecurityProvider), args.ConnectionString, args.Connection)
End Sub