20230204備份

YD-ERP-SYS/LoginForm1.vb

@@ -10,6 +10,7 @@ Public Class LoginForm1
     ' 接著，My.User 便會傳回封裝在 CustomPrincipal 物件中的識別資訊，
     ' 例如使用者名稱、顯示名稱等。
     ReadOnly ds2 As New DataSet
+    Dim Str As String = Application.StartupPath
     Dim MACKK As String 'MAC碼
     Dim diskId As String '數字ID
     Dim diskSerialNumber As String '硬碟序列
@@ -42,9 +43,33 @@ Public Class LoginForm1
     End Sub
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         '-----------------------刪除自動更新項目-----------------------------------------------------------------------------------------------------------------------------------------------
-        Dim Str As String = Application.StartupPath
-        If File.Exists(Str + "\SYS-UPDATE.exe") Then : File.Delete(Str + "\SYS-UPDATE.exe") : End If
-        Timer1.Enabled = False
+        Dim 已開啟 As Boolean = False
+        Dim Strs As String = Application.StartupPath
+        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\SYS-UPDATE.exe") Then
+            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
+            ' 判斷是否有符合的Process
+            For Each process As Process In pro
+                If ("SYS-UPDATE").Equals(process.ProcessName) Then
+                    已開啟 = True
+                End If
+            Next
+            If 已開啟 = False Then
+                Timer1.Enabled = False
+                If File.Exists(Str + "\SYS-UPDATE.exe") Then : File.Delete(Str + "\SYS-UPDATE.exe") : End If
+            End If
+        ElseIf File.Exists(Strs & "\SYS-UPDATE.exe") Then
+            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
+            ' 判斷是否有符合的Process
+            For Each process As Process In pro
+                If ("SYS-UPDATE").Equals(process.ProcessName) Then
+                    已開啟 = True
+                End If
+            Next
+            If 已開啟 = False Then
+                Timer1.Enabled = False
+                If File.Exists(Str + "\SYS-UPDATE.exe") Then : File.Delete(Str + "\SYS-UPDATE.exe") : End If
+            End If
+        End If
     End Sub
     Private Sub LoginForm1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         '-----------------------伺服器登入選擇-----------------------------------------------------------------------------------------------------------------------------------------------
@@ -118,13 +143,12 @@ Public Class LoginForm1
         登入程序()
     End Sub
     Private Sub 自動更新2()
-        Dim aa1 As MsgBoxResult
-        aa1 = MsgBox("系統版本號 與 資料庫版本號 對應不上，請下載最新的執行檔。", MsgBoxStyle.OkCancel)
-        If aa1 = MsgBoxResult.Ok Then
-            Dim Str As String = Application.StartupPath
+        Dim Str As String = Application.StartupPath
+        If File.Exists(Str + "\NOTAUTO.txt") Then
+            If 使用者帳號_cb.Text = "b70340" Or 使用者帳號_cb.Text = "B70340" Then : Else : End If
+        Else
             My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "SYS-UPDATE.exe", Str + "\SYS-UPDATE.exe")
-            Shell(Str + "\SYS-UPDATE.exe", vbNormalFocus)
-            Me.Close()
+            Shell(Str + "\SYS-UPDATE.exe", vbNormalFocus) : Me.Close()
         End If
     End Sub
     Private Sub 登入第一層()

YD-ERP-SYS/Module/SQL_業務系統管理.vb

@@ -132,6 +132,32 @@
                 ORDER BY   CHARINDEX(LEFT(銷售控制表.單號, 1), '123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'), 銷售控制表.單號 DESC"
         CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_銷售控制表_訂單控制表1()
