' Developer Express Code Central Example: ' How to: Implement middle tier security with the WCF service ' ' The complete description is available in the Middle Tier Security - WCF Service ' (http://documentation.devexpress.com/#xaf/CustomDocument3439) topic. ' ' You can find sample updates and versions for different programming languages here: ' http://www.devexpress.com/example=E4036 Imports Microsoft.VisualBasic Imports System Imports DevExpress.ExpressApp.Security Namespace SecuritySystemExample.Win Partial Public Class SecuritySystemExampleWindowsFormsApplication ''' ''' Required designer variable. ''' Private components As System.ComponentModel.IContainer = Nothing ''' ''' Clean up any resources being used. ''' ''' true if managed resources should be disposed; otherwise, false. Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso (components IsNot Nothing) Then components.Dispose() End If MyBase.Dispose(disposing) End Sub #Region "Component Designer generated code" ''' ''' Required method for Designer support - do not modify ''' the contents of this method with the code editor. ''' Private Sub InitializeComponent() Me.module1 = New DevExpress.ExpressApp.SystemModule.SystemModule() Me.module2 = New DevExpress.ExpressApp.Win.SystemModule.SystemWindowsFormsModule() Me.sqlConnection1 = New System.Data.SqlClient.SqlConnection() Me.authenticationStandard1 = New DevExpress.ExpressApp.Security.AuthenticationStandard() Me.securityModule1 = New DevExpress.ExpressApp.Security.SecurityModule() Me.SisBusinessModule1 = New SISBusiness.[Module].SISBusinessModule() Me.BusinessClassLibraryCustomizationModule1 = New DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule() Me.AuditTrailModule1 = New DevExpress.ExpressApp.AuditTrail.AuditTrailModule() Me.CloneObjectModule1 = New DevExpress.ExpressApp.CloneObject.CloneObjectModule() Me.ConditionalAppearanceModule1 = New DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule() Me.ValidationModule1 = New DevExpress.ExpressApp.Validation.ValidationModule() Me.ViewVariantsModule1 = New DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule() Me.KpiModule1 = New DevExpress.ExpressApp.Kpi.KpiModule() Me.SisBusinessWindowsFormsModule1 = New SISBusiness.[Module].Win.SISBusinessWindowsFormsModule() Me.FileAttachmentsWindowsFormsModule1 = New DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentsWindowsFormsModule() Me.HtmlPropertyEditorWindowsFormsModule1 = New DevExpress.ExpressApp.HtmlPropertyEditor.Win.HtmlPropertyEditorWindowsFormsModule() Me.PivotChartModuleBase1 = New DevExpress.ExpressApp.PivotChart.PivotChartModuleBase() Me.PivotChartWindowsFormsModule1 = New DevExpress.ExpressApp.PivotChart.Win.PivotChartWindowsFormsModule() Me.ValidationWindowsFormsModule1 = New DevExpress.ExpressApp.Validation.Win.ValidationWindowsFormsModule() Me.ReportsModule1 = New DevExpress.ExpressApp.Reports.ReportsModule() Me.ReportsWindowsFormsModule1 = New DevExpress.ExpressApp.Reports.Win.ReportsWindowsFormsModule() Me.TreeListEditorsModuleBase1 = New DevExpress.ExpressApp.TreeListEditors.TreeListEditorsModuleBase() Me.TreeListEditorsWindowsFormsModule1 = New DevExpress.ExpressApp.TreeListEditors.Win.TreeListEditorsWindowsFormsModule() Me.ChartModule1 = New DevExpress.ExpressApp.Chart.ChartModule() Me.ChartWindowsFormsModule1 = New DevExpress.ExpressApp.Chart.Win.ChartWindowsFormsModule() Me.PivotGridModule1 = New DevExpress.ExpressApp.PivotGrid.PivotGridModule() Me.PivotGridWindowsFormsModule1 = New DevExpress.ExpressApp.PivotGrid.Win.PivotGridWindowsFormsModule() Me.SchedulerModuleBase1 = New DevExpress.ExpressApp.Scheduler.SchedulerModuleBase() Me.SchedulerWindowsFormsModule1 = New DevExpress.ExpressApp.Scheduler.Win.SchedulerWindowsFormsModule() Me.SecurityComplex1 = New DevExpress.ExpressApp.Security.SecurityComplex() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'sqlConnection1 ' Me.sqlConnection1.ConnectionString = "Integrated Security=SSPI;Pooling=false;Data Source=.\SQLEXPRESS;Initial Catalog=S" & _ "ecuritySystemExample" Me.sqlConnection1.FireInfoMessageEventOnUserErrors = False ' 'authenticationStandard1 ' Me.authenticationStandard1.LogonParametersType = GetType(DevExpress.ExpressApp.Security.AuthenticationStandardLogonParameters) ' 'AuditTrailModule1 ' Me.AuditTrailModule1.AuditDataItemPersistentType = GetType(DevExpress.Persistent.BaseImpl.AuditDataItemPersistent) ' 'ValidationModule1 ' Me.ValidationModule1.AllowValidationDetailsAccess = True ' 'ViewVariantsModule1 ' Me.ViewVariantsModule1.GenerateVariantsNode = True Me.ViewVariantsModule1.ShowAdditionalNavigation = False ' 'SisBusinessWindowsFormsModule1 ' Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Localization.PreviewControlLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(ServerDataLogLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.GridControlLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.LayoutControlLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.NavBarControlLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.BarControlLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.RichEditControlLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.TreeListControlLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.VerticalGridControlLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.XtraEditorsLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.LargeStringEditFindFormLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.MainFormTemplateLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.DetailViewFormTemplateLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.NestedFrameTemplateLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.LookupControlTemplateLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.PopupFormTemplateLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.HtmlPropertyEditor.Win.HtmlEditorControlLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Reports.Win.ReportControlLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Scheduler.SchedulerModuleBaseLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Scheduler.Win.SchedulerControlLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.DocumentManagerControlLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.PivotGrid.PivotGridListEditorLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.XtraPivotGrid.Localization.PivotGridLocalizer)) Me.SisBusinessWindowsFormsModule1.ResourcesExportedToModel.Add(GetType(DevExpress.XtraCharts.Localization.ChartLocalizer)) ' 'PivotChartModuleBase1 ' Me.PivotChartModuleBase1.ShowAdditionalNavigation = False ' 'ReportsModule1 ' Me.ReportsModule1.EnableInplaceReports = True Me.ReportsModule1.ReportDataType = GetType(DevExpress.Persistent.BaseImpl.ReportData) ' 'SecurityComplex1 ' Me.SecurityComplex1.Authentication = Me.authenticationStandard1 Me.SecurityComplex1.RoleType = GetType(DevExpress.Persistent.BaseImpl.Role) Me.SecurityComplex1.UserType = GetType(DevExpress.Persistent.BaseImpl.User) ' 'SecuritySystemExampleWindowsFormsApplication ' Me.ApplicationName = "SISBusiness" Me.Connection = Me.sqlConnection1 Me.Modules.Add(Me.module1) Me.Modules.Add(Me.module2) Me.Modules.Add(Me.securityModule1) Me.Modules.Add(Me.BusinessClassLibraryCustomizationModule1) Me.Modules.Add(Me.AuditTrailModule1) Me.Modules.Add(Me.CloneObjectModule1) Me.Modules.Add(Me.ConditionalAppearanceModule1) Me.Modules.Add(Me.ValidationModule1) Me.Modules.Add(Me.ViewVariantsModule1) Me.Modules.Add(Me.KpiModule1) Me.Modules.Add(Me.SisBusinessModule1) Me.Modules.Add(Me.FileAttachmentsWindowsFormsModule1) Me.Modules.Add(Me.HtmlPropertyEditorWindowsFormsModule1) Me.Modules.Add(Me.PivotChartModuleBase1) Me.Modules.Add(Me.PivotChartWindowsFormsModule1) Me.Modules.Add(Me.ValidationWindowsFormsModule1) Me.Modules.Add(Me.ReportsModule1) Me.Modules.Add(Me.ReportsWindowsFormsModule1) Me.Modules.Add(Me.TreeListEditorsModuleBase1) Me.Modules.Add(Me.TreeListEditorsWindowsFormsModule1) Me.Modules.Add(Me.ChartModule1) Me.Modules.Add(Me.ChartWindowsFormsModule1) Me.Modules.Add(Me.PivotGridModule1) Me.Modules.Add(Me.PivotGridWindowsFormsModule1) Me.Modules.Add(Me.SchedulerModuleBase1) Me.Modules.Add(Me.SchedulerWindowsFormsModule1) Me.Modules.Add(Me.SisBusinessWindowsFormsModule1) Me.Security = Me.SecurityComplex1 CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub #End Region Private module1 As DevExpress.ExpressApp.SystemModule.SystemModule Private module2 As DevExpress.ExpressApp.Win.SystemModule.SystemWindowsFormsModule Private sqlConnection1 As System.Data.SqlClient.SqlConnection Private securityModule1 As DevExpress.ExpressApp.Security.SecurityModule Private authenticationStandard1 As DevExpress.ExpressApp.Security.AuthenticationStandard Friend WithEvents SisBusinessModule1 As SISBusiness.Module.SISBusinessModule Friend WithEvents BusinessClassLibraryCustomizationModule1 As DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule Friend WithEvents AuditTrailModule1 As DevExpress.ExpressApp.AuditTrail.AuditTrailModule Friend WithEvents CloneObjectModule1 As DevExpress.ExpressApp.CloneObject.CloneObjectModule Friend WithEvents ConditionalAppearanceModule1 As DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule Friend WithEvents ValidationModule1 As DevExpress.ExpressApp.Validation.ValidationModule Friend WithEvents ViewVariantsModule1 As DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule Friend WithEvents KpiModule1 As DevExpress.ExpressApp.Kpi.KpiModule Friend WithEvents SisBusinessWindowsFormsModule1 As SISBusiness.Module.Win.SISBusinessWindowsFormsModule Friend WithEvents FileAttachmentsWindowsFormsModule1 As DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentsWindowsFormsModule Friend WithEvents HtmlPropertyEditorWindowsFormsModule1 As DevExpress.ExpressApp.HtmlPropertyEditor.Win.HtmlPropertyEditorWindowsFormsModule Friend WithEvents PivotChartModuleBase1 As DevExpress.ExpressApp.PivotChart.PivotChartModuleBase Friend WithEvents PivotChartWindowsFormsModule1 As DevExpress.ExpressApp.PivotChart.Win.PivotChartWindowsFormsModule Friend WithEvents ValidationWindowsFormsModule1 As DevExpress.ExpressApp.Validation.Win.ValidationWindowsFormsModule Friend WithEvents ReportsModule1 As DevExpress.ExpressApp.Reports.ReportsModule Friend WithEvents ReportsWindowsFormsModule1 As DevExpress.ExpressApp.Reports.Win.ReportsWindowsFormsModule Friend WithEvents TreeListEditorsModuleBase1 As DevExpress.ExpressApp.TreeListEditors.TreeListEditorsModuleBase Friend WithEvents TreeListEditorsWindowsFormsModule1 As DevExpress.ExpressApp.TreeListEditors.Win.TreeListEditorsWindowsFormsModule Friend WithEvents ChartModule1 As DevExpress.ExpressApp.Chart.ChartModule Friend WithEvents ChartWindowsFormsModule1 As DevExpress.ExpressApp.Chart.Win.ChartWindowsFormsModule Friend WithEvents PivotGridModule1 As DevExpress.ExpressApp.PivotGrid.PivotGridModule Friend WithEvents PivotGridWindowsFormsModule1 As DevExpress.ExpressApp.PivotGrid.Win.PivotGridWindowsFormsModule Friend WithEvents SchedulerModuleBase1 As DevExpress.ExpressApp.Scheduler.SchedulerModuleBase Friend WithEvents SchedulerWindowsFormsModule1 As DevExpress.ExpressApp.Scheduler.Win.SchedulerWindowsFormsModule Friend WithEvents SecurityComplex1 As DevExpress.ExpressApp.Security.SecurityComplex End Class End Namespace