98 lines
4.0 KiB
VB.net
98 lines
4.0 KiB
VB.net
Imports DigitalData.Modules
|
|
|
|
Public Class frmConfigBasic
|
|
Private FormLoaded As Boolean = False
|
|
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
|
|
|
|
End Sub
|
|
|
|
Private Sub LoadScreens()
|
|
'cmbScreens.Properties.Items.Clear()
|
|
'For Each oScreen In Screen.AllScreens
|
|
' cmbScreens.Properties.Items.Add(oScreen.DeviceName)
|
|
'Next
|
|
End Sub
|
|
|
|
Private Sub cmbScreens_SelectedValueChanged(sender As Object, e As EventArgs)
|
|
'My.UIConfig.SidebarScreen = cmbScreens.EditValue
|
|
My.UIConfigManager.Save()
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
|
|
Process.Start(My.LogConfig.LogDirectory)
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
|
|
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"
|
|
My.LogConfig.Debug = True
|
|
Else
|
|
CheckButtonDEBUG.Text = "DEBUG not active"
|
|
My.LogConfig.Debug = False
|
|
End If
|
|
My.UIConfigManager.Save()
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
|
|
Try
|
|
Dim oUpd = "UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '', CAT_STRING = "
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub frmConfigBasic_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
|
FormLoaded = True
|
|
End Sub
|
|
|
|
Private Sub Quicksearch1CB_Pos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Quicksearch1CB_Pos.SelectedIndexChanged
|
|
If FormLoaded = False Then
|
|
Exit Sub
|
|
End If
|
|
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
|
|
bsiInfo.Caption = "Position Quicksearch1 saved!"
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Quicksearch1TitleTextBox_Leave(sender As Object, e As EventArgs) Handles Quicksearch1TitleTextBox.Leave
|
|
If FormLoaded = False Then
|
|
Exit Sub
|
|
End If
|
|
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
|
|
bsiInfo.Caption = "Title Quicksearch1 saved!"
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
End Class |