+        ConnOpen()
+        SQL1 = "SELECT      銷售控制表.流水號, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.開單日期, 銷售控制表.交貨日期, 
+                            銷售控制表.含稅, 銷售控制表.單位主管, 銷售控制表.審核日期, 銷售收款事項.內容, 銷售收款事項.金額 AS 未收額額, 
+                            銷售控制表.送貨地點, 銷售控制表.運費, 銷售控制表.客戶編號, 客戶資料表.電話1, 客戶資料表.電話2, 
+                            客戶資料表.地址, 客戶資料表.公司名稱, 客戶資料表.統編, 銷售控制表.稅金, 銷售控制表.已出貨 AS 出貨, 
+                            銷售控制表.轉業績日期, 銷售控制表.已出貨 AS 已結單, 銷售控制表.銷貨總額
+                FROM        銷售控制表 INNER JOIN
+                            客戶資料表 ON 銷售控制表.客戶編號 = 客戶資料表.舊編 INNER JOIN
+                                (SELECT          銷售明細表.單號
+                                  FROM               銷售明細表 INNER JOIN
+                                                              物料資料庫 ON 銷售明細表.料號 = 物料資料庫.料號
+                                  WHERE           (銷售明細表.料號 LIKE N'%" & PA21 & "%') OR
+                                                              (銷售明細表.備註 LIKE N'%" & PA21 & "%') OR
+                                                              (物料資料庫.品名 LIKE N'%" & PA21 & "%')
+                                  GROUP BY    銷售明細表.單號) AS QQQ ON 銷售控制表.單號 = QQQ.單號 LEFT OUTER JOIN
+                            銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號
+                WHERE      (銷售收款事項.內容 LIKE '%" & PA22 & "%') AND (客戶資料表.名稱 LIKE N'%" & PA20 & "%') OR
+                           (銷售收款事項.內容 LIKE '%" & PA22 & "%') AND (客戶資料表.電話1 LIKE N'%" & PA20 & "%') OR
+                           (銷售收款事項.內容 LIKE '%" & PA22 & "%') AND (客戶資料表.電話2 LIKE N'%" & PA20 & "%') OR
+                           (銷售收款事項.內容 LIKE '%" & PA22 & "%') AND (客戶資料表.地址 LIKE N'%" & PA20 & "%') OR
+                           (銷售收款事項.內容 LIKE '%" & PA22 & "%') AND (客戶資料表.公司名稱 LIKE N'%" & PA20 & "%') OR
+                           (銷售收款事項.內容 LIKE '%" & PA22 & "%') AND (客戶資料表.統編 LIKE N'%" & PA20 & "%')
+                ORDER BY   CHARINDEX(LEFT(銷售控制表.單號, 1), '123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'), 銷售控制表.單號 DESC"
+        CmdSet_For_DGV()
+    End Sub
     '---------------------銷售分析表-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_銷售分析表_物料明細()
         If 銷售分析表.依開單日期_ch.Checked = False Then

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 = "2022122501"
+    Public 版本 As String = "2023020301"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址, 關鍵字編號, 進度條後墜 As String
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

YD-ERP-SYS/業務系統管理/訂單控制表.Designer.vb

@@ -23,18 +23,18 @@ Partial Class 訂單控制表
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        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()
-        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 DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.業務_cb = New System.Windows.Forms.ComboBox()
         Me.銷售單據_dgv = New System.Windows.Forms.DataGridView()
         Me.未審核_lb = New System.Windows.Forms.Label()
@@ -138,6 +138,7 @@ Partial Class 訂單控制表
         Me.重新整理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.Label13 = New System.Windows.Forms.Label()
         Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.批量刷銷售_bt = New System.Windows.Forms.Button()
         Me.查詢_bt = New System.Windows.Forms.Button()
         Me.物料關鍵字_tb = New System.Windows.Forms.TextBox()
         Me.Label15 = New System.Windows.Forms.Label()
@@ -146,7 +147,9 @@ Partial Class 訂單控制表
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
         Me.顯示_bt = New System.Windows.Forms.Button()
         Me.隱藏_bt = New System.Windows.Forms.Button()
-        Me.批量刷銷售_bt = New System.Windows.Forms.Button()
+        Me.查詢1_bt = New System.Windows.Forms.Button()
+        Me.帳務關鍵字_tb = New System.Windows.Forms.TextBox()
+        Me.Label16 = New System.Windows.Forms.Label()
         CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         CType(Me.銷售衍生運費_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -173,20 +176,20 @@ Partial Class 訂單控制表
         '
         '銷售單據_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.銷售單據_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售單據_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
         Me.銷售單據_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), 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, 52)
+        Me.銷售單據_dgv.Location = New System.Drawing.Point(3, 77)
         Me.銷售單據_dgv.Name = "銷售單據_dgv"
         Me.銷售單據_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
         Me.銷售單據_dgv.RowTemplate.Height = 24
