版本號 : 2021041801

更新內容如下
1、新增力威力威SIZE RUN比對功能。

TENDEN-MES-SYS/Module/全域變數.vb

@@ -4,14 +4,16 @@
     Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public 登入人IP As String
     Public CC(99) As Boolean : Public AA(99) As String : Public 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2021041201"
+    Public 版本 As String = "2021041801"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 匯率 As Double
 
     Public 開發部門 As Boolean = False : Public 確認部門 As Boolean = False : Public frmOpenFlag As Boolean = False : Public 匯入列表開啟 As Boolean : Public 力威匯入列表 As Boolean
     Public 財務列印(3) As Boolean : Public 修改清單(16) As Boolean : Public 中文樣品單開啟修改 As Boolean : Public 量產樣品匯入列表開啟 As Boolean
 
-    Public PA As String = "" : Public QA As String = "" : Public PP1 As String = "" : Public PP2 As String = "" : Public PP3 As String = ""
+    Public PA As String = "" : Public PA1 As String = "" : Public PA2 As String = "" : Public PA3 As String = "" : Public PA4 As String = "" : Public PA5 As String = ""
+    Public PA6 As String = ""
+    Public QA As String = "" : Public PP1 As String = "" : Public PP2 As String = "" : Public PP3 As String = ""
     Public 訂單資料表(10) As String : Public OD(42) As String : Public 列印用SQL As String = "" : Public 驗貨報告 As String = "" : Public 訂單紀錄流水號 As String
     Public Class MyModule
 

TENDEN-MES-SYS/TENDEN_MES_SYS.Designer.vb

@@ -54,6 +54,7 @@ Partial Class TENDEN_MES_SYS
         Me.楦頭圖片資料庫_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.製鞋技術資料管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.楦頭規格表_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.模具控制表ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator21 = New System.Windows.Forms.ToolStripSeparator()
         Me.TENDENZASTYLE資料管理1_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.TENDENZASTYLE資料管理2_tsm = New System.Windows.Forms.ToolStripMenuItem()
@@ -139,7 +140,7 @@ Partial Class TENDEN_MES_SYS
         Me.FTP資料夾管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.系統執行檔版本管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator23 = New System.Windows.Forms.ToolStripSeparator()
-        Me.模具控制表ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.POReportDataReconciliation力威ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.MenuStrip.SuspendLayout()
         Me.SuspendLayout()
         '
@@ -340,6 +341,14 @@ Partial Class TENDEN_MES_SYS
         Me.楦頭規格表_tsm.Size = New System.Drawing.Size(288, 22)
         Me.楦頭規格表_tsm.Text = "楦頭規格表"
         '
+        '模具控制表ToolStripMenuItem
+        '
+        Me.模具控制表ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.模具控制表ToolStripMenuItem.Image = Global.天盾國際管理系統.My.Resources.Resources.pen
+        Me.模具控制表ToolStripMenuItem.Name = "模具控制表ToolStripMenuItem"
+        Me.模具控制表ToolStripMenuItem.Size = New System.Drawing.Size(288, 22)
+        Me.模具控制表ToolStripMenuItem.Text = "模具控制表"
+        '
         'ToolStripSeparator21
         '
         Me.ToolStripSeparator21.Name = "ToolStripSeparator21"
@@ -796,7 +805,7 @@ Partial Class TENDEN_MES_SYS
         '
         'Report_tsm
         '
-        Me.Report_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.Report1_tsm, Me.ProductSalesProfitAnalysisTable_tsm, Me.ToolStripSeparator12, Me.NewUnitComparison_tsm, Me.Report2_tsm, Me.Report3_tsm, Me.ToolStripSeparator18, Me.DeadlineReport_tsm, Me.POReportDataReconciliation_tsm})
+        Me.Report_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.Report1_tsm, Me.ProductSalesProfitAnalysisTable_tsm, Me.ToolStripSeparator12, Me.NewUnitComparison_tsm, Me.Report2_tsm, Me.Report3_tsm, Me.ToolStripSeparator18, Me.DeadlineReport_tsm, Me.POReportDataReconciliation_tsm, Me.POReportDataReconciliation力威ToolStripMenuItem})
         Me.Report_tsm.ForeColor = System.Drawing.Color.Green
         Me.Report_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.Report
         Me.Report_tsm.Name = "Report_tsm"
