Add BOM repository module and enhance code formatting

- Add new mBOMRepository.bas module for data access layer with LoadAll/SaveAll/InsertNewBOMRow functions
- Refactor cBOMRow.cls property methods for better readability and formatting
- Add comprehensive unit tests for BOM repository functionality in mTestEngine

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

VBA/ClassModules/cBOMRow.cls

@@ -90,23 +90,65 @@ End Property
 ' ------------------------------------------------------------------------------
 ' 其他次要属性的 Get/Let
 ' ------------------------------------------------------------------------------
-Public Property Get Remark() As String: Remark = pRemark: End Property
-Public Property Let Remark(ByVal vNewValue As String): If pRemark <> vNewValue Then pRemark = vNewValue: pIsDirty = True: End Property
+Public Property Get Remark() As String
+    Remark = pRemark
+End Property
+Public Property Let Remark(ByVal vNewValue As String)
+    If pRemark <> vNewValue Then
+        pRemark = vNewValue
+        pIsDirty = True
+    End If
+End Property
 
-Public Property Get Category() As String: Category = pCategory: End Property
-Public Property Let Category(ByVal vNewValue As String): If pCategory <> vNewValue Then pCategory = vNewValue: pIsDirty = True: End Property
+Public Property Get Category() As String
+    Category = pCategory
+End Property
+Public Property Let Category(ByVal vNewValue As String)
+    If pCategory <> vNewValue Then
+        pCategory = vNewValue
+        pIsDirty = True
+    End If
+End Property
 
-Public Property Get ParentCategory() As String: ParentCategory = pParentCategory: End Property
-Public Property Let ParentCategory(ByVal vNewValue As String): If pParentCategory <> vNewValue Then pParentCategory = vNewValue: pIsDirty = True: End Property
+Public Property Get ParentCategory() As String
+    ParentCategory = pParentCategory
+End Property
+Public Property Let ParentCategory(ByVal vNewValue As String)
+    If pParentCategory <> vNewValue Then
+        pParentCategory = vNewValue
+        pIsDirty = True
+    End If
+End Property
 
-Public Property Get CategoryCondition() As String: CategoryCondition = pCategoryCondition: End Property
-Public Property Let CategoryCondition(ByVal vNewValue As String): If pCategoryCondition <> vNewValue Then pCategoryCondition = vNewValue: pIsDirty = True: End Property
+Public Property Get CategoryCondition() As String
+    CategoryCondition = pCategoryCondition
+End Property
+Public Property Let CategoryCondition(ByVal vNewValue As String)
+    If pCategoryCondition <> vNewValue Then
+        pCategoryCondition = vNewValue
+        pIsDirty = True
+    End If
+End Property
 
-Public Property Get Code66() As String: Code66 = pCode66: End Property
-Public Property Let Code66(ByVal vNewValue As String): If pCode66 <> vNewValue Then pCode66 = vNewValue: pIsDirty = True: End Property
+Public Property Get Code66() As String
+    Code66 = pCode66
+End Property
+Public Property Let Code66(ByVal vNewValue As String)
+    If pCode66 <> vNewValue Then
+        pCode66 = vNewValue
+        pIsDirty = True
+    End If
+End Property
 
-Public Property Get BIPBaseRowNo() As String: BIPBaseRowNo = pBIPBaseRowNo: End Property
-Public Property Let BIPBaseRowNo(ByVal vNewValue As String): If pBIPBaseRowNo <> vNewValue Then pBIPBaseRowNo = vNewValue: pIsDirty = True: End Property
+Public Property Get BIPBaseRowNo() As String
+    BIPBaseRowNo = pBIPBaseRowNo
+End Property
+Public Property Let BIPBaseRowNo(ByVal vNewValue As String)
+    If pBIPBaseRowNo <> vNewValue Then
+        pBIPBaseRowNo = vNewValue
+        pIsDirty = True
+    End If
+End Property
 
 ' ------------------------------------------------------------------------------
 ' 状态追踪：只读的 IsDirty 和重置方法