-        Me.銷售單據_dgv.Size = New System.Drawing.Size(548, 661)
+        Me.銷售單據_dgv.Size = New System.Drawing.Size(548, 636)
         Me.銷售單據_dgv.TabIndex = 1256
         '
         '未審核_lb
@@ -462,8 +465,8 @@ Partial Class 訂單控制表
         '
         '銷售衍生運費_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.銷售衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.銷售衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
         Me.銷售衍生運費_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.銷售衍生運費_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -471,9 +474,9 @@ Partial Class 訂單控制表
         Me.銷售衍生運費_dgv.Location = New System.Drawing.Point(3, 540)
         Me.銷售衍生運費_dgv.Name = "銷售衍生運費_dgv"
         Me.銷售衍生運費_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售衍生運費_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle16.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售衍生運費_dgv.RowsDefaultCellStyle = DataGridViewCellStyle16
         Me.銷售衍生運費_dgv.RowTemplate.Height = 24
         Me.銷售衍生運費_dgv.Size = New System.Drawing.Size(574, 102)
         Me.銷售衍生運費_dgv.TabIndex = 1350
@@ -909,17 +912,17 @@ Partial Class 訂單控制表
         '
         '客戶資料_dgv
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.客戶資料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.客戶資料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
         Me.客戶資料_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), 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(17, 12298)
+        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 12531)
         Me.客戶資料_dgv.Name = "客戶資料_dgv"
         Me.客戶資料_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.客戶資料_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.客戶資料_dgv.RowsDefaultCellStyle = DataGridViewCellStyle18
         Me.客戶資料_dgv.RowTemplate.Height = 24
         Me.客戶資料_dgv.Size = New System.Drawing.Size(191, 92)
         Me.客戶資料_dgv.TabIndex = 1254
@@ -1009,8 +1012,8 @@ Partial Class 訂單控制表
         '
         '銷售備註_dgv
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.銷售備註_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.銷售備註_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
         Me.銷售備註_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.銷售備註_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -1018,17 +1021,17 @@ Partial Class 訂單控制表
         Me.銷售備註_dgv.Location = New System.Drawing.Point(3, 411)
         Me.銷售備註_dgv.Name = "銷售備註_dgv"
         Me.銷售備註_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售備註_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle20.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售備註_dgv.RowsDefaultCellStyle = DataGridViewCellStyle20
         Me.銷售備註_dgv.RowTemplate.Height = 24
         Me.銷售備註_dgv.Size = New System.Drawing.Size(571, 102)
         Me.銷售備註_dgv.TabIndex = 1250
         '
         '收款事項_dgv
         '
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.收款事項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.收款事項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
         Me.收款事項_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.收款事項_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -1036,9 +1039,9 @@ Partial Class 訂單控制表
         Me.收款事項_dgv.Location = New System.Drawing.Point(3, 668)
         Me.收款事項_dgv.Name = "收款事項_dgv"
         Me.收款事項_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.收款事項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle22.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.收款事項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle22
         Me.收款事項_dgv.RowTemplate.Height = 24
         Me.收款事項_dgv.Size = New System.Drawing.Size(574, 102)
         Me.收款事項_dgv.TabIndex = 1282
@@ -1075,8 +1078,8 @@ Partial Class 訂單控制表
         '
         '銷售明細_dgv
         '
-        DataGridViewCellStyle11.BackColor = System.Drawing.Color.White
-        Me.銷售明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        DataGridViewCellStyle23.BackColor = System.Drawing.Color.White
+        Me.銷售明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
         Me.銷售明細_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.銷售明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -1084,9 +1087,9 @@ Partial Class 訂單控制表
         Me.銷售明細_dgv.Location = New System.Drawing.Point(3, 29)
         Me.銷售明細_dgv.Name = "銷售明細_dgv"
         Me.銷售明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle12.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle12
+        DataGridViewCellStyle24.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle24
         Me.銷售明細_dgv.RowTemplate.Height = 24
         Me.銷售明細_dgv.Size = New System.Drawing.Size(760, 355)
         Me.銷售明細_dgv.TabIndex = 1199
@@ -1297,6 +1300,9 @@ Partial Class 訂單控制表
         Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel2.Controls.Add(Me.查詢1_bt)
+        Me.Panel2.Controls.Add(Me.帳務關鍵字_tb)
+        Me.Panel2.Controls.Add(Me.Label16)
         Me.Panel2.Controls.Add(Me.批量刷銷售_bt)
         Me.Panel2.Controls.Add(Me.查詢_bt)
         Me.Panel2.Controls.Add(Me.物料關鍵字_tb)
