Reconfigure for GIT

2017-03-26 20:00:03 +02:00
commit 00637826ab
8056 changed files with 535977 additions and 0 deletions
@@ -0,0 +1,41 @@
+' 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 System.Collections.Generic
+Imports System.ComponentModel
+Imports DevExpress.ExpressApp.Win
+Imports DevExpress.ExpressApp.Updating
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Xpo
+Imports DevExpress.ExpressApp.Security.ClientServer
+Imports DevExpress.ExpressApp.Security
+
+Namespace SecuritySystemExample.Win
+	Partial Public Class SecuritySystemExampleWindowsFormsApplication
+		Inherits WinApplication
+		Public Sub New()
+			InitializeComponent()
+			DelayedViewItemsInitialization = True
+		End Sub
+		Protected Overrides Sub CreateDefaultObjectSpaceProvider(ByVal args As CreateCustomObjectSpaceProviderEventArgs)
+            args.ObjectSpaceProvider = New SecuredObjectSpaceProvider(CType(Security, SecuritySimple), args.ConnectionString, args.Connection)
+		End Sub
+		Private Sub SecuritySystemExampleWindowsFormsApplication_DatabaseVersionMismatch(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.DatabaseVersionMismatchEventArgs) Handles MyBase.DatabaseVersionMismatch
+			Throw New InvalidOperationException("The application cannot connect to the specified database, because the latter doesn't exist or its version is older than that of the application.")
+		End Sub
+		Private Sub SecuritySystemExampleWindowsFormsApplication_CustomizeLanguagesList(ByVal sender As Object, ByVal e As CustomizeLanguagesListEventArgs) Handles MyBase.CustomizeLanguagesList
+			Dim userLanguageName As String = System.Threading.Thread.CurrentThread.CurrentUICulture.Name
+			If userLanguageName <> "en-US" AndAlso e.Languages.IndexOf(userLanguageName) = -1 Then
+				e.Languages.Add(userLanguageName)
+			End If
+		End Sub
+	End Class
+End Namespace