@@ -809,7 +818,7 @@ Partial Class TENDEN_MES_SYS
         Me.Report1_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.Report
         Me.Report1_tsm.Name = "Report1_tsm"
         Me.Report1_tsm.RightToLeftAutoMirrorImage = True
-        Me.Report1_tsm.Size = New System.Drawing.Size(260, 22)
+        Me.Report1_tsm.Size = New System.Drawing.Size(286, 22)
         Me.Report1_tsm.Text = "Overall Analysis Report"
         '
         'ProductSalesProfitAnalysisTable_tsm
@@ -817,20 +826,20 @@ Partial Class TENDEN_MES_SYS
         Me.ProductSalesProfitAnalysisTable_tsm.ForeColor = System.Drawing.Color.Green
         Me.ProductSalesProfitAnalysisTable_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.Report
         Me.ProductSalesProfitAnalysisTable_tsm.Name = "ProductSalesProfitAnalysisTable_tsm"
-        Me.ProductSalesProfitAnalysisTable_tsm.Size = New System.Drawing.Size(260, 22)
+        Me.ProductSalesProfitAnalysisTable_tsm.Size = New System.Drawing.Size(286, 22)
         Me.ProductSalesProfitAnalysisTable_tsm.Text = "Product sales profit analysis table"
         '
         'ToolStripSeparator12
         '
         Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
-        Me.ToolStripSeparator12.Size = New System.Drawing.Size(257, 6)
+        Me.ToolStripSeparator12.Size = New System.Drawing.Size(283, 6)
         '
         'NewUnitComparison_tsm
         '
         Me.NewUnitComparison_tsm.ForeColor = System.Drawing.Color.Green
         Me.NewUnitComparison_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.Report
         Me.NewUnitComparison_tsm.Name = "NewUnitComparison_tsm"
-        Me.NewUnitComparison_tsm.Size = New System.Drawing.Size(260, 22)
+        Me.NewUnitComparison_tsm.Size = New System.Drawing.Size(286, 22)
         Me.NewUnitComparison_tsm.Text = "New Unit Comparison"
         '
         'Report2_tsm
@@ -838,7 +847,7 @@ Partial Class TENDEN_MES_SYS
         Me.Report2_tsm.ForeColor = System.Drawing.Color.Green
         Me.Report2_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.Report
         Me.Report2_tsm.Name = "Report2_tsm"
-        Me.Report2_tsm.Size = New System.Drawing.Size(260, 22)
+        Me.Report2_tsm.Size = New System.Drawing.Size(286, 22)
         Me.Report2_tsm.Text = "Old Unit Comparison"
         '
         'Report3_tsm
@@ -846,20 +855,20 @@ Partial Class TENDEN_MES_SYS
         Me.Report3_tsm.ForeColor = System.Drawing.Color.Green
         Me.Report3_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.Report
         Me.Report3_tsm.Name = "Report3_tsm"
-        Me.Report3_tsm.Size = New System.Drawing.Size(260, 22)
+        Me.Report3_tsm.Size = New System.Drawing.Size(286, 22)
         Me.Report3_tsm.Text = "Order Type Analysis"
         '
         'ToolStripSeparator18
         '
         Me.ToolStripSeparator18.Name = "ToolStripSeparator18"
-        Me.ToolStripSeparator18.Size = New System.Drawing.Size(257, 6)
+        Me.ToolStripSeparator18.Size = New System.Drawing.Size(283, 6)
         '
         'DeadlineReport_tsm
         '
         Me.DeadlineReport_tsm.ForeColor = System.Drawing.Color.Green
         Me.DeadlineReport_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.Report
         Me.DeadlineReport_tsm.Name = "DeadlineReport_tsm"
