42 lines
2.0 KiB
VB.net
42 lines
2.0 KiB
VB.net
' 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
|