feat: add Access data integration and total queue number column

- Add new AccessDataModule for fetching data from Access database based on total queue number
- Add CommandButton3_Click handler in Sheet9 for Access data fetch
- Add support for new "总排号" (Total Queue Number) column at column A
- Adjust all column indices to accommodate the new column (shifted by +1)
- Standardize code style: Collection, Count, Quantity, ProductModel, Description
- Fix inventory check result to write to correct column (F instead of E)

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
Misaka_Company
2026-03-12 13:53:28 +08:00
parent 787b3f56ab
commit 1747af046b
9 changed files with 343 additions and 145 deletions

View File

@@ -234,12 +234,12 @@ Public Sub TestBomExtractor()
testConditions.Add "jycz", "1"
testConditions.Add "lcfw", "M01"
Dim matchedItems As collection
Dim matchedItems As Collection
Set matchedItems = extractor.ExtractBom(testConditions)
Debug.Print " 匹配到 " & matchedItems.Count & " 个物料"
Debug.Print " 匹配到 " & matchedItems.count & " 个物料"
If matchedItems.Count > 0 Then
If matchedItems.count > 0 Then
Debug.Print " 匹配的物料:"
Dim item As BomItem
Dim i As Long