20221029備份

YD-ERP-SYS/Module/SQL_倉儲系統管理.vb

@@ -178,9 +178,10 @@
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_倉儲控制表_刪除明細()
-        ConnOpen()
-        SQL1 = "DELETE 倉儲明細表 WHERE (資料流水號 LIKE N'" & PA20 & "')"
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "DELETE 倉儲明細表 WHERE (資料流水號 LIKE N'" & PA20 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_倉儲控制表_備註存檔()
+        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 備註 = N'" & PA19 & "' WHERE (資料流水號 LIKE N'" & PA20 & "')" : CmdSet_For_dr()
     End Sub
     '---------------------盤盈盤損審核-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_倉儲明細表_盤盈盤損審核()

YD-ERP-SYS/Module/全域變數.vb

@@ -3,7 +3,7 @@
     Public g_conn_type, gUserName, 登入人職稱, 登入人級別, 登入人組別, 登入人IP, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 業務號碼, AA(99), 類別 As String
     Public BB(99), CC(99), 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2022100401"
+    Public 版本 As String = "2022102501"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址, 關鍵字編號, 進度條後墜 As String
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

YD-ERP-SYS/倉儲系統管理/倉儲控制表.Designer.vb

@@ -23,10 +23,10 @@ Partial Class 倉儲控制表
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.控制表_dgv = New System.Windows.Forms.DataGridView()
         Me.明細表_dgv = New System.Windows.Forms.DataGridView()
         Me.物料圖_pb = New System.Windows.Forms.PictureBox()
@@ -61,16 +61,14 @@ Partial Class 倉儲控制表
         Me.中間距_ch = New System.Windows.Forms.CheckBox()
         Me.小間距_ch = New System.Windows.Forms.CheckBox()
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.Label20 = New System.Windows.Forms.Label()
         Me.查詢_bt = New System.Windows.Forms.Button()
         Me.清空1_bt = New System.Windows.Forms.Button()
         Me.料號2_tb = New System.Windows.Forms.TextBox()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
-        Me.訂製狀態_tb = New System.Windows.Forms.TextBox()
-        Me.物料狀態_tb = New System.Windows.Forms.TextBox()
-        Me.料號1_tb = New System.Windows.Forms.TextBox()
-        Me.倉名編號_tb = New System.Windows.Forms.TextBox()
-        Me.倉級_tb = New System.Windows.Forms.TextBox()
+        Me.資料存檔_bt = New System.Windows.Forms.Button()
+        Me.備註_tb = New System.Windows.Forms.TextBox()
         Me.新增_bt = New System.Windows.Forms.Button()
         Me.Label19 = New System.Windows.Forms.Label()
         Me.採購流水_tb = New System.Windows.Forms.TextBox()
@@ -90,7 +88,12 @@ Partial Class 倉儲控制表
         Me.刪除_bt = New System.Windows.Forms.Button()
         Me.Label11 = New System.Windows.Forms.Label()
         Me.倉儲流水_tb = New System.Windows.Forms.TextBox()
