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/Modules/mBOMRepository.bas

@@ -0,0 +1,127 @@
+' ==============================================================================
+' 模块名称: mBOMRepository
+' 模块类别: 标准模块 (Standard Module)
+' 所属项目: BOMForge
+' 模块职责: 负责 Excel 表格与 cBOMRow 内存对象之间的双向数据交互
+' ==============================================================================
+Option Explicit
+
+' ------------------------------------------------------------------------------
+' 函数名称: LoadAllBOMs
+' 函数功能: 将工作表中的 BOM 数据逐行加载为 cBOMRow 对象的集合
+' 参数说明: ws - 目标工作表对象
+' ------------------------------------------------------------------------------
+Public Function LoadAllBOMs(ws As Worksheet) As Collection
+    Dim coll As New Collection
+    Dim lastRow As Long
+    Dim i As Long
+    Dim rowObj As cBOMRow
+
+    ' 获取 A 列最后一行 (假设 A 列总是有数据的，如行号)
+    lastRow = ws.Cells(ws.Rows.count, "A").End(xlUp).row
+
+    ' 根据业务说明，表头在第3行，数据从第4行开始
+    If lastRow < 4 Then
+        Set LoadAllBOMs = coll
+        Exit Function
+    End If
+
+    For i = 4 To lastRow
+        Set rowObj = New cBOMRow
+
+        ' 映射 Excel 列到对象属性
+        rowObj.ExcelRowIndex = i
+        rowObj.RowNo = Val(ws.Cells(i, 1).value)
+        rowObj.ModuleType = Trim(ws.Cells(i, 2).value)
+        rowObj.Code = Trim(ws.Cells(i, 3).value)
+        rowObj.ItemName = Trim(ws.Cells(i, 4).value)
+        rowObj.Quantity = Val(ws.Cells(i, 5).value)
+        rowObj.Condition = Trim(ws.Cells(i, 6).value)
+        rowObj.Remark = Trim(ws.Cells(i, 7).value)
+        rowObj.Category = Trim(ws.Cells(i, 8).value)
+        rowObj.ParentCategory = Trim(ws.Cells(i, 9).value)
+        rowObj.CategoryCondition = Trim(ws.Cells(i, 10).value)
+        rowObj.Code66 = Trim(ws.Cells(i, 11).value)
+        rowObj.BIPBaseRowNo = Trim(ws.Cells(i, 12).value)
+
+        ' 【关键】刚从 Excel 读取的数据是原生态的，重置脏标记
+        rowObj.ResetDirtyFlag
+
+        coll.Add rowObj
+    Next i
+
+    Set LoadAllBOMs = coll
+End Function
+
+' ------------------------------------------------------------------------------
+' 函数名称: SaveAll
+' 函数功能: 遍历集合，仅将发生改变 (IsDirty = True) 的对象写回 Excel
+' 参数说明: ws - 目标工作表对象, bomCollection - 内存对象集合
+' ------------------------------------------------------------------------------
+Public Sub SaveAll(ws As Worksheet, bomCollection As Collection)
+    Dim rowObj As cBOMRow
+    Dim r As Long
+
+    For Each rowObj In bomCollection
+        ' 【性能核心】只写回被业务策略修改过的行
+        If rowObj.IsDirty Then
+            r = rowObj.ExcelRowIndex
+
+            ' 如果是新增行，ExcelRowIndex 可能为空或需要重新计算
+            If r <= 0 Then
+                r = ws.Cells(ws.Rows.count, "A").End(xlUp).row + 1
+                rowObj.ExcelRowIndex = r
+            End If
+
+            ' 将属性写回对应的列
+            ws.Cells(r, 1).value = rowObj.RowNo
+            ws.Cells(r, 2).value = rowObj.ModuleType
+            ws.Cells(r, 3).value = rowObj.Code
+            ws.Cells(r, 4).value = rowObj.ItemName
+            ws.Cells(r, 5).value = rowObj.Quantity
+            ws.Cells(r, 6).value = rowObj.Condition
+            ws.Cells(r, 7).value = rowObj.Remark
+            ws.Cells(r, 8).value = rowObj.Category
+            ws.Cells(r, 9).value = rowObj.ParentCategory
+            ws.Cells(r, 10).value = rowObj.CategoryCondition
+            ws.Cells(r, 11).value = rowObj.Code66
+            ws.Cells(r, 12).value = rowObj.BIPBaseRowNo
+
+            ' 保存完毕，重置脏标记
+            rowObj.ResetDirtyFlag
+        End If
+    Next rowObj
+End Sub
+
+' ------------------------------------------------------------------------------
+' 函数名称: InsertNewBOMRow
+' 函数功能: 基于现有行克隆出一个新行对象，用于弹性元件等需要全新规格新增的场景
+' ------------------------------------------------------------------------------
+Public Function InsertNewBOMRow(bomCollection As Collection, copyFromObj As cBOMRow) As cBOMRow
+    Dim newObj As New cBOMRow
+
+    ' 设置为 0 意味着在 SaveAll 时，它会自动追加到 Excel 的最后一行
+    newObj.ExcelRowIndex = 0
+
+    ' 属性克隆
+    newObj.RowNo = copyFromObj.RowNo ' 这里的行号往往需要外部策略重新编排，先克隆
+    newObj.ModuleType = copyFromObj.ModuleType
+    newObj.Code = copyFromObj.Code   ' 同样等待外部策略分配新代码
+    newObj.ItemName = copyFromObj.ItemName
+    newObj.Quantity = copyFromObj.Quantity
+    newObj.Condition = copyFromObj.Condition
+    newObj.Remark = copyFromObj.Remark
+    newObj.Category = copyFromObj.Category
+    newObj.ParentCategory = copyFromObj.ParentCategory
+    newObj.CategoryCondition = copyFromObj.CategoryCondition
+    newObj.Code66 = copyFromObj.Code66
+    newObj.BIPBaseRowNo = copyFromObj.BIPBaseRowNo
+
+    ' 强制触发一下脏标记，确保这个新对象会被 SaveAll 捕获写进 Excel
+    ' 由于 Let 属性判断 <> 才会触发，我们采用一个小技巧
+    newObj.Code = newObj.Code & "_TEMP"
+    newObj.Code = copyFromObj.Code
+
+    bomCollection.Add newObj
+    Set InsertNewBOMRow = newObj
+End Function