26 lines
916 B
VB.net
26 lines
916 B
VB.net
Imports Microsoft.VisualBasic
|
|
Imports System
|
|
Imports DevExpress.ExpressApp
|
|
Imports DevExpress.ExpressApp.Win
|
|
Imports DevExpress.Persistent.Base
|
|
Imports DevExpress.ExpressApp.Actions
|
|
Imports DevExpress.ExpressApp.Security
|
|
Imports DevExpress.ExpressApp.Win.SystemModule
|
|
|
|
Public Interface IApplicationFactory
|
|
Function CreateApplication() As WinApplication
|
|
End Interface
|
|
Public Class LogOnDB
|
|
Inherits DevExpress.ExpressApp.WindowController
|
|
Public changeDatabaseAction As SingleChoiceAction
|
|
Public Shared NewApplication As WinApplication = Nothing
|
|
|
|
Public Sub New()
|
|
Me.TargetWindowType = WindowType.Main
|
|
|
|
'changeDatabaseAction = New SingleChoiceAction(Me, "ChangeDatabase", PredefinedCategory.View)
|
|
'changeDatabaseAction.Items.Add(New ChoiceActionItem("KUTYA", Nothing))
|
|
'changeDatabaseAction.Items.Add(New ChoiceActionItem("MACSKA", Nothing))
|
|
End Sub
|
|
End Class
|