-        Me.DeadlineReport_tsm.Size = New System.Drawing.Size(260, 22)
+        Me.DeadlineReport_tsm.Size = New System.Drawing.Size(286, 22)
         Me.DeadlineReport_tsm.Text = "Deadline Report"
         '
         'POReportDataReconciliation_tsm
@@ -867,8 +876,8 @@ Partial Class TENDEN_MES_SYS
         Me.POReportDataReconciliation_tsm.ForeColor = System.Drawing.Color.Green
         Me.POReportDataReconciliation_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.Report
         Me.POReportDataReconciliation_tsm.Name = "POReportDataReconciliation_tsm"
-        Me.POReportDataReconciliation_tsm.Size = New System.Drawing.Size(260, 22)
-        Me.POReportDataReconciliation_tsm.Text = "PO Report Data Reconciliation"
+        Me.POReportDataReconciliation_tsm.Size = New System.Drawing.Size(286, 22)
+        Me.POReportDataReconciliation_tsm.Text = "PO Report Data Reconciliation-Vionic"
         '
         '帳務管理_tsm
         '
@@ -964,13 +973,13 @@ Partial Class TENDEN_MES_SYS
         Me.ToolStripSeparator23.Name = "ToolStripSeparator23"
         Me.ToolStripSeparator23.Size = New System.Drawing.Size(179, 6)
         '
-        '模具控制表ToolStripMenuItem
+        'POReportDataReconciliation力威ToolStripMenuItem
         '
-        Me.模具控制表ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.模具控制表ToolStripMenuItem.Image = Global.天盾國際管理系統.My.Resources.Resources.pen
-        Me.模具控制表ToolStripMenuItem.Name = "模具控制表ToolStripMenuItem"
-        Me.模具控制表ToolStripMenuItem.Size = New System.Drawing.Size(288, 22)
-        Me.模具控制表ToolStripMenuItem.Text = "模具控制表"
+        Me.POReportDataReconciliation力威ToolStripMenuItem.ForeColor = System.Drawing.Color.Green
+        Me.POReportDataReconciliation力威ToolStripMenuItem.Image = Global.天盾國際管理系統.My.Resources.Resources.Report
+        Me.POReportDataReconciliation力威ToolStripMenuItem.Name = "POReportDataReconciliation力威ToolStripMenuItem"
+        Me.POReportDataReconciliation力威ToolStripMenuItem.Size = New System.Drawing.Size(286, 22)
+        Me.POReportDataReconciliation力威ToolStripMenuItem.Text = "PO Report Data Reconciliation-力威"
         '
         'TENDEN_MES_SYS
         '
@@ -1110,4 +1119,5 @@ Partial Class TENDEN_MES_SYS
     Friend WithEvents 訂單資料匯入力威_tsm As ToolStripMenuItem
     Friend WithEvents 訂單資料比對與修改力威_tsm As ToolStripMenuItem
     Friend WithEvents 模具控制表ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents POReportDataReconciliation力威ToolStripMenuItem As ToolStripMenuItem
 End Class

TENDEN-MES-SYS/TENDEN_MES_SYS.vb

@@ -298,4 +298,7 @@
     Private Sub 模具控制表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 模具控制表ToolStripMenuItem.Click
         PA = "" : 模具控制表.Show()
     End Sub
+    Private Sub POReportDataReconciliation力威ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles POReportDataReconciliation力威ToolStripMenuItem.Click
+        PA = "" : 訂單分析報表八.Show() : 訂單分析報表八.BringToFront()
+    End Sub
 End Class

TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-8261c6879be3422cac9d93fb4fc75ade5e7e9235
+61831da5311c64a978057401c0a33c5e9ff3208e

TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.FileListAbsolute.txt

@@ -579,3 +579,4 @@ D:\tenden-erp-sys-team\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.exe
 D:\tenden-erp-sys-team\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.xml
 D:\tenden-erp-sys-team\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.pdb
 D:\工巧明\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.模具控制表.resources
