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

ZooFlow: Update Zooflow Form, Globix Tweaks

Browse Source
This commit is contained in:
Jonathan Jenne
2021-06-17 13:12:12 +02:00
parent 2529c30726
commit c558df75a9
13 changed files with 714 additions and 637 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
GUIs.ZooFlow/Globix/frmGlobixAdministration.vb
View File

@@ -27,6 +27,16 @@ Public Class frmGlobixAdministration
Private GroupToDelete As Integer = Nothing
Dim frmloaded As Boolean = False
Public Class FileConflictOption
Public Name As String
Public Value As String
Public Overrides Function ToString() As String
Return Name
End Function
End Class
Private Sub frmGlobixAdministration_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
Me.TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.Database.CurrentSQLConnectionString
@@ -52,15 +62,11 @@ Public Class frmGlobixAdministration
'oDragDropManager.AddGridView(viewAssignedUsers)
'oDragDropManager.AddGridView(viewAvailableUsers)
Dim oDatatable As New DataTable()
oDatatable.Columns.Add("VALUE_TEXT")
oDatatable.Columns.Add("DISPLAY_TEXT")
oDatatable.Rows.Add("Default", "Datei Überschreiben")
oDatatable.Rows.Add("New version", "Neue Version erstellen")
oDatatable.Rows.Add("Question", "Nachfragen")
ComboBox3.DataSource = oDatatable
ComboBoxEdit1.Properties.Items.AddRange({
New FileConflictOption With {.Name = "Datei Überschreiben", .Value = "Default"},
New FileConflictOption With {.Name = "Neue Version erstellen", .Value = "New version"},
New FileConflictOption With {.Name = "Nachfragen", .Value = "Question"}
})
Try
@@ -109,14 +115,10 @@ Public Class frmGlobixAdministration
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))
Me.TBDD_INDEX_MANTableAdapter.Fill(Me.GlobixDataset.TBDD_INDEX_MAN, CType(ProfileGUID.Text, Integer))
If GlobixDataset.TBDD_INDEX_MAN.Rows.Count > 0 Then
EnableControls(XtraTabPageManIndexe)
End If
@@ -145,7 +147,7 @@ Public Class frmGlobixAdministration
Case XtraTabPageManIndexe.Name
RibbonPageGroupManualIndex.Enabled = True
If DokartGUIDTextBox.Text <> "" Then
If ProfileGUID.Text <> "" Then
' Load_INDEXMAN(Me.DokartGUIDTextBox.Text)
End If
Case XtraTabPageRework.Name
@@ -153,7 +155,7 @@ Public Class frmGlobixAdministration
'Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
Case XtraTabPageAutoIndexe.Name
Load_INDEXE_AUTO(CType(DokartGUIDTextBox.Text, Integer))
Load_INDEXE_AUTO(CType(ProfileGUID.Text, Integer))
RibbonPageGroupAutoIndex.Enabled = True
'Case XtraTabPageFolderPath.Name
@@ -173,7 +175,7 @@ Public Class frmGlobixAdministration
Private Sub Load_INDEXE_AUTO(ProfileId As Integer)
Try
Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.GlobixDataset.TBDD_INDEX_AUTOM, CType(DokartGUIDTextBox.Text, Integer))
Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.GlobixDataset.TBDD_INDEX_AUTOM, CType(ProfileGUID.Text, Integer))
If GlobixDataset.TBDD_INDEX_AUTOM.Rows.Count > 0 Then
EnableControls(XtraTabPageAutoIndexe)
End If
@@ -192,7 +194,7 @@ Public Class frmGlobixAdministration
Next
End Sub
Private Sub Root_Click(sender As Object, e As EventArgs) Handles ControlGroupProfile.Click, ControlGroupIndexeMan.Click, ControlGroupIndexeAuto.Click
Private Sub Root_Click(sender As Object, e As EventArgs) Handles ControlGroupIndexeMan.Click, ControlGroupIndexeAuto.Click
CURRCOntrolGroup = sender
Select Case CURRCOntrolGroup.Name
@@ -208,4 +210,12 @@ Public Class frmGlobixAdministration
Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
Throw New NotImplementedException()
End Function
Private Sub BtnDateinamenKonvention_Click(sender As Object, e As EventArgs)
End Sub
Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick
End Sub
End Class