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

Zooflow: Improve frmServiceConfig, Init Errors Handling, Hide Backnavigation in Results

Browse Source
This commit is contained in:
Jonathan Jenne
2022-04-13 10:28:35 +02:00
parent 62748c9053
commit 711734bd12
13 changed files with 224 additions and 409 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
GUIs.ZooFlow/frmFlowForm.vb
View File

@@ -259,6 +259,7 @@ Public Class frmFlowForm
PictureBoxSearch.Visible = True
End If
Next
'If Not IsNothing(oDatatable) Then
' If oDatatable.Rows.Count > 0 Then
' IDBSearchActive = True
@@ -595,20 +596,6 @@ Public Class frmFlowForm
Return True
End Function
Private Sub DatenbankverbindungToolStripMenuItem1_Click(sender As Object, e As EventArgs)
Dim oForm As New frmSQLConfig(My.LogConfig) With {
.ConnectionString = My.SystemConfig.ConnectionString,
.FormTitle = "ECM Datenbank"
}
Dim oResult = oForm.ShowDialog()
If oResult = DialogResult.OK Then
My.SystemConfig.ConnectionString = oForm.ConnectionString
My.SystemConfigManager.Save()
End If
End Sub
Private Sub NotifyIcon_DoubleClick(sender As Object, e As EventArgs) Handles NotifyIcon.DoubleClick
If Visible = False Then
Visible = True
@@ -1153,7 +1140,8 @@ Public Class frmFlowForm
.WindowGuid = "QuickFlowSearch1",
.WindowTitle = GetResultWindowString(pSearchText),
.OperationModeOverride = DigitalData.Modules.ZooFlow.Constants.OperationMode.ZooFlow,
.ProfileGuid = 354521
.ProfileGuid = 354521,
.ShowBackNavigation = False
}
If Await My.Database.ExecuteNonQueryIDBAsync(oSQL) = True Then
@@ -1229,19 +1217,6 @@ Public Class frmFlowForm
frmServiceConfig.ShowDialog()
End Sub
Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs)
Dim oForm As New frmSQLConfig(My.LogConfig) With {
.ConnectionString = My.SystemConfig.ConnectionString,
.FormTitle = "ECM Datenbank"
}
Dim oResult = oForm.ShowDialog()
If oResult = DialogResult.OK Then
My.SystemConfig.ConnectionString = oForm.ConnectionString
My.SystemConfigManager.Save()
End If
End Sub
Private Async Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnBasicConfig.ItemClick
frmConfigBasic.ShowDialog()
Await ConfigureQuicksearch1(True)
@@ -1251,8 +1226,6 @@ Public Class frmFlowForm
frmGlobixBasicConfig.ShowDialog()
End Sub
Private Sub PictureBoxSearch_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseEnter
PictureBoxSearch.SvgImage = My.Resources.FLOW_Sidebar_Search_aktiv
End Sub