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

add some constants for index types

Browse Source
This commit is contained in:
Jonathan Jenne 2021-09-23 12:06:24 +02:00
parent 59d6d26dce
commit 66039f22d8
4 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Global_Indexer/ClassConstants.vb
View File

@ -1,3 +1,7 @@
Public Class ClassConstants Public Class ClassConstants
Public Const VECTORSEPARATOR = "╚" Public Const VECTORSEPARATOR = "╚"
Public Const INDEX_TYPE_BOOLEAN = "BOOLEAN"
Public Const INDEX_TYPE_INTEGER = "INTEGER"
Public Const INDEX_TYPE_VARCHAR = "VARCHAR"
End Class End Class

4
Global_Indexer/ClassControls.vb
View File

@ -27,7 +27,7 @@ Public Class ClassControls
chk.Location = New Point(11, y) chk.Location = New Point(11, y)
chk.Tag = New ControlMeta() With { chk.Tag = New ControlMeta() With {
.IndexName = indexname, .IndexName = indexname,
.IndexType = "BOOLEAN" .IndexType = ClassConstants.INDEX_TYPE_BOOLEAN
} }
If caption <> "" Then If caption <> "" Then
@ -312,7 +312,7 @@ Public Class ClassControls
} }
Select Case DataType Select Case DataType
Case "INTEGER" Case ClassConstants.INDEX_TYPE_INTEGER
oEdit.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Numeric oEdit.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Numeric
oEdit.Properties.Mask.EditMask = "d" oEdit.Properties.Mask.EditMask = "d"
Console.WriteLine() Console.WriteLine()

4
Global_Indexer/ClassPatterns.vb
View File

@ -231,9 +231,9 @@ Public Class ClassPatterns
If oLookupControl.Properties.MultiSelect Then If oLookupControl.Properties.MultiSelect Then
Select Case oFoundType Select Case oFoundType
Case "INTEGER" Case ClassConstants.INDEX_TYPE_INTEGER
oValue = String.Join(",", oLookupControl.Properties.SelectedValues) oValue = String.Join(",", oLookupControl.Properties.SelectedValues)
Case "VARCHAR" Case ClassConstants.INDEX_TYPE_VARCHAR
Dim oWrapped = oLookupControl.Properties.SelectedValues Dim oWrapped = oLookupControl.Properties.SelectedValues
oValue = String.Join(",", oWrapped) oValue = String.Join(",", oWrapped)
Case Else Case Else

10
Global_Indexer/frmIndex.vb
View File

@ -146,7 +146,7 @@ Public Class frmIndex
If connectionString <> "" Then If connectionString <> "" Then
Dim sqlscalar = DR.Item("SQL_CHECK") Dim sqlscalar = DR.Item("SQL_CHECK")
Select Case DR.Item("DATENTYP") Select Case DR.Item("DATENTYP")
Case "INTEGER" Case ClassConstants.INDEX_TYPE_INTEGER
sqlscalar = sqlscalar.ToString.Replace("@manValue", wert) sqlscalar = sqlscalar.ToString.Replace("@manValue", wert)
Case Else Case Else
sqlscalar = sqlscalar.ToString.Replace("@manValue", "'" & wert & "'") sqlscalar = sqlscalar.ToString.Replace("@manValue", "'" & wert & "'")
@ -1844,7 +1844,7 @@ Public Class frmIndex
LOGGER.Debug("IndexName: {0}", oControlName) LOGGER.Debug("IndexName: {0}", oControlName)
LOGGER.Debug("SQL: {0}", oSQLResult) LOGGER.Debug("SQL: {0}", oSQLResult)
If oDataType <> "BOOLEAN" Then If oDataType <> ClassConstants.INDEX_TYPE_BOOLEAN Then
addLabel(oControlName, oRow.Item("COMMENT").ToString, oLabelPosition, oControlCount) addLabel(oControlName, oRow.Item("COMMENT").ToString, oLabelPosition, oControlCount)
End If End If
@ -1854,12 +1854,12 @@ Public Class frmIndex
End If End If
Select Case oDataType Select Case oDataType
Case "BOOLEAN" Case ClassConstants.INDEX_TYPE_BOOLEAN
Dim chk As CheckBox = oControls.AddCheckBox(oControlName, oControlPosition, DefaultValue, oRow.Item("COMMENT").ToString) Dim chk As CheckBox = oControls.AddCheckBox(oControlName, oControlPosition, DefaultValue, oRow.Item("COMMENT").ToString)
If Not IsNothing(chk) Then If Not IsNothing(chk) Then
pnlIndex.Controls.Add(chk) pnlIndex.Controls.Add(chk)
End If End If
Case "INTEGER" Case ClassConstants.INDEX_TYPE_INTEGER
If (oSQLSuggestion = True And oSQLResult.ToString.Length > 0) Or MultiSelect = True Then If (oSQLSuggestion = True And oSQLResult.ToString.Length > 0) Or MultiSelect = True Then
Dim oControl = oControls.AddLookupControl(oControlName, oControlPosition, MultiSelect, oDataType, oSQLResult, oConnectionId, DefaultValue, AddNewItems, PreventDuplicates) Dim oControl = oControls.AddLookupControl(oControlName, oControlPosition, MultiSelect, oDataType, oSQLResult, oConnectionId, DefaultValue, AddNewItems, PreventDuplicates)
If Not IsNothing(oControl) Then If Not IsNothing(oControl) Then
@ -1872,7 +1872,7 @@ Public Class frmIndex
pnlIndex.Controls.Add(oControl) pnlIndex.Controls.Add(oControl)
End If End If
End If End If
Case "VARCHAR" Case ClassConstants.INDEX_TYPE_VARCHAR
If (oSQLSuggestion = True And oSQLResult.ToString.Length > 0) Or MultiSelect = True Then If (oSQLSuggestion = True And oSQLResult.ToString.Length > 0) Or MultiSelect = True Then
Dim oControl = oControls.AddLookupControl(oControlName, oControlPosition, MultiSelect, oDataType, oSQLResult, oConnectionId, DefaultValue, AddNewItems, PreventDuplicates) Dim oControl = oControls.AddLookupControl(oControlName, oControlPosition, MultiSelect, oDataType, oSQLResult, oConnectionId, DefaultValue, AddNewItems, PreventDuplicates)
If Not IsNothing(oControl) Then If Not IsNothing(oControl) Then