AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

load groups/users when only one profile exists, disable extra tabs when no profile exists

Browse Source
This commit is contained in:
Jonathan Jenne 2020-04-21 12:09:06 +02:00
parent 3f084d17a1
commit 6ba7bc27c1
1 changed files with 26 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
Global_Indexer/frmAdministration.vb
View File

@ -62,10 +62,13 @@ Public Class frmAdministration
ComboBox3.DataSource = oDatatable ComboBox3.DataSource = oDatatable
Try Try
Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.MyDataset.TBDD_DOKUMENTART) Me.TBDD_DOKUMENTARTTableAdapter.FillByModuleGI(Me.MyDataset.TBDD_DOKUMENTART)
Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.MyDataset.TBDD_EINGANGSARTEN) Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.MyDataset.TBDD_EINGANGSARTEN)
Me.TBDD_MODULESTableAdapter.Fill(Me.MyDataset.TBDD_MODULES) Me.TBDD_MODULESTableAdapter.Fill(Me.MyDataset.TBDD_MODULES)
TBDD_DOKUMENTARTBindingSource.ResetBindings(True)
MaybeDisableUserAndEmailTabs()
' Initialize Profile-GridControl before its tab is loaded ' Initialize Profile-GridControl before its tab is loaded
' prevents jumping of selected profile when selected tab is changed ' prevents jumping of selected profile when selected tab is changed
GridControl3.ForceInitialize() GridControl3.ForceInitialize()
@ -77,6 +80,17 @@ Public Class frmAdministration
End If End If
End If End If
End Sub End Sub
Private Sub MaybeDisableUserAndEmailTabs()
If MyDataset.TBDD_DOKUMENTART.Rows.Count = 0 Then
XtraTabPageUsersGroups.PageEnabled = False
XtraTabPageEmail.PageEnabled = False
Else
XtraTabPageUsersGroups.PageEnabled = True
XtraTabPageEmail.PageEnabled = True
End If
End Sub
Private Sub ObjektTypenEintragen() Private Sub ObjektTypenEintragen()
Try Try
pnlObjekttype_Config.Enabled = False pnlObjekttype_Config.Enabled = False
@ -204,6 +218,7 @@ Public Class frmAdministration
End Try End Try
TBDD_DOKUMENTARTTableAdapter.Update(MyDataset.TBDD_DOKUMENTART) TBDD_DOKUMENTARTTableAdapter.Update(MyDataset.TBDD_DOKUMENTART)
MaybeDisableUserAndEmailTabs()
If IsInsert = True Then If IsInsert = True Then
Dim oNewID As Integer Dim oNewID As Integer
@ -336,13 +351,19 @@ Public Class frmAdministration
If DOKART_GUIDTextBox.Text <> "" Then If DOKART_GUIDTextBox.Text <> "" Then
Load_Dokart() Load_Dokart()
'Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text) 'Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
Load_ZuordnungDokart_Module(DOKART_GUIDTextBox.Text) If DOKART_GUIDTextBox.Text <> String.Empty Then
Load_ZuordnungDokart_Module(DOKART_GUIDTextBox.Text)
End If
If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
btnSQLView.Visible = True btnSQLView.Visible = True
Else Else
btnSQLView.Visible = False btnSQLView.Visible = False
End If End If
Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text) If DOKART_GUIDTextBox.Text <> String.Empty Then
Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
End If
End If End If
frmloaded = True frmloaded = True
WM_CHECKED_CHANGE() WM_CHECKED_CHANGE()
@ -1076,7 +1097,7 @@ Public Class frmAdministration
Dim del As String = " EXEC PRDD_GLOBIX_DELETE_DOCTYPE " & DOKART_GUIDTextBox.Text Dim del As String = " EXEC PRDD_GLOBIX_DELETE_DOCTYPE " & DOKART_GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then If ClassDatabase.Execute_non_Query(del, True) = True Then
Load_Dokart() Load_Dokart()
MaybeDisableUserAndEmailTabs()
If USER_LANGUAGE = "de-DE" Then If USER_LANGUAGE = "de-DE" Then
MsgBox("Das Profil wurde erfolgreich gelöscht!", MsgBoxStyle.Information) MsgBox("Das Profil wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
@ -1122,6 +1143,7 @@ Public Class frmAdministration
Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
LoadGlobix_Doctypes() LoadGlobix_Doctypes()
MaybeDisableUserAndEmailTabs()
End Sub End Sub
Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick