初始化

2025-12-11 11:51:42 +08:00
commit 07b8504dda
360 changed files with 432261 additions and 0 deletions
--- a/Database/Base/SearchCondition.vb
+++ b/Database/Base/SearchCondition.vb
@@ -0,0 +1,71 @@
+Imports System.Text
+
+Namespace Database.Base
+    Public Class SearchCondition
+        Enum ConditionType
+            LessThan
+            GreaterThen
+            EqualTo
+            LessThanOrEqualTo
+            GreaterThenOrEqualTo
+        End Enum
+
+        Enum LogicType
+            [And]
+            [Or]
+            [Not]
+        End Enum
+
+
+        ''' <summary>
+        ''' 判断列名
+        ''' </summary>
+        ''' <returns></returns>
+        Public Property ColName() As String
+
+        ''' <summary>
+        ''' 判断条件
+        ''' </summary>
+        ''' <returns></returns>
+        Public Property Condition() As ConditionType = ConditionType.EqualTo
+
+        ''' <summary>
+        ''' 判断值
+        ''' </summary>
+        ''' <returns></returns>
+        Public Property ColValue() As String
+
+        ''' <summary>
+        ''' 当前条件与上一个条件的逻辑关系
+        ''' </summary>
+        ''' <returns></returns>
+        Public Property LogicPrevious() As LogicType = LogicType.And
+
+        ''' <summary>
+        ''' 将当前条件转换为字符串,不支持将条件逻辑关系同时转换
+        ''' </summary>
+        ''' <returns></returns>
+        Public Overrides Function ToString() As String
+            Dim stringBuilder As New StringBuilder
+            stringBuilder.Append(" ")
+            stringBuilder.Append(ColName)
+
+            Select Case Condition
+                Case ConditionType.EqualTo
+                    stringBuilder.Append("=")
+                Case ConditionType.LessThan
+                    stringBuilder.Append("<")
+                Case ConditionType.LessThanOrEqualTo
+                    stringBuilder.Append("<=")
+                Case ConditionType.GreaterThen
+                    stringBuilder.Append(">")
+                Case ConditionType.GreaterThenOrEqualTo
+                    stringBuilder.Append(">=")
+            End Select
+
+            stringBuilder.Append($"'{ColValue}'")
+
+            Return stringBuilder.ToString()
+        End Function
+    End Class
+End Namespace