+D:\工巧明\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單分析報表八.resources

TENDEN-MES-SYS/天盾系統.vbproj

@@ -101,6 +101,12 @@
   <ItemGroup>
     <Compile Include="Module\SQL_Module.vb" />
     <Compile Include="Module\SQL_量產訂單資料庫切換.vb" />
+    <Compile Include="彙總報表管理\訂單分析報表八.Designer.vb">
+      <DependentUpon>訂單分析報表八.vb</DependentUpon>
+    </Compile>
+    <Compile Include="彙總報表管理\訂單分析報表八.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="製鞋技術資料管理\模具控制表.Designer.vb">
       <DependentUpon>模具控制表.vb</DependentUpon>
     </Compile>
@@ -720,6 +726,9 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="彙總報表管理\訂單分析報表八.resx">
+      <DependentUpon>訂單分析報表八.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="製鞋技術資料管理\模具控制表.resx">
       <DependentUpon>模具控制表.vb</DependentUpon>
     </EmbeddedResource>

TENDEN-MES-SYS/彙總報表管理/訂單分析報表八.Designer.vb

@@ -0,0 +1,160 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 訂單分析報表八
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.導入Excel_bt = New System.Windows.Forms.Button()
+        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+        Me.ProgressBar2 = New System.Windows.Forms.ProgressBar()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.SuspendLayout()
+        '
+        '導入Excel_bt
+        '
+        Me.導入Excel_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.導入Excel_bt.ForeColor = System.Drawing.Color.Black
+        Me.導入Excel_bt.Location = New System.Drawing.Point(13, 138)
+        Me.導入Excel_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.導入Excel_bt.Name = "導入Excel_bt"
+        Me.導入Excel_bt.Size = New System.Drawing.Size(333, 45)
+        Me.導入Excel_bt.TabIndex = 327
+        Me.導入Excel_bt.Text = "打開Excel   開始比對"
+        Me.導入Excel_bt.UseVisualStyleBackColor = True
+        '
+        'OpenFileDialog1
+        '
+        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
+        '
+        'ProgressBar1
+        '
+        Me.ProgressBar1.Location = New System.Drawing.Point(13, 108)
+        Me.ProgressBar1.MarqueeAnimationSpeed = 500
+        Me.ProgressBar1.Maximum = 10000
+        Me.ProgressBar1.Name = "ProgressBar1"
+        Me.ProgressBar1.Size = New System.Drawing.Size(333, 23)
+        Me.ProgressBar1.Step = 1
+        Me.ProgressBar1.TabIndex = 328
+        '
+        'ProgressBar2
+        '
+        Me.ProgressBar2.Location = New System.Drawing.Point(13, 61)
+        Me.ProgressBar2.MarqueeAnimationSpeed = 500
+        Me.ProgressBar2.Maximum = 10000
+        Me.ProgressBar2.Name = "ProgressBar2"
+        Me.ProgressBar2.Size = New System.Drawing.Size(333, 23)
+        Me.ProgressBar2.Step = 1
+        Me.ProgressBar2.TabIndex = 329
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(13, 42)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(104, 16)
+        Me.Label1.TabIndex = 330
+        Me.Label1.Text = "EXCEL資料準備中"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(13, 89)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(104, 16)
+        Me.Label2.TabIndex = 331
+        Me.Label2.Text = "EXCEL資料比對中"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.BackColor = System.Drawing.Color.Green
+        Me.TextBox1.Location = New System.Drawing.Point(16, 12)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(100, 23)
+        Me.TextBox1.TabIndex = 332
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(122, 15)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(56, 16)
+        Me.Label3.TabIndex = 333
+        Me.Label3.Text = "數量不對"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(290, 15)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(56, 16)
+        Me.Label4.TabIndex = 335
+        Me.Label4.Text = "條件不對"
+        '
+        'TextBox2
+        '
+        Me.TextBox2.BackColor = System.Drawing.Color.Red
+        Me.TextBox2.ForeColor = System.Drawing.Color.Red
+        Me.TextBox2.Location = New System.Drawing.Point(184, 12)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(100, 23)
+        Me.TextBox2.TabIndex = 334
+        '
+        '訂單分析報表八
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(359, 194)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.ProgressBar2)
+        Me.Controls.Add(Me.ProgressBar1)
+        Me.Controls.Add(Me.導入Excel_bt)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "訂單分析報表八"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "訂單分析報表八"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 導入Excel_bt As Button
+    Friend WithEvents OpenFileDialog1 As OpenFileDialog
+    Friend WithEvents ProgressBar1 As ProgressBar
+    Friend WithEvents ProgressBar2 As ProgressBar
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents TextBox2 As TextBox
+End Class

