20231228備份

OW-ERP-SYS/03、倉儲管理系統/倉儲基本控制/物料資料庫.Designer.vb

@@ -40,7 +40,6 @@ Partial Class 物料資料庫
         Me.物料名稱_lb = New System.Windows.Forms.Label()
         Me.物料名稱_tb = New System.Windows.Forms.TextBox()
         Me.物料明細_DGV = New System.Windows.Forms.DataGridView()
-        Me.計算分流1 = New System.Windows.Forms.Timer(Me.components)
         Me.大間距_ch = New System.Windows.Forms.CheckBox()
         Me.中間距_ch = New System.Windows.Forms.CheckBox()
         Me.小間距_ch = New System.Windows.Forms.CheckBox()
@@ -229,9 +228,6 @@ Partial Class 物料資料庫
         Me.物料明細_DGV.Size = New System.Drawing.Size(801, 531)
         Me.物料明細_DGV.TabIndex = 1843
         '
-        '計算分流1
-        '
-        '
         '大間距_ch
         '
         Me.大間距_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -459,7 +455,6 @@ Partial Class 物料資料庫
     Friend WithEvents 物料名稱_lb As Label
     Friend WithEvents 物料名稱_tb As TextBox
     Friend WithEvents 物料明細_DGV As DataGridView
-    Friend WithEvents 計算分流1 As Timer
     Friend WithEvents 大間距_ch As CheckBox
     Friend WithEvents 中間距_ch As CheckBox
     Friend WithEvents 小間距_ch As CheckBox

OW-ERP-SYS/03、倉儲管理系統/倉儲基本控制/物料資料庫.resx

@@ -120,11 +120,8 @@
   <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
-  <metadata name="計算分流1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>138, 17</value>
-  </metadata>
   <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>266, 17</value>
+    <value>138, 17</value>
   </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>66</value>

OW-ERP-SYS/03、倉儲管理系統/倉儲基本控制/物料資料庫.vb

@@ -82,23 +82,15 @@ Public Class 物料資料庫
         InitializeForm()
     End Sub
     Private Sub 物料資料庫_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
-        計算分流1.Enabled = True : 首次開啟 = False : Set_物料明細表單()
+        首次開啟 = False : Set_物料明細表單()
     End Sub
     Private Sub 物料資料庫_Closing(sender As Object, e As EventArgs) Handles MyBase.Closing
         ' 如果主表單未新增，而子表單已新增
     End Sub
     Private Sub 物料資料庫_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
-        MyMod.虛擬桌面開啟()
-    End Sub
-    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
-        timeNow = 0 : OW_ERP_SYS.Timer1.Enabled = False : OW_ERP_SYS.Timer1.Enabled = True
-    End Sub
-    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
-        timeNow = 0 : OW_ERP_SYS.Timer1.Enabled = False : OW_ERP_SYS.Timer1.Enabled = True
-    End Sub
-    Private Sub 計算分流1_Tick(sender As Object, e As EventArgs) Handles 計算分流1.Tick
-        計算分流1.Enabled = False
+        'MyMod.虛擬桌面開啟()
     End Sub
+
     Private Sub 間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click, 大間距_ch.Click, 中間距_ch.Click
         ' ↓↓---------------------- DataGridView 間距設定相關功能 ----------------------↓↓
         Dim 小間距 As Boolean = (sender Is 小間距_ch) : Dim 中間距 As Boolean = (sender Is 中間距_ch) : Dim 大間距 As Boolean = (sender Is 大間距_ch)
@@ -217,11 +209,11 @@ Public Class 物料資料庫
         If 訊息回應 <> "YES" Then Return
 
         If 修改狀態 = "新增" Then
-            SQL_物料明細表_名稱查詢_讀取(物料名稱_tb.Text)
-            If dr.Read Then
-                MGB("已 有 此 物 料 名 稱，無 法 添 加 !", 1)
-                Exit Sub
-            End If
+            'SQL_物料明細表_名稱查詢_讀取(物料名稱_tb.Text)
+            'If dr.Read Then
+            '    MGB("已 有 此 物 料 名 稱，無 法 添 加 !", 1)
+            '    Exit Sub
+            'End If
             SQL_物料明細表_新增(物料料號_tb.Text, 物料名稱_tb.Text, 種類_cb.Text, 單位_cb.Text, 備註_tb.Text)
         ElseIf 修改狀態 = "修改" Then
             SQL_物料明細表_更新(物料料號_tb.Text, 物料名稱_tb.Text, 種類_cb.Text, 單位_cb.Text, 備註_tb.Text)