-        Me.Label20 = New System.Windows.Forms.Label()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.倉級_tb = New System.Windows.Forms.TextBox()
+        Me.訂製狀態_tb = New System.Windows.Forms.TextBox()
+        Me.倉名編號_tb = New System.Windows.Forms.TextBox()
+        Me.物料狀態_tb = New System.Windows.Forms.TextBox()
+        Me.料號1_tb = New System.Windows.Forms.TextBox()
         CType(Me.控制表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.明細表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.物料圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -102,12 +105,13 @@ Partial Class 倉儲控制表
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.出庫_nup, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.入庫_nup, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
         Me.SuspendLayout()
         '
         '控制表_dgv
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.White
-        Me.控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.White
+        Me.控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.控制表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -116,28 +120,28 @@ Partial Class 倉儲控制表
         Me.控制表_dgv.Location = New System.Drawing.Point(467, 29)
         Me.控制表_dgv.Name = "控制表_dgv"
         Me.控制表_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.控制表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.控制表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.控制表_dgv.RowTemplate.Height = 24
         Me.控制表_dgv.Size = New System.Drawing.Size(823, 382)
         Me.控制表_dgv.TabIndex = 1039
         '
         '明細表_dgv
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.明細表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.明細表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.明細表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.明細表_dgv.Location = New System.Drawing.Point(3, 29)
+        Me.明細表_dgv.Location = New System.Drawing.Point(182, 18)
         Me.明細表_dgv.Name = "明細表_dgv"
         Me.明細表_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.明細表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.明細表_dgv.RowTemplate.Height = 24
-        Me.明細表_dgv.Size = New System.Drawing.Size(1287, 188)
+        Me.明細表_dgv.Size = New System.Drawing.Size(1110, 198)
         Me.明細表_dgv.TabIndex = 1040
         '
         '物料圖_pb
@@ -175,18 +179,19 @@ Partial Class 倉儲控制表
         Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label9.AutoSize = True
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label9.Location = New System.Drawing.Point(1268, 6)
+        Me.Label9.Location = New System.Drawing.Point(1266, 2)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(20, 16)
+        Me.Label9.Size = New System.Drawing.Size(19, 16)
         Me.Label9.TabIndex = 1182
         Me.Label9.Text = "筆"
         '
         '資料筆數1_tb
         '
         Me.資料筆數1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.資料筆數1_tb.Location = New System.Drawing.Point(1230, 3)
+        Me.資料筆數1_tb.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.資料筆數1_tb.Location = New System.Drawing.Point(1228, 2)
         Me.資料筆數1_tb.Name = "資料筆數1_tb"
-        Me.資料筆數1_tb.Size = New System.Drawing.Size(39, 23)
+        Me.資料筆數1_tb.Size = New System.Drawing.Size(39, 16)
         Me.資料筆數1_tb.TabIndex = 1181
         Me.資料筆數1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
@@ -195,9 +200,9 @@ Partial Class 倉儲控制表
         Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label10.AutoSize = True
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label10.Location = New System.Drawing.Point(1211, 6)
+        Me.Label10.Location = New System.Drawing.Point(1209, 2)
         Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(20, 16)
+        Me.Label10.Size = New System.Drawing.Size(19, 16)
         Me.Label10.TabIndex = 1180
         Me.Label10.Text = "共"
         '
@@ -224,7 +229,7 @@ Partial Class 倉儲控制表
         Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label3.Location = New System.Drawing.Point(1244, 6)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(44, 16)
+        Me.Label3.Size = New System.Drawing.Size(43, 16)
         Me.Label3.TabIndex = 1187
         Me.Label3.Text = "筆資料"
         '
@@ -244,7 +249,7 @@ Partial Class 倉儲控制表
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label4.Location = New System.Drawing.Point(1154, 6)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(20, 16)
+        Me.Label4.Size = New System.Drawing.Size(19, 16)
         Me.Label4.TabIndex = 1185
         Me.Label4.Text = "共"
         '
@@ -273,7 +278,7 @@ Partial Class 倉儲控制表
         Me.指定倉庫_lb.AutoSize = True
         Me.指定倉庫_lb.Location = New System.Drawing.Point(6, 316)
         Me.指定倉庫_lb.Name = "指定倉庫_lb"
-        Me.指定倉庫_lb.Size = New System.Drawing.Size(56, 16)
+        Me.指定倉庫_lb.Size = New System.Drawing.Size(55, 16)
         Me.指定倉庫_lb.TabIndex = 1190
         Me.指定倉庫_lb.Text = "庫存區域"
         '
@@ -294,7 +299,7 @@ Partial Class 倉儲控制表
         Me.Label12.AutoSize = True
         Me.Label12.Location = New System.Drawing.Point(204, 316)
         Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(56, 16)
+        Me.Label12.Size = New System.Drawing.Size(55, 16)
         Me.Label12.TabIndex = 1192
         Me.Label12.Text = "倉儲狀態"
         '
@@ -304,7 +309,7 @@ Partial Class 倉儲控制表
         Me.Label1.AutoSize = True
         Me.Label1.Location = New System.Drawing.Point(6, 343)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(56, 16)
+        Me.Label1.Size = New System.Drawing.Size(55, 16)
         Me.Label1.TabIndex = 1193
         Me.Label1.Text = "倉        名"
         '
@@ -314,7 +319,7 @@ Partial Class 倉儲控制表
         Me.Label2.AutoSize = True
         Me.Label2.Location = New System.Drawing.Point(204, 343)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(56, 16)
+        Me.Label2.Size = New System.Drawing.Size(55, 16)
         Me.Label2.TabIndex = 1194
         Me.Label2.Text = "料        號"
         '
@@ -324,7 +329,7 @@ Partial Class 倉儲控制表
         Me.Label5.AutoSize = True
         Me.Label5.Location = New System.Drawing.Point(6, 367)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(56, 16)
+        Me.Label5.Size = New System.Drawing.Size(55, 16)
         Me.Label5.TabIndex = 1195
         Me.Label5.Text = "品        名"
         '
@@ -334,7 +339,7 @@ Partial Class 倉儲控制表
         Me.Label6.AutoSize = True
         Me.Label6.Location = New System.Drawing.Point(6, 391)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(56, 16)
+        Me.Label6.Size = New System.Drawing.Size(55, 16)
         Me.Label6.TabIndex = 1196
         Me.Label6.Text = "訂        制"
         '
@@ -344,7 +349,7 @@ Partial Class 倉儲控制表
         Me.Label7.AutoSize = True
         Me.Label7.Location = New System.Drawing.Point(204, 391)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(56, 16)
+        Me.Label7.Size = New System.Drawing.Size(55, 16)
         Me.Label7.TabIndex = 1197
         Me.Label7.Text = "狀        態"
         '
@@ -354,7 +359,7 @@ Partial Class 倉儲控制表
         Me.Label8.AutoSize = True
         Me.Label8.Location = New System.Drawing.Point(6, 330)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(463, 16)
+        Me.Label8.Size = New System.Drawing.Size(462, 16)
         Me.Label8.TabIndex = 1198
         Me.Label8.Text = "---------------------------------------------------------------------------------" &
     "----------"
@@ -365,9 +370,9 @@ Partial Class 倉儲控制表
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.跑馬燈_tb.Font = New System.Drawing.Font("微軟正黑體", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.跑馬燈_tb.ForeColor = System.Drawing.Color.Red
-        Me.跑馬燈_tb.Location = New System.Drawing.Point(3, 220)
+        Me.跑馬燈_tb.Location = New System.Drawing.Point(182, 219)
         Me.跑馬燈_tb.Name = "跑馬燈_tb"
-        Me.跑馬燈_tb.Size = New System.Drawing.Size(1287, 29)
+        Me.跑馬燈_tb.Size = New System.Drawing.Size(1110, 29)
         Me.跑馬燈_tb.TabIndex = 1199
         Me.跑馬燈_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
@@ -403,7 +408,7 @@ Partial Class 倉儲控制表
         Me.不顯示歸零_ch.AutoSize = True
         Me.不顯示歸零_ch.Location = New System.Drawing.Point(469, 4)
         Me.不顯示歸零_ch.Name = "不顯示歸零_ch"
-        Me.不顯示歸零_ch.Size = New System.Drawing.Size(111, 20)
+        Me.不顯示歸零_ch.Size = New System.Drawing.Size(110, 20)
         Me.不顯示歸零_ch.TabIndex = 1201
         Me.不顯示歸零_ch.Text = "不顯示歸零資料"
         Me.不顯示歸零_ch.UseVisualStyleBackColor = True
@@ -414,7 +419,7 @@ Partial Class 倉儲控制表
         Me.大間距_ch.AutoSize = True
         Me.大間距_ch.Location = New System.Drawing.Point(405, 390)
         Me.大間距_ch.Name = "大間距_ch"
-        Me.大間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.大間距_ch.Size = New System.Drawing.Size(62, 20)
         Me.大間距_ch.TabIndex = 1379
         Me.大間距_ch.Text = "大間距"
         Me.大間距_ch.UseVisualStyleBackColor = True
@@ -425,7 +430,7 @@ Partial Class 倉儲控制表
         Me.中間距_ch.AutoSize = True
         Me.中間距_ch.Location = New System.Drawing.Point(405, 366)
         Me.中間距_ch.Name = "中間距_ch"
-        Me.中間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.中間距_ch.Size = New System.Drawing.Size(62, 20)
         Me.中間距_ch.TabIndex = 1378
         Me.中間距_ch.Text = "中間距"
         Me.中間距_ch.UseVisualStyleBackColor = True
@@ -436,7 +441,7 @@ Partial Class 倉儲控制表
         Me.小間距_ch.AutoSize = True
         Me.小間距_ch.Location = New System.Drawing.Point(405, 342)
         Me.小間距_ch.Name = "小間距_ch"
-        Me.小間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.小間距_ch.Size = New System.Drawing.Size(62, 20)
         Me.小間距_ch.TabIndex = 1377
         Me.小間距_ch.Text = "小間距"
         Me.小間距_ch.UseVisualStyleBackColor = True
@@ -487,11 +492,8 @@ Partial Class 倉儲控制表
         '
         'SplitContainer1.Panel2
         '
-        Me.SplitContainer1.Panel2.Controls.Add(Me.訂製狀態_tb)
-        Me.SplitContainer1.Panel2.Controls.Add(Me.物料狀態_tb)
-        Me.SplitContainer1.Panel2.Controls.Add(Me.料號1_tb)
-        Me.SplitContainer1.Panel2.Controls.Add(Me.倉名編號_tb)
-        Me.SplitContainer1.Panel2.Controls.Add(Me.倉級_tb)
+        Me.SplitContainer1.Panel2.Controls.Add(Me.資料存檔_bt)
+        Me.SplitContainer1.Panel2.Controls.Add(Me.備註_tb)
         Me.SplitContainer1.Panel2.Controls.Add(Me.新增_bt)
         Me.SplitContainer1.Panel2.Controls.Add(Me.Label19)
         Me.SplitContainer1.Panel2.Controls.Add(Me.採購流水_tb)
@@ -516,10 +518,20 @@ Partial Class 倉儲控制表
         Me.SplitContainer1.Panel2.Controls.Add(Me.刪除_bt)
         Me.SplitContainer1.Panel2.Controls.Add(Me.Label11)
         Me.SplitContainer1.Panel2.Controls.Add(Me.倉儲流水_tb)
+        Me.SplitContainer1.Panel2.Controls.Add(Me.Panel1)
         Me.SplitContainer1.Size = New System.Drawing.Size(1297, 673)
         Me.SplitContainer1.SplitterDistance = 416
         Me.SplitContainer1.TabIndex = 1380
         '
+        'Label20
+        '
+        Me.Label20.AutoSize = True
+        Me.Label20.Location = New System.Drawing.Point(598, 6)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(151, 16)
+        Me.Label20.TabIndex = 1495
+        Me.Label20.Text = "請輸入供應商編號或是料號"
+        '
         '查詢_bt
         '
         Me.查詢_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
@@ -575,53 +587,36 @@ Partial Class 倉儲控制表
         Me.字體_NUD.TabIndex = 1490
         Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
         '
-        '訂製狀態_tb
+        '資料存檔_bt
         '
-        Me.訂製狀態_tb.Location = New System.Drawing.Point(516, 148)
-        Me.訂製狀態_tb.Name = "訂製狀態_tb"
-        Me.訂製狀態_tb.Size = New System.Drawing.Size(65, 23)
-        Me.訂製狀態_tb.TabIndex = 1403
-        Me.訂製狀態_tb.Visible = False
-        '
-        '物料狀態_tb
-        '
-        Me.物料狀態_tb.Location = New System.Drawing.Point(515, 119)
-        Me.物料狀態_tb.Name = "物料狀態_tb"
-        Me.物料狀態_tb.Size = New System.Drawing.Size(65, 23)
-        Me.物料狀態_tb.TabIndex = 1402
-        Me.物料狀態_tb.Visible = False
-        '
-        '料號1_tb
+        Me.資料存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.資料存檔_bt.ForeColor = System.Drawing.Color.Green
+        Me.資料存檔_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.資料存檔_bt.Location = New System.Drawing.Point(48, 208)
+        Me.資料存檔_bt.Name = "資料存檔_bt"
+        Me.資料存檔_bt.Size = New System.Drawing.Size(42, 41)
+        Me.資料存檔_bt.TabIndex = 1406
+        Me.資料存檔_bt.Text = "備註存檔"
+        Me.資料存檔_bt.UseVisualStyleBackColor = True
         '
-        Me.料號1_tb.Location = New System.Drawing.Point(516, 90)
-        Me.料號1_tb.Name = "料號1_tb"
-        Me.料號1_tb.Size = New System.Drawing.Size(65, 23)
-        Me.料號1_tb.TabIndex = 1401
-        Me.料號1_tb.Visible = False
-        '
-        '倉名編號_tb
-        '
-        Me.倉名編號_tb.Location = New System.Drawing.Point(515, 61)
-        Me.倉名編號_tb.Name = "倉名編號_tb"
-        Me.倉名編號_tb.Size = New System.Drawing.Size(65, 23)
-        Me.倉名編號_tb.TabIndex = 1400
-        Me.倉名編號_tb.Visible = False
-        '
-        '倉級_tb
+        '備註_tb
         '
-        Me.倉級_tb.Location = New System.Drawing.Point(515, 32)
-        Me.倉級_tb.Name = "倉級_tb"
-        Me.倉級_tb.Size = New System.Drawing.Size(65, 23)
-        Me.倉級_tb.TabIndex = 1399
-        Me.倉級_tb.Visible = False
+        Me.備註_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.備註_tb.Location = New System.Drawing.Point(3, 159)
+        Me.備註_tb.Multiline = True
+        Me.備註_tb.Name = "備註_tb"
+        Me.備註_tb.Size = New System.Drawing.Size(177, 48)
+        Me.備註_tb.TabIndex = 1405
         '
         '新增_bt
         '
+        Me.新增_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.新增_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.新增_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.新增_bt.Location = New System.Drawing.Point(1004, 2)
+        Me.新增_bt.Location = New System.Drawing.Point(4, 208)
         Me.新增_bt.Name = "新增_bt"
-        Me.新增_bt.Size = New System.Drawing.Size(65, 25)
+        Me.新增_bt.Size = New System.Drawing.Size(42, 41)
         Me.新增_bt.TabIndex = 1398
         Me.新增_bt.Text = "新增資料"
         Me.新增_bt.UseVisualStyleBackColor = True
@@ -629,56 +624,58 @@ Partial Class 倉儲控制表
         'Label19
         '
         Me.Label19.AutoSize = True
-        Me.Label19.Location = New System.Drawing.Point(184, 7)
+        Me.Label19.Location = New System.Drawing.Point(4, 24)
         Me.Label19.Name = "Label19"
-        Me.Label19.Size = New System.Drawing.Size(56, 16)
+        Me.Label19.Size = New System.Drawing.Size(55, 16)
         Me.Label19.TabIndex = 1397
         Me.Label19.Text = "採購流水"
         '
         '採購流水_tb
         '
-        Me.採購流水_tb.Location = New System.Drawing.Point(240, 3)
+        Me.採購流水_tb.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.採購流水_tb.Location = New System.Drawing.Point(60, 23)
         Me.採購流水_tb.Name = "採購流水_tb"
-        Me.採購流水_tb.Size = New System.Drawing.Size(103, 23)
+        Me.採購流水_tb.Size = New System.Drawing.Size(120, 16)
         Me.採購流水_tb.TabIndex = 1396
         '
         'Label18
         '
         Me.Label18.AutoSize = True
-        Me.Label18.Location = New System.Drawing.Point(4, 7)
+        Me.Label18.Location = New System.Drawing.Point(4, 4)
         Me.Label18.Name = "Label18"
-        Me.Label18.Size = New System.Drawing.Size(56, 16)
+        Me.Label18.Size = New System.Drawing.Size(55, 16)
         Me.Label18.TabIndex = 1395
         Me.Label18.Text = "執行單號"
         '
         '執行單號_tb
         '
+        Me.執行單號_tb.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.執行單號_tb.Location = New System.Drawing.Point(60, 3)
         Me.執行單號_tb.Name = "執行單號_tb"
-        Me.執行單號_tb.Size = New System.Drawing.Size(120, 23)
+        Me.執行單號_tb.Size = New System.Drawing.Size(120, 16)
         Me.執行單號_tb.TabIndex = 1394
         '
         '補單日_dtp
         '
         Me.補單日_dtp.CustomFormat = "yyyy/MM/dd"
         Me.補單日_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
-        Me.補單日_dtp.Location = New System.Drawing.Point(914, 3)
+        Me.補單日_dtp.Location = New System.Drawing.Point(60, 134)
         Me.補單日_dtp.Name = "補單日_dtp"
-        Me.補單日_dtp.Size = New System.Drawing.Size(89, 23)
+        Me.補單日_dtp.Size = New System.Drawing.Size(120, 23)
         Me.補單日_dtp.TabIndex = 1393
         '
         'Label17
         '
         Me.Label17.AutoSize = True
-        Me.Label17.Location = New System.Drawing.Point(872, 6)
+        Me.Label17.Location = New System.Drawing.Point(4, 137)
         Me.Label17.Name = "Label17"
-        Me.Label17.Size = New System.Drawing.Size(44, 16)
+        Me.Label17.Size = New System.Drawing.Size(55, 16)
         Me.Label17.TabIndex = 1392
-        Me.Label17.Text = "補單日"
+        Me.Label17.Text = "補  單  日"
         '
         '出庫_nup
         '
-        Me.出庫_nup.Location = New System.Drawing.Point(830, 3)
+        Me.出庫_nup.Location = New System.Drawing.Point(140, 109)
         Me.出庫_nup.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
         Me.出庫_nup.Name = "出庫_nup"
         Me.出庫_nup.Size = New System.Drawing.Size(40, 23)
@@ -687,15 +684,15 @@ Partial Class 倉儲控制表
         'Label16
         '
         Me.Label16.AutoSize = True
-        Me.Label16.Location = New System.Drawing.Point(797, 6)
+        Me.Label16.Location = New System.Drawing.Point(107, 111)
         Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(32, 16)
+        Me.Label16.Size = New System.Drawing.Size(31, 16)
         Me.Label16.TabIndex = 1390
         Me.Label16.Text = "出庫"
         '
         '入庫_nup
         '
-        Me.入庫_nup.Location = New System.Drawing.Point(755, 3)
+        Me.入庫_nup.Location = New System.Drawing.Point(40, 108)
         Me.入庫_nup.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
         Me.入庫_nup.Name = "入庫_nup"
         Me.入庫_nup.Size = New System.Drawing.Size(40, 23)
@@ -704,65 +701,68 @@ Partial Class 倉儲控制表
         'Label15
         '
         Me.Label15.AutoSize = True
-        Me.Label15.Location = New System.Drawing.Point(722, 6)
+        Me.Label15.Location = New System.Drawing.Point(7, 111)
         Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(32, 16)
+        Me.Label15.Size = New System.Drawing.Size(31, 16)
         Me.Label15.TabIndex = 1388
         Me.Label15.Text = "入庫"
         '
         'Label14
         '
         Me.Label14.AutoSize = True
-        Me.Label14.Location = New System.Drawing.Point(613, 6)
+        Me.Label14.Location = New System.Drawing.Point(4, 87)
         Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(32, 16)
+        Me.Label14.Size = New System.Drawing.Size(55, 16)
         Me.Label14.TabIndex = 1387
-        Me.Label14.Text = "狀態"
+        Me.Label14.Text = "狀        態"
         '
         '狀態_ch
         '
         Me.狀態_ch.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.狀態_ch.FormattingEnabled = True
         Me.狀態_ch.Items.AddRange(New Object() {"2019"})
-        Me.狀態_ch.Location = New System.Drawing.Point(645, 2)
+        Me.狀態_ch.Location = New System.Drawing.Point(60, 83)
         Me.狀態_ch.Name = "狀態_ch"
-        Me.狀態_ch.Size = New System.Drawing.Size(75, 24)
+        Me.狀態_ch.Size = New System.Drawing.Size(120, 24)
         Me.狀態_ch.TabIndex = 1386
         '
         'Label13
         '
         Me.Label13.AutoSize = True
-        Me.Label13.Location = New System.Drawing.Point(502, 7)
+        Me.Label13.Location = New System.Drawing.Point(4, 65)
         Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(44, 16)
+        Me.Label13.Size = New System.Drawing.Size(55, 16)
         Me.Label13.TabIndex = 1385
-        Me.Label13.Text = "採購單"
+        Me.Label13.Text = "採  購  單"
         '
         '採購單_tb
         '
-        Me.採購單_tb.Location = New System.Drawing.Point(546, 3)
+        Me.採購單_tb.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.採購單_tb.Location = New System.Drawing.Point(60, 64)
         Me.採購單_tb.Name = "採購單_tb"
-        Me.採購單_tb.Size = New System.Drawing.Size(65, 23)
+        Me.採購單_tb.Size = New System.Drawing.Size(120, 16)
         Me.採購單_tb.TabIndex = 1384
         '
         '列印Excel_bt
         '
-        Me.列印Excel_bt.ForeColor = System.Drawing.Color.Green
+        Me.列印Excel_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.列印Excel_bt.ForeColor = System.Drawing.Color.Black
         Me.列印Excel_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.列印Excel_bt.Location = New System.Drawing.Point(1136, 2)
+        Me.列印Excel_bt.Location = New System.Drawing.Point(133, 208)
         Me.列印Excel_bt.Name = "列印Excel_bt"
-        Me.列印Excel_bt.Size = New System.Drawing.Size(70, 25)
+        Me.列印Excel_bt.Size = New System.Drawing.Size(47, 41)
         Me.列印Excel_bt.TabIndex = 1383
         Me.列印Excel_bt.Text = "列印Excel"
         Me.列印Excel_bt.UseVisualStyleBackColor = True
         '
         '刪除_bt
         '
+        Me.刪除_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.刪除_bt.ForeColor = System.Drawing.Color.Red
         Me.刪除_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.刪除_bt.Location = New System.Drawing.Point(1070, 2)
+        Me.刪除_bt.Location = New System.Drawing.Point(92, 208)
         Me.刪除_bt.Name = "刪除_bt"
-        Me.刪除_bt.Size = New System.Drawing.Size(65, 25)
+        Me.刪除_bt.Size = New System.Drawing.Size(42, 41)
         Me.刪除_bt.TabIndex = 1382
         Me.刪除_bt.Text = "刪除資料"
         Me.刪除_bt.UseVisualStyleBackColor = True
@@ -770,27 +770,72 @@ Partial Class 倉儲控制表
         'Label11
         '
         Me.Label11.AutoSize = True
-        Me.Label11.Location = New System.Drawing.Point(346, 7)
+        Me.Label11.Location = New System.Drawing.Point(4, 44)
         Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(56, 16)
+        Me.Label11.Size = New System.Drawing.Size(55, 16)
         Me.Label11.TabIndex = 1381
         Me.Label11.Text = "倉儲流水"
         '
         '倉儲流水_tb
         '
-        Me.倉儲流水_tb.Location = New System.Drawing.Point(402, 3)
+        Me.倉儲流水_tb.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.倉儲流水_tb.Location = New System.Drawing.Point(60, 43)
         Me.倉儲流水_tb.Name = "倉儲流水_tb"
-        Me.倉儲流水_tb.Size = New System.Drawing.Size(98, 23)
+        Me.倉儲流水_tb.Size = New System.Drawing.Size(120, 16)
         Me.倉儲流水_tb.TabIndex = 1380
         '
-        'Label20
+        'Panel1
         '
-        Me.Label20.AutoSize = True
-        Me.Label20.Location = New System.Drawing.Point(598, 6)
-        Me.Label20.Name = "Label20"
-        Me.Label20.Size = New System.Drawing.Size(152, 16)
-        Me.Label20.TabIndex = 1495
-        Me.Label20.Text = "請輸入供應商編號或是料號"
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.倉級_tb)
+        Me.Panel1.Controls.Add(Me.訂製狀態_tb)
+        Me.Panel1.Controls.Add(Me.倉名編號_tb)
+        Me.Panel1.Controls.Add(Me.物料狀態_tb)
+        Me.Panel1.Controls.Add(Me.料號1_tb)
+        Me.Panel1.Location = New System.Drawing.Point(262, 67)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(200, 100)
+        Me.Panel1.TabIndex = 1404
+        '
+        '倉級_tb
+        '
+        Me.倉級_tb.Location = New System.Drawing.Point(3, 3)
+        Me.倉級_tb.Name = "倉級_tb"
+        Me.倉級_tb.Size = New System.Drawing.Size(65, 23)
+        Me.倉級_tb.TabIndex = 1399
+        Me.倉級_tb.Visible = False
+        '
+        '訂製狀態_tb
+        '
+        Me.訂製狀態_tb.Location = New System.Drawing.Point(3, 61)
+        Me.訂製狀態_tb.Name = "訂製狀態_tb"
+        Me.訂製狀態_tb.Size = New System.Drawing.Size(65, 23)
+        Me.訂製狀態_tb.TabIndex = 1403
+        Me.訂製狀態_tb.Visible = False
+        '
+        '倉名編號_tb
+        '
+        Me.倉名編號_tb.Location = New System.Drawing.Point(3, 32)
+        Me.倉名編號_tb.Name = "倉名編號_tb"
+        Me.倉名編號_tb.Size = New System.Drawing.Size(65, 23)
+        Me.倉名編號_tb.TabIndex = 1400
+        Me.倉名編號_tb.Visible = False
+        '
+        '物料狀態_tb
+        '
+        Me.物料狀態_tb.Location = New System.Drawing.Point(73, 32)
+        Me.物料狀態_tb.Name = "物料狀態_tb"
+        Me.物料狀態_tb.Size = New System.Drawing.Size(65, 23)
+        Me.物料狀態_tb.TabIndex = 1402
+        Me.物料狀態_tb.Visible = False
+        '
+        '料號1_tb
+        '
+        Me.料號1_tb.Location = New System.Drawing.Point(74, 3)
+        Me.料號1_tb.Name = "料號1_tb"
+        Me.料號1_tb.Size = New System.Drawing.Size(65, 23)
+        Me.料號1_tb.TabIndex = 1401
+        Me.料號1_tb.Visible = False
         '
         '倉儲控制表
         '
@@ -816,12 +861,13 @@ Partial Class 倉儲控制表
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.出庫_nup, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.入庫_nup, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
         Me.ResumeLayout(False)
 
     End Sub
 
     Friend WithEvents 控制表_dgv As Windows.Forms.DataGridView
-    Friend WithEvents 明細表_dgv As Windows.Forms.DataGridView
     Friend WithEvents 物料圖_pb As PictureBox
     Friend WithEvents 品名_tb As TextBox
     Friend WithEvents 料號_tb As TextBox
@@ -884,4 +930,8 @@ Partial Class 倉儲控制表
     Friend WithEvents 查詢_bt As Button
     Friend WithEvents 清空1_bt As Button
     Friend WithEvents Label20 As Label
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents 明細表_dgv As DataGridView
+    Friend WithEvents 資料存檔_bt As Button
+    Friend WithEvents 備註_tb As TextBox
 End Class

YD-ERP-SYS/倉儲系統管理/倉儲控制表.vb

@@ -14,7 +14,7 @@ Public Class 倉儲控制表
     Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
     Dim KKKK As String : Dim 比例 As Integer : Dim N1 As Integer
     Dim 首次開啟 As Boolean = False
-    Dim N2 As Integer :: Dim EDR As Integer = 0 : Dim ESTR As String
+    Dim N2 As Integer : Dim EDR As Integer = 0 : Dim ESTR As String
     Private Sub Set_清單()
         Try
             控制表_dgv.DataSource = Nothing : ds.Clear()
@@ -270,7 +270,7 @@ Public Class 倉儲控制表
             da.Fill(ds1) : 明細表_dgv.DataSource = ds1.Tables(0) : conn.Close()
 
             明細表_dgv.Columns(0).FillWeight = 150 : 明細表_dgv.Columns(1).FillWeight = 150 : 明細表_dgv.Columns(2).FillWeight = 100 : 明細表_dgv.Columns(3).FillWeight = 50
-            明細表_dgv.Columns(4).FillWeight = 50 : 明細表_dgv.Columns(5).FillWeight = 350 : 明細表_dgv.Columns(6).FillWeight = 100 : 明細表_dgv.Columns(7).FillWeight = 100
+            明細表_dgv.Columns(4).FillWeight = 50 : 明細表_dgv.Columns(5).FillWeight = 200 : 明細表_dgv.Columns(6).FillWeight = 100 : 明細表_dgv.Columns(7).FillWeight = 100
             明細表_dgv.Columns(8).FillWeight = 100 : 明細表_dgv.Columns(9).FillWeight = 100 : 明細表_dgv.Columns(10).FillWeight = 100 : 明細表_dgv.Columns(11).FillWeight = 100
             明細表_dgv.Columns(12).Visible = False : 明細表_dgv.Columns(13).Visible = False : 明細表_dgv.Columns(14).Visible = False : 明細表_dgv.Columns(15).Visible = False
             明細表_dgv.Columns(16).Visible = False : 明細表_dgv.Columns(17).Visible = False : 明細表_dgv.Columns(18).FillWeight = 100
@@ -384,6 +384,7 @@ Public Class 倉儲控制表
                 訂製狀態_tb.Text = 明細表_dgv("訂製狀態", e.RowIndex).Value.ToString
                 倉儲流水_tb.Text = 明細表_dgv("資料流水號", e.RowIndex).Value.ToString
                 補單日_dtp.Value = 明細表_dgv("申請日期", e.RowIndex).Value
+                備註_tb.Text = 明細表_dgv("備註", e.RowIndex).Value
             End If
         Catch ex As Exception
             MsgBox(ex.Message)
@@ -456,16 +457,7 @@ Public Class 倉儲控制表
     Private Sub 顯示歸零_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 不顯示歸零_ch.Click
         Set_清單()
     End Sub
-    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
-        Try
-            Dim aa1 As MsgBoxResult = MsgBox("請確定是否刪除資料?", MsgBoxStyle.OkCancel)
-            If aa1 = MsgBoxResult.Ok Then
-                PA20 = 倉儲流水_tb.Text : SQL_倉儲控制表_刪除明細() : Set_清單() : Set_清單1()
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
-    End Sub
+
     Private Shared Function NewMethod(xlBook As Microsoft.Office.Interop.Excel.Workbook) As Microsoft.Office.Interop.Excel.Worksheet
         Return CType(xlBook.Worksheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
     End Function
@@ -628,6 +620,17 @@ Public Class 倉儲控制表
             MsgBox("調整帳務完成!!") : Set_清單() : Set_清單1()
         End If
     End Sub
+    Private Sub 資料存檔_bt_Click(sender As Object, e As EventArgs) Handles 資料存檔_bt.Click
+        If 倉儲流水_tb.Text = "" Then : MsgBox("請先選擇資料!!") : Else
+            PA20 = 倉儲流水_tb.Text : PA19 = 備註_tb.Text : SQL_倉儲控制表_備註存檔() : Set_清單1() : MsgBox("備註存檔成功!!")
+        End If
+    End Sub
+    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
+        Dim aa1 As MsgBoxResult = MsgBox("請確定是否刪除資料?", MsgBoxStyle.OkCancel)
+        If aa1 = MsgBoxResult.Ok Then
+            PA20 = 倉儲流水_tb.Text : SQL_倉儲控制表_刪除明細() : Set_清單() : Set_清單1() : MsgBox("刪除成功!!")
+        End If
+    End Sub
     Private Sub 清空1_bt_Click(sender As Object, e As EventArgs) Handles 清空1_bt.Click
         料號2_tb.Text = "" : Set_清單() : Set_清單1()
     End Sub