T3_3_包裝物量.vb 詳細說明書

1. 概述

本程式為用以計算及管理出貨包裝物量所開發的 Visual Basic 表單應用程式。透過使用 EPPlus 函式庫與 Excel 檔案進行資料整合，並根據出貨資料計算各種包裝形態（箱裝出貨、貨櫃出貨、紙箱包裝）的容積與數量。

2. 程式結構

2.1 使用函式庫

• OfficeOpenXml - 用於操作 Excel 的函式庫

2.2 主要元件

3. 主要功能

3.1 出貨包裝計算功能

• 箱裝單位出貨容積計算 - 算出以箱為單位的出貨容積
• 散裝單位貨櫃容積計算 - 算出以貨櫃為基準的出貨容積
• 紙箱包裝數計算 - 依據紙箱尺寸分配包裝數量
• 包裝後容積計算 - 彙總包裝後的總容積

3.2 資料顯示功能

• 透過指定出貨日進行篩選
• 出貨資料的容積換算顯示
• 貨櫃規格顯示
• 紙箱尺寸表顯示
• 彙總資料的 DataGridView 顯示

3.3 Excel 連動功能

• 從 Excel 讀取主檔資料
• 將計算結果匯出至 Excel
• 讀取紙箱規格與貨櫃規格

4. 方法詳細說明

4.1 初始化・事件處理常式

4.2 主要計算方法

4.3 資料顯示方法

4.4 Excel 處理方法

5. 資料流程

5.1 處理流程圖

5.2 資料來源

6. 資料庫處理

6.1 使用資料表

6.2 SQL 處理

7. 計算邏輯

7.1 紙箱尺寸分配邏輯

7.2 貨櫃計算邏輯

7.3 複數紙箱計算

8. Excel 連動

8.1 讀取檔案

8.2 輸出檔案

8.3 EPPlus 使用範例

' Excel 讀取
Dim fi As New IO.FileInfo(Dat儲存Path & "\SoftData\出貨空間計算.xlsx")
Using pkg As New ExcelPackage(fi)
    Dim sheet1 As ExcelWorksheet = pkg.Workbook.Worksheets("紙箱規格")
    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 寫入
Dim MYFile As String = Dat儲存Path & "\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. 補充資訊

9.1 出貨區分

• 箱裝_出貨 - 以箱為單位的出貨
• 散裝_出貨貨櫃 - 使用貨櫃的散裝出貨
• 散裝_紙箱 - 使用紙箱包裝的散裝出貨

9.2 畫面項目

• 指定出貨日Tb - 欲計算的出貨日
• 全出貨天數Tb - 整體的出貨天數
• 散裝出貨_貨櫃選擇Cb - 貨櫃型號選擇下拉選單
• 出貨貨櫃裝填率Tb - 貨櫃裝填率(預設90%)
• 紙箱裝填率Tb - 紙箱裝填率(固定90%)
• 出貨資料區分Rb - 出貨資料區分選項按鈕

9.3 注意事項

10. 總結

本程式是為自動化複雜出貨包裝計算所設計的全面性解決方案。具備以下特色：

• 支援多樣化的包裝形態 - 箱裝、貨櫃、紙箱 3 種形態
• 精確的容積計算 - 考量裝填率進行的精密計算
• 最佳的包裝分配 - 依據容積選定適當尺寸
• 資料庫連動 - 透過 Access DB 進行資料管理
• Excel 連動 - 主檔讀取與結果輸出
• 視覺化的資料顯示 - 透過 DataGridView 進行易懂的顯示