OW-ERP-SYS/05、技術管理系統/製程配方表.resx

@@ -117,11 +117,8 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <metadata name="計算分流1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 2</value>
-  </metadata>
   <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>145, 3</value>
+    <value>17, 4</value>
   </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>32</value>

OW-ERP-SYS/0、MyModule/主資料庫/SQL_技術管理系統.vb

@@ -1,28 +1,47 @@
 Module SQL_技術管理系統
+
+    Friend Sub SQL_下拉清單_讀取(Text As String)
+        ConnOpen()
+        SQL1 = "SELECT DISTINCT " & Text & "
+                FROM            配方控制表"
+        CmdSet_For_DGV()
+    End Sub
+
     Friend Sub SQL_配方控制表_讀取(油脂種類 As String)
         ConnOpen()
-        SQL1 = "SELECT      配方編號 AS 項次, 配方編號, 產品名稱,  油脂種類, 季節, 出貨類型, 制定日期, 生產噸數, 認證標章, 代工, 備註, 製表簽名編碼, 
-                            核對簽名編碼, 核准簽名編碼, 發行章編碼, 舊編號, 物料料號, 版本, 停用
-                FROM        配方控制表
-                WHERE       油脂種類 LIKE N'" & 油脂種類 & "'
-                ORDER BY    配方編號,季節 DESC"
+        SQL1 = "SELECT     配方編號 AS 項次, 配方編號, 產品名稱, 油脂種類, 季節, 出貨類型, 制定日期, 生產噸數, 認證標章,
+                        CASE
+                            WHEN 代工 = 1 THEN '是'
+                            ELSE '否'
+                        END AS 代工, 
+                           備註, 製表簽名編碼, 核對簽名編碼, 核准簽名編碼, 發行章編碼, 舊編號, 物料料號, 版本, 停用
+                FROM      配方控制表
+                WHERE     油脂種類 LIKE N'%" & 油脂種類 & "%'
+                ORDER BY  配方編號, 季節 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_搜尋配方控制表_讀取(Search_word As String)
+        ConnOpen()
+        SQL1 = "SELECT     配方編號 AS 項次, 配方編號, 產品名稱, 油脂種類, 季節, 出貨類型, 制定日期, 生產噸數, 認證標章,
+                        CASE
+                            WHEN 代工 = 1 THEN '是'
+                            ELSE '否'
+                        END AS 代工, 
+                           備註, 製表簽名編碼, 核對簽名編碼, 核准簽名編碼, 發行章編碼, 舊編號, 物料料號, 版本, 停用
+                FROM      配方控制表
+                WHERE     (產品名稱 LIKE N'%" & Search_word & "%') OR (油脂種類 LIKE N'%" & Search_word & "%') OR (季節 LIKE N'%" & Search_word & "%') OR 
+                          (認證標章 LIKE N'%" & Search_word & "%') 
+                ORDER BY  配方編號, 季節 DESC"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_配方控制表_產品名稱查詢_讀取(產品名稱 As String, 油脂種類 As String, 季節 As String, 出貨類型 As String, 版本 As String)
         ConnOpen()
-        SQL1 = "SELECT    產品名稱                        
+        SQL1 = "SELECT    產品名稱
                 FROM      配方控制表
                 WHERE     (產品名稱 LIKE N'" & 產品名稱 & "') AND (油脂種類 LIKE N'" & 油脂種類 & "') AND (季節 LIKE N'" & 季節 & "') 
                 AND (出貨類型 LIKE N'" & 出貨類型 & "') AND (版本 LIKE N'" & 版本 & "')"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_配方控制表_關閉時查詢_讀取(配方編號 As String)
-        ConnOpen()
-        SQL1 = "SELECT      配方編號
-                FROM        配方控制表
-                WHERE       配方編號 LIKE N'" & 配方編號 & "'"
-        CmdSet_For_dr()
-    End Sub
     Friend Sub SQL_配方控制表_新增(配方編號 As String, 產品名稱 As String, 油脂種類 As String, 季節 As String, 出貨類型 As String, 制定日期 As String,
                                 生產噸數 As String, 認證標章 As String, 代工 As Boolean, 備註 As String, 製表簽名編碼 As String, 核對簽名編碼 As String, 核准簽名編碼 As String,
                                  發行章編碼 As String, 舊編號 As String, 物料料號 As String, 版本 As String, 停用 As Boolean)
