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

smol changes, typo

Browse Source
This commit is contained in:
Jonathan Jenne
2020-06-10 13:51:53 +02:00
parent 3277bbe087
commit b6d1b240f7
2 changed files with 101 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
app/DD_Clipboard_Searcher/frmAdministration.vb
View File

@@ -55,15 +55,6 @@ Public Class frmAdministration
' Select first tab to prevent profile textbox from being empty
XtraTabControl3.SelectedTabPageIndex = 0
ComboBoxEdit3.Properties.Items.Clear()
ComboBoxEdit4.Properties.Items.Clear()
ComboBoxEdit5.Properties.Items.Clear()
ComboBoxEdit6.Properties.Items.Clear()
ComboBoxEdit3.Properties.Items.AddRange(GetPlaceholders())
ComboBoxEdit4.Properties.Items.AddRange(GetPlaceholders())
ComboBoxEdit5.Properties.Items.AddRange(GetPlaceholders())
ComboBoxEdit6.Properties.Items.AddRange(GetPlaceholders())
_DragDrop = New ClassDragDrop()
_DragDrop.AddGridView(GridViewGroupInProfile)
_DragDrop.AddGridView(GridViewGroupNotInProfile)
@@ -74,6 +65,7 @@ Public Class frmAdministration
Load_ProfileTypes()
Load_SearchPositions()
Load_Connections()
Load_Placeholders()
End Sub
Private Sub TBCW_PROFILESBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
@@ -81,7 +73,7 @@ Public Class frmAdministration
ClassInit.Refresh_Profile_Links()
TableAdapterManager.UpdateAll(MyDataset)
End Sub
Sub Load_Profiles()
Private Sub Load_Profiles()
Try
TBCW_PROFILESTableAdapter.Connection.ConnectionString = MyConnectionString
TBCW_PROFILESTableAdapter.Fill(Me.MyDataset.TBCW_PROFILES)
@@ -90,11 +82,11 @@ Public Class frmAdministration
End Try
End Sub
Sub Load_SearchPositions()
Private Sub Load_SearchPositions()
Dim oTypeNames As New Dictionary(Of Integer, String) From {
{ClassConstants.SEARCH_POSITION_PRIMARY, "Haupttabelle"},
{ClassConstants.SEARCH_POSITION_SECONDARY, "Erste Detailtablle"},
{ClassConstants.SEARCH_POSITION_TERTIARY, "Zweite Detailtablle"}
{ClassConstants.SEARCH_POSITION_SECONDARY, "Erste Detailtabelle"},
{ClassConstants.SEARCH_POSITION_TERTIARY, "Zweite Detailtabelle"}
}
MyDataset.TBWH_SEARCH_POSITION.Rows.Clear()
@@ -106,7 +98,7 @@ Public Class frmAdministration
Next
End Sub
Sub Load_ProfileTypes()
Private Sub Load_ProfileTypes()
Dim oTypeNames As New Dictionary(Of Integer, String) From {
{ClassConstants.PROFILE_TYPE_DATA_DOCS, "Dokumente und Daten"},
{ClassConstants.PROFILE_TYPE_DOCS_ONLY, "Nur Dokumente"},
@@ -122,6 +114,17 @@ Public Class frmAdministration
Next
End Sub
Private Sub Load_Placeholders()
ComboBoxEdit3.Properties.Items.Clear()
ComboBoxEdit4.Properties.Items.Clear()
ComboBoxEdit5.Properties.Items.Clear()
ComboBoxEdit6.Properties.Items.Clear()
ComboBoxEdit3.Properties.Items.AddRange(GetPlaceholders())
ComboBoxEdit4.Properties.Items.AddRange(GetPlaceholders())
ComboBoxEdit5.Properties.Items.AddRange(GetPlaceholders())
ComboBoxEdit6.Properties.Items.AddRange(GetPlaceholders())
End Sub
Public Sub Load_Connections()
Try
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
@@ -159,7 +162,8 @@ Public Class frmAdministration
MyDataset.TBCW_PROFILES.REGEX_EXPRESSIONColumn.DefaultValue = ".+"
MyDataset.TBCW_PROFILES.ACTIVEColumn.DefaultValue = True
XtraTabControl3.SelectedTabPage = TabPageGeneralSettings
XtraTabControl3.SelectedTabPage = TabPageProfileManagement
XtraTabControl1.SelectedTabPage = TabPageGeneralSettings
End Sub
Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles PROFILE_IDTextBox.TextChanged
@@ -321,22 +325,29 @@ Public Class frmAdministration
End Sub
Private Sub TBCW_PROF_DATA_SEARCHBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROF_DATA_SEARCHBindingSource.AddingNew
MyDataset.TBCW_PROF_DATA_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBCW_PROF_DATA_SEARCH.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text
MyDataset.TBCW_PROF_DATA_SEARCH.CONN_IDColumn.DefaultValue = 1
MyDataset.TBCW_PROF_DATA_SEARCH.ACTIVEColumn.DefaultValue = True
If PROFILE_IDTextBox.Text <> String.Empty Then
MyDataset.TBCW_PROF_DATA_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBCW_PROF_DATA_SEARCH.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text
MyDataset.TBCW_PROF_DATA_SEARCH.CONN_IDColumn.DefaultValue = 1
MyDataset.TBCW_PROF_DATA_SEARCH.ACTIVEColumn.DefaultValue = True
LayoutControlData.Enabled = True
LayoutControlData.Enabled = True
Else
MsgBox("Es ist kein Profil ausgewählt! Bitte wählen Sie ein Profil aus der Liste links", MsgBoxStyle.Critical, Text)
End If
End Sub
Private Sub TBCW_PROF_DOC_SEARCHBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROF_DOC_SEARCHBindingSource.AddingNew
If PROFILE_IDTextBox.Text <> String.Empty Then
MyDataset.TBCW_PROF_DOC_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBCW_PROF_DOC_SEARCH.ACTIVEColumn.DefaultValue = True
MyDataset.TBCW_PROF_DOC_SEARCH.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text
MyDataset.TBCW_PROF_DOC_SEARCH.CONN_IDColumn.DefaultValue = 1
MyDataset.TBCW_PROF_DOC_SEARCH.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBCW_PROF_DOC_SEARCH.ACTIVEColumn.DefaultValue = True
MyDataset.TBCW_PROF_DOC_SEARCH.PROFILE_IDColumn.DefaultValue = PROFILE_IDTextBox.Text
MyDataset.TBCW_PROF_DOC_SEARCH.CONN_IDColumn.DefaultValue = 1
LayoutControlDocs.Enabled = True
LayoutControlDocs.Enabled = True
Else
MsgBox("Es ist kein Profil ausgewählt! Bitte wählen Sie ein Profil aus der Liste links", MsgBoxStyle.Critical, Text)
End If
End Sub
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs)