T3_3_PackagingVolume.vb Detailed Manual

1. Overview

This program is a Visual Basic form application for calculating and managing shipping packaging volumes. It uses the EPPlus library to integrate with Excel files and calculates the volume and quantity of various packaging formats (case shipping, container shipping, and cardboard packaging) based on shipping data.

2. Program Structure

2.1 Libraries Used

• OfficeOpenXml - Library for Excel operations

2.2 Main Components

3. Main Features

3.1 Shipping Packaging Calculation Function

• Case Unit Shipping Volume Calculation - Calculates shipping volume by case units
• Bulk Unit Container Volume Calculation - Calculates container-based shipping volumes
• Cardboard Packaging Count Calculation - Allocates packaging count by cardboard size
• Post-Packaging Volume Calculation - Aggregates total volume after packaging

3.2 Data Display Function

• Filtering by specified shipping date
• Volume conversion display for shipping data
• Container specification display
• Cardboard size chart display
• DataGridView display of aggregated data

3.3 Excel Integration Function

• Reading master data from Excel
• Outputting calculation results to Excel
• Loading cardboard and container specifications

4. Method Details

4.1 Initialization / Event Handlers

4.2 Main Calculation Methods

4.3 Data Display Methods

4.4 Excel Processing Methods

5. Data Flow

5.1 Processing Flowchart

5.2 Data Sources

6. Database Processing

6.1 Tables Used

6.2 SQL Processing

7. Calculation Logic

7.1 Cardboard Size Allocation Logic

7.2 Container Calculation Logic

7.3 Multiple Cardboard Calculation

8. Excel Integration

8.1 Input Files

8.2 Output Files

8.3 EPPlus Usage Example

' Excel Read
Dim fi As New IO.FileInfo(DatSavePath & "\SoftData\ShippingSpaceCalc.xlsx")
Using pkg As New ExcelPackage(fi)
    Dim sheet1 As ExcelWorksheet = pkg.Workbook.Worksheets("Cardboard Specs")
    For j = 1 To 10
        For i = 2 To 10
            MyDgv.Item(j - 1, i - 2).Value = sheet1.Cells(i, j).Value
        Next
    Next
End Using

' Excel Write
Dim MYFile As String = DatSavePath & "\SoftData\" & myExcel & ".xlsx"
Dim fi As IO.FileInfo = New IO.FileInfo(MYFile)
Using pkg As New ExcelPackage(fi)
    Dim sheet1 As ExcelWorksheet = pkg.Workbook.Worksheets.Add("Sheet1")
    For j = 0 To Maxj
        For i = 0 To Maxi
            sheet1.Cells(i + 2, j + 1).Value = MyDgv.Item(j, i).Value
        Next
    Next
    pkg.Save()
End Using

9. Supplementary Information

9.1 Shipping Categories

• Case_Shipping - Shipping by case units
• Bulk_ShippingContainer - Bulk shipping via containers
• Bulk_Cardboard - Bulk shipping via cardboard packaging

9.2 Screen Items

• Specified Shipping Date Tb - Target date for calculation
• Total Shipping Days Tb - Overall shipping days
• Bulk Shipping_Container Select Cb - Dropdown for container type
• Shipping Container Fill Rate Tb - Container fill rate (Default 90%)
• Cardboard Fill Rate Tb - Cardboard fill rate (Fixed 90%)
• Shipping Data Category Rb - Radio button for data category

9.3 Important Notes

10. Summary

This program is a comprehensive solution designed to automate complex shipping packaging calculations. It features:

• Support for Multiple Packaging Types - 3 forms: cases, containers, and cardboards
• Accurate Volume Calculations - Precise calculations considering fill rates
• Optimal Packaging Allocation - Appropriate size selection based on volume
• Database Integration - Data management via Access DB
• Excel Integration - Master reading and results output
• Visual Data Display - Easy-to-understand displays using DataGridView