@@ -51,6 +70,13 @@
                 WHERE (配方編號 LIKE N'" & 配方編號 & "')"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_配方明細表_關閉時查詢_讀取(配方編號 As String)
+        ConnOpen()
+        SQL1 = "SELECT      配方編號
+                FROM        配方明細表
+                WHERE       配方編號 LIKE N'" & 配方編號 & "'"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_配方明細表原料油_讀取(配方編號 As String)
         ConnOpen()
         SQL1 = "SELECT      配方明細表.明細流水號 AS 項次, 配方明細表.明細流水號, 配方明細表.原料名稱, 配方明細表.油脂百分比 AS [油脂%], 配方明細表.產品百分比 AS [產品%], 
@@ -136,6 +162,12 @@
                 WHERE (明細流水號 LIKE N'" & 明細流水號 & "')"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_選項類型_讀取()
+        ConnOpen()
+        SQL1 = "SELECT DISTINCT 選項類型
+                FROM            配方選項表"
+        CmdSet_For_DGV()
+    End Sub
     Friend Sub SQL_配方規格表油脂_讀取(配方編號 As String)
         ConnOpen()
         SQL1 = "SELECT      配方規格表.規格流水號 AS 項次, 配方規格表.規格流水號, 配方規格表.項目, 配方規格表.標準, OW空白圖片.圖片 AS 刪除
@@ -203,5 +235,17 @@
                 ORDER BY    配方選項表.選項內容 DESC"
         CmdSet_For_DGV()
     End Sub