@@ -1322,9 +1328,18 @@ Partial Class 訂單控制表
         Me.Panel2.Size = New System.Drawing.Size(556, 719)
         Me.Panel2.TabIndex = 1339
         '
+        '批量刷銷售_bt
+        '
+        Me.批量刷銷售_bt.Location = New System.Drawing.Point(473, 26)
+        Me.批量刷銷售_bt.Name = "批量刷銷售_bt"
+        Me.批量刷銷售_bt.Size = New System.Drawing.Size(81, 25)
+        Me.批量刷銷售_bt.TabIndex = 1342
+        Me.批量刷銷售_bt.Text = "批量刷銷售"
+        Me.批量刷銷售_bt.UseVisualStyleBackColor = True
+        '
         '查詢_bt
         '
-        Me.查詢_bt.Location = New System.Drawing.Point(291, 26)
+        Me.查詢_bt.Location = New System.Drawing.Point(365, 26)
         Me.查詢_bt.Name = "查詢_bt"
         Me.查詢_bt.Size = New System.Drawing.Size(81, 25)
         Me.查詢_bt.TabIndex = 1341
@@ -1334,9 +1349,9 @@ Partial Class 訂單控制表
         '物料關鍵字_tb
         '
         Me.物料關鍵字_tb.ForeColor = System.Drawing.Color.Black
-        Me.物料關鍵字_tb.Location = New System.Drawing.Point(67, 27)
+        Me.物料關鍵字_tb.Location = New System.Drawing.Point(70, 27)
         Me.物料關鍵字_tb.Name = "物料關鍵字_tb"
-        Me.物料關鍵字_tb.Size = New System.Drawing.Size(221, 23)
+        Me.物料關鍵字_tb.Size = New System.Drawing.Size(292, 23)
         Me.物料關鍵字_tb.TabIndex = 1340
         '
         'Label15
@@ -1431,14 +1446,33 @@ Partial Class 訂單控制表
         Me.隱藏_bt.Text = "隱藏" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "控件"
         Me.隱藏_bt.UseVisualStyleBackColor = True
         '
-        '批量刷銷售_bt
+        '查詢1_bt
         '
-        Me.批量刷銷售_bt.Location = New System.Drawing.Point(473, 26)
-        Me.批量刷銷售_bt.Name = "批量刷銷售_bt"
-        Me.批量刷銷售_bt.Size = New System.Drawing.Size(81, 25)
-        Me.批量刷銷售_bt.TabIndex = 1342
-        Me.批量刷銷售_bt.Text = "批量刷銷售"
-        Me.批量刷銷售_bt.UseVisualStyleBackColor = True
+        Me.查詢1_bt.Location = New System.Drawing.Point(365, 51)
+        Me.查詢1_bt.Name = "查詢1_bt"
+        Me.查詢1_bt.Size = New System.Drawing.Size(81, 25)
+        Me.查詢1_bt.TabIndex = 1345
+        Me.查詢1_bt.Text = "查詢"
+        Me.查詢1_bt.UseVisualStyleBackColor = True
+        '
+        '帳務關鍵字_tb
+        '
+        Me.帳務關鍵字_tb.ForeColor = System.Drawing.Color.Black
+        Me.帳務關鍵字_tb.Location = New System.Drawing.Point(70, 52)
+        Me.帳務關鍵字_tb.Name = "帳務關鍵字_tb"
+        Me.帳務關鍵字_tb.Size = New System.Drawing.Size(292, 23)
+        Me.帳務關鍵字_tb.TabIndex = 1344
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.ForeColor = System.Drawing.Color.Black
+        Me.Label16.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label16.Location = New System.Drawing.Point(0, 56)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(67, 16)
+        Me.Label16.TabIndex = 1343
+        Me.Label16.Text = "帳務關鍵字"
         '
         '訂單控制表
         '
@@ -1582,4 +1616,7 @@ Partial Class 訂單控制表
     Friend WithEvents Label15 As Label
     Friend WithEvents 查詢_bt As Button
     Friend WithEvents 批量刷銷售_bt As Button