TENDEN-MES-SYS/彙總報表管理/訂單分析報表八.resx

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

TENDEN-MES-SYS/彙總報表管理/訂單分析報表八.vb

@@ -0,0 +1,128 @@
+Imports Microsoft.Office.Interop.Excel.Constants
+Public Class 訂單分析報表八
+    Dim xlApp As Microsoft.Office.Interop.Excel.Application
+    ReadOnly xlBook As Microsoft.Office.Interop.Excel.Workbook
+    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
+    Dim file_name As String = "" : Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0 : Public N1 As Integer
+    Private Sub 訂單分析報表八_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+    Private Sub 進度條1()
+        平均數 = 10000 / 資料數
+        最終數 += 平均數
+        If 最終數 > 10000 Then : 最終數 = 10000 : End If
+        ProgressBar2.Value = 最終數
+    End Sub
+    Private Sub 進度條2()
+        平均數 = 10000 / 資料數
+        最終數 += 平均數
+        If 最終數 > 10000 Then : 最終數 = 10000 : End If
+        ProgressBar1.Value = 最終數
+    End Sub
+    Private Sub 導入Excel_bt_Click(sender As Object, e As EventArgs) Handles 導入Excel_bt.Click
+        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
+            file_name = OpenFileDialog1.FileName
+        End If
+        xlApp = CreateObject("Excel.Application")
+        xlApp.DisplayAlerts = True
+        xlApp.Visible = True
+        xlApp.Workbooks.Open(file_name)
+        xlSheet = xlApp.Worksheets(1) : xlSheet.Activate()
+        最終數 = 0
+        PA = "0" : PA1 = xlSheet.Cells(1, 94).value : PA2 = xlSheet.Cells(1, 95).value : PA3 = xlSheet.Cells(1, 96).value : PA4 = xlSheet.Cells(1, 97).value : PA5 = xlSheet.Cells(1, 98).value
+        If PA1 = "" And PA2 = "" And PA3 = "" And PA4 = "" And PA5 = "" Then
+            For i As Integer = 1 To 99999 : 資料數 = 10000 : 進度條1()
+                If xlSheet.Cells(i, 1).value = "" Then : Exit For : End If : PA = i
+            Next
+
+            BB(xlApp, xlSheet) : ProgressBar2.Maximum = Val(PA) : ProgressBar1.Maximum = Val(PA) : 最終數 = 0
+            For i As Integer = 2 To Val(PA)
+                資料數 = 10000 : 進度條2()
+                If xlSheet.Cells(i, 81).value = "" Then : Else
+                    N1 = i
+                    xlSheet.Cells(i, 4).value = Val(Strings.Left(xlSheet.Cells(i, 81).value, 3))
+                    xlSheet.Cells(i, 3).value = Strings.Right(xlSheet.Cells(i, 81).value, 1)
+                    PA2 = xlSheet.Cells(i, 15).value
+                    For ii As Integer = 1 To 50
+                        If ii = 1 Then
+                            PA1 = Strings.Left(PA2, 1)
+                        Else
+                            If Strings.Mid(PA2, ii, 1) = "," Or Strings.Mid(PA2, ii, 1) = "" Then
+                                Exit For
+                            End If
+                            PA1 = PA1 & Strings.Mid(PA2, ii, 1)
+                        End If
+                    Next
+                    xlSheet.Cells(i, 2).value = PA1
+                    PA3 = xlSheet.Cells(i, 4).value
+                    PA4 = xlSheet.Cells(i, 1).value
+                    PA5 = xlSheet.Cells(i, 3).value
+                    PA6 = xlSheet.Cells(i, 5).value
+                    ConnOpen()
+                    SQL1 = "SELECT   訂單明細表.[" & PA3 & "] AS 數量
+                            FROM     訂單明細表 INNER JOIN 訂單控制表 ON 訂單明細表.天盾流水號 = 訂單控制表.訂單流水號 AND 
+                                     訂單明細表.客戶訂單號 = 訂單控制表.客戶訂單號 AND 訂單明細表.Color = 訂單控制表.顏色 AND 
+                                     訂單明細表.DM = 訂單控制表.楦型
+                            WHERE  ((訂單明細表.客戶訂單號 LIKE '" & PA4 & "') AND (訂單明細表.ProductName LIKE '" & PA1 & "') AND (LEFT(訂單明細表.DM,1) LIKE '" & PA5 & "')) OR
+                                   ((訂單明細表.ProductName LIKE '" & PA1 & "') AND (LEFT(訂單明細表.DM,1) LIKE '" & PA5 & "') AND (訂單控制表.力威訂單號 LIKE '" & PA4 & "'))"
+                    CmdSet_For_dr()
+                    If dr.Read() Then
+                        If PA6 = dr("數量").ToString Then : Else : CC(xlApp, xlSheet) : End If
+                    Else : CC(xlApp, xlSheet) : End If
+                    conn.Close()
+                End If
+            Next
+            MsgBox("資料導入完成，請手動存檔EXCEL!!!")
+            xlApp.Visible = True : ProgressBar2.Value = 0 : 最終數 = 0 : ProgressBar1.Value = 0 : 最終數 = 0
+        Else
+            MsgBox("格式有誤，請確認檔案是原始狀態，或是聯繫系統開發人員!!!")
+            xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing
+        End If
+    End Sub
+    Private Sub BB(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
+        xlSheet.Columns("A:A").Select
+        myExcel.Selection.Insert
+        xlSheet.Range("A1").Select()
+        myExcel.Application.CutCopyMode = False
+        myExcel.ActiveCell.FormulaR1C1 = "=RC[1]"
+        xlSheet.Range("A1").Select()
+        myExcel.Selection.AutoFill(Destination:=xlSheet.Range("A1:A" & PA))
+
+        xlSheet.Columns("B:B").Select
+        myExcel.Selection.Insert
+        xlSheet.Range("B1").Select()
+        myExcel.Application.CutCopyMode = False
+        myExcel.ActiveCell.FormulaR1C1 = "=RC[79]"
+        xlSheet.Range("B1").Select()
+        myExcel.Selection.AutoFill(Destination:=xlSheet.Range("B1:B" & PA))
+
+        xlSheet.Columns("B:B").Select
+        myExcel.Selection.Insert : myExcel.Selection.Insert : myExcel.Selection.Insert
+        xlSheet.Range("A1:E1").Select()
+
+        With myExcel.Selection
+            .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlTop : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
+            .ReadingOrder = xlContext : .MergeCells = False
+        End With
+    End Sub
+    Private Sub CC(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
+        xlSheet.Range("A" & N1 & ":CT" & N1).Select()
+        With myExcel.Selection.Interior
+            .Pattern = xlSolid
+            .PatternColorIndex = xlAutomatic
+            .Color = 5287936
+            .TintAndShade = 0
+            .PatternTintAndShade = 0
+        End With
+    End Sub
+    Private Sub DD(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
+        xlSheet.Range("A" & N1 & ":CT" & N1).Select()
+        With myExcel.Selection.Interior
+            .Pattern = xlSolid
+            .PatternColorIndex = xlAutomatic
+            .Color = 255
+            .TintAndShade = 0
+            .PatternTintAndShade = 0
+        End With
+    End Sub
+End Class