-
+    Friend Sub SQL_配方規格選項_內容_讀取(規格類型 As String, 選項內容 As String)
+        ConnOpen()
+        SQL1 = "SELECT      流水號
+                FROM        配方選項表 
+                WHERE       (選項類型 LIKE N'" & 規格類型 & "') AND (選項內容 LIKE N'" & 選項內容 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_配方規格選項_新增(流水號 As String, 選項類型 As String, 選項內容 As String)
+        ConnOpen()
+        SQL1 = "INSERT INTO     配方選項表 (流水號, 選項類型, 選項內容) 
+                VALUES          (N'" & 流水號 & "', N'" & 選項類型 & "', N'" & 選項內容 & "')"
+        CmdSet_For_dr()
+    End Sub
 End Module

OW-ERP-SYS/0、MyModule/主資料庫/SQL_生產管理系統.vb

@@ -1,14 +1,5 @@
 Module SQL_生產管理系統
     '---------------------生產排程-----------------------------------------------------------------------------------------------------------------
-
-    Friend Sub SQL_排程負責人_讀取()
-        ConnOpen()
-        SQL1 = "SELECT      姓名
-                FROM        使用者權限管理表
-                WHERE       (CC63 = 0) AND (部門 LIKE '%3.廠務部%')
-                ORDER BY    職稱"
-        CmdSet_For_DGV()
-    End Sub
     Friend Sub SQL_生產排程明細表_讀取()
         ConnOpen()
         SQL1 = "SELECT      生產排程明細表.流水號, 生產排程明細表.流水號 AS 項次, 生產排程明細表.開工時間,生產排程明細表.廠區, 生產排程明細表.物料簡稱 AS 產品,  

OW-ERP-SYS/0、MyModule/模組/全域變數.vb

@@ -9,7 +9,7 @@
     '------LINE變數-------
     Public 發送對象, LINE_權限代號, PA201, PA202, PA203, PA204, PA205, 通知變數X, 通知變數Y As String
     '----系統版本----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2023121501" : Public 資料庫版本 As String
+    Public 版本 As String = "2023122804" : Public 資料庫版本 As String
     '----系統閒置----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 判斷重登, 重登確認, 主頁開啟, 首次開啟, 物料查詢, 深色風格, 不刪除檔案 As Boolean
     Public timeExit, timeExit2, timeNow, timeNow2 As Integer

OW-ERP-SYS/LoginForm1.vb

@@ -134,31 +134,33 @@ Public Class LoginForm1
     End Sub
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         '-----------------------刪除自動更新項目-------------------------------------------------------------------------------------------------------------------------------------------
-        Dim 已開啟 As Boolean = False
-        Dim Strs As String = Application.StartupPath
-        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\OW-UPDATE.exe") Then
-            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
-            ' 判斷是否有符合的Process
-            For Each process As Process In pro
-                If ("OW-UPDATE").Equals(process.ProcessName) Then
-                    已開啟 = True
+        If File.Exists(Str + "\NOTAUTO.txt") Then : Else
+            Dim 已開啟 As Boolean = False
+            Dim Strs As String = Application.StartupPath
+            If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\OW-UPDATE.exe") Then
+                Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
+                ' 判斷是否有符合的Process
+                For Each process As Process In pro
+                    If ("OW-UPDATE").Equals(process.ProcessName) Then
+                        已開啟 = True
+                    End If
+                Next
+                If 已開啟 = False Then
+                    Timer1.Enabled = False
+                    If File.Exists(Str + "\OW-UPDATE.exe") Then : File.Delete(Str + "\OW-UPDATE.exe") : End If
                 End If
-            Next
-            If 已開啟 = False Then
-                Timer1.Enabled = False
-                If File.Exists(Str + "\OW-UPDATE.exe") Then : File.Delete(Str + "\OW-UPDATE.exe") : End If
-            End If
-        ElseIf File.Exists(Strs & "\OW-UPDATE.exe") Then
-            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
-            ' 判斷是否有符合的Process
-            For Each process As Process In pro
-                If ("OW-UPDATE").Equals(process.ProcessName) Then
-                    已開啟 = True
+            ElseIf File.Exists(Strs & "\OW-UPDATE.exe") Then
+                Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
+                ' 判斷是否有符合的Process
+                For Each process As Process In pro
+                    If ("OW-UPDATE").Equals(process.ProcessName) Then
+                        已開啟 = True
+                    End If
+                Next
+                If 已開啟 = False Then
+                    Timer1.Enabled = False
+                    If File.Exists(Str + "\OW-UPDATE.exe") Then : File.Delete(Str + "\OW-UPDATE.exe") : End If
                 End If
-            Next
-            If 已開啟 = False Then
-                Timer1.Enabled = False
-                If File.Exists(Str + "\OW-UPDATE.exe") Then : File.Delete(Str + "\OW-UPDATE.exe") : End If
             End If
         End If
         ' -------------------------------------- | | --------------------------------------

OW-ERP-SYS/OW-ERP-SYS.Designer.vb

@@ -141,7 +141,7 @@ Partial Class OW_ERP_SYS
         Me.虛擬桌_pl.Dock = System.Windows.Forms.DockStyle.Fill
         Me.虛擬桌_pl.Location = New System.Drawing.Point(0, 24)
         Me.虛擬桌_pl.Name = "虛擬桌_pl"
-        Me.虛擬桌_pl.Size = New System.Drawing.Size(1493, 695)
+        Me.虛擬桌_pl.Size = New System.Drawing.Size(1344, 656)
         Me.虛擬桌_pl.TabIndex = 1775
         '
         '人員ID卡系統配置設定_p
@@ -311,7 +311,7 @@ Partial Class OW_ERP_SYS
         Me.MyBrowser.Dock = System.Windows.Forms.DockStyle.Fill
         Me.MyBrowser.Location = New System.Drawing.Point(0, 24)
         Me.MyBrowser.Name = "MyBrowser"
-        Me.MyBrowser.Size = New System.Drawing.Size(1493, 695)
+        Me.MyBrowser.Size = New System.Drawing.Size(1344, 656)
         Me.MyBrowser.TabIndex = 1781
         '
         '全部關閉_tsm
@@ -343,7 +343,7 @@ Partial Class OW_ERP_SYS
         Me.Calculator_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Calculator_bt.BackColor = System.Drawing.Color.Orange
         Me.Calculator_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Calculator_bt.Location = New System.Drawing.Point(1350, 721)
+        Me.Calculator_bt.Location = New System.Drawing.Point(1201, 682)
         Me.Calculator_bt.Name = "Calculator_bt"
         Me.Calculator_bt.Size = New System.Drawing.Size(85, 25)
         Me.Calculator_bt.TabIndex = 1778
@@ -359,7 +359,7 @@ Partial Class OW_ERP_SYS
         Me.MenuStrip.MdiWindowListItem = Me.視窗_tsm
         Me.MenuStrip.Name = "MenuStrip"
         Me.MenuStrip.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.MenuStrip.Size = New System.Drawing.Size(1493, 24)
+        Me.MenuStrip.Size = New System.Drawing.Size(1344, 24)
         Me.MenuStrip.TabIndex = 1772
         Me.MenuStrip.Text = "MenuStrip"
         '
@@ -432,7 +432,7 @@ Partial Class OW_ERP_SYS
         '
         Me.製程配方表_tsm.ForeColor = System.Drawing.Color.Firebrick
         Me.製程配方表_tsm.Name = "製程配方表_tsm"
-        Me.製程配方表_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.製程配方表_tsm.Size = New System.Drawing.Size(134, 22)
         Me.製程配方表_tsm.Text = "製程配方表"
         '
         '倉儲系統管理_tsm
@@ -448,14 +448,14 @@ Partial Class OW_ERP_SYS
         '
         Me.倉儲控制表_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.倉儲控制表_tsm.Name = "倉儲控制表_tsm"
-        Me.倉儲控制表_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.倉儲控制表_tsm.Size = New System.Drawing.Size(134, 22)
         Me.倉儲控制表_tsm.Text = "倉儲控制表"
         '
         '物料資料庫_tsm
         '
         Me.物料資料庫_tsm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.物料資料庫_tsm.Name = "物料資料庫_tsm"
-        Me.物料資料庫_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.物料資料庫_tsm.Size = New System.Drawing.Size(134, 22)
         Me.物料資料庫_tsm.Text = "物料資料庫"
         '
         '人事系統管理_tsm
@@ -658,9 +658,9 @@ Partial Class OW_ERP_SYS
         Me.StatusStrip1.BackColor = System.Drawing.Color.WhiteSmoke
         Me.StatusStrip1.Font = New System.Drawing.Font("Microsoft JhengHei UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SYS_SET_tsm, Me.斜線_tss, Me.著作權_tss, Me.執行進度_tss, Me.ToolStripProgressBar1, Me.合計_TSSL})
-        Me.StatusStrip1.Location = New System.Drawing.Point(0, 719)
+        Me.StatusStrip1.Location = New System.Drawing.Point(0, 680)
         Me.StatusStrip1.Name = "StatusStrip1"
-        Me.StatusStrip1.Size = New System.Drawing.Size(1493, 26)
+        Me.StatusStrip1.Size = New System.Drawing.Size(1344, 26)
         Me.StatusStrip1.TabIndex = 1773
         Me.StatusStrip1.Text = "StatusStrip1"
         '
@@ -703,7 +703,7 @@ Partial Class OW_ERP_SYS
         Me.AutoScaleDimensions = New System.Drawing.SizeF(10.0!, 20.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.ClientSize = New System.Drawing.Size(1493, 745)
+        Me.ClientSize = New System.Drawing.Size(1344, 706)
         Me.Controls.Add(Me.虛擬桌_pl)
         Me.Controls.Add(Me.MyBrowser)
         Me.Controls.Add(Me.Calculator_bt)
@@ -716,6 +716,7 @@ Partial Class OW_ERP_SYS
         Me.MainMenuStrip = Me.MenuStrip
         Me.Margin = New System.Windows.Forms.Padding(5)
         Me.Name = "OW_ERP_SYS"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "OW_ERP_SYS"
         Me.虛擬桌_pl.ResumeLayout(False)
         Me.人員ID卡系統配置設定_p.ResumeLayout(False)

OW-ERP-SYS/OW-ERP-SYS.vb

@@ -62,7 +62,7 @@ Public Class OW_ERP_SYS
         End If
     End Sub
     Private Sub OW_ERP_SYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        初始化系統語言() : Me.Size = New Point(1496, 768) : MyMod.清單字體大小調整()
+        初始化系統語言() : Me.Size = New Point(1360, 745) : MyMod.清單字體大小調整()
         MyBrowser.SendToBack() : MyBrowser.Visible = False
         Dim screenBounds As Rectangle = Screen.PrimaryScreen.Bounds
         If screenBounds.Width < Me.Width Or screenBounds.Height < Me.Height Then
@@ -171,11 +171,6 @@ Public Class OW_ERP_SYS
         Else : Me.Text = Me.Text & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :" & 版本 : End If
 
         系統語言1_cb.Text = 系統語言
-        '------------------------系統閒置登出宣告-----------------------------------------------------------------------------------------------------------------------------------------------
-        SQL_系統閒置時間設定讀取() : If dr.Read() Then : timeExit = dr("timeExit") : timeExit2 = dr("timeExit2") : End If : conn.Close()
-        Timer1.Enabled = False : Timer2.Enabled = False : 主頁開啟 = True : 重登確認 = False : timeNow = 0 : timeNow2 = 0
-        重登計時() : 重置() : 不變形 = False
-
         '-----------------------帳號下拉清單------------------------------------------------------------------------------------------------------------
         SQL_帳號讀取()
         使用者1_cb.Items.Clear() : While (dr.Read()) : 使用者1_cb.Items.Add(dr("姓名")) : End While : conn.Close()
@@ -206,63 +201,6 @@ Public Class OW_ERP_SYS
     Private Sub OW_ERP_SYS_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
         系統關閉 = True : If 判斷重登 = True Then : 判斷重登 = False : Else : 判斷重登 = False : LoginForm1.Close() : End If
     End Sub
-    Private Sub 重登計時()
-        timeNow = 0 : timeNow2 = 0 : Timer1.Enabled = False : Timer2.Enabled = False : Timer1.Enabled = True
-    End Sub
-    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
-        timeNow += 1
-        If (timeNow >= timeExit) Then
-            Timer1.Enabled = False : Timer2.Enabled = True : 系統登出.ShowDialog()
-            If 重登確認 = True And 主頁開啟 = True Then
-                Timer1.Enabled = False : Timer2.Enabled = False
-                判斷重登 = True : 重登確認 = False : 主頁開啟 = False : LoginForm1.Show() : Me.Close() : Exit Sub
-            ElseIf 重登確認 = False And 主頁開啟 = True Then
-                timeNow = 0 : Timer1.Enabled = True : Timer2.Enabled = False : timeNow2 = 0
-            End If
-        End If
-    End Sub
-    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
-        Timer1.Enabled = False
-        timeNow2 += 1
-        If (timeNow2 >= timeExit2) Then
-            Timer1.Enabled = False : Timer2.Enabled = False
-            判斷重登 = True : 重登確認 = False : 主頁開啟 = False : LoginForm1.Show() : 系統登出.Close() : Me.Close() : Exit Sub
-        End If
-    End Sub
-    Private Sub Message_tb_Click(sender As Object, e As EventArgs)
-        '------------------------即時通訊功能----------------------------------------------------------------------------------------------------------------
-        Dim Strs As String = Application.StartupPath
-        If File.Exists(Strs + "\LIVE.txt") Then : File.Delete(Strs + "\LIVE.txt") : End If
-        If File.Exists(Strs + "\USER.txt") Then : File.Delete(Strs + "\USER.txt") : End If
-        Dim FilePath As String = Strs + "\LIVE.txt"
-        Try
-            Using fs As System.IO.FileStream = New System.IO.FileStream(FilePath, FileMode.Append)
-                Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
-                    Dim str As String = "106.1.48.106" : sw.WriteLine(str) : sw.Flush()  '插入一整行
-                End Using
-            End Using
-        Catch ex As Exception
-        End Try
-        Dim FilePath1 As String = Strs + "\USER.txt"
-        Try
-            Using fs As System.IO.FileStream = New System.IO.FileStream(FilePath1, FileMode.Append)
-                Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
-                    Dim str As String = gUserName : sw.WriteLine(str) : sw.Flush()  '插入一整行
-                End Using
-            End Using
-        Catch ex As Exception
-        End Try
-        Dim 已開啟 As Boolean
-        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\HX-PGS-Message.exe") Then
-            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()    ' 判斷是否有符合的Process
-            For Each process As Process In pro : If ("HX-PGS-Message").Equals(process.ProcessName) Then : 已開啟 = True : End If : Next
-            If 已開啟 = False Then : Shell(My.Computer.FileSystem.SpecialDirectories.Desktop + "\HX-PGS-Message.exe", vbNormalFocus) : End If
-        ElseIf File.Exists(Strs & "\HX-PGS-Message.exe") Then
-            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()  ' 判斷是否有符合的Process
-            For Each process As Process In pro : If ("HX-PGS-Message").Equals(process.ProcessName) Then : 已開啟 = True : End If : Next
-            If 已開啟 = False Then : Shell(Strs + "\HX-PGS-Message.exe", vbNormalFocus) : End If
-        End If
-    End Sub
     Private Sub 重置()
         首次開啟 = True : 不變形 = True : 工人 = False
         BL = False : BL1 = False : BL2 = False : BL3 = False : BL4 = False : BL5 = False : BL6 = False : BL7 = False : BL8 = False
@@ -280,7 +218,7 @@ Public Class OW_ERP_SYS
     '------------------------檔案-------------------------------------------------------------------------------------------------------------------------------------------------
     Private Sub 個人帳號管理_tsm_Click(sender As Object, e As EventArgs) Handles 個人帳號管理_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        重登計時() : 重置() : 個人帳號管理.ShowDialog() : 個人帳號管理.BringToFront()
+        重置() : 個人帳號管理.ShowDialog() : 個人帳號管理.BringToFront()
     End Sub
     Private Sub 桌面捷徑設定_tsm_Click(sender As Object, e As EventArgs) Handles 桌面捷徑設定_tsm.Click
         桌面捷徑設定.ShowDialog() : HXGPSERPSYS_Siz()
@@ -298,7 +236,7 @@ Public Class OW_ERP_SYS
     '------------------------人事系統管理-------------------------------------------------------------------------------------------------------------------------------------------------
     Private Sub 人員基本資料_tsm_Click(sender As Object, e As EventArgs) Handles 人員基本資料_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        重登計時() : 重置() : If 登入人級別 = "00" Then : BL = False : Else : BL = True : End If
+        重置() : If 登入人級別 = "00" Then : BL = False : Else : BL = True : End If
         人員基本資料.Show() : 人員基本資料.BringToFront() : 虛擬桌面隱藏()
     End Sub
     Private Sub 人員基本資料_pb_Click(sender As Object, e As EventArgs) Handles 人員基本資料_pb.Click
@@ -309,7 +247,7 @@ Public Class OW_ERP_SYS
     End Sub
     Private Sub 人員ID卡系統配置設定_tsm_Click(sender As Object, e As EventArgs) Handles 人員ID卡系統配置設定_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        重登計時() : 重置() : 人員ID卡系統配置設定.Show() : 人員ID卡系統配置設定.BringToFront() : 虛擬桌面隱藏()
+        重置() : 人員ID卡系統配置設定.Show() : 人員ID卡系統配置設定.BringToFront() : 虛擬桌面隱藏()
     End Sub
     Private Sub 人員ID卡系統配置設定_pb_Click(sender As Object, e As EventArgs) Handles 人員ID卡系統配置設定_pb.Click
         人員ID卡系統配置設定_tsm.PerformClick()
@@ -320,7 +258,7 @@ Public Class OW_ERP_SYS
     '------------------------技術系統管理-------------------------------------------------------------------------------------------------------------------------------------------------
     Private Sub 製程配方表_tsm_Click(sender As Object, e As EventArgs) Handles 製程配方表_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        重登計時() : 重置() : 製程配方表.Show() : 製程配方表.BringToFront() : 虛擬桌面隱藏()
+        重置() : 製程配方表.Show() : 製程配方表.BringToFront() : 虛擬桌面隱藏()
     End Sub
     Private Sub 製程配方表_pb_Click(sender As Object, e As EventArgs) Handles 製程配方表_pb.Click
         製程配方表_tsm.PerformClick()
@@ -331,39 +269,39 @@ Public Class OW_ERP_SYS
     '------------------------資料庫系統管理-------------------------------------------------------------------------------------------------------------------------------------------------
     Private Sub FTP資料夾管理_tsm_Click(sender As Object, e As EventArgs) Handles FTP資料夾管理_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        重登計時() : 重置() : FTP資料夾管理.Show() : FTP資料夾管理.BringToFront() : 虛擬桌面隱藏()
+        重置() : FTP資料夾管理.Show() : FTP資料夾管理.BringToFront() : 虛擬桌面隱藏()
     End Sub
     Private Sub 系統執行檔版本管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        重登計時() : 重置() : 系統執行檔版本管理.Show() : 系統執行檔版本管理.BringToFront() : 虛擬桌面隱藏()
+        重置() : 系統執行檔版本管理.Show() : 系統執行檔版本管理.BringToFront() : 虛擬桌面隱藏()
     End Sub
     Private Sub 系統使用者管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        重登計時() : 重置() : BL = False : 系統使用者管理.Show() : 系統使用者管理.BringToFront() : 虛擬桌面隱藏()
+        重置() : BL = False : 系統使用者管理.Show() : 系統使用者管理.BringToFront() : 虛擬桌面隱藏()
     End Sub
     Private Sub 系統權限預設表_tsm_Click(sender As Object, e As EventArgs) Handles 系統權限預設表_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        重登計時() : 重置() : 系統權限預設表.Show() : 系統權限預設表.BringToFront() : 虛擬桌面隱藏()
+        重置() : 系統權限預設表.Show() : 系統權限預設表.BringToFront() : 虛擬桌面隱藏()
     End Sub
     Private Sub 簽名檔管理_tsm_Click(sender As Object, e As EventArgs) Handles 簽名檔管理_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        重登計時() : 重置() : 簽名檔管理.Show() : 簽名檔管理.BringToFront() : 虛擬桌面隱藏()
+        重置() : 簽名檔管理.Show() : 簽名檔管理.BringToFront() : 虛擬桌面隱藏()
     End Sub
     Private Sub 系統通用變數管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統通用變數管理_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        重登計時() : 重置() : 系統通用變數管理.Show() : 系統通用變數管理.BringToFront() : 虛擬桌面隱藏()
+        重置() : 系統通用變數管理.Show() : 系統通用變數管理.BringToFront() : 虛擬桌面隱藏()
     End Sub
     Private Sub 系統編碼規則_tsm_Click(sender As Object, e As EventArgs) Handles 系統編碼規則_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        重登計時() : 重置() : 系統編碼規則.Show() : 系統編碼規則.BringToFront() : 虛擬桌面隱藏()
+        重置() : 系統編碼規則.Show() : 系統編碼規則.BringToFront() : 虛擬桌面隱藏()
     End Sub
     Private Sub 系統組織架構設定_tsm_Click(sender As Object, e As EventArgs) Handles 系統組織架構設定_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        重登計時() : 重置() : 系統組織架構設定.Show() : 系統組織架構設定.BringToFront() : 虛擬桌面隱藏()
+        重置() : 系統組織架構設定.Show() : 系統組織架構設定.BringToFront() : 虛擬桌面隱藏()
     End Sub
     Private Sub 部門權限設定_tsm_Click(sender As Object, e As EventArgs) Handles 部門權限設定_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
-        重登計時() : 重置() : 部門權限設定.Show() : 部門權限設定.BringToFront() : 虛擬桌面隱藏()
+        重置() : 部門權限設定.Show() : 部門權限設定.BringToFront() : 虛擬桌面隱藏()
     End Sub
     Private Sub Calculator_bt_Click(sender As Object, e As EventArgs) Handles Calculator_bt.Click
         Shell("calc")     'PA = "" : 計算機.Show() : 計算機.BringToFront()

OW-ERP-SYS/obj/Debug/OW-ERP-SYS.vbproj.FileListAbsolute.txt

@@ -96,3 +96,53 @@ D:\工巧明\OW-ERP-SYS\OW-ERP-SYS\obj\Debug\OW-ERP-SYS.vbproj.CopyComplete
 D:\工巧明\OW-ERP-SYS\OW-ERP-SYS\obj\Debug\OW-ERP-SYS.exe
 D:\工巧明\OW-ERP-SYS\OW-ERP-SYS\obj\Debug\OW-ERP-SYS.xml
 D:\工巧明\OW-ERP-SYS\OW-ERP-SYS\obj\Debug\OW-ERP-SYS.pdb
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\bin\Debug\OW-ERP-SYS.exe.config
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\bin\Debug\OW-ERP-SYS.exe
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\bin\Debug\OW-ERP-SYS.pdb
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\bin\Debug\OW-ERP-SYS.xml
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\bin\Debug\DotNetBarcode.dll
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW-ERP-SYS.vbproj.AssemblyReference.cache
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW-ERP-SYS.vbproj.SuggestedBindingRedirects.cache
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\Interop.ACTIVEXLib.dll
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\Interop.SHDocVw.dll
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW-ERP-SYS.vbproj.ResolveComReference.cache
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.人員ID卡系統配置設定.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.人員基本資料.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.LINE_使用者管理表.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.LINE_權限一覽表.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.物料資料庫.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.產品庫存表.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.倉儲控制表.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.製程配方表.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.FTP資料夾管理.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.個人帳號管理.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.系統使用者管理.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.系統執行檔版本管理.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.系統對應電腦註冊.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.系統權限預設表.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.系統組織架構設定.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.系統編碼規則.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.系統通用變數管理.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.部門權限設定.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.下拉清單_1.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.下拉清單_2.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.圖片放大視窗.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.文件查閱視窗.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.桌面捷徑設定.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.測試線路選擇.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.簽名檔管理.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.系統登出.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.線路選擇.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.輸入密碼.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.輸入視窗.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.通知視窗.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.進度條視窗.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.LoginForm1.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.Resources.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.OW_ERP_SYS.resources
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW-ERP-SYS.vbproj.GenerateResource.cache
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW-ERP-SYS.vbproj.CoreCompileInputs.cache
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW-ERP-SYS.vbproj.CopyComplete
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW-ERP-SYS.exe
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW-ERP-SYS.xml
+D:\Project\OW-ERP-SYS-Team\OW-ERP-SYS\obj\Debug\OW-ERP-SYS.pdb