fix: update modules to use new LoadData interface and fix completeness check logic

Changes:
1. Update all modules to use LoadData(wsPlatform) instead of LoadData(wsConfig, wsPlatform)
   - modModelParserExamples.bas: Update 7 example procedures
   - modBOMProcessor.bas: Update 4 procedures
   - modModelParserTest.bas: Update 2 test procedures

2. Fix completeness check logic in GetValidMaterialsByModel
   - Only check root categories to avoid duplicate checking of subcategories
   - Previously, all required categories (including subcategories) were checked,
     causing subcategories to be added to missing list multiple times
   - Now only checks categories with ParentCategoryName = ""
   - CheckCategoryCompleteness already recursively checks all subcategories

3. Improve completeness judgment logic for categories with subcategories
   - Method 1: Parent category has 1 matching material → Complete
   - Method 2: Parent category has 0 matching materials, but all subcategories are complete → Complete
   - Other cases → Incomplete

Impact:
- Fixes "category missing" errors in Example9_BatchProcessOrders_WithCheck
- Eliminates duplicate entries in missing categories list
- Properly handles category hierarchy where parent categories are satisfied through subcategories

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

VBA/Modules/modModelParserTest.bas

@@ -173,20 +173,19 @@ Sub Test4_GetMaterialsByModel()
 
     ' 加载BOM数据
     Dim bomMgr As New clsBOMManager
-    Dim wsConfig As Worksheet
     Dim wsPlatform As Worksheet
 
     On Error Resume Next
-    Set wsConfig = ThisWorkbook.Worksheets("领料配置")
     Set wsPlatform = ThisWorkbook.Worksheets("平台配置清单")
     On Error GoTo 0
 
-    If wsConfig Is Nothing Or wsPlatform Is Nothing Then
-        Debug.Print "? 错误: 找不到必需的工作表"
+    If wsPlatform Is Nothing Then
+        Debug.Print "? 错误: 找不到必需的工作表 [平台配置清单]"
         Exit Sub
     End If
 
-    bomMgr.LoadData wsConfig, wsPlatform
+    ' ⭐ 使用新接口
+    bomMgr.LoadData wsPlatform
     Debug.Print "? BOM数据加载完成"
     Debug.Print ""
 
@@ -229,20 +228,19 @@ Sub Test5_GetAllMaterialsByModel()
 
     ' 加载BOM数据
     Dim bomMgr As New clsBOMManager
-    Dim wsConfig As Worksheet
     Dim wsPlatform As Worksheet
 
     On Error Resume Next
-    Set wsConfig = ThisWorkbook.Worksheets("领料配置")
     Set wsPlatform = ThisWorkbook.Worksheets("平台配置清单")
     On Error GoTo 0
 
-    If wsConfig Is Nothing Or wsPlatform Is Nothing Then
-        Debug.Print "? 错误: 找不到必需的工作表"
+    If wsPlatform Is Nothing Then
+        Debug.Print "? 错误: 找不到必需的工作表 [平台配置清单]"
         Exit Sub
     End If
 
-    bomMgr.LoadData wsConfig, wsPlatform
+    ' ⭐ 使用新接口
+    bomMgr.LoadData wsPlatform
 
     ' 测试型号
     Dim modelStr As String