Zooflow: Reorganize administration, prepare for user admin section
This commit is contained in:
Jonathan Jenne
625
GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb
Normal file
625
GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb
Normal file
@@ -0,0 +1,625 @@
|
||||
Imports System.Text.RegularExpressions
|
||||
Imports DevExpress.XtraLayout
|
||||
Imports DigitalData.Modules.Logging
|
||||
|
||||
Public Class frmAdmin_Globix
|
||||
Implements IAdminForm
|
||||
Public Property HasChanges As Boolean = False Implements IAdminForm.HasChanges
|
||||
Public Property IsInsert As Boolean = False Implements IAdminForm.IsInsert
|
||||
Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
|
||||
Public Property GlobixHelper As ClassGIDatatables
|
||||
|
||||
Private Pages As ClassDetailPages
|
||||
Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
Me.PrimaryKey = PrimaryKey
|
||||
Me.IsInsert = IsInsert
|
||||
Me.GlobixHelper = New ClassGIDatatables(My.LogConfig)
|
||||
End Sub
|
||||
|
||||
Private Sub frmAdmin_Globix_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
InitializeBaseForm(My.LogConfig)
|
||||
Try
|
||||
TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
|
||||
TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey)
|
||||
TBDD_INDEX_MANTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
|
||||
Me.TBGI_REGEX_DOCTYPETableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
|
||||
Me.VWIDB_OBJECT_STORETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
|
||||
Me.VWIDB_OBJECT_STORETableAdapter.Fill(Me.DSIDB_Stammdaten.VWIDB_OBJECT_STORE)
|
||||
Me.VWIDB_BE_ATTRIBUTETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
|
||||
Try
|
||||
Me.VWIDB_BE_ATTRIBUTETableAdapter.Fill(Me.DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, My.Application.User.Language)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error loading VWIDB_BE_ATTRIBUTE")
|
||||
End Try
|
||||
|
||||
Load_TabData()
|
||||
|
||||
' Add Focus Handler to all controls in all LayoutControls
|
||||
Dim oLayoutControls = New List(Of LayoutControl) From {LayoutControlProfile, LayoutControlManIndexe, LayoutControlAutoIndexe, LayoutControlRework}
|
||||
Pages = New ClassDetailPages(My.LogConfig, Me, oLayoutControls)
|
||||
Pages.AddRange({
|
||||
New ClassDetailPages.PrimaryPage(IsInsert) With {
|
||||
.Name = "Profile Globix",
|
||||
.TabPage = XtraTabPageProfile,
|
||||
.BindingSource = TBDD_DOKUMENTARTBindingSource,
|
||||
.DataTable = GlobixDataset.TBDD_DOKUMENTART,
|
||||
.AddedWhoEdit = TextEditErstelltWer,
|
||||
.ChangedWhoEdit = TextEditGeandertWer
|
||||
},
|
||||
New ClassDetailPages.DetailPage With {
|
||||
.Name = "Manual Attributes",
|
||||
.TabPage = XtraTabPageManIndexe,
|
||||
.BindingSource = TBDD_INDEX_MANBindingSource,
|
||||
.DataTable = GlobixDataset.TBDD_INDEX_MAN,
|
||||
.AddedWhoEdit = TextEditAddedWho_ManIndex,
|
||||
.ChangedWhoEdit = TextEditChangedWho_ManIndex
|
||||
},
|
||||
New ClassDetailPages.DetailPage With {
|
||||
.Name = "Auto Attributes",
|
||||
.TabPage = XtraTabPageAutoIndexe,
|
||||
.BindingSource = TBDD_INDEX_AUTOMBindingSource,
|
||||
.DataTable = GlobixDataset.TBDD_INDEX_AUTOM,
|
||||
.AddedWhoEdit = ADDED_WHOTextBoxAutoAttribut,
|
||||
.ChangedWhoEdit = CHANGED_WHOTextEditAutoAttribut
|
||||
},
|
||||
New ClassDetailPages.DetailPage With {
|
||||
.Name = "Auto Attributes",
|
||||
.TabPage = XtraTabPageAutoSelect,
|
||||
.BindingSource = TBGI_REGEX_DOCTYPEBindingSource,
|
||||
.DataTable = GlobixDataset.TBGI_REGEX_DOCTYPE,
|
||||
.AddedWhoEdit = AddedWhoAutoSelect,
|
||||
.ChangedWhoEdit = ChangedWhoAutoSelect
|
||||
},
|
||||
New ClassDetailPages.DetailPage With {
|
||||
.Name = "Dynamic Folder",
|
||||
.TabPage = XtraTabPageDynamicFolder,
|
||||
.BindingSource = TBDD_DOKUMENTARTBindingSource,
|
||||
.DataTable = GlobixDataset.TBDD_DOKUMENTART,
|
||||
.AddedWhoEdit = TextEditErstelltWer,
|
||||
.ChangedWhoEdit = TextEditGeandertWer
|
||||
}
|
||||
})
|
||||
|
||||
Pages.PrepareLoad()
|
||||
AddHandler Pages.CurrentPage_Changed, AddressOf CurrentPage_Changed
|
||||
If IsInsert Then
|
||||
TextEditErstelltWer.EditValue = My.Application.User.UserName
|
||||
Else
|
||||
TextEditChangedWho_ManIndex.EditValue = My.Application.User.UserName
|
||||
End If
|
||||
Dim oDragDropManager As New ClassDragDrop(My.LogConfig)
|
||||
oDragDropManager.AddGridView(viewAssignedGroups)
|
||||
oDragDropManager.AddGridView(viewAvailableGroups)
|
||||
oDragDropManager.AddGridView(viewAssignedUsers)
|
||||
oDragDropManager.AddGridView(viewAvailableUsers)
|
||||
Catch ex As Exception
|
||||
ShowErrorMessage(ex)
|
||||
End Try
|
||||
End Sub
|
||||
Sub Load_TabData()
|
||||
Load_INDEXMAN()
|
||||
Load_Attribute_Auto()
|
||||
End Sub
|
||||
Private Sub Load_INDEXMAN()
|
||||
Try
|
||||
Me.TBDD_INDEX_MANTableAdapter.Fill(Me.GlobixDataset.TBDD_INDEX_MAN, PrimaryKey)
|
||||
|
||||
Catch ex As System.Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load IndexeManuell: ")
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub CurrentPage_Changed(sender As Object, e As ClassDetailPages.DetailPageEventArgs)
|
||||
If Not IsNothing(e.Page) Then
|
||||
If e.Page.IsPrimary = True Then
|
||||
BarButtonNew.Enabled = False
|
||||
Else
|
||||
BarButtonNew.Enabled = True
|
||||
End If
|
||||
|
||||
RibbonPageGroup1.Text = e.Page.Name
|
||||
End If
|
||||
End Sub
|
||||
Private Sub ResetMessages()
|
||||
labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
|
||||
End Sub
|
||||
|
||||
Private Sub ShowStatus(Message As String)
|
||||
labelStatus.Caption = Message
|
||||
labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
Private Sub SimpleButton2_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
Private Sub BarButtonSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonSave.ItemClick
|
||||
ResetMessages()
|
||||
|
||||
' If Pages.PrepareSave() = True Then
|
||||
Try
|
||||
Dim oPage = Pages.Current
|
||||
|
||||
Select Case oPage.TabPage.Name
|
||||
Case XtraTabPageProfile.Name
|
||||
If IsInsert Then
|
||||
Insert_Doctype()
|
||||
Else
|
||||
Update_Doctype()
|
||||
End If
|
||||
|
||||
|
||||
Case XtraTabPageManIndexe.Name
|
||||
Try
|
||||
Save_manIndexe(oPage)
|
||||
Load_INDEXMAN()
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Case XtraTabPageAutoIndexe.Name
|
||||
Save_AutoIndexe(oPage)
|
||||
Load_Attribute_Auto()
|
||||
Case XtraTabPageAutoSelect.Name
|
||||
Save_AutoSelect(oPage)
|
||||
Case XtraTabPageDynamicFolder.Name
|
||||
Update_Doctype()
|
||||
End Select
|
||||
|
||||
oPage.IsInsert = False
|
||||
|
||||
ShowStatus($"{oPage.Name} saved!")
|
||||
Catch ex As Exception
|
||||
ShowErrorMessage(ex)
|
||||
End Try
|
||||
'Else
|
||||
' ShowStatus("Keine Änderungen!")
|
||||
'End If
|
||||
End Sub
|
||||
Private Function Save_manIndexe(oPage As ClassDetailPages.DetailPage) As Boolean
|
||||
Try
|
||||
TBDD_INDEX_MANBindingSource.EndEdit()
|
||||
If GlobixDataset.TBDD_INDEX_MAN.GetChanges() IsNot Nothing Then
|
||||
If Pages.Current.IsInsert Then
|
||||
TextEditAddedWho_ManIndex.Text = My.Application.User.UserName
|
||||
Else
|
||||
TextEditChangedWho_ManIndex.Text = My.Application.User.UserName
|
||||
End If
|
||||
TBDD_INDEX_MANBindingSource.EndEdit()
|
||||
TBDD_INDEX_MANTableAdapter.Update(Pages.Current.DataTable)
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
Private Function Save_AutoIndexe(oPage As ClassDetailPages.DetailPage) As Boolean
|
||||
Try
|
||||
TBDD_INDEX_AUTOMBindingSource.EndEdit()
|
||||
If GlobixDataset.TBDD_INDEX_AUTOM.GetChanges() IsNot Nothing Then
|
||||
If Pages.Current.IsInsert Then
|
||||
TextEditAddedWho_ManIndex.Text = My.Application.User.UserName
|
||||
Else
|
||||
TextEditChangedWho_ManIndex.Text = My.Application.User.UserName
|
||||
End If
|
||||
TBDD_INDEX_AUTOMBindingSource.EndEdit()
|
||||
TBDD_INDEX_AUTOMTableAdapter.Update(Pages.Current.DataTable)
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
Private Function Save_AutoSelect(oPage As ClassDetailPages.DetailPage) As Boolean
|
||||
Try
|
||||
TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
|
||||
If GlobixDataset.TBGI_REGEX_DOCTYPE.GetChanges() IsNot Nothing Then
|
||||
If Pages.Current.IsInsert Then
|
||||
AddedWhoAutoSelect.Text = My.Application.User.UserName
|
||||
Else
|
||||
ChangedWhoAutoSelect.Text = My.Application.User.UserName
|
||||
End If
|
||||
TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
|
||||
TBGI_REGEX_DOCTYPETableAdapter.Update(Pages.Current.DataTable)
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
Private Function Insert_Doctype() As Boolean
|
||||
Try
|
||||
Dim oIns = $"INSERT INTO [TBDD_DOKUMENTART] ([BEZEICHNUNG] ,[OBJEKTTYP] ,[EINGANGSART_ID] ,[KURZNAME] ,[ZIEL_PFAD] ,[BESCHREIBUNG]
|
||||
,[WINDREAM_DIRECT] ,[FOLDER_FOR_INDEX] ,[DUPLICATE_HANDLING],[AKTIV],[LANGUAGE],
|
||||
[SEQUENCE],[NAMENKONVENTION],[ERSTELLTWER],IDB_OBJECT_STORE_ID) VALUES
|
||||
('{TextEditBezeichnung.Text}','IDB_DRIVEN',1,'{TextEditKurzname.Text}','IDB_STORE','{TextEditBeschreibung.Text}'
|
||||
,'False','{FOLDER_FOR_INDEXTextEdit.Text}','{ComboBoxEditDupl_handling.EditValue}' ,'{AKTIVCheckBox.Checked}','{My.Application.User.Language}'
|
||||
, {SEQUENCENumericUpDown.Value},'{TextEditNamenkonvention.Text}','{My.Application.User.UserName}',{IDB_OBJECT_STORE_IDComboBox.SelectedValue})"
|
||||
If My.DatabaseECM.ExecuteNonQuery(oIns) = True Then
|
||||
Dim oSQL = $"SELECT GUID FROM TBDD_DOKUMENTART WHERE BEZEICHNUNG = '{TextEditBezeichnung.Text}'"
|
||||
PrimaryKey = My.DatabaseECM.GetScalarValue(oSQL)
|
||||
oSQL = $"INSERT INTO TBDD_DOKUMENTART_MODULE (DOKART_ID,MODULE_ID) VALUES ({PrimaryKey},(SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'GLOBIX'))"
|
||||
My.DatabaseECM.ExecuteNonQuery(oSQL)
|
||||
IsInsert = False
|
||||
TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey)
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ShowErrorMessage(ex)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
Private Function Update_Doctype() As Boolean
|
||||
Try
|
||||
Dim oUpd = $"UPDATE TBDD_DOKUMENTART SET [BEZEICHNUNG] = '{TextEditBezeichnung.Text}' ,[KURZNAME] = '{TextEditKurzname.Text}' ,[BESCHREIBUNG] = '{TextEditBeschreibung.Text}'
|
||||
,[DUPLICATE_HANDLING] = '{ComboBoxEditDupl_handling.EditValue}',[AKTIV] = '{AKTIVCheckBox.Checked}',[SEQUENCE] = {SEQUENCENumericUpDown.Value}
|
||||
,[NAMENKONVENTION] = '{TextEditNamenkonvention.Text}', [FOLDER_FOR_INDEX] = '{FOLDER_FOR_INDEXTextEdit.Text}',[GEANDERTWER] = '{My.Application.User.UserName}',IDB_OBJECT_STORE_ID = {IDB_OBJECT_STORE_IDComboBox.SelectedValue} WHERE GUID = {TextEditDoctypeID.Text}"
|
||||
|
||||
Return My.DatabaseECM.ExecuteNonQuery(oUpd)
|
||||
|
||||
Catch ex As Exception
|
||||
ShowErrorMessage(ex)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
Private Sub BarButtonNew_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonNew.ItemClick
|
||||
Pages.Current.IsInsert = True
|
||||
|
||||
AddData()
|
||||
End Sub
|
||||
Public Function AddData() As Boolean
|
||||
Dim oPage = Pages.Current
|
||||
|
||||
If Pages.Current Is Nothing Then
|
||||
Return False
|
||||
End If
|
||||
|
||||
If oPage.IsPrimary = False Then
|
||||
Select Case oPage.TabPage.Name
|
||||
Case XtraTabPageAutoIndexe.Name
|
||||
oPage.DataTable.Columns.Item("DOCTYPE_ID").DefaultValue = PrimaryKey
|
||||
Case XtraTabPageAutoSelect.Name
|
||||
oPage.DataTable.Columns.Item("DOCTYPE_ID").DefaultValue = PrimaryKey
|
||||
Case Else
|
||||
oPage.DataTable.Columns.Item("DOK_ID").DefaultValue = PrimaryKey
|
||||
End Select
|
||||
|
||||
oPage.DataTable.Columns.Item("ADDED_WHO").DefaultValue = My.Application.User.UserName
|
||||
End If
|
||||
|
||||
Select Case oPage.TabPage.Name
|
||||
Case XtraTabPageProfile.Name
|
||||
Case XtraTabPageManIndexe.Name
|
||||
TextEditAddedWho_ManIndex.Text = My.Application.User.UserName
|
||||
Case XtraTabPageAutoIndexe.Name
|
||||
ADDED_WHOTextBoxAutoAttribut.Text = My.Application.User.UserName
|
||||
Case XtraTabPageAutoSelect.Name
|
||||
|
||||
End Select
|
||||
|
||||
Dim oNewRecord As DataRowView = oPage.BindingSource.AddNew()
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Private Sub btneditSQLmanIndex_Click(sender As Object, e As EventArgs) Handles btneditSQLmanIndex.Click
|
||||
If Save_manIndexe(Pages.Current) = True Then
|
||||
Dim oSQLbefore = SQL_RESULTTextBox.Text
|
||||
Dim oForm As New frmSQLDesigner() With {.SQLCommand = SQL_RESULTTextBox.Text, .DesignType = "GI_ATTRIBUTE_MAN", .ConnectionID = CONNECTION_IDTextBox.Text}
|
||||
Dim oResult = oForm.ShowDialog()
|
||||
If oSQLbefore <> oForm.SQLCommand Then
|
||||
CONNECTION_IDTextBox.Text = oForm.ConnectionID
|
||||
SQL_RESULTTextBox.Text = oForm.SQLCommand
|
||||
'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@SQL_RESULT").Value = oForm.SQLCommand
|
||||
'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@CONNECTION_ID").Value = oForm.ConnectionID
|
||||
TextEditChangedWho_ManIndex.Text = My.Application.User.UserName
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub SimpleButtonNameconvention_Click(sender As Object, e As EventArgs) Handles SimpleButtonNameconvention.Click
|
||||
|
||||
Dim oForm As New frmGlobixNameconvention() With {.Nameconvention = TextEditNamenkonvention.Text, .DoctypeID = TextEditDoctypeID.Text}
|
||||
Dim oResult = oForm.ShowDialog()
|
||||
TextEditNamenkonvention.Text = oForm.Nameconvention
|
||||
End Sub
|
||||
|
||||
Private Sub Load_Attribute_Auto()
|
||||
Try
|
||||
If Not IsNumeric(TextEditDoctypeID.Text) Then
|
||||
Exit Sub
|
||||
End If
|
||||
Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.GlobixDataset.TBDD_INDEX_AUTOM, TextEditDoctypeID.Text)
|
||||
Catch ex As System.Exception
|
||||
System.Windows.Forms.MessageBox.Show(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Private Sub Load_AutoSelect()
|
||||
Try
|
||||
Me.TBGI_REGEX_DOCTYPETableAdapter.Fill(Me.GlobixDataset.TBGI_REGEX_DOCTYPE, TextEditDoctypeID.Text)
|
||||
Catch ex As System.Exception
|
||||
System.Windows.Forms.MessageBox.Show(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Private Sub XtraTabControl2_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl2.SelectedPageChanged
|
||||
Dim oPage = Pages.GetDetailPage(e.Page)
|
||||
|
||||
If oPage IsNot Nothing Then
|
||||
Pages.Current = oPage
|
||||
Select Case oPage.TabPage.Name
|
||||
Case XtraTabPageAutoIndexe.Name
|
||||
Load_Attribute_Auto()
|
||||
Case XtraTabPageManIndexe.Name
|
||||
Load_INDEXMAN()
|
||||
Case XtraTabPageAutoSelect.Name
|
||||
Load_AutoSelect()
|
||||
Case XtraTabPageDynamicFolder.Name
|
||||
cmbAllAttributes.Items.Clear()
|
||||
For Each oRowMan As DataRow In Me.GlobixDataset.TBDD_INDEX_MAN.Rows
|
||||
cmbAllAttributes.Items.Add(oRowMan.Item("WD_INDEX"))
|
||||
Next
|
||||
For Each oRowMan As DataRow In Me.GlobixDataset.TBDD_INDEX_AUTOM.Rows
|
||||
cmbAllAttributes.Items.Add(oRowMan.Item("INDEXNAME"))
|
||||
Next
|
||||
End Select
|
||||
'Else
|
||||
' If XtraTabControl2.SelectedTabPageIndex = 3 Then
|
||||
' sd
|
||||
' End If
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub SimpleButton2_Click_1(sender As Object, e As EventArgs) Handles SimpleButton2.Click
|
||||
If Save_AutoIndexe(Pages.Current) = True Then
|
||||
Dim oSQLbefore = SQL_RESULTTextBox1.Text
|
||||
Dim oForm As New frmSQLDesigner() With {
|
||||
.SQLCommand = oSQLbefore, .DesignType = "GI_ATTRIBUTE_AUTO",
|
||||
.ConnectionID = CONNECTION_IDTextBox1.Text,
|
||||
.AutoAttributID = GUIDTextBoxAutoAttribute.Text
|
||||
}
|
||||
Dim oResult = oForm.ShowDialog()
|
||||
If oSQLbefore <> oForm.SQLCommand Then
|
||||
CONNECTION_IDTextBox1.Text = oForm.ConnectionID
|
||||
SQL_RESULTTextBox1.Text = oForm.SQLCommand
|
||||
'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@SQL_RESULT").Value = oForm.SQLCommand
|
||||
'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@CONNECTION_ID").Value = oForm.ConnectionID
|
||||
CHANGED_WHOTextEditAutoAttribut.Text = My.Application.User.UserName
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged
|
||||
Select Case XtraTabControl1.SelectedTabPageIndex
|
||||
Case 1
|
||||
gridAssignedGroups.DataSource = GlobixHelper.GetAssignedGroups(TextEditDoctypeID.Text)
|
||||
gridAvailableGroups.DataSource = GlobixHelper.GetAvailableGroups(TextEditDoctypeID.Text)
|
||||
gridAssignedUsers.DataSource = GlobixHelper.GetAssignedUsers(TextEditDoctypeID.Text)
|
||||
gridAvailableUsers.DataSource = GlobixHelper.GetAvailableUsers(TextEditDoctypeID.Text)
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub gridAssignedUsers_DragDrop(sender As Object, e As DragEventArgs) Handles gridAssignedUsers.DragDrop
|
||||
Try
|
||||
Dim data As String = e.Data.GetData(DataFormats.Text)
|
||||
Dim userId As Integer = data.Split("|")(0)
|
||||
Dim profileId As Integer = TextEditDoctypeID.Text
|
||||
|
||||
GlobixHelper.AddUserToProfile(userId, profileId)
|
||||
gridAssignedUsers.DataSource = GlobixHelper.GetAssignedUsers(profileId)
|
||||
gridAvailableUsers.DataSource = GlobixHelper.GetAvailableUsers(profileId)
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen eines Users:")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub gridAvailableUsers_DragDrop(sender As Object, e As DragEventArgs) Handles gridAvailableUsers.DragDrop
|
||||
Try
|
||||
Dim data As String = e.Data.GetData(DataFormats.Text)
|
||||
Dim userId As Integer = data.Split("|")(0)
|
||||
Dim profileId As Integer = TextEditDoctypeID.Text
|
||||
|
||||
GlobixHelper.RemoveUserFromProfile(userId, profileId)
|
||||
gridAssignedUsers.DataSource = GlobixHelper.GetAssignedUsers(profileId)
|
||||
gridAvailableUsers.DataSource = GlobixHelper.GetAvailableUsers(profileId)
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen eines Users:")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub gridAssignedGroups_DragDrop(sender As Object, e As DragEventArgs) Handles gridAssignedGroups.DragDrop
|
||||
Try
|
||||
Dim data As String = e.Data.GetData(DataFormats.Text)
|
||||
Dim groupId As Integer = data.Split("|")(0)
|
||||
Dim profileId As Integer = TextEditDoctypeID.Text
|
||||
|
||||
GlobixHelper.AddGroupToProfile(groupId, profileId)
|
||||
gridAssignedGroups.DataSource = GlobixHelper.GetAssignedGroups(profileId)
|
||||
gridAvailableGroups.DataSource = GlobixHelper.GetAvailableGroups(profileId)
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen einer Gruppe:")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub gridAvailableGroups_DragDrop(sender As Object, e As DragEventArgs) Handles gridAvailableGroups.DragDrop
|
||||
Try
|
||||
Dim data As String = e.Data.GetData(DataFormats.Text)
|
||||
Dim groupId As Integer = data.Split("|")(0)
|
||||
Dim profileId As Integer = TextEditDoctypeID.Text
|
||||
|
||||
GlobixHelper.RemoveGroupFromProfile(groupId, profileId)
|
||||
gridAssignedGroups.DataSource = GlobixHelper.GetAssignedGroups(profileId)
|
||||
gridAvailableGroups.DataSource = GlobixHelper.GetAvailableGroups(profileId)
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen einer Gruppe:")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
|
||||
If Not ComboBoxEditAAttrFileParam.SelectedItem Is Nothing Then
|
||||
If GUIDTextBoxAutoAttribute.Text <> "" Then
|
||||
Dim value As String
|
||||
Dim oPattern = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_FILE, ComboBoxEditAAttrFileParam.Text)
|
||||
'Select Case ComboBoxEditAAttrFileParam.SelectedIndex
|
||||
' Case 0 : value = "$filename_ext"
|
||||
' Case 1 : value = "$filename"
|
||||
' Case 2 : value = "$extension"
|
||||
' Case 3 : value = "$FileCreateDate"
|
||||
' Case 4 : value = "$FileCreatedWho"
|
||||
' Case 5 : value = "$DateDDMMYYY"
|
||||
' Case 6 : value = "$Username"
|
||||
' Case 7 : value = "$Usercode"
|
||||
'End Select
|
||||
|
||||
|
||||
VALUETextBox.Text = oPattern
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click
|
||||
Dim str As String
|
||||
If (FOLDER_FOR_INDEXTextEdit.Text = "") = False Then
|
||||
str = FOLDER_FOR_INDEXTextEdit.Text & "\"
|
||||
End If
|
||||
If cmbAllAttributes.SelectedIndex <> -1 Then
|
||||
|
||||
Dim oPattern As String
|
||||
If cmbAllAttributes.Text.EndsWith("#M") Then
|
||||
oPattern = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_MAN, cmbAllAttributes.Text)
|
||||
Else
|
||||
oPattern = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_AUTO, cmbAllAttributes.Text)
|
||||
End If
|
||||
Me.FOLDER_FOR_INDEXTextEdit.Text = str & oPattern
|
||||
cmbAllAttributes.SelectedIndex = -1
|
||||
ElseIf cmbCrFolderDate.SelectedIndex <> -1 Then
|
||||
Dim oPattern As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_INT, cmbCrFolderDate.Text)
|
||||
Me.FOLDER_FOR_INDEXTextEdit.Text = str & oPattern
|
||||
cmbCrFolderDate.SelectedIndex = -1
|
||||
ElseIf txtcrFoldermanuell.Text <> "" Then
|
||||
Me.FOLDER_FOR_INDEXTextEdit.Text = str & txtcrFoldermanuell.Text
|
||||
txtcrFoldermanuell.Text = ""
|
||||
End If
|
||||
Dim oPage = Pages.Current
|
||||
Save_AutoIndexe(oPage)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles SimpleButton4.Click
|
||||
Try
|
||||
If Regex.IsMatch(REGEXTextBox.Text, txtDateinameTest.Text) Then
|
||||
MsgBox("The RegEx resulted in a proper match!", MsgBoxStyle.Information, "Perfect:")
|
||||
Else
|
||||
MsgBox("No Match- There might be an error in the RegEx!", MsgBoxStyle.Information, "Something wrong:")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Testing Regex: ")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemDelete.ItemClick
|
||||
ResetMessages()
|
||||
|
||||
Dim result As MsgBoxResult
|
||||
|
||||
|
||||
Try
|
||||
Dim oPage = Pages.Current
|
||||
|
||||
Select Case oPage.TabPage.Name
|
||||
Case XtraTabPageProfile.Name
|
||||
If My.Application.User.Language = "de-DE" Then
|
||||
result = MessageBox.Show("Sind Sie sicher dass Sie das ausgewählte Profil löschen wollen?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
Else
|
||||
result = MessageBox.Show("Are you sure you want to delete the selected profile?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
End If
|
||||
|
||||
If result = MsgBoxResult.Yes Then
|
||||
Dim oSQL = $"EXEC PRDD_GLOBIX_DELETE_DOCTYPE {TextEditDoctypeID.Text}"
|
||||
If My.DatabaseECM.ExecuteNonQuery(oSQL) Then
|
||||
TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey)
|
||||
Load_TabData()
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Case XtraTabPageManIndexe.Name
|
||||
If My.Application.User.Language = "de-DE" Then
|
||||
result = MessageBox.Show("Sind Sie sicher dass Sie das ausgewählte manuelle Attribut löschen wollen?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
Else
|
||||
result = MessageBox.Show("Are you sure you want to delete this manual attribute?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
End If
|
||||
|
||||
If result = MsgBoxResult.Yes Then
|
||||
TBDD_INDEX_MANTableAdapter.Delete(GUIDTextBoxMANINDEX.Text)
|
||||
Load_INDEXMAN()
|
||||
End If
|
||||
|
||||
Case XtraTabPageAutoIndexe.Name
|
||||
If My.Application.User.Language = "de-DE" Then
|
||||
result = MessageBox.Show("Sind Sie sicher dass Sie das ausgewählte automatische Attribut löschen wollen?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
Else
|
||||
result = MessageBox.Show("Are you sure you want to delete the selected auto attribute?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
End If
|
||||
If result = MsgBoxResult.Yes Then
|
||||
TBDD_INDEX_AUTOMTableAdapter.Delete(GUIDTextBoxAutoAttribute.Text)
|
||||
Load_Attribute_Auto()
|
||||
End If
|
||||
|
||||
Case XtraTabPageAutoSelect.Name
|
||||
If My.Application.User.Language = "de-DE" Then
|
||||
result = MessageBox.Show("Sind Sie sicher dass Sie die ausgewählte Regex löschen wollen?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
Else
|
||||
result = MessageBox.Show("Are you sure you want to delete the selected regex?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
End If
|
||||
If result = MsgBoxResult.Yes Then
|
||||
TBGI_REGEX_DOCTYPETableAdapter.Delete(GUIDTextBoxAutoSelect.Text)
|
||||
Load_AutoSelect()
|
||||
End If
|
||||
|
||||
End Select
|
||||
|
||||
oPage.IsInsert = False
|
||||
|
||||
ShowStatus($"{oPage.Name} deleted!")
|
||||
Catch ex As Exception
|
||||
ShowErrorMessage(ex)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub SQL_ACTIVECheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SQL_ACTIVECheckBox.CheckedChanged
|
||||
If SQL_ACTIVECheckBox.Checked Then
|
||||
VALUETextBox.Text = String.Empty
|
||||
Else
|
||||
SQL_RESULTTextBox1.Text = String.Empty
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ListBoxAutoIndexe_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxAutoIndexe.SelectedIndexChanged
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user