+    Friend WithEvents 查詢1_bt As Button
+    Friend WithEvents 帳務關鍵字_tb As TextBox
+    Friend WithEvents Label16 As Label
 End Class

YD-ERP-SYS/業務系統管理/訂單控制表.vb

@@ -10,8 +10,9 @@ Public Class 訂單控制表
             銷售單據_dgv.AllowUserToAddRows = False
             銷售單據_dgv.RowTemplate.Height = 35
 
-            PA19 = 業務_cb.Text : PA20 = 客戶1_tb.Text : PA21 = 物料關鍵字_tb.Text
-            SQL_銷售控制表_訂單控制表()
+            PA19 = 業務_cb.Text : PA20 = 客戶1_tb.Text : PA21 = 物料關鍵字_tb.Text : PA22 = 帳務關鍵字_tb.Text
+            If 帳務關鍵字_tb.Text = "" Then : SQL_銷售控制表_訂單控制表() : Else : SQL_銷售控制表_訂單控制表1() : End If
+
             da.Fill(ds1) : 銷售單據_dgv.DataSource = ds1.Tables(0) : conn.Close()
 
             銷售單據_dgv.Columns(0).Visible = False : 銷售單據_dgv.Columns(1).FillWeight = 85 : 銷售單據_dgv.Columns(2).FillWeight = 100 : 銷售單據_dgv.Columns(3).FillWeight = 100
@@ -651,6 +652,9 @@ Public Class 訂單控制表
         Panel3.Size = New Size(NU1, NU2)
     End Sub
     Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
-        Set_清單1()
+        Set_清單1() : 帳務關鍵字_tb.Text = ""
+    End Sub
+    Private Sub 查詢1_bt_Click(sender As Object, e As EventArgs) Handles 查詢1_bt.Click
+        Set_清單1() : 帳務關鍵字_tb.Text = ""
     End Sub
 End Class

YD-ERP-SYS/資料庫系統管理/系統執行檔版本管理.Designer.vb

@@ -43,7 +43,7 @@ Partial Class 系統執行檔版本管理
         Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label1.Location = New System.Drawing.Point(696, 303)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(80, 16)
+        Me.Label1.Size = New System.Drawing.Size(79, 16)
         Me.Label1.TabIndex = 649
         Me.Label1.Text = "原代碼存放取"
         '
@@ -64,7 +64,7 @@ Partial Class 系統執行檔版本管理
         Me.資料庫版本號_lb.BackColor = System.Drawing.SystemColors.Control
         Me.資料庫版本號_lb.Location = New System.Drawing.Point(431, 6)
         Me.資料庫版本號_lb.Name = "資料庫版本號_lb"
-        Me.資料庫版本號_lb.Size = New System.Drawing.Size(159, 16)
+        Me.資料庫版本號_lb.Size = New System.Drawing.Size(158, 16)
         Me.資料庫版本號_lb.TabIndex = 647
         Me.資料庫版本號_lb.Text = "資料庫版本號 : 2018110801"
         '
@@ -74,7 +74,7 @@ Partial Class 系統執行檔版本管理
         Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label12.Location = New System.Drawing.Point(693, 5)
         Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(92, 16)
+        Me.Label12.Size = New System.Drawing.Size(91, 16)
         Me.Label12.TabIndex = 646
         Me.Label12.Text = "執行檔案更新區"
         '
@@ -84,7 +84,7 @@ Partial Class 系統執行檔版本管理
         Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label13.Location = New System.Drawing.Point(5, 7)
         Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(56, 16)
+        Me.Label13.Size = New System.Drawing.Size(55, 16)
         Me.Label13.TabIndex = 645
         Me.Label13.Text = "我的電腦"
         '
@@ -137,7 +137,7 @@ Partial Class 系統執行檔版本管理
         Me.Label3.BackColor = System.Drawing.SystemColors.Control
         Me.Label3.Location = New System.Drawing.Point(170, 7)
         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 = 640
         Me.Label3.Text = "版本號"
         '
@@ -150,6 +150,10 @@ Partial Class 系統執行檔版本管理
         Me.版本號_tb.Size = New System.Drawing.Size(101, 23)
         Me.版本號_tb.TabIndex = 639
         '
+        'FolderBrowserDialog1
+        '
+        Me.FolderBrowserDialog1.RootFolder = System.Environment.SpecialFolder.MyComputer
+        '
         '系統執行檔版本管理
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)