107 lines
4.2 KiB
VB.net
107 lines
4.2 KiB
VB.net
Imports DevExpress.XtraBars.Docking2010.Views
|
|
Imports DevExpress.XtraBars.Ribbon
|
|
Imports DevExpress.XtraTab
|
|
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class frmAdministrationZooFlow
|
|
Private Const IDB_ATTRIBUTES = "IDB_ATTRIBUTES"
|
|
Private Const IDBConst = "IDB"
|
|
Private Const IDB_ENTITIES = "IDB_ENTITIES"
|
|
Private Const GLOBIX = "GLOBIX"
|
|
Private Const CLIPBOARD_WATCHER = "CLIPBOARD_WATCHER"
|
|
|
|
Private Logger As Logger
|
|
|
|
Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
Logger = My.LogConfig.GetLogger
|
|
|
|
XtraTabControl.ShowTabHeader = False
|
|
End Sub
|
|
|
|
Sub DisplayTab(pPageToDisplay As XtraTabPage, pTabControl As XtraTabControl)
|
|
Try
|
|
For Each oDocument As XtraTabPage In pTabControl.TabPages
|
|
If oDocument.Name = pPageToDisplay.Name Then
|
|
oDocument.PageVisible = True
|
|
Else
|
|
oDocument.PageVisible = False
|
|
End If
|
|
Next
|
|
Catch ex As Exception
|
|
Logger.Error(ex)
|
|
End Try
|
|
End Sub
|
|
|
|
Sub DisplayRibbonPage(PageToDisplay As RibbonPage)
|
|
Try
|
|
For Each oPage As RibbonPage In RibbonControl1.Pages
|
|
If oPage.Name = PageToDisplay.Name Then
|
|
oPage.Visible = True
|
|
Else
|
|
oPage.Visible = False
|
|
End If
|
|
Next
|
|
Catch ex As Exception
|
|
Logger.Error(ex)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TreeList1_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeList1.FocusedNodeChanged
|
|
If e.Node Is Nothing OrElse e.Node.Tag Is Nothing Then
|
|
Exit Sub
|
|
End If
|
|
|
|
Select Case e.Node.Tag.ToString
|
|
Case IDBConst
|
|
DisplayTab(XtraTabPage_IDB, XtraTabControl)
|
|
Case IDB_ATTRIBUTES
|
|
TBIDB_ATTRIBUTE_TYPETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
|
|
Me.TBIDB_ATTRIBUTE_TYPETableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPE)
|
|
TBIDB_ATTRIBUTETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
|
|
Me.TBIDB_ATTRIBUTETableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_ATTRIBUTE)
|
|
DisplayTab(XtraTabPage_IDB, XtraTabControl)
|
|
DisplayTab(XtraTabPageIDB_Attributes, XtraTabControlIDB)
|
|
Case IDB_ENTITIES
|
|
'DisplayTab(XtraTabPage_Entities)
|
|
Case GLOBIX
|
|
DisplayTab(XtraTabPage_GlobalIndexer, XtraTabControl)
|
|
DisplayRibbonPage(RibbonPage_GlobalIndexer)
|
|
Case CLIPBOARD_WATCHER
|
|
DisplayTab(XtraTabPage_ClipboardWatcher, XtraTabControl)
|
|
DisplayRibbonPage(RibbonPage_ClipboardWatcher)
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
|
|
|
|
End Sub
|
|
|
|
Private Sub TBIDB_ATTRIBUTEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
|
|
Me.Validate()
|
|
Me.TBIDB_ATTRIBUTEBindingSource.EndEdit()
|
|
Me.TableAdapterManager.UpdateAll(Me.DSIDB_Stammdaten)
|
|
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemAddAttribute.ItemClick
|
|
|
|
End Sub
|
|
|
|
Private Sub BarButtonItemSaveAttribute_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemSaveAttribute.ItemClick
|
|
Save_Attribute
|
|
End Sub
|
|
Sub Save_Attribute()
|
|
Try
|
|
TBIDB_ATTRIBUTEBindingSource.EndEdit()
|
|
If Not IsNothing(DSIDB_Stammdaten.GetChanges) Then
|
|
CHANGED_WHOTextBox.Text = My.Application.User.UserName
|
|
TBIDB_ATTRIBUTEBindingSource.EndEdit()
|
|
TBIDB_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.TBIDB_ATTRIBUTE)
|
|
labelStatus.Caption = $"IDB Attribute saved - {Now.ToLongTimeString}"
|
|
End If
|
|
Catch ex As Exception
|
|
Logger.Error(ex)
|
|
End Try
|
|
End Sub
|
|
End Class |