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

Zooflow: Replace old Usermenu, waiting overlay for search and globix

Browse Source
This commit is contained in:
Jonathan Jenne
2022-02-21 16:41:11 +01:00
parent 77597f0ef2
commit 227bd7cf1b
25 changed files with 685 additions and 586 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
GUIs.ZooFlow/frmConfigBasic.vb
View File

@@ -1,20 +1,29 @@
Imports DigitalData.Modules
Imports DigitalData.Modules.Language
Imports DigitalData.Modules.Logging
Public Class frmConfigBasic
Private FormLoaded As Boolean = False
Private Logger As Logger
Private Sub frmConfigBasic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
LoadScreens()
CheckButtonDEBUG.Checked = My.LogConfig.Debug
For Each orow As DataRow In My.Tables.DTIDB_CATALOG_USER.Rows
If orow.Item("CAT_TITLE") = "QUICKSEARCH1_TITLE" Then
Quicksearch1TitleTextBox.Text = orow.Item("CAT_STRING")
Quicksearch1TitleTextBox.Tag = orow.Item("GUID")
ElseIf orow.Item("CAT_TITLE") = "QUICKSEARCH1_POS" Then
Quicksearch1CB_Pos.EditValue = orow.Item("CAT_STRING")
Quicksearch1CB_Pos.Tag = orow.Item("GUID")
End If
Next
Select Case orow.Item("CAT_TITLE")
Case ClassConstants.USER_CATALOG_QUICKSEARCH1_TITLE
Quicksearch1TitleTextBox.Text = orow.Item("CAT_STRING")
Quicksearch1TitleTextBox.Tag = orow.Item("GUID")
Case ClassConstants.USER_CATALOG_QUICKSEARCH1_POS
Quicksearch1CB_Pos.EditValue = orow.Item("CAT_STRING")
Quicksearch1CB_Pos.Tag = orow.Item("GUID")
Case ClassConstants.USER_CATALOG_APPLICATION_THEME
Dim oItem = SkinPaletteRibbonGalleryBarItem1.Gallery.GetAllItems().
Where(Function(item) item.Value = orow.ItemEx("CAT_STRING", String.Empty)).
FirstOrDefault()
SkinPaletteRibbonGalleryBarItem1.Gallery.SetItemCheck(oItem, True)
End Select
Next
End Sub
Private Sub LoadScreens()
@@ -37,10 +46,6 @@ Public Class frmConfigBasic
Process.Start(System.Windows.Forms.Application.LocalUserAppDataPath)
End Sub
Private Sub CheckButtonDEBUG_Click(sender As Object, e As EventArgs) Handles CheckButtonDEBUG.Click
End Sub
Private Sub CheckButtonDEBUG_CheckedChanged(sender As Object, e As EventArgs) Handles CheckButtonDEBUG.CheckedChanged
If CheckButtonDEBUG.Checked Then
CheckButtonDEBUG.Text = "DEBUG is active"
@@ -60,8 +65,6 @@ Public Class frmConfigBasic
End Try
End Sub
Private Sub frmConfigBasic_Shown(sender As Object, e As EventArgs) Handles Me.Shown
FormLoaded = True
End Sub
@@ -73,7 +76,7 @@ Public Class frmConfigBasic
Try
Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = '{Quicksearch1CB_Pos.EditValue}'
WHERE GUID = {Quicksearch1CB_Pos.Tag}"
If My.Database.ExecuteNonQuery(oUpd, EDMI.API.Constants.DatabaseType.IDB) = True Then
If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then
bsiInfo.Caption = "Position Quicksearch1 saved!"
End If
Catch ex As Exception
@@ -88,11 +91,25 @@ Public Class frmConfigBasic
Try
Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = '{Quicksearch1TitleTextBox.Text}'
WHERE GUID = {Quicksearch1TitleTextBox.Tag}"
If My.Database.ExecuteNonQuery(oUpd, EDMI.API.Constants.DatabaseType.IDB) = True Then
If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then
bsiInfo.Caption = "Title Quicksearch1 saved!"
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub SkinPaletteRibbonGalleryBarItem1_GalleryItemClick(sender As Object, e As DevExpress.XtraBars.Ribbon.GalleryItemClickEventArgs) Handles SkinPaletteRibbonGalleryBarItem1.GalleryItemClick
Dim oName = e.Item.Value
Try
Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = '{oName}'
WHERE CAT_TITLE = '{ClassConstants.USER_CATALOG_APPLICATION_THEME}'"
If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then
bsiInfo.Caption = "Application Theme saved!"
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, Text)
End Try
End Sub
End Class