MS Admin Globix
This commit is contained in:
@@ -1,4 +1,5 @@
|
||||
Imports DigitalData.Modules.Logging
|
||||
Imports DevExpress.XtraLayout
|
||||
Imports DigitalData.Modules.Logging
|
||||
Public Class frmGlobixAdministration
|
||||
|
||||
Implements frmAdmin_Interface
|
||||
@@ -6,6 +7,7 @@ Public Class frmGlobixAdministration
|
||||
Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges
|
||||
Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert
|
||||
Private Logger As Logger
|
||||
Private CURRCOntrolGroup As LayoutControlGroup
|
||||
Public Sub New(PrimaryKey As Integer)
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
@@ -101,46 +103,96 @@ Public Class frmGlobixAdministration
|
||||
MsgBox("Error in Load_Dokart: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
Private Sub BESCHREIBUNGTextBox_TextChanged(sender As Object, e As EventArgs) Handles BESCHREIBUNGTextBox.TextChanged
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Load_INDEXMAN(ProfileId As Integer)
|
||||
Try
|
||||
Me.TBDD_INDEX_MANTableAdapter.Fill(Me.GlobixDataset.TBDD_INDEX_MAN, CType(DokartGUIDTextBox.Text, Integer))
|
||||
If GlobixDataset.TBDD_INDEX_MAN.Rows.Count > 0 Then
|
||||
EnableControls(XtraTabPageManIndexe)
|
||||
End If
|
||||
ClearStatus()
|
||||
Catch ex As System.Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load IndexeManuell: ")
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub ClearStatus()
|
||||
bsiState.Caption = String.Empty
|
||||
End Sub
|
||||
Private Sub XtraTabControl2_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl2.SelectedPageChanged
|
||||
Load_TabData()
|
||||
End Sub
|
||||
Sub Load_TabData()
|
||||
If frmloaded = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
' RibbonPageGroupProfileRegex.Enabled = False
|
||||
RibbonPageGroupProfileRegex.Enabled = False
|
||||
RibbonPageGroupManualIndex.Enabled = False
|
||||
RibbonPageGroupManualIndexFunctions.Enabled = False
|
||||
RibbonPageGroupAutoIndex.Enabled = False
|
||||
|
||||
'Select Case XtraTabControl2.SelectedTabPage.Name
|
||||
' Case XtraTabPageManualIndex.Name
|
||||
' RibbonPageGroupManualIndex.Enabled = True
|
||||
Select Case XtraTabControl2.SelectedTabPage.Name
|
||||
Case XtraTabPageManIndexe.Name
|
||||
RibbonPageGroupManualIndex.Enabled = True
|
||||
|
||||
' If DOKART_GUIDTextBox.Text <> "" Then
|
||||
' Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
|
||||
' End If
|
||||
' Case XtraTabPageManualIndexFunctions.Name
|
||||
' RibbonPageGroupManualIndexFunctions.Enabled = True
|
||||
If DokartGUIDTextBox.Text <> "" Then
|
||||
' Load_INDEXMAN(Me.DokartGUIDTextBox.Text)
|
||||
End If
|
||||
Case XtraTabPageRework.Name
|
||||
RibbonPageGroupManualIndexFunctions.Enabled = True
|
||||
|
||||
' Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
|
||||
' Case XtraTabPageAutoIndex.Name
|
||||
' Load_INDEXE_AUTO(Me.DOKART_GUIDTextBox.Text)
|
||||
'Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
|
||||
Case XtraTabPageAutoIndexe.Name
|
||||
Load_INDEXE_AUTO(CType(DokartGUIDTextBox.Text, Integer))
|
||||
|
||||
' RibbonPageGroupAutoIndex.Enabled = True
|
||||
' Case XtraTabPageFolderPath.Name
|
||||
' Try
|
||||
' Dim Dt As DataTable = ClassDatabase.Return_Datatable("select NAME from VWDDINDICES_MAN_AUTO_ACTIVE where DOCTYPE_ID = " & DOKART_GUIDTextBox.Text & " order by NAME")
|
||||
' cmbCrFolderIndex.DataSource = Dt
|
||||
' cmbCrFolderIndex.DisplayMember = Dt.Columns(0).ColumnName
|
||||
' Catch ex As Exception
|
||||
' MsgBox("Error in Load Data TabData 4: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
|
||||
' End Try
|
||||
' Case XtraTabPageProfileRegex.Name
|
||||
' TBGI_REGEX_DOCTYPETableAdapter.Fill(MyDataset.TBGI_REGEX_DOCTYPE, DOKART_GUIDTextBox.Text)
|
||||
' RibbonPageGroupProfileRegex.Enabled = True
|
||||
'End Select
|
||||
RibbonPageGroupAutoIndex.Enabled = True
|
||||
'Case XtraTabPageFolderPath.Name
|
||||
' Try
|
||||
' Dim Dt As DataTable = ClassDatabase.Return_Datatable("select NAME from VWDDINDICES_MAN_AUTO_ACTIVE where DOCTYPE_ID = " & DokartGUIDTextBox.Text & " order by NAME")
|
||||
' cmbCrFolderIndex.DataSource = Dt
|
||||
' cmbCrFolderIndex.DisplayMember = Dt.Columns(0).ColumnName
|
||||
' Catch ex As Exception
|
||||
' MsgBox("Error in Load Data TabData 4: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
|
||||
' End Try
|
||||
'Case XtraTabPageProfileRegex.Name
|
||||
' TBGI_REGEX_DOCTYPETableAdapter.Fill(MyDataset.TBGI_REGEX_DOCTYPE, DOKART_GUIDTextBox.Text)
|
||||
' RibbonPageGroupProfileRegex.Enabled = True
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
Private Sub Load_INDEXE_AUTO(ProfileId As Integer)
|
||||
Try
|
||||
Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.GlobixDataset.TBDD_INDEX_AUTOM, CType(DokartGUIDTextBox.Text, Integer))
|
||||
If GlobixDataset.TBDD_INDEX_AUTOM.Rows.Count > 0 Then
|
||||
EnableControls(XtraTabPageAutoIndexe)
|
||||
End If
|
||||
Catch ex As System.Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Indexe Auto: ")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub EnableControls(Control As Control, Optional Value As Boolean = True)
|
||||
For Each oSubControl As Control In Control.Controls
|
||||
If oSubControl.Enabled <> Value Then
|
||||
oSubControl.Enabled = Value
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Root_Click(sender As Object, e As EventArgs) Handles ControlGroupProfile.Click, ControlGroupIndexeMan.Click, ControlGroupIndexeAuto.Click
|
||||
CURRCOntrolGroup = sender
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user