版本號 : 2020072201

新增內容
1、財務帳本拆分
2、出貨明細可改實際離廠日資料
3、量產訂單可由輸入介面修改形體名稱與形體號碼

Signed-off-by: B70340 <b70340@gmail.com>

SHENKANG-MES-SYS/MyModule/SQL_Module.vb

@@ -0,0 +1,13 @@
+Imports System.Data.SqlClient
+Module SQL_Module
+    Public ConString As String : Public SQL1 As String : Public conn As New SqlConnection : Public cmd As New SqlCommand : Public dr As SqlDataReader : Public da As New SqlDataAdapter
+    Friend Sub ConnOpen()
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+    End Sub
+    Friend Sub CmdSet_For_DGV()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd
+    End Sub
+    Friend Sub CmdSet_For_dr()
+        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
+    End Sub
+End Module

SHENKANG-MES-SYS/MyModule/SQL_財務管理系統.vb

@@ -0,0 +1,71 @@
+Module SQL_財務管理系統
+    Friend Sub SQL_財務帳清單()
+        ConnOpen() : SQL1 = "SELECT 流水號, 項次, 用途, 金額, 備註 FROM 零用金支付明細 WHERE 流水號 LIKE N'" & PA1 & "' ORDER BY 項次" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_財務單據()
+        If PA = "一級未審核" Then
+            If 登入人部門 = "NA" Then
+                KKKJJ = " WHERE (零用金支付表.審核人 LIKE N'') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') ORDER BY 零用金支付表.流水號 DESC"
+            Else
+                KKKJJ = " WHERE (零用金支付表.申請人 LIKE N'" & gUserName & "') AND (零用金支付表.審核人 LIKE N'') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') 
+                          ORDER BY 零用金支付表.流水號 DESC"
+            End If
+        ElseIf PA = "一級作廢" Then
+            If 登入人部門 = "NA" Then
+                KKKJJ = " WHERE (零用金支付表.審核人 LIKE N'作廢%') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') ORDER BY 零用金支付表.流水號 DESC"
+            Else
+                KKKJJ = " WHERE (零用金支付表.申請人 LIKE N'" & gUserName & "') AND (零用金支付表.審核人 LIKE N'作廢%') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') 
+                          ORDER BY 零用金支付表.流水號 DESC"
+            End If
+        ElseIf PA = "二級未核准" Then
+            If 登入人部門 = "NA" Then
+                KKKJJ = " WHERE (審核人 NOT LIKE N'作廢%') AND (審核人 NOT LIKE N'') AND (核准人 LIKE N'') AND (帳本編號 LIKE '" & PA19 & "') ORDER BY 流水號 DESC"
+            Else
+                KKKJJ = " WHERE (零用金支付表.申請人 LIKE N'" & gUserName & "') AND (零用金支付表.審核人 NOT LIKE N'作廢%') AND (零用金支付表.審核人 NOT LIKE N'')  AND 
+                                (零用金支付表.核准人 LIKE N'') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') 
+                          ORDER BY 零用金支付表.流水號 DESC"
+            End If
+        ElseIf PA = "二級作廢" Then
+            If 登入人部門 = "NA" Then
+                KKKJJ = " WHERE (零用金支付表.審核人 NOT LIKE N'作廢%') AND (零用金支付表.審核人 NOT LIKE N'')  AND (零用金支付表.核准人 LIKE N'作廢%') AND 
+                                (零用金支付表.帳本編號 LIKE '" & PA19 & "') ORDER BY 流水號 DESC"
+            Else
+                KKKJJ = " WHERE (零用金支付表.申請人 LIKE N'" & gUserName & "') AND (零用金支付表.審核人 NOT LIKE N'作廢%') AND (零用金支付表.審核人 NOT LIKE N'')  AND 
+                                (零用金支付表.核准人 LIKE N'作廢%') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') 
+                          ORDER BY 零用金支付表.流水號 DESC"
+            End If
+        ElseIf PA = "審核介面_一級未審核" Then
+            If 登入人部門 = "NA" Then
+                KKKJJ = " WHERE (零用金支付表.審核人 LIKE N'') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') ORDER BY 零用金支付表.流水號 DESC"
+            Else
+                KKKJJ = " WHERE (零用金支付表.部門 LIKE N'" & 登入人部門 & "%') AND (零用金支付表.審核人 LIKE N'') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') 
+                          ORDER BY 零用金支付表.流水號 DESC"
+            End If
+        ElseIf PA = "審核介面_一級作廢" Then
+            If 登入人部門 = "NA" Then
+                KKKJJ = " WHERE (零用金支付表.審核人 LIKE N'作廢%') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') ORDER BY 零用金支付表.流水號 DESC"
+            Else
+                KKKJJ = " WHERE (零用金支付表.部門 LIKE N'" & 登入人部門 & "%') AND (零用金支付表.審核人 LIKE N'作廢%') AND (零用金支付表.帳本編號 LIKE '" & PA19 & "') 
+                          ORDER BY 零用金支付表.流水號 DESC"
+            End If
+        End If
+        ConnOpen()
+        SQL1 = "SELECT      零用金支付表.流水號, 零用金支付表.部門, 零用金支付表.申請人, LEFT(零用金支付表.申請日期, 10) 
+                            AS 申請日期, 零用金支付表.審核人, LEFT(零用金支付表.審核日期, 10) AS 審核日期, 
+                            零用金支付表.核准人, LEFT(零用金支付表.核准日期, 10) AS 核准日期, 零用金支付表.備註, 
+                            財務帳本編號.帳本名稱 AS 帳本
+                FROM        零用金支付表 INNER JOIN
+                            財務帳本編號 ON 零用金支付表.帳本編號 = 財務帳本編號.編號 " & KKKJJ & ""
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_帳本下拉清單()
+        ConnOpen() : SQL1 = "SELECT 編號, 帳本名稱 FROM 財務帳本編號 ORDER BY 編號" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_財務單據刪除()
+        ConnOpen() : SQL1 = "DELETE FROM 零用金支付表 WHERE (流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "DELETE FROM 零用金支付明細 WHERE (流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_零用金支付表最後一筆資料()
+        ConnOpen() : SQL1 = "SELECT TOP (1)  流水號 FROM 零用金支付表 WHERE ( 流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()
+    End Sub
+End Module

SHENKANG-MES-SYS/MyModule/SQL_資料庫系統管理.vb

@@ -0,0 +1,18 @@
+Module SQL_資料庫系統管理
+    '-------------------------系統編碼規則_1----------------------------------------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_帳本查詢()
+        ConnOpen() : SQL1 = "SELECT 編號, 帳本名稱 FROM 財務帳本編號 WHERE 帳本名稱 LIKE N'" & PA & "' ORDER BY 編號" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_帳本流水號最後一筆()
+        ConnOpen() : SQL1 = "Select TOP (1) 編號 FROM 財務帳本編號 ORDER BY 編號 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_帳本新增()
+        SQL1 = "INSERT INTO 財務帳本編號 (編號, 帳本名稱) VALUES (N'" & PA1 & "', N'" & PA & "')"
+    End Sub
+    Friend Sub SQL_帳本修改()
+        SQL1 = "UPDATE 財務帳本編號 SET 帳本名稱 = N'" & PA & "' WHERE 編號 LIKE N'" & 系統編碼規則_1.帳本編號_tb.Text & "'"
+    End Sub
+    Friend Sub SQL_帳本刪除()
+        SQL1 = "DELETE FROM 財務帳本編號 WHERE (編號 = N'" & 系統編碼規則_1.帳本編號_tb.Text & "')"
+    End Sub
+End Module

SHENKANG-MES-SYS/MyModule/MyModule.vb → SHENKANG-MES-SYS/MyModule/全域變數.vb

@@ -1,6 +1,6 @@
-Module MyModule
+Module 全域變數
     '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public g_conn_type As String = "" : Public ConString As String : Public gUserName As String : Public 登入人部門 As String : Public 員工編號 As String = ""
+    Public g_conn_type As String = "" : Public gUserName As String : Public 登入人部門 As String : Public 員工編號 As String = ""
     Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP實體位置 As String : Public 登入人IP As String
     Public CC(99) As Boolean : Public AA(99) As String : Public 版本號 As String ': Public BB(99) As Boolean :  
     Public 登入判斷 As Boolean
@@ -9,11 +9,15 @@
                                  CC51, CC52, CC53, CC54, CC55, CC56, CC57, CC58, CC59, CC60, CC61, CC62, CC63, CC64, CC65, CC66, CC67, CC68, CC69, CC70, CC71, CC72, CC73, CC74, CC75, CC76, CC77, CC78, 
                                  CC79, CC80, CC81, CC82, CC83, CC84, CC85, CC86, CC87, CC88, CC89, CC90, CC91, CC92, CC93, CC94, CC95 FROM"
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2020052301"
+    Public 版本 As String = "2020072201"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public SQL1 As String : Public 列印用SQL As String = "" : Public 列印用SQL1 As String = "" : Public 列印用SQL2 As String = "" : Public PA As String = "" : Public 驗貨報告 As String
+    Public PA As String = "" : Public PA1 As String = "" : Public PA2 As String = "" : Public PA3 As String = "" : Public PA4 As String = "" : Public PA5 As String = "" : Public PA6 As String = ""
+    Public PA7 As String = "" : Public PA8 As String = "" : Public PA9 As String = "" : Public PA10 As String = "" : Public PA11 As String = "" : Public PA12 As String = "" : Public PA13 As String = ""
+    Public PA14 As String = "" : Public PA15 As String = "" : Public PA16 As String = "" : Public PA17 As String = "" : Public PA18 As String = "" : Public PA19 As String = ""
+    Public 列印用SQL As String = "" : Public 列印用SQL1 As String = "" : Public 列印用SQL2 As String = "" : Public 驗貨報告 As String
     Public OD(45) As String : Public 簽核圖片編號 As String = ""
     Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
+    Public KKKJJ As String : Public KKKJJ2 As String : Public KKKJJ3 As String
     '----樣品系統用分類-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 樣品進度表分類1 As String : Public 樣品進度表分類2 As String : Public 樣品進度表分類3 As String : Public 樣品進度表分類4 As String : Public 樣品進度表分類5 As String
     Public 樣品備註 As String

SHENKANG-MES-SYS/WINPROFIT-ERP-SYS.vbproj

@@ -113,6 +113,9 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="MyModule\SQL_Module.vb" />
+    <Compile Include="MyModule\SQL_財務管理系統.vb" />
+    <Compile Include="MyModule\SQL_資料庫系統管理.vb" />
     <Compile Include="SplashScreen1.Designer.vb">
       <DependentUpon>SplashScreen1.vb</DependentUpon>
     </Compile>
@@ -287,7 +290,7 @@
     <Compile Include="WINPROFIT-ERP-SYS.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="MyModule\MyModule.vb" />
+    <Compile Include="MyModule\全域變數.vb" />
     <Compile Include="請採購館洗系統\一般物料請購單一覽表.Designer.vb">
       <DependentUpon>一般物料請購單一覽表.vb</DependentUpon>
     </Compile>

SHENKANG-MES-SYS/bin/Debug/WINPROFIT-ERP-SYS.application

@@ -14,7 +14,7 @@
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>wwaEN2lERQSUXoQYOASNtjyY50WwZt2lv3LPvIP5V4E=</dsig:DigestValue>
+        <dsig:DigestValue>iG9uqrG26rbd7WcHjUEQxxnl+ENKzjvczZxe+tS3DOY=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/bin/Debug/WINPROFIT-ERP-SYS.exe.manifest

@@ -43,14 +43,14 @@
     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5361080">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5374904">
       <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
       <hash>
         <dsig:Transforms>
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>IjNPo+wcVa7x6VP8K4XkYaN7Wy6XL0yJxXqByK/2lnY=</dsig:DigestValue>
+        <dsig:DigestValue>YrO0pC4m3tjz/kzUdyfsDbajTTjFR/g6q7J5Jg8bV6Q=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.application

@@ -14,7 +14,7 @@
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>wwaEN2lERQSUXoQYOASNtjyY50WwZt2lv3LPvIP5V4E=</dsig:DigestValue>
+        <dsig:DigestValue>iG9uqrG26rbd7WcHjUEQxxnl+ENKzjvczZxe+tS3DOY=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.exe.manifest

@@ -43,14 +43,14 @@
     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5361080">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5374904">
       <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
       <hash>
         <dsig:Transforms>
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>IjNPo+wcVa7x6VP8K4XkYaN7Wy6XL0yJxXqByK/2lnY=</dsig:DigestValue>
+        <dsig:DigestValue>YrO0pC4m3tjz/kzUdyfsDbajTTjFR/g6q7J5Jg8bV6Q=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-5fcd95726caf68b74cc6f95392aa65a8824c3357
+fc118b45a263188a9c2608194efcbeb61646589b

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.vbproj.FileListAbsolute.txt

@@ -87,7 +87,6 @@ G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\bin\Debug\WINPROFIT-ERP-SYS.exe.config
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\bin\Debug\WINPROFIT-ERP-SYS.exe
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\bin\Debug\WINPROFIT-ERP-SYS.pdb
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\bin\Debug\WINPROFIT-ERP-SYS.xml
-G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT-ERP-SYS.vbprojResolveAssemblyReference.cache
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.FTP資料夾管理.resources
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.LoginForm1.resources
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.WINPROFIT_ERP_SYS.resources
@@ -122,7 +121,6 @@ G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.簽名檔管
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.系統使用者管理.resources
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.系統執行檔版本管理.resources
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.系統編碼規則_1.resources
-G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.連線選擇.resources
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.Resources.resources
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.部件清單控制表.resources
 G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.零用金支付_對帳表.resources
@@ -634,3 +632,15 @@ F:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.訂單價格
 F:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.計算機.resources
 F:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.成本資料庫管理.resources
 F:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.列印_量產訂單控制表.resources
+G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT-ERP-SYS.vbprojAssemblyReference.cache
+G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.SplashScreen1.resources
+G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.列印_量產訂單控制表.resources
+G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.成本資料庫管理.resources
+G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.網段.resources
+G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.中皮結構_中底作法.resources
+G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.樣品標籤批量列印.resources
+G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.製鞋技術資料庫除錯.resources
+G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.訂單價格利潤明細表.resources
+G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.計算機.resources
+G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.量產出貨明細表.resources
+G:\WINPROFIT-ERP-SYS\SHENKANG-MES-SYS\obj\Debug\WINPROFIT_ERP_SYS.量產訂單輸入.resources

SHENKANG-MES-SYS/製鞋技術管理系統/楦頭規格表.Designer.vb

@@ -1577,7 +1577,7 @@ Partial Class 楦頭規格表
         '
         Me.ComboBox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.ComboBox5.FormattingEnabled = True
-        Me.ComboBox5.Items.AddRange(New Object() {"AT", "ET", "MT", " "})
+        Me.ComboBox5.Items.AddRange(New Object() {"AT", "ET", "MT", "SK", " "})
         Me.ComboBox5.Location = New System.Drawing.Point(92, 25)
         Me.ComboBox5.Name = "ComboBox5"
         Me.ComboBox5.Size = New System.Drawing.Size(109, 24)

SHENKANG-MES-SYS/財務管理系統/零用金支付單一覽表.Designer.vb

@@ -25,8 +25,8 @@ Partial Class 零用金支付單一覽表
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Label6 = New System.Windows.Forms.Label()
-        Me.DataGridView4 = New System.Windows.Forms.DataGridView()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.已審核_dgv = New System.Windows.Forms.DataGridView()
+        Me.明細_dgv = New System.Windows.Forms.DataGridView()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.TextBox3 = New System.Windows.Forms.TextBox()
         Me.Label2 = New System.Windows.Forms.Label()
@@ -52,8 +52,11 @@ Partial Class 零用金支付單一覽表
         Me.Label10 = New System.Windows.Forms.Label()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.CheckBox1 = New System.Windows.Forms.CheckBox()
-        CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.帳本編號_cb = New System.Windows.Forms.ComboBox()
+        Me.帳本名稱_cb = New System.Windows.Forms.ComboBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        CType(Me.已審核_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -66,29 +69,29 @@ Partial Class 零用金支付單一覽表
         Me.Label6.TabIndex = 746
         Me.Label6.Text = "總經理已核准的零用金支付單"
         '
-        'DataGridView4
+        '已審核_dgv
         '
         DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView4.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        Me.DataGridView4.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView4.Location = New System.Drawing.Point(12, 37)
-        Me.DataGridView4.Name = "DataGridView4"
-        Me.DataGridView4.RowHeadersWidth = 5
-        Me.DataGridView4.RowTemplate.Height = 24
-        Me.DataGridView4.Size = New System.Drawing.Size(947, 927)
-        Me.DataGridView4.TabIndex = 745
+        Me.已審核_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.已審核_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.已審核_dgv.Location = New System.Drawing.Point(12, 37)
+        Me.已審核_dgv.Name = "已審核_dgv"
+        Me.已審核_dgv.RowHeadersWidth = 5
+        Me.已審核_dgv.RowTemplate.Height = 24
+        Me.已審核_dgv.Size = New System.Drawing.Size(947, 927)
+        Me.已審核_dgv.TabIndex = 745
         '
-        'DataGridView1
+        '明細_dgv
         '
         DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(965, 187)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(937, 777)
-        Me.DataGridView1.TabIndex = 763
+        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.明細_dgv.Location = New System.Drawing.Point(965, 187)
+        Me.明細_dgv.Name = "明細_dgv"
+        Me.明細_dgv.RowHeadersWidth = 5
+        Me.明細_dgv.RowTemplate.Height = 24
+        Me.明細_dgv.Size = New System.Drawing.Size(937, 777)
+        Me.明細_dgv.TabIndex = 763
         '
         'Label3
         '
@@ -318,11 +321,46 @@ Partial Class 零用金支付單一覽表
         Me.CheckBox1.TabIndex = 811
         Me.CheckBox1.UseVisualStyleBackColor = True
         '
+        '帳本編號_cb
+        '
+        Me.帳本編號_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.帳本編號_cb.ForeColor = System.Drawing.Color.Green
+        Me.帳本編號_cb.FormattingEnabled = True
+        Me.帳本編號_cb.Items.AddRange(New Object() {"", "LANDED BRANDED", "FIRST COST"})
+        Me.帳本編號_cb.Location = New System.Drawing.Point(419, 48)
+        Me.帳本編號_cb.Name = "帳本編號_cb"
+        Me.帳本編號_cb.Size = New System.Drawing.Size(145, 24)
+        Me.帳本編號_cb.TabIndex = 1000
+        '
+        '帳本名稱_cb
+        '
+        Me.帳本名稱_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.帳本名稱_cb.ForeColor = System.Drawing.Color.Green
+        Me.帳本名稱_cb.FormattingEnabled = True
+        Me.帳本名稱_cb.Items.AddRange(New Object() {"", "LANDED BRANDED", "FIRST COST"})
+        Me.帳本名稱_cb.Location = New System.Drawing.Point(419, 6)
+        Me.帳本名稱_cb.Name = "帳本名稱_cb"
+        Me.帳本名稱_cb.Size = New System.Drawing.Size(145, 24)
+        Me.帳本名稱_cb.TabIndex = 999
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.ForeColor = System.Drawing.Color.Green
+        Me.Label11.Location = New System.Drawing.Point(381, 9)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(32, 16)
+        Me.Label11.TabIndex = 998
+        Me.Label11.Text = "帳本"
+        '
         '零用金支付單一覽表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 971)
+        Me.Controls.Add(Me.帳本編號_cb)
+        Me.Controls.Add(Me.帳本名稱_cb)
+        Me.Controls.Add(Me.Label11)
         Me.Controls.Add(Me.CheckBox1)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.TextBox7)
@@ -342,7 +380,7 @@ Partial Class 零用金支付單一覽表
         Me.Controls.Add(Me.TextBox13)
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.TextBox4)
-        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.明細_dgv)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.TextBox3)
         Me.Controls.Add(Me.Label2)
@@ -350,13 +388,13 @@ Partial Class 零用金支付單一覽表
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.TextBox1)
         Me.Controls.Add(Me.Label6)
-        Me.Controls.Add(Me.DataGridView4)
+        Me.Controls.Add(Me.已審核_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "零用金支付單一覽表"
         Me.Text = "零用金支付單一覽表"
-        CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.已審核_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
@@ -364,8 +402,8 @@ Partial Class 零用金支付單一覽表
     End Sub
 
     Friend WithEvents Label6 As Label
-    Friend WithEvents DataGridView4 As DataGridView
-    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents 已審核_dgv As DataGridView
+    Friend WithEvents 明細_dgv As DataGridView
     Friend WithEvents Label3 As Label
     Friend WithEvents TextBox3 As TextBox
     Friend WithEvents Label2 As Label
@@ -391,4 +429,7 @@ Partial Class 零用金支付單一覽表
     Friend WithEvents Label10 As Label
     Friend WithEvents Button1 As Button
     Friend WithEvents CheckBox1 As CheckBox
+    Friend WithEvents 帳本編號_cb As ComboBox
+    Friend WithEvents 帳本名稱_cb As ComboBox
+    Friend WithEvents Label11 As Label
 End Class

SHENKANG-MES-SYS/財務管理系統/零用金支付單一覽表.vb

@@ -1,41 +1,35 @@
 Option Strict Off
-Imports System.Data.SqlClient
 Imports System.IO
 Public Class 零用金支付單一覽表
-    Dim conn As New SqlConnection
-    Dim da As New SqlDataAdapter
-    Dim cmd As New SqlCommand
-    Dim ds As New DataSet : Dim ds1 As New DataSet : Dim ds2 As New DataSet : Dim ds3 As New DataSet : Dim ds4 As New DataSet
-    Dim dr As SqlDataReader
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet
     Dim DTP As String
-    Private Sub Set_使用者清單()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "SELECT 流水號, 項次, 用途, 金額, 備註 FROM 零用金支付明細 WHERE 流水號 LIKE N'" & TextBox1.Text & "' ORDER BY 項次"
-        列印用SQL2 = SQL1
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
-    End Sub
-    Private Sub Set_grid()
-        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).Width = 80 : DataGridView1.Columns(2).Width = 342 : DataGridView1.Columns(3).Width = 140 : DataGridView1.Columns(4).Width = 350
-        DataGridView1.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter
+    Private Sub Set_財務單清單()
+        明細_dgv.DataSource = Nothing : ds.Clear()
+        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        明細_dgv.ColumnHeadersHeight = 25
+        明細_dgv.AllowUserToAddRows = False
+
+        PA1 = TextBox1.Text : SQL_財務帳清單() : 列印用SQL2 = SQL1
+        da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).Width = 80 : 明細_dgv.Columns(2).Width = 342
+        明細_dgv.Columns(3).Width = 140 : 明細_dgv.Columns(4).Width = 350
+        明細_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        明細_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
 
         TextBox7.Text = "0.00"
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            TextBox7.Text = Val(TextBox7.Text) + DataGridView1.Rows(i).Cells("金額").Value
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            TextBox7.Text = Val(TextBox7.Text) + 明細_dgv.Rows(i).Cells("金額").Value
         Next i
         TextBox7.Text = Format(Val(TextBox7.Text), "#,##0.00")
     End Sub
     Private Sub Set_清單3()
-        DataGridView4.DataSource = Nothing : ds3.Clear()
-        DataGridView4.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView4.ColumnHeadersHeight = 25
-        DataGridView4.AllowUserToAddRows = False
+        已審核_dgv.DataSource = Nothing : ds3.Clear()
+        已審核_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        已審核_dgv.ColumnHeadersHeight = 25
+        已審核_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         If 登入人部門 = "NA" Then
             SQL1 = "SELECT 零用金支付表.流水號, 零用金支付表.部門, 零用金支付表.申請人, LEFT(零用金支付表.申請日期, 10) AS 申請日期, 
@@ -45,7 +39,7 @@ Public Class 零用金支付單一覽表
                     FROM 零用金支付表 INNER JOIN
                            零用金支付明細 ON 零用金支付表.流水號 = 零用金支付明細.流水號
                     WHERE (零用金支付表.審核人 NOT LIKE N'作廢%') AND (零用金支付表.審核人 NOT LIKE N'') AND 
-                            (零用金支付表.核准人 NOT LIKE N'作廢%') AND (零用金支付表.核准人 NOT LIKE N'')
+                            (零用金支付表.核准人 NOT LIKE N'作廢%') AND (零用金支付表.核准人 NOT LIKE N'') AND (帳本編號 LIKE '" & 帳本編號_cb.Text & "')
                     GROUP BY 零用金支付表.流水號, 零用金支付表.部門, 零用金支付表.申請人, LEFT(零用金支付表.申請日期, 10), 
                             零用金支付表.審核人, LEFT(零用金支付表.審核日期, 10), 零用金支付表.核准人, LEFT(零用金支付表.核准日期, 10), 
                             零用金支付表.核准圖檔, 零用金支付表.簽名編碼, 零用金支付明細.出納
@@ -58,42 +52,46 @@ Public Class 零用金支付單一覽表
                     FROM 零用金支付表 INNER JOIN
                            零用金支付明細 ON 零用金支付表.流水號 = 零用金支付明細.流水號
                     WHERE (零用金支付表.申請人 LIKE N'" & gUserName & "') AND (零用金支付表.審核人 NOT LIKE N'作廢%') AND (零用金支付表.審核人 NOT LIKE N'') AND 
-                          (零用金支付表.核准人 NOT LIKE N'作廢%') AND (零用金支付表.核准人 NOT LIKE N'')
+                          (零用金支付表.核准人 NOT LIKE N'作廢%') AND (零用金支付表.核准人 NOT LIKE N'') AND (帳本編號 LIKE '" & 帳本編號_cb.Text & "')
                     GROUP BY 零用金支付表.流水號, 零用金支付表.部門, 零用金支付表.申請人, LEFT(零用金支付表.申請日期, 10), 
                             零用金支付表.審核人, LEFT(零用金支付表.審核日期, 10), 零用金支付表.核准人, LEFT(零用金支付表.核准日期, 10), 
                             零用金支付表.核准圖檔, 零用金支付表.簽名編碼, 零用金支付明細.出納
                     ORDER BY 零用金支付表.流水號 DESC"
         End If
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds3) : DataGridView4.DataSource = ds3.Tables(0) : conn.Close() : Set_grid3()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds3) : 已審核_dgv.DataSource = ds3.Tables(0) : conn.Close() : Set_grid3()
     End Sub
     Private Sub Set_grid3()
-        DataGridView4.Columns(0).Width = 120 : DataGridView4.Columns(1).Width = 114 : DataGridView4.Columns(2).Visible = False : DataGridView4.Columns(3).Width = 115 : DataGridView4.Columns(4).Width = 115
-        DataGridView4.Columns(5).Width = 115 : DataGridView4.Columns(6).Width = 115 : DataGridView4.Columns(7).Width = 115 : DataGridView4.Columns(8).Visible = False
-        DataGridView4.Columns(9).Visible = False : DataGridView4.Columns(10).Width = 113
-        For i As Integer = 0 To DataGridView4.Rows.Count - 1
-            If DataGridView4.Rows(i).Cells("已出納").Value Is DBNull.Value Then
-                DataGridView4.Rows(i).Cells("已出納").Value = False
+        已審核_dgv.Columns(0).Width = 120 : 已審核_dgv.Columns(1).Width = 114 : 已審核_dgv.Columns(2).Visible = False : 已審核_dgv.Columns(3).Width = 115 : 已審核_dgv.Columns(4).Width = 115
+        已審核_dgv.Columns(5).Width = 115 : 已審核_dgv.Columns(6).Width = 115 : 已審核_dgv.Columns(7).Width = 115 : 已審核_dgv.Columns(8).Visible = False
+        已審核_dgv.Columns(9).Visible = False : 已審核_dgv.Columns(10).Width = 113
+        For i As Integer = 0 To 已審核_dgv.Rows.Count - 1
+            If 已審核_dgv.Rows(i).Cells("已出納").Value Is DBNull.Value Then
+                已審核_dgv.Rows(i).Cells("已出納").Value = False
             End If
         Next
     End Sub
+    Private Sub ComboBox1下拉表單資料載入()
+        SQL_帳本下拉清單()
+        帳本名稱_cb.Items.Clear() : 帳本編號_cb.Items.Clear() : While (dr.Read()) : 帳本名稱_cb.Items.Add(dr("帳本名稱")) : 帳本編號_cb.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
     Private Sub 零用金支付單列印_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        TextBox6.Visible = False
-        Set_清單3()
+        TextBox6.Visible = False : 帳本編號_cb.Visible = False
+        ComboBox1下拉表單資料載入() : 帳本名稱_cb.SelectedIndex = 0 : PA19 = 帳本編號_cb.Text : Set_清單3()
     End Sub
-    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView4.CellClick
+    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 已審核_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox1.Text = DataGridView4(0, e.RowIndex).Value.ToString : TextBox2.Text = DataGridView4(1, e.RowIndex).Value.ToString : TextBox3.Text = DataGridView4(2, e.RowIndex).Value.ToString
-            TextBox4.Text = DataGridView4(4, e.RowIndex).Value.ToString : TextBox5.Text = DataGridView4(6, e.RowIndex).Value.ToString : TextBox13.Text = DataGridView4(9, e.RowIndex).Value.ToString
-            TextBox6.Text = DataGridView4(8, e.RowIndex).Value.ToString : CheckBox1.Checked = DataGridView4(10, e.RowIndex).Value
-            DateTimePicker1.Value = DataGridView4(3, e.RowIndex).Value.ToString : DateTimePicker2.Value = DataGridView4(5, e.RowIndex).Value.ToString
-            DateTimePicker3.Value = DataGridView4(7, e.RowIndex).Value.ToString
-            列印用SQL = DataGridView4(0, e.RowIndex).Value.ToString
+            TextBox1.Text = 已審核_dgv(0, e.RowIndex).Value.ToString : TextBox2.Text = 已審核_dgv(1, e.RowIndex).Value.ToString : TextBox3.Text = 已審核_dgv(2, e.RowIndex).Value.ToString
+            TextBox4.Text = 已審核_dgv(4, e.RowIndex).Value.ToString : TextBox5.Text = 已審核_dgv(6, e.RowIndex).Value.ToString : TextBox13.Text = 已審核_dgv(9, e.RowIndex).Value.ToString
+            TextBox6.Text = 已審核_dgv(8, e.RowIndex).Value.ToString : CheckBox1.Checked = 已審核_dgv(10, e.RowIndex).Value
+            DateTimePicker1.Value = 已審核_dgv(3, e.RowIndex).Value.ToString : DateTimePicker2.Value = 已審核_dgv(5, e.RowIndex).Value.ToString
+            DateTimePicker3.Value = 已審核_dgv(7, e.RowIndex).Value.ToString
+            列印用SQL = 已審核_dgv(0, e.RowIndex).Value.ToString
             簽核圖片編號 = TextBox6.Text
 
-            Set_使用者清單()
+            Set_財務單清單()
             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-            SQL1 = "SELECT 簽名檔圖片 FROM 簽名檔管理 WHERE 圖片流水號 LIKE N'" & DataGridView4(8, e.RowIndex).Value.ToString & "'"
+            SQL1 = "SELECT 簽名檔圖片 FROM 簽名檔管理 WHERE 圖片流水號 LIKE N'" & 已審核_dgv(8, e.RowIndex).Value.ToString & "'"
             cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
             While dr.Read() = True
                 Dim bytes As Byte() = New Byte(-1) {}
@@ -117,15 +115,25 @@ Public Class 零用金支付單一覽表
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         Set_日期格式轉換()
-        For i As Integer = 0 To DataGridView4.Rows.Count - 1
-            資料數 = DataGridView4.Rows.Count : MyModule1.進度條()
+        For i As Integer = 0 To 已審核_dgv.Rows.Count - 1
+            資料數 = 已審核_dgv.Rows.Count : MyModule1.進度條()
             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-            SQL1 = "UPDATE 零用金支付明細 SET 出納 = N'" & DataGridView4.Rows(i).Cells("已出納").Value & "' WHERE 流水號 LIKE N'" & DataGridView4.Rows(i).Cells("流水號").Value & "'"
+            SQL1 = "UPDATE 零用金支付明細 SET 出納 = N'" & 已審核_dgv.Rows(i).Cells("已出納").Value & "' WHERE 流水號 LIKE N'" & 已審核_dgv.Rows(i).Cells("流水號").Value & "'"
             cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-            SQL1 = "UPDATE 零用金支付表 SET 出納 = N'" & gUserName & "', 出納日期 = '" & DTP & "' WHERE 流水號 LIKE N'" & DataGridView4.Rows(i).Cells("流水號").Value & "'"
+            SQL1 = "UPDATE 零用金支付表 SET 出納 = N'" & gUserName & "', 出納日期 = '" & DTP & "' WHERE 流水號 LIKE N'" & 已審核_dgv.Rows(i).Cells("流水號").Value & "'"
             cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
         Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
         MsgBox("存檔完成")
     End Sub
+    Private Sub 帳本名稱_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 帳本名稱_cb.SelectedIndexChanged
+        帳本編號_cb.SelectedIndex = 帳本名稱_cb.SelectedIndex : PA19 = 帳本編號_cb.Text : Set_清單3()
+        TextBox4.Text = "" : TextBox5.Text = "" : TextBox13.Text = "" : TextBox6.Text = ""
+        TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : Set_財務單清單()
+    End Sub
+    Private Sub 帳本編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 帳本編號_cb.SelectedIndexChanged
+        帳本名稱_cb.SelectedIndex = 帳本編號_cb.SelectedIndex : PA19 = 帳本編號_cb.Text : Set_清單3()
+        TextBox4.Text = "" : TextBox5.Text = "" : TextBox13.Text = "" : TextBox6.Text = ""
+        TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : Set_財務單清單()
+    End Sub
 End Class

SHENKANG-MES-SYS/財務管理系統/零用金支付審核.Designer.vb

@@ -27,23 +27,26 @@ Partial Class 零用金支付審核
         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.Label5 = New System.Windows.Forms.Label()
-        Me.DataGridView3 = New System.Windows.Forms.DataGridView()
+        Me.一級作廢_dgv = New System.Windows.Forms.DataGridView()
         Me.Label4 = New System.Windows.Forms.Label()
-        Me.DataGridView2 = New System.Windows.Forms.DataGridView()
+        Me.一級未審核_dgv = New System.Windows.Forms.DataGridView()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.TextBox3 = New System.Windows.Forms.TextBox()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.TextBox2 = New System.Windows.Forms.TextBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.明細_dgv = New System.Windows.Forms.DataGridView()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.TextBox5 = New System.Windows.Forms.TextBox()
         Me.Label8 = New System.Windows.Forms.Label()
-        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.帳本編號_cb = New System.Windows.Forms.ComboBox()
+        Me.帳本名稱_cb = New System.Windows.Forms.ComboBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        CType(Me.一級作廢_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.一級未審核_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'Label5
@@ -55,17 +58,17 @@ Partial Class 零用金支付審核
         Me.Label5.TabIndex = 742
         Me.Label5.Text = "主管作廢的零用金支付單"
         '
-        'DataGridView3
+        '一級作廢_dgv
         '
         DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView3.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        Me.DataGridView3.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView3.Location = New System.Drawing.Point(12, 529)
-        Me.DataGridView3.Name = "DataGridView3"
-        Me.DataGridView3.RowHeadersWidth = 5
-        Me.DataGridView3.RowTemplate.Height = 24
-        Me.DataGridView3.Size = New System.Drawing.Size(944, 435)
-        Me.DataGridView3.TabIndex = 741
+        Me.一級作廢_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.一級作廢_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.一級作廢_dgv.Location = New System.Drawing.Point(12, 529)
+        Me.一級作廢_dgv.Name = "一級作廢_dgv"
+        Me.一級作廢_dgv.RowHeadersWidth = 5
+        Me.一級作廢_dgv.RowTemplate.Height = 24
+        Me.一級作廢_dgv.Size = New System.Drawing.Size(944, 435)
+        Me.一級作廢_dgv.TabIndex = 741
         '
         'Label4
         '
@@ -76,17 +79,17 @@ Partial Class 零用金支付審核
         Me.Label4.TabIndex = 740
         Me.Label4.Text = "未審核的零用金支付單"
         '
-        'DataGridView2
+        '一級未審核_dgv
         '
         DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
-        Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView2.Location = New System.Drawing.Point(12, 37)
-        Me.DataGridView2.Name = "DataGridView2"
-        Me.DataGridView2.RowHeadersWidth = 5
-        Me.DataGridView2.RowTemplate.Height = 24
-        Me.DataGridView2.Size = New System.Drawing.Size(944, 450)
-        Me.DataGridView2.TabIndex = 739
+        Me.一級未審核_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.一級未審核_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.一級未審核_dgv.Location = New System.Drawing.Point(12, 37)
+        Me.一級未審核_dgv.Name = "一級未審核_dgv"
+        Me.一級未審核_dgv.RowHeadersWidth = 5
+        Me.一級未審核_dgv.RowTemplate.Height = 24
+        Me.一級未審核_dgv.Size = New System.Drawing.Size(944, 450)
+        Me.一級未審核_dgv.TabIndex = 739
         '
         'Label3
         '
@@ -136,19 +139,19 @@ Partial Class 零用金支付審核
         Me.TextBox1.Size = New System.Drawing.Size(282, 23)
         Me.TextBox1.TabIndex = 743
         '
-        'DataGridView1
+        '明細_dgv
         '
         DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(965, 126)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
+        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.明細_dgv.Location = New System.Drawing.Point(965, 126)
+        Me.明細_dgv.Name = "明細_dgv"
+        Me.明細_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle4
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(937, 838)
-        Me.DataGridView1.TabIndex = 749
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.明細_dgv.RowTemplate.Height = 24
+        Me.明細_dgv.Size = New System.Drawing.Size(937, 838)
+        Me.明細_dgv.TabIndex = 749
         '
         'Button2
         '
@@ -188,16 +191,51 @@ Partial Class 零用金支付審核
         Me.Label8.TabIndex = 769
         Me.Label8.Text = "總金額"
         '
+        '帳本編號_cb
+        '
+        Me.帳本編號_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.帳本編號_cb.ForeColor = System.Drawing.Color.Green
+        Me.帳本編號_cb.FormattingEnabled = True
+        Me.帳本編號_cb.Items.AddRange(New Object() {"", "LANDED BRANDED", "FIRST COST"})
+        Me.帳本編號_cb.Location = New System.Drawing.Point(805, 49)
+        Me.帳本編號_cb.Name = "帳本編號_cb"
+        Me.帳本編號_cb.Size = New System.Drawing.Size(145, 24)
+        Me.帳本編號_cb.TabIndex = 997
+        '
+        '帳本名稱_cb
+        '
+        Me.帳本名稱_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.帳本名稱_cb.ForeColor = System.Drawing.Color.Green
+        Me.帳本名稱_cb.FormattingEnabled = True
+        Me.帳本名稱_cb.Items.AddRange(New Object() {"", "LANDED BRANDED", "FIRST COST"})
+        Me.帳本名稱_cb.Location = New System.Drawing.Point(805, 7)
+        Me.帳本名稱_cb.Name = "帳本名稱_cb"
+        Me.帳本名稱_cb.Size = New System.Drawing.Size(145, 24)
+        Me.帳本名稱_cb.TabIndex = 996
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.ForeColor = System.Drawing.Color.Green
+        Me.Label9.Location = New System.Drawing.Point(767, 10)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(32, 16)
+        Me.Label9.TabIndex = 995
+        Me.Label9.Text = "帳本"
+        '
         '零用金支付審核
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 971)
+        Me.Controls.Add(Me.帳本編號_cb)
+        Me.Controls.Add(Me.帳本名稱_cb)
+        Me.Controls.Add(Me.Label9)
         Me.Controls.Add(Me.TextBox5)
         Me.Controls.Add(Me.Label8)
         Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Button1)
-        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.明細_dgv)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.TextBox3)
         Me.Controls.Add(Me.Label2)
@@ -205,34 +243,37 @@ Partial Class 零用金支付審核
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.TextBox1)
         Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.DataGridView3)
+        Me.Controls.Add(Me.一級作廢_dgv)
         Me.Controls.Add(Me.Label4)
-        Me.Controls.Add(Me.DataGridView2)
+        Me.Controls.Add(Me.一級未審核_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "零用金支付審核"
         Me.Text = "零用金支付審核"
-        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.一級作廢_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.一級未審核_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
 
     Friend WithEvents Label5 As Label
-    Friend WithEvents DataGridView3 As DataGridView
+    Friend WithEvents 一級作廢_dgv As DataGridView
     Friend WithEvents Label4 As Label
-    Friend WithEvents DataGridView2 As DataGridView
+    Friend WithEvents 一級未審核_dgv As DataGridView
     Friend WithEvents Label3 As Label
     Friend WithEvents TextBox3 As TextBox
     Friend WithEvents Label2 As Label
     Friend WithEvents TextBox2 As TextBox
     Friend WithEvents Label1 As Label
     Friend WithEvents TextBox1 As TextBox
-    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents 明細_dgv As DataGridView
     Friend WithEvents Button2 As Button
     Friend WithEvents Button1 As Button
     Friend WithEvents TextBox5 As TextBox
     Friend WithEvents Label8 As Label
+    Friend WithEvents 帳本編號_cb As ComboBox
+    Friend WithEvents 帳本名稱_cb As ComboBox
+    Friend WithEvents Label9 As Label
 End Class

SHENKANG-MES-SYS/財務管理系統/零用金支付審核.vb

@@ -1,87 +1,75 @@
 Option Strict Off
-Imports System.Data.SqlClient
 Public Class 零用金支付審核
-    Dim conn As New SqlConnection
-    Dim da As New SqlDataAdapter
-    Dim cmd As New SqlCommand
     Dim ds As New DataSet : Dim ds1 As New DataSet : Dim ds2 As New DataSet
-    Dim dr As SqlDataReader
     Dim DTP As String
-    Private Sub Set_使用者清單()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
-        DataGridView1.RowTemplate.Height = 35
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "SELECT 流水號, 項次, 用途, 金額, 備註 FROM 零用金支付明細 WHERE 流水號 LIKE N'" & TextBox1.Text & "' ORDER BY 項次"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
-    End Sub
-    Private Sub Set_grid()
-        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).Width = 80 : DataGridView1.Columns(2).Width = 342 : DataGridView1.Columns(3).Width = 140 : DataGridView1.Columns(4).Width = 350
-        DataGridView1.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter
+    Private Sub Set_財務單清單()
+        明細_dgv.DataSource = Nothing : ds.Clear()
+        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        明細_dgv.ColumnHeadersHeight = 25
+        明細_dgv.AllowUserToAddRows = False
+        明細_dgv.RowTemplate.Height = 35
+
+        PA1 = TextBox1.Text : SQL_財務帳清單()
+        da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).Width = 80 : 明細_dgv.Columns(2).Width = 342 : 明細_dgv.Columns(3).Width = 140 : 明細_dgv.Columns(4).Width = 350
+        明細_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        明細_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
 
         TextBox5.Text = "0.00"
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            TextBox5.Text = Val(TextBox5.Text) + DataGridView1.Rows(i).Cells("金額").Value
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            TextBox5.Text = Val(TextBox5.Text) + 明細_dgv.Rows(i).Cells("金額").Value
         Next i
         TextBox5.Text = Format(Val(TextBox5.Text), "#,##0.00")
     End Sub
     Private Sub Set_清單1()
-        DataGridView2.DataSource = Nothing : ds1.Clear()
-        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView2.ColumnHeadersHeight = 25
-        DataGridView2.AllowUserToAddRows = False
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        If gUserName = "李協叡" Or 登入人部門 = "NA" Then
-            SQL1 = "SELECT 流水號, 部門, 申請人, LEFT(申請日期, 10) AS 申請日期, 審核人, LEFT(審核日期, 10) AS 審核日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 零用金支付表 " &
-                   "WHERE (審核人 LIKE N'') ORDER BY 流水號 DESC"
-        Else
-            SQL1 = "SELECT 流水號, 部門, 申請人, LEFT(申請日期, 10) AS 申請日期, 審核人, LEFT(審核日期, 10) AS 審核日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 零用金支付表 " &
-                   "WHERE (部門 LIKE N'" & 登入人部門 & "%') AND (審核人 LIKE N'') ORDER BY 流水號 DESC"
-        End If
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close() : Set_grid1()
-    End Sub
-    Private Sub Set_grid1()
-        DataGridView2.Columns(0).Width = 120 : DataGridView2.Columns(1).Width = 114 : DataGridView2.Columns(2).Width = 114 : DataGridView2.Columns(3).Width = 115 : DataGridView2.Columns(4).Width = 115
-        DataGridView2.Columns(5).Width = 115 : DataGridView2.Columns(6).Width = 115 : DataGridView2.Columns(7).Width = 115
+        一級未審核_dgv.DataSource = Nothing : ds1.Clear()
+        一級未審核_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        一級未審核_dgv.ColumnHeadersHeight = 25
+        一級未審核_dgv.AllowUserToAddRows = False
+
+        PA = "審核介面_一級未審核" : SQL_財務單據()
+        da.Fill(ds1) : 一級未審核_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        一級未審核_dgv.Columns(0).Width = 120 : 一級未審核_dgv.Columns(1).Width = 114 : 一級未審核_dgv.Columns(2).Width = 114 : 一級未審核_dgv.Columns(3).Width = 115
+        一級未審核_dgv.Columns(4).Width = 115 : 一級未審核_dgv.Columns(5).Width = 115 : 一級未審核_dgv.Columns(6).Width = 115 : 一級未審核_dgv.Columns(7).Width = 115
+        一級未審核_dgv.Columns(8).Visible = False : 一級未審核_dgv.Columns(9).Visible = False
     End Sub
     Private Sub Set_清單2()
-        DataGridView3.DataSource = Nothing : ds2.Clear()
-        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView3.ColumnHeadersHeight = 25
-        DataGridView3.AllowUserToAddRows = False
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        If gUserName = "李協叡" Then
-            SQL1 = "SELECT 流水號, 部門, 申請人, LEFT(申請日期, 10) AS 申請日期, 審核人, LEFT(審核日期, 10) AS 審核日期, 核准人, LEFT(核准日期, 10) AS 核准日期, 備註 FROM 零用金支付表 " &
-                   "WHERE (審核人 LIKE N'作廢%') ORDER BY 流水號 DESC"
-        Else
-            SQL1 = "SELECT 流水號, 部門, 申請人, LEFT(申請日期, 10) AS 申請日期, 審核人, LEFT(審核日期, 10) AS 審核日期, 核准人, LEFT(核准日期, 10) AS 核准日期, 備註 FROM 零用金支付表 " &
-                   "WHERE (部門 LIKE N'" & 登入人部門 & "%') AND (審核人 LIKE N'作廢%') ORDER BY 流水號 DESC"
-        End If
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close() : Set_grid2()
+        一級作廢_dgv.DataSource = Nothing : ds2.Clear()
+        一級作廢_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        一級作廢_dgv.ColumnHeadersHeight = 25
+        一級作廢_dgv.AllowUserToAddRows = False
+
+        PA = "審核介面_一級作廢" : SQL_財務單據()
+        da.Fill(ds2) : 一級作廢_dgv.DataSource = ds2.Tables(0) : conn.Close()
+
+        一級作廢_dgv.Columns(0).Width = 120 : 一級作廢_dgv.Columns(1).Width = 114 : 一級作廢_dgv.Columns(2).Width = 114 : 一級作廢_dgv.Columns(3).Width = 115
+        一級作廢_dgv.Columns(4).Width = 115 : 一級作廢_dgv.Columns(5).Width = 115 : 一級作廢_dgv.Columns(6).Visible = False : 一級作廢_dgv.Columns(7).Visible = False
+        一級作廢_dgv.Columns(8).Width = 230 : 一級作廢_dgv.Columns(9).Visible = False
     End Sub
-    Private Sub Set_grid2()
-        DataGridView3.Columns(0).Width = 120 : DataGridView3.Columns(1).Width = 114 : DataGridView3.Columns(2).Width = 114 : DataGridView3.Columns(3).Width = 115 : DataGridView3.Columns(4).Width = 115
-        DataGridView3.Columns(5).Width = 115 : DataGridView3.Columns(6).Visible = False : DataGridView3.Columns(7).Visible = False : DataGridView3.Columns(8).Width = 230
+    Private Sub ComboBox1下拉表單資料載入()
+        SQL_帳本下拉清單()
+        帳本名稱_cb.Items.Clear() : 帳本編號_cb.Items.Clear() : While (dr.Read()) : 帳本名稱_cb.Items.Add(dr("帳本名稱")) : 帳本編號_cb.Items.Add(dr("編號")) : End While : conn.Close()
     End Sub
     Private Sub 零用金支付審核_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        帳本編號_cb.Visible = False
+        ComboBox1下拉表單資料載入() : 帳本名稱_cb.SelectedIndex = 0 : PA19 = 帳本編號_cb.Text
         Set_清單1() : Set_清單2()
     End Sub
-    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView2.CellClick
+    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 一級未審核_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox1.Text = DataGridView2(0, e.RowIndex).Value.ToString : TextBox2.Text = DataGridView2(1, e.RowIndex).Value.ToString : TextBox3.Text = DataGridView2(2, e.RowIndex).Value.ToString
-            Set_使用者清單() : Button1.Enabled = True : Button2.Enabled = True
+            TextBox1.Text = 一級未審核_dgv(0, e.RowIndex).Value.ToString : TextBox2.Text = 一級未審核_dgv(1, e.RowIndex).Value.ToString : TextBox3.Text = 一級未審核_dgv(2, e.RowIndex).Value.ToString
+            Set_財務單清單() : Button1.Enabled = True : Button2.Enabled = True
         End If
     End Sub
-    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView3.CellClick
+    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 一級作廢_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox1.Text = DataGridView3(0, e.RowIndex).Value.ToString : TextBox2.Text = DataGridView3(1, e.RowIndex).Value.ToString : TextBox3.Text = DataGridView3(2, e.RowIndex).Value.ToString
-            Set_使用者清單() : Button1.Enabled = False : Button2.Enabled = False
+            TextBox1.Text = 一級作廢_dgv(0, e.RowIndex).Value.ToString : TextBox2.Text = 一級作廢_dgv(1, e.RowIndex).Value.ToString : TextBox3.Text = 一級作廢_dgv(2, e.RowIndex).Value.ToString
+            Set_財務單清單() : Button1.Enabled = False : Button2.Enabled = False
         End If
     End Sub
     Private Sub Set_日期格式轉換()
@@ -100,7 +88,7 @@ Public Class 零用金支付審核
             MsgBox("審核完畢")
             Set_清單1() : Set_清單2()
             TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = ""
-            DataGridView1.DataSource = Nothing : ds.Clear()
+            明細_dgv.DataSource = Nothing : ds.Clear()
         End If
     End Sub
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
@@ -120,8 +108,16 @@ Public Class 零用金支付審核
                 MsgBox("審核完畢") : PA = ""
                 Set_清單1() : Set_清單2()
                 TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = ""
-                DataGridView1.DataSource = Nothing : ds.Clear()
+                明細_dgv.DataSource = Nothing : ds.Clear()
             End If
         End If
     End Sub
+    Private Sub 帳本名稱_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 帳本名稱_cb.SelectedIndexChanged
+        帳本編號_cb.SelectedIndex = 帳本名稱_cb.SelectedIndex : PA19 = 帳本編號_cb.Text : Set_清單1() : Set_清單2()
+        TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : Set_財務單清單()
+    End Sub
+    Private Sub 帳本編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 帳本編號_cb.SelectedIndexChanged
+        帳本名稱_cb.SelectedIndex = 帳本編號_cb.SelectedIndex : PA19 = 帳本編號_cb.Text : Set_清單1() : Set_清單2()
+        TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : Set_財務單清單()
+    End Sub
 End Class

SHENKANG-MES-SYS/財務管理系統/零用金支付核准.Designer.vb

@@ -22,15 +22,15 @@ Partial Class 零用金支付核准
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        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 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()
         Me.Label7 = New System.Windows.Forms.Label()
-        Me.DataGridView5 = New System.Windows.Forms.DataGridView()
+        Me.二級作廢_dgv = New System.Windows.Forms.DataGridView()
         Me.Label6 = New System.Windows.Forms.Label()
-        Me.DataGridView4 = New System.Windows.Forms.DataGridView()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.二級未核准_dgv = New System.Windows.Forms.DataGridView()
+        Me.明細_dgv = New System.Windows.Forms.DataGridView()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.TextBox3 = New System.Windows.Forms.TextBox()
         Me.Label2 = New System.Windows.Forms.Label()
@@ -44,14 +44,14 @@ Partial Class 零用金支付核准
         Me.TextBox13 = New System.Windows.Forms.TextBox()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
-        Me.DataGridView2 = New System.Windows.Forms.DataGridView()
+        Me.簽名檔_dgv = New System.Windows.Forms.DataGridView()
         Me.TextBox5 = New System.Windows.Forms.TextBox()
         Me.Label8 = New System.Windows.Forms.Label()
-        CType(Me.DataGridView5, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.二級作廢_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.二級未核准_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.簽名檔_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'Label7
@@ -63,17 +63,18 @@ Partial Class 零用金支付核准
         Me.Label7.TabIndex = 746
         Me.Label7.Text = "總經理作廢的零用金支付單"
         '
-        'DataGridView5
+        '二級作廢_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView5.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        Me.DataGridView5.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView5.Location = New System.Drawing.Point(12, 524)
-        Me.DataGridView5.Name = "DataGridView5"
-        Me.DataGridView5.RowHeadersWidth = 5
-        Me.DataGridView5.RowTemplate.Height = 24
-        Me.DataGridView5.Size = New System.Drawing.Size(947, 440)
-        Me.DataGridView5.TabIndex = 745
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.二級作廢_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        Me.二級作廢_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.二級作廢_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.二級作廢_dgv.Location = New System.Drawing.Point(12, 524)
+        Me.二級作廢_dgv.Name = "二級作廢_dgv"
+        Me.二級作廢_dgv.RowHeadersWidth = 5
+        Me.二級作廢_dgv.RowTemplate.Height = 24
+        Me.二級作廢_dgv.Size = New System.Drawing.Size(947, 440)
+        Me.二級作廢_dgv.TabIndex = 745
         '
         'Label6
         '
@@ -84,31 +85,32 @@ Partial Class 零用金支付核准
         Me.Label6.TabIndex = 744
         Me.Label6.Text = "總經理未核准的零用金支付單"
         '
-        'DataGridView4
-        '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView4.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
-        Me.DataGridView4.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView4.Location = New System.Drawing.Point(12, 36)
-        Me.DataGridView4.Name = "DataGridView4"
-        Me.DataGridView4.RowHeadersWidth = 5
-        Me.DataGridView4.RowTemplate.Height = 24
-        Me.DataGridView4.Size = New System.Drawing.Size(947, 451)
-        Me.DataGridView4.TabIndex = 743
-        '
-        'DataGridView1
-        '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(965, 170)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle4
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(937, 794)
-        Me.DataGridView1.TabIndex = 756
+        '二級未核准_dgv
+        '
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.二級未核准_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
+        Me.二級未核准_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.二級未核准_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.二級未核准_dgv.Location = New System.Drawing.Point(15, 35)
+        Me.二級未核准_dgv.Name = "二級未核准_dgv"
+        Me.二級未核准_dgv.RowHeadersWidth = 5
+        Me.二級未核准_dgv.RowTemplate.Height = 24
+        Me.二級未核准_dgv.Size = New System.Drawing.Size(947, 451)
+        Me.二級未核准_dgv.TabIndex = 743
+        '
+        '明細_dgv
+        '
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.明細_dgv.Location = New System.Drawing.Point(965, 170)
+        Me.明細_dgv.Name = "明細_dgv"
+        Me.明細_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle12
+        Me.明細_dgv.RowTemplate.Height = 24
+        Me.明細_dgv.Size = New System.Drawing.Size(937, 794)
+        Me.明細_dgv.TabIndex = 756
         '
         'Label3
         '
@@ -229,15 +231,15 @@ Partial Class 零用金支付核准
         Me.PictureBox1.TabIndex = 758
         Me.PictureBox1.TabStop = False
         '
-        'DataGridView2
+        '簽名檔_dgv
         '
-        Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView2.Location = New System.Drawing.Point(1479, 6)
-        Me.DataGridView2.Name = "DataGridView2"
-        Me.DataGridView2.RowHeadersWidth = 5
-        Me.DataGridView2.RowTemplate.Height = 24
-        Me.DataGridView2.Size = New System.Drawing.Size(198, 157)
-        Me.DataGridView2.TabIndex = 757
+        Me.簽名檔_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.簽名檔_dgv.Location = New System.Drawing.Point(1479, 6)
+        Me.簽名檔_dgv.Name = "簽名檔_dgv"
+        Me.簽名檔_dgv.RowHeadersWidth = 5
+        Me.簽名檔_dgv.RowTemplate.Height = 24
+        Me.簽名檔_dgv.Size = New System.Drawing.Size(198, 157)
+        Me.簽名檔_dgv.TabIndex = 757
         '
         'TextBox5
         '
@@ -269,8 +271,8 @@ Partial Class 零用金支付核准
         Me.Controls.Add(Me.TextBox13)
         Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.PictureBox1)
-        Me.Controls.Add(Me.DataGridView2)
-        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.簽名檔_dgv)
+        Me.Controls.Add(Me.明細_dgv)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.TextBox3)
         Me.Controls.Add(Me.Label2)
@@ -278,28 +280,27 @@ Partial Class 零用金支付核准
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.TextBox1)
         Me.Controls.Add(Me.Label7)
-        Me.Controls.Add(Me.DataGridView5)
+        Me.Controls.Add(Me.二級作廢_dgv)
         Me.Controls.Add(Me.Label6)
-        Me.Controls.Add(Me.DataGridView4)
+        Me.Controls.Add(Me.二級未核准_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "零用金支付核准"
         Me.Text = "零用金支付核准"
-        CType(Me.DataGridView5, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.二級作廢_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.二級未核准_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.簽名檔_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
 
     Friend WithEvents Label7 As Label
-    Friend WithEvents DataGridView5 As DataGridView
+    Friend WithEvents 二級作廢_dgv As DataGridView
     Friend WithEvents Label6 As Label
-    Friend WithEvents DataGridView4 As DataGridView
-    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents 明細_dgv As DataGridView
     Friend WithEvents Label3 As Label
     Friend WithEvents TextBox3 As TextBox
     Friend WithEvents Label2 As Label
@@ -313,7 +314,8 @@ Partial Class 零用金支付核准
     Friend WithEvents TextBox13 As TextBox
     Friend WithEvents Button2 As Button
     Friend WithEvents PictureBox1 As PictureBox
-    Friend WithEvents DataGridView2 As DataGridView
+    Friend WithEvents 簽名檔_dgv As DataGridView
     Friend WithEvents TextBox5 As TextBox
     Friend WithEvents Label8 As Label
+    Friend WithEvents 二級未核准_dgv As DataGridView
 End Class

SHENKANG-MES-SYS/財務管理系統/零用金支付核准.vb

@@ -1,86 +1,70 @@
 Option Strict Off
-Imports System.Data.SqlClient
 Imports System.IO
 Public Class 零用金支付核准
-    Dim conn As New SqlConnection
-    Dim da As New SqlDataAdapter
-    Dim cmd As New SqlCommand
-    Dim ds As New DataSet : Dim ds1 As New DataSet : Dim ds2 As New DataSet : Dim ds3 As New DataSet : Dim ds4 As New DataSet
-    Dim dr As SqlDataReader
+    Dim ds As New DataSet : Dim ds2 As New DataSet : Dim ds3 As New DataSet : Dim ds4 As New DataSet
     Dim DTP As String : Dim DTP2 As String
     Dim QQW(11) As String : Dim II As Integer
-    Private Sub Set_使用者清單()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
-        DataGridView1.RowTemplate.Height = 35
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "SELECT 流水號, 項次, 用途, 金額, 備註 FROM 零用金支付明細 WHERE 流水號 LIKE N'" & TextBox1.Text & "' ORDER BY 項次"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
-    End Sub
-    Private Sub Set_grid()
-        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).Width = 80 : DataGridView1.Columns(2).Width = 342 : DataGridView1.Columns(3).Width = 140 : DataGridView1.Columns(4).Width = 350
-        DataGridView1.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter
+    Private Sub Set_財務單清單()
+        明細_dgv.DataSource = Nothing : ds.Clear()
+        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        明細_dgv.ColumnHeadersHeight = 25
+        明細_dgv.AllowUserToAddRows = False
+        明細_dgv.RowTemplate.Height = 35
+
+        PA1 = TextBox1.Text : SQL_財務帳清單()
+        da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).Width = 80 : 明細_dgv.Columns(2).Width = 342 : 明細_dgv.Columns(3).Width = 140
+        明細_dgv.Columns(4).Width = 350
+        明細_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        明細_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
 
         TextBox5.Text = "0.00"
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            TextBox5.Text = Val(TextBox5.Text) + DataGridView1.Rows(i).Cells("金額").Value
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            TextBox5.Text = Val(TextBox5.Text) + 明細_dgv.Rows(i).Cells("金額").Value
         Next i
         TextBox5.Text = Format(Val(TextBox5.Text), "#,##0.00")
     End Sub
     Private Sub Set_清單3()
-        DataGridView4.DataSource = Nothing : ds3.Clear()
-        DataGridView4.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView4.ColumnHeadersHeight = 25
-        DataGridView4.AllowUserToAddRows = False
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "SELECT 流水號, 部門, 申請人, LEFT(申請日期, 10) AS 申請日期, 審核人, LEFT(審核日期, 10) AS 審核日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 零用金支付表 " &
-                   "WHERE (審核人 NOT LIKE N'作廢%') AND (審核人 NOT LIKE N'')  AND (核准人 LIKE N'') ORDER BY 流水號 DESC"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds3) : DataGridView4.DataSource = ds3.Tables(0) : conn.Close() : Set_grid3()
-    End Sub
-    Private Sub Set_grid3()
-        DataGridView4.Columns(0).Width = 120 : DataGridView4.Columns(1).Width = 114 : DataGridView4.Columns(2).Width = 114 : DataGridView4.Columns(3).Width = 115 : DataGridView4.Columns(4).Width = 115
-        DataGridView4.Columns(5).Width = 115 : DataGridView4.Columns(6).Width = 115 : DataGridView4.Columns(7).Width = 115
+        二級未核准_dgv.DataSource = Nothing : ds3.Clear()
+        二級未核准_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        二級未核准_dgv.ColumnHeadersHeight = 25
+        二級未核准_dgv.AllowUserToAddRows = False
+
+        PA19 = "%%" : PA = "二級未核准" : SQL_財務單據()
+        da.Fill(ds3) : 二級未核准_dgv.DataSource = ds3.Tables(0) : conn.Close()
+
+        二級未核准_dgv.Columns(0).FillWeight = 120 : 二級未核准_dgv.Columns(1).FillWeight = 114 : 二級未核准_dgv.Columns(2).FillWeight = 114 : 二級未核准_dgv.Columns(3).FillWeight = 115
+        二級未核准_dgv.Columns(4).FillWeight = 115 : 二級未核准_dgv.Columns(5).FillWeight = 115 : 二級未核准_dgv.Columns(6).FillWeight = 115 : 二級未核准_dgv.Columns(7).FillWeight = 115
+        二級未核准_dgv.Columns(8).Visible = False : 二級未核准_dgv.Columns(9).FillWeight = 90
     End Sub
     Private Sub Set_清單4()
-        DataGridView5.DataSource = Nothing : ds4.Clear()
-        DataGridView5.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView5.ColumnHeadersHeight = 25
-        DataGridView5.AllowUserToAddRows = False
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "SELECT 流水號, 部門, 申請人, LEFT(申請日期, 10) AS 申請日期, 審核人, LEFT(審核日期, 10) AS 審核日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 零用金支付表 " &
-                   "WHERE (審核人 NOT LIKE N'作廢%') AND (審核人 NOT LIKE N'')  AND (核准人 LIKE N'作廢%') ORDER BY 流水號 DESC"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds4) : DataGridView5.DataSource = ds4.Tables(0) : conn.Close() : Set_grid4()
-    End Sub
-    Private Sub Set_grid4()
-        DataGridView5.Columns(0).Width = 120 : DataGridView5.Columns(1).Width = 114 : DataGridView5.Columns(2).Width = 114 : DataGridView5.Columns(3).Width = 115 : DataGridView5.Columns(4).Width = 115
-        DataGridView5.Columns(5).Width = 115 : DataGridView5.Columns(6).Width = 115 : DataGridView5.Columns(7).Width = 115
-    End Sub
-    Private Sub Set_DGV4載入前設定()
-        DataGridView2.DataSource = Nothing : ds2.Clear()
-        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView2.ColumnHeadersHeight = 25
-        DataGridView2.AllowUserToAddRows = False
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-    End Sub
-    Private Sub Set_DGV4載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds2) : DataGridView2.DataSource = ds2.Tables(0) : conn.Close() : Set_grid1()
+        二級作廢_dgv.DataSource = Nothing : ds4.Clear()
+        二級作廢_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        二級作廢_dgv.ColumnHeadersHeight = 25
+        二級作廢_dgv.AllowUserToAddRows = False
+
+        PA19 = "%%" : PA = "二級作廢" : SQL_財務單據()
+        da.Fill(ds4) : 二級作廢_dgv.DataSource = ds4.Tables(0) : conn.Close()
+
+        二級作廢_dgv.Columns(0).FillWeight = 120 : 二級作廢_dgv.Columns(1).FillWeight = 114 : 二級作廢_dgv.Columns(2).FillWeight = 114 : 二級作廢_dgv.Columns(3).FillWeight = 115
+        二級作廢_dgv.Columns(4).FillWeight = 115 : 二級作廢_dgv.Columns(5).FillWeight = 115 : 二級作廢_dgv.Columns(6).FillWeight = 115 : 二級作廢_dgv.Columns(7).FillWeight = 115
+        二級作廢_dgv.Columns(8).Visible = False : 二級作廢_dgv.Columns(9).FillWeight = 90
     End Sub
     Private Sub Set_清單()
-        Set_DGV4載入前設定()
+        簽名檔_dgv.DataSource = Nothing : ds2.Clear()
+        簽名檔_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        簽名檔_dgv.ColumnHeadersHeight = 25
+        簽名檔_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         If gUserName = "李協叡" Then
             SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM 簽名檔管理 ORDER BY 圖片流水號"
         Else
             SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM 簽名檔管理 WHERE 簽名檔人名 LIKE N'" & gUserName & "' ORDER BY 圖片流水號"
         End If
-        Set_DGV4載入後設定()
-    End Sub
-    Private Sub Set_grid1()
-        DataGridView2.Columns(0).Width = 110 : DataGridView2.Columns(1).Width = 63
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds2) : 簽名檔_dgv.DataSource = ds2.Tables(0) : conn.Close()
+        簽名檔_dgv.Columns(0).Width = 110 : 簽名檔_dgv.Columns(1).Width = 63
     End Sub
     Private Sub 零用金支付核准_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
@@ -95,11 +79,11 @@ Public Class 零用金支付核准
     Public Sub Delay(ByRef Interval As Double)  'Interval单位为毫秒
         Dim time As DateTime = DateTime.Now : Dim Span As Double = Interval * 1234 : While ((DateTime.Now.Ticks - time.Ticks) < Span) : Application.DoEvents() : End While
     End Sub
-    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView2.CellClick
+    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 簽名檔_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox14.Text = DataGridView2(0, e.RowIndex).Value.ToString
+            TextBox14.Text = 簽名檔_dgv(0, e.RowIndex).Value.ToString
             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-            SQL1 = "SELECT 簽名檔圖片 FROM 簽名檔管理 WHERE 圖片流水號 LIKE N'" & DataGridView2(0, e.RowIndex).Value.ToString & "'"
+            SQL1 = "SELECT 簽名檔圖片 FROM 簽名檔管理 WHERE 圖片流水號 LIKE N'" & 簽名檔_dgv(0, e.RowIndex).Value.ToString & "'"
             cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
             While dr.Read() = True
                 Dim bytes As Byte() = New Byte(-1) {}
@@ -110,7 +94,7 @@ Public Class 零用金支付核准
             conn.Close()
             PictureBox1.SizeMode = 4
             For QAZ = 0 To 999
-                QQW(0) = Strings.Right(DataGridView2(0, e.RowIndex).Value.ToString, 2) : QQW(1) = Strings.Right(Year(Today), 2) : QQW(2) = Strings.Left(Year(Today), 2) : QQW(3) = Month(Today) + 9
+                QQW(0) = Strings.Right(簽名檔_dgv(0, e.RowIndex).Value.ToString, 2) : QQW(1) = Strings.Right(Year(Today), 2) : QQW(2) = Strings.Left(Year(Today), 2) : QQW(3) = Month(Today) + 9
                 QQW(4) = Strings.Right(QQW(0), 1) : QQW(5) = Strings.Left(QQW(0), 1) : QQW(6) = Strings.Right(QQW(1), 1) : QQW(7) = Strings.Left(QQW(1), 1) : QQW(8) = Strings.Right(QQW(2), 1)
                 QQW(9) = Strings.Left(QQW(2), 1) : QQW(10) = Strings.Right(QQW(3), 1) : QQW(11) = Strings.Left(QQW(3), 1)
                 For RT = 4 To 11
@@ -132,16 +116,16 @@ Public Class 零用金支付核准
             Next
         End If
     End Sub
-    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView4.CellClick
+    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 二級未核准_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox1.Text = DataGridView4(0, e.RowIndex).Value.ToString : TextBox2.Text = DataGridView4(1, e.RowIndex).Value.ToString : TextBox3.Text = DataGridView4(2, e.RowIndex).Value.ToString
-            Set_使用者清單()
+            TextBox1.Text = 二級未核准_dgv(0, e.RowIndex).Value.ToString : TextBox2.Text = 二級未核准_dgv(1, e.RowIndex).Value.ToString : TextBox3.Text = 二級未核准_dgv(2, e.RowIndex).Value.ToString
+            Set_財務單清單()
         End If
     End Sub
-    Private Sub DataGridView5_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView5.CellClick
+    Private Sub DataGridView5_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 二級作廢_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox1.Text = DataGridView5(0, e.RowIndex).Value.ToString : TextBox2.Text = DataGridView5(1, e.RowIndex).Value.ToString : TextBox3.Text = DataGridView5(2, e.RowIndex).Value.ToString
-            Set_使用者清單()
+            TextBox1.Text = 二級作廢_dgv(0, e.RowIndex).Value.ToString : TextBox2.Text = 二級作廢_dgv(1, e.RowIndex).Value.ToString : TextBox3.Text = 二級作廢_dgv(2, e.RowIndex).Value.ToString
+            Set_財務單清單()
         End If
     End Sub
     Private Sub Set_日期格式轉換()
@@ -162,7 +146,7 @@ Public Class 零用金支付核准
                 MsgBox("單據  " & TextBox1.Text & "  核准完成")
                 Set_清單3() : Set_清單4()
                 TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : TextBox13.Text = "" : TextBox14.Text = ""
-                DataGridView1.DataSource = Nothing : ds.Clear()
+                明細_dgv.DataSource = Nothing : ds.Clear()
             End If
         End If
     End Sub
@@ -180,7 +164,7 @@ Public Class 零用金支付核准
                 MsgBox("單據  " & TextBox1.Text & "  已作廢")
                 Set_清單3() : Set_清單4()
                 TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : TextBox13.Text = "" : TextBox14.Text = ""
-                DataGridView1.DataSource = Nothing : ds.Clear()
+                明細_dgv.DataSource = Nothing : ds.Clear()
             End If
         End If
     End Sub

SHENKANG-MES-SYS/財務管理系統/零用金支付申請.Designer.vb

@@ -23,19 +23,19 @@ 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 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()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.TextBox2 = New System.Windows.Forms.TextBox()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.TextBox3 = New System.Windows.Forms.TextBox()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.明細_dgv = New System.Windows.Forms.DataGridView()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Label28 = New System.Windows.Forms.Label()
@@ -45,24 +45,27 @@ Partial Class 零用金支付申請
         Me.TextBox4 = New System.Windows.Forms.TextBox()
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
         Me.Label62 = New System.Windows.Forms.Label()
-        Me.DataGridView2 = New System.Windows.Forms.DataGridView()
+        Me.一級未審核_dgv = New System.Windows.Forms.DataGridView()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.Label5 = New System.Windows.Forms.Label()
-        Me.DataGridView3 = New System.Windows.Forms.DataGridView()
+        Me.一級作廢_dgv = New System.Windows.Forms.DataGridView()
         Me.Label6 = New System.Windows.Forms.Label()
-        Me.DataGridView4 = New System.Windows.Forms.DataGridView()
+        Me.二級未核准_dgv = New System.Windows.Forms.DataGridView()
         Me.Label7 = New System.Windows.Forms.Label()
-        Me.DataGridView5 = New System.Windows.Forms.DataGridView()
+        Me.二級作廢_dgv = New System.Windows.Forms.DataGridView()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.Button4 = New System.Windows.Forms.Button()
         Me.Button5 = New System.Windows.Forms.Button()
         Me.TextBox5 = New System.Windows.Forms.TextBox()
         Me.Label8 = New System.Windows.Forms.Label()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView5, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.帳本名稱_cb = New System.Windows.Forms.ComboBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.帳本編號_cb = New System.Windows.Forms.ComboBox()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.一級未審核_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.一級作廢_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.二級未核准_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.二級作廢_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'TextBox1
@@ -113,19 +116,19 @@ Partial Class 零用金支付申請
         Me.TextBox3.Size = New System.Drawing.Size(395, 23)
         Me.TextBox3.TabIndex = 4
         '
-        'DataGridView1
+        '明細_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(965, 157)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle2
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(937, 807)
-        Me.DataGridView1.TabIndex = 589
+        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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.明細_dgv.Location = New System.Drawing.Point(965, 157)
+        Me.明細_dgv.Name = "明細_dgv"
+        Me.明細_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
+        Me.明細_dgv.RowTemplate.Height = 24
+        Me.明細_dgv.Size = New System.Drawing.Size(937, 807)
+        Me.明細_dgv.TabIndex = 589
         '
         'Button1
         '
@@ -207,17 +210,17 @@ Partial Class 零用金支付申請
         Me.Label62.Text = "資料尚未存檔"
         Me.Label62.Visible = False
         '
-        'DataGridView2
+        '一級未審核_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
-        Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView2.Location = New System.Drawing.Point(12, 41)
-        Me.DataGridView2.Name = "DataGridView2"
-        Me.DataGridView2.RowHeadersWidth = 5
-        Me.DataGridView2.RowTemplate.Height = 24
-        Me.DataGridView2.Size = New System.Drawing.Size(947, 204)
-        Me.DataGridView2.TabIndex = 735
+        DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.一級未審核_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
+        Me.一級未審核_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.一級未審核_dgv.Location = New System.Drawing.Point(12, 41)
+        Me.一級未審核_dgv.Name = "一級未審核_dgv"
+        Me.一級未審核_dgv.RowHeadersWidth = 5
+        Me.一級未審核_dgv.RowTemplate.Height = 24
+        Me.一級未審核_dgv.Size = New System.Drawing.Size(947, 204)
+        Me.一級未審核_dgv.TabIndex = 735
         '
         'Label4
         '
@@ -237,17 +240,17 @@ Partial Class 零用金支付申請
         Me.Label5.TabIndex = 738
         Me.Label5.Text = "主管作廢的零用金支付單"
         '
-        'DataGridView3
+        '一級作廢_dgv
         '
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView3.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
-        Me.DataGridView3.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView3.Location = New System.Drawing.Point(12, 523)
-        Me.DataGridView3.Name = "DataGridView3"
-        Me.DataGridView3.RowHeadersWidth = 5
-        Me.DataGridView3.RowTemplate.Height = 24
-        Me.DataGridView3.Size = New System.Drawing.Size(947, 204)
-        Me.DataGridView3.TabIndex = 737
+        DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.一級作廢_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
+        Me.一級作廢_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.一級作廢_dgv.Location = New System.Drawing.Point(12, 523)
+        Me.一級作廢_dgv.Name = "一級作廢_dgv"
+        Me.一級作廢_dgv.RowHeadersWidth = 5
+        Me.一級作廢_dgv.RowTemplate.Height = 24
+        Me.一級作廢_dgv.Size = New System.Drawing.Size(947, 204)
+        Me.一級作廢_dgv.TabIndex = 737
         '
         'Label6
         '
@@ -258,17 +261,17 @@ Partial Class 零用金支付申請
         Me.Label6.TabIndex = 740
         Me.Label6.Text = "總經理未核准的零用金支付單"
         '
-        'DataGridView4
+        '二級未核准_dgv
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView4.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
-        Me.DataGridView4.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView4.Location = New System.Drawing.Point(12, 282)
-        Me.DataGridView4.Name = "DataGridView4"
-        Me.DataGridView4.RowHeadersWidth = 5
-        Me.DataGridView4.RowTemplate.Height = 24
-        Me.DataGridView4.Size = New System.Drawing.Size(947, 204)
-        Me.DataGridView4.TabIndex = 739
+        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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.二級未核准_dgv.Location = New System.Drawing.Point(12, 282)
+        Me.二級未核准_dgv.Name = "二級未核准_dgv"
+        Me.二級未核准_dgv.RowHeadersWidth = 5
+        Me.二級未核准_dgv.RowTemplate.Height = 24
+        Me.二級未核准_dgv.Size = New System.Drawing.Size(947, 204)
+        Me.二級未核准_dgv.TabIndex = 739
         '
         'Label7
         '
@@ -279,17 +282,17 @@ Partial Class 零用金支付申請
         Me.Label7.TabIndex = 742
         Me.Label7.Text = "總經理作廢的零用金支付單"
         '
-        'DataGridView5
+        '二級作廢_dgv
         '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView5.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
-        Me.DataGridView5.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView5.Location = New System.Drawing.Point(12, 760)
-        Me.DataGridView5.Name = "DataGridView5"
-        Me.DataGridView5.RowHeadersWidth = 5
-        Me.DataGridView5.RowTemplate.Height = 24
-        Me.DataGridView5.Size = New System.Drawing.Size(947, 204)
-        Me.DataGridView5.TabIndex = 741
+        DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.二級作廢_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
+        Me.二級作廢_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.二級作廢_dgv.Location = New System.Drawing.Point(12, 760)
+        Me.二級作廢_dgv.Name = "二級作廢_dgv"
+        Me.二級作廢_dgv.RowHeadersWidth = 5
+        Me.二級作廢_dgv.RowTemplate.Height = 24
+        Me.二級作廢_dgv.Size = New System.Drawing.Size(947, 204)
+        Me.二級作廢_dgv.TabIndex = 741
         '
         'Button3
         '
@@ -340,24 +343,59 @@ Partial Class 零用金支付申請
         Me.Label8.TabIndex = 776
         Me.Label8.Text = "總金額"
         '
+        '帳本名稱_cb
+        '
+        Me.帳本名稱_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.帳本名稱_cb.ForeColor = System.Drawing.Color.Green
+        Me.帳本名稱_cb.FormattingEnabled = True
+        Me.帳本名稱_cb.Items.AddRange(New Object() {"", "LANDED BRANDED", "FIRST COST"})
+        Me.帳本名稱_cb.Location = New System.Drawing.Point(811, 11)
+        Me.帳本名稱_cb.Name = "帳本名稱_cb"
+        Me.帳本名稱_cb.Size = New System.Drawing.Size(145, 24)
+        Me.帳本名稱_cb.TabIndex = 993
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.ForeColor = System.Drawing.Color.Green
+        Me.Label9.Location = New System.Drawing.Point(773, 14)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(32, 16)
+        Me.Label9.TabIndex = 992
+        Me.Label9.Text = "帳本"
+        '
+        '帳本編號_cb
+        '
+        Me.帳本編號_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.帳本編號_cb.ForeColor = System.Drawing.Color.Green
+        Me.帳本編號_cb.FormattingEnabled = True
+        Me.帳本編號_cb.Items.AddRange(New Object() {"", "LANDED BRANDED", "FIRST COST"})
+        Me.帳本編號_cb.Location = New System.Drawing.Point(811, 53)
+        Me.帳本編號_cb.Name = "帳本編號_cb"
+        Me.帳本編號_cb.Size = New System.Drawing.Size(145, 24)
+        Me.帳本編號_cb.TabIndex = 994
+        '
         '零用金支付申請
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 971)
+        Me.Controls.Add(Me.帳本編號_cb)
+        Me.Controls.Add(Me.帳本名稱_cb)
+        Me.Controls.Add(Me.Label9)
         Me.Controls.Add(Me.TextBox5)
         Me.Controls.Add(Me.Label8)
         Me.Controls.Add(Me.Button5)
         Me.Controls.Add(Me.Button4)
         Me.Controls.Add(Me.Button3)
         Me.Controls.Add(Me.Label7)
-        Me.Controls.Add(Me.DataGridView5)
+        Me.Controls.Add(Me.二級作廢_dgv)
         Me.Controls.Add(Me.Label6)
-        Me.Controls.Add(Me.DataGridView4)
+        Me.Controls.Add(Me.二級未核准_dgv)
         Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.DataGridView3)
+        Me.Controls.Add(Me.一級作廢_dgv)
         Me.Controls.Add(Me.Label4)
-        Me.Controls.Add(Me.DataGridView2)
+        Me.Controls.Add(Me.一級未審核_dgv)
         Me.Controls.Add(Me.Label62)
         Me.Controls.Add(Me.TextBox4)
         Me.Controls.Add(Me.Label28)
@@ -366,7 +404,7 @@ Partial Class 零用金支付申請
         Me.Controls.Add(Me.Button6)
         Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Button1)
-        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.明細_dgv)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.TextBox3)
         Me.Controls.Add(Me.Label2)
@@ -377,11 +415,11 @@ Partial Class 零用金支付申請
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "零用金支付申請"
         Me.Text = "零用金支付申請"
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.一級未審核_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.一級作廢_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.二級未核准_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.二級作廢_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -393,7 +431,7 @@ Partial Class 零用金支付申請
     Friend WithEvents TextBox2 As TextBox
     Friend WithEvents Label3 As Label
     Friend WithEvents TextBox3 As TextBox
-    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents 明細_dgv As DataGridView
     Friend WithEvents Button1 As Button
     Friend WithEvents Button2 As Button
     Friend WithEvents Label28 As Label
@@ -403,17 +441,20 @@ Partial Class 零用金支付申請
     Friend WithEvents TextBox4 As TextBox
     Friend WithEvents Timer1 As Timer
     Friend WithEvents Label62 As Label
-    Friend WithEvents DataGridView2 As DataGridView
+    Friend WithEvents 一級未審核_dgv As DataGridView
     Friend WithEvents Label4 As Label
     Friend WithEvents Label5 As Label
-    Friend WithEvents DataGridView3 As DataGridView
+    Friend WithEvents 一級作廢_dgv As DataGridView
     Friend WithEvents Label6 As Label
-    Friend WithEvents DataGridView4 As DataGridView
+    Friend WithEvents 二級未核准_dgv As DataGridView
     Friend WithEvents Label7 As Label
-    Friend WithEvents DataGridView5 As DataGridView
+    Friend WithEvents 二級作廢_dgv As DataGridView
     Friend WithEvents Button3 As Button
     Friend WithEvents Button4 As Button
     Friend WithEvents Button5 As Button
     Friend WithEvents TextBox5 As TextBox
     Friend WithEvents Label8 As Label
+    Friend WithEvents 帳本名稱_cb As ComboBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 帳本編號_cb As ComboBox
 End Class

SHENKANG-MES-SYS/財務管理系統/零用金支付申請.vb

@@ -1,161 +1,129 @@
 Option Strict Off
-Imports System.Data.SqlClient
 Public Class 零用金支付申請
-    Dim conn As New SqlConnection
-    Dim da As New SqlDataAdapter
-    Dim cmd As New SqlCommand
     Dim ds As New DataSet : Dim ds1 As New DataSet : Dim ds2 As New DataSet : Dim ds3 As New DataSet : Dim ds4 As New DataSet
-    Dim dr As SqlDataReader
     Dim DTP As String : Dim DTP1 As String : Dim 新項次 As String
     Dim NUM1 As Integer
-    Private Sub Set_使用者清單()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
-        DataGridView1.RowTemplate.Height = 35
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "SELECT 流水號, 項次, 用途, 金額, 備註 FROM 零用金支付明細 WHERE 流水號 LIKE N'" & TextBox1.Text & "' ORDER BY 項次"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
-    End Sub
-    Private Sub Set_grid()
-        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).Width = 80 : DataGridView1.Columns(2).Width = 342 : DataGridView1.Columns(3).Width = 140 : DataGridView1.Columns(4).Width = 350
-        DataGridView1.Columns(3).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter
+    Private Sub Set_財務單清單()
+        明細_dgv.DataSource = Nothing : ds.Clear()
+        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        明細_dgv.ColumnHeadersHeight = 25
+        明細_dgv.AllowUserToAddRows = False
+        明細_dgv.RowTemplate.Height = 35
+
+        PA1 = TextBox1.Text : SQL_財務帳清單()
+        da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
 
+        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).Width = 80 : 明細_dgv.Columns(2).Width = 342 : 明細_dgv.Columns(3).Width = 140 : 明細_dgv.Columns(4).Width = 350
+        明細_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00"
+        明細_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         TextBox5.Text = "0.00"
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            TextBox5.Text = Val(TextBox5.Text) + DataGridView1.Rows(i).Cells("金額").Value
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            TextBox5.Text = Val(TextBox5.Text) + 明細_dgv.Rows(i).Cells("金額").Value
         Next i
         TextBox5.Text = Format(Val(TextBox5.Text), "#,##0.00")
     End Sub
     Private Sub Set_清單1()
-        DataGridView2.DataSource = Nothing : ds1.Clear()
-        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView2.ColumnHeadersHeight = 25
-        DataGridView2.AllowUserToAddRows = False
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        If 登入人部門 = "NA" Then
-            SQL1 = "SELECT 流水號, 部門, 申請人, LEFT(申請日期, 10) AS 申請日期, 審核人, LEFT(審核日期, 10) AS 審核日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 零用金支付表 " &
-                   "WHERE (審核人 LIKE N'') ORDER BY 流水號 DESC"
-        Else
-            SQL1 = "SELECT 流水號, 部門, 申請人, LEFT(申請日期, 10) AS 申請日期, 審核人, LEFT(審核日期, 10) AS 審核日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 零用金支付表 " &
-                   "WHERE (申請人 LIKE N'" & gUserName & "') AND (審核人 LIKE N'') ORDER BY 流水號 DESC"
-        End If
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close() : Set_grid1()
-    End Sub
-    Private Sub Set_grid1()
-        DataGridView2.Columns(0).Width = 120 : DataGridView2.Columns(1).Width = 114 : DataGridView2.Columns(2).Width = 114 : DataGridView2.Columns(3).Width = 115 : DataGridView2.Columns(4).Width = 115
-        DataGridView2.Columns(5).Width = 115 : DataGridView2.Columns(6).Width = 115 : DataGridView2.Columns(7).Width = 115
+        一級未審核_dgv.DataSource = Nothing : ds1.Clear()
+        一級未審核_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        一級未審核_dgv.ColumnHeadersHeight = 25
+        一級未審核_dgv.AllowUserToAddRows = False
+
+        PA = "一級未審核" : SQL_財務單據()
+        da.Fill(ds1) : 一級未審核_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        一級未審核_dgv.Columns(0).Width = 120 : 一級未審核_dgv.Columns(1).Width = 114 : 一級未審核_dgv.Columns(2).Width = 114 : 一級未審核_dgv.Columns(3).Width = 115
+        一級未審核_dgv.Columns(4).Width = 115 : 一級未審核_dgv.Columns(5).Width = 115 : 一級未審核_dgv.Columns(6).Width = 115 : 一級未審核_dgv.Columns(7).Width = 115
+        一級未審核_dgv.Columns(8).Visible = False : 一級未審核_dgv.Columns(9).Visible = False
     End Sub
     Private Sub Set_清單2()
-        DataGridView3.DataSource = Nothing : ds2.Clear()
-        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView3.ColumnHeadersHeight = 25
-        DataGridView3.AllowUserToAddRows = False
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        If 登入人部門 = "NA" Then
-            SQL1 = "SELECT 流水號, 部門, 申請人, LEFT(申請日期, 10) AS 申請日期, 審核人, LEFT(審核日期, 10) AS 審核日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 零用金支付表 " &
-                   "WHERE (審核人 LIKE N'作廢%') ORDER BY 流水號 DESC"
-        Else
-            SQL1 = "SELECT 流水號, 部門, 申請人, LEFT(申請日期, 10) AS 申請日期, 審核人, LEFT(審核日期, 10) AS 審核日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 零用金支付表 " &
-                   "WHERE (申請人 LIKE N'" & gUserName & "') AND (審核人 LIKE N'作廢%') ORDER BY 流水號 DESC"
-        End If
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close() : Set_grid2()
-    End Sub
-    Private Sub Set_grid2()
-        DataGridView3.Columns(0).Width = 120 : DataGridView3.Columns(1).Width = 114 : DataGridView3.Columns(2).Width = 114 : DataGridView3.Columns(3).Width = 115 : DataGridView3.Columns(4).Width = 115
-        DataGridView3.Columns(5).Width = 115 : DataGridView3.Columns(6).Width = 115 : DataGridView3.Columns(7).Width = 115
+        一級作廢_dgv.DataSource = Nothing : ds2.Clear()
+        一級作廢_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        一級作廢_dgv.ColumnHeadersHeight = 25
+        一級作廢_dgv.AllowUserToAddRows = False
+
+        PA = "一級作廢" : SQL_財務單據()
+        da.Fill(ds2) : 一級作廢_dgv.DataSource = ds2.Tables(0) : conn.Close()
+
+        一級作廢_dgv.Columns(0).Width = 120 : 一級作廢_dgv.Columns(1).Width = 114 : 一級作廢_dgv.Columns(2).Width = 114 : 一級作廢_dgv.Columns(3).Width = 115
+        一級作廢_dgv.Columns(4).Width = 115 : 一級作廢_dgv.Columns(5).Width = 115 : 一級作廢_dgv.Columns(6).Width = 115 : 一級作廢_dgv.Columns(7).Width = 115
+        一級作廢_dgv.Columns(8).Visible = False : 一級作廢_dgv.Columns(9).Visible = False
     End Sub
     Private Sub Set_清單3()
-        DataGridView4.DataSource = Nothing : ds3.Clear()
-        DataGridView4.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView4.ColumnHeadersHeight = 25
-        DataGridView4.AllowUserToAddRows = False
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        If 登入人部門 = "NA" Then
-            SQL1 = "SELECT 流水號, 部門, 申請人, LEFT(申請日期, 10) AS 申請日期, 審核人, LEFT(審核日期, 10) AS 審核日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 零用金支付表 " &
-                   "WHERE (審核人 NOT LIKE N'作廢%') AND (審核人 NOT LIKE N'')  AND (核准人 LIKE N'') ORDER BY 流水號 DESC"
-        Else
-            SQL1 = "SELECT 流水號, 部門, 申請人, LEFT(申請日期, 10) AS 申請日期, 審核人, LEFT(審核日期, 10) AS 審核日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 零用金支付表 " &
-                   "WHERE (申請人 LIKE N'" & gUserName & "') AND (審核人 NOT LIKE N'作廢%') AND (審核人 NOT LIKE N'')  AND (核准人 LIKE N'') ORDER BY 流水號 DESC"
-        End If
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds3) : DataGridView4.DataSource = ds3.Tables(0) : conn.Close() : Set_grid3()
-    End Sub
-    Private Sub Set_grid3()
-        DataGridView4.Columns(0).Width = 120 : DataGridView4.Columns(1).Width = 114 : DataGridView4.Columns(2).Width = 114 : DataGridView4.Columns(3).Width = 115 : DataGridView4.Columns(4).Width = 115
-        DataGridView4.Columns(5).Width = 115 : DataGridView4.Columns(6).Width = 115 : DataGridView4.Columns(7).Width = 115
+        二級未核准_dgv.DataSource = Nothing : ds3.Clear()
+        二級未核准_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        二級未核准_dgv.ColumnHeadersHeight = 25
+        二級未核准_dgv.AllowUserToAddRows = False
+
+        PA = "二級未核准" : SQL_財務單據()
+        da.Fill(ds3) : 二級未核准_dgv.DataSource = ds3.Tables(0) : conn.Close()
+
+        二級未核准_dgv.Columns(0).Width = 120 : 二級未核准_dgv.Columns(1).Width = 114 : 二級未核准_dgv.Columns(2).Width = 114 : 二級未核准_dgv.Columns(3).Width = 115
+        二級未核准_dgv.Columns(4).Width = 115 : 二級未核准_dgv.Columns(5).Width = 115 : 二級未核准_dgv.Columns(6).Width = 115 : 二級未核准_dgv.Columns(7).Width = 115
+        二級未核准_dgv.Columns(8).Visible = False : 二級未核准_dgv.Columns(9).Visible = False
     End Sub
     Private Sub Set_清單4()
-        DataGridView5.DataSource = Nothing : ds4.Clear()
-        DataGridView5.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView5.ColumnHeadersHeight = 25
-        DataGridView5.AllowUserToAddRows = False
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        If 登入人部門 = "NA" Then
-            SQL1 = "SELECT 流水號, 部門, 申請人, LEFT(申請日期, 10) AS 申請日期, 審核人, LEFT(審核日期, 10) AS 審核日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 零用金支付表 " &
-                   "WHERE (審核人 NOT LIKE N'作廢%') AND (審核人 NOT LIKE N'')  AND (核准人 LIKE N'作廢%') ORDER BY 流水號 DESC"
-        Else
-            SQL1 = "SELECT 流水號, 部門, 申請人, LEFT(申請日期, 10) AS 申請日期, 審核人, LEFT(審核日期, 10) AS 審核日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 零用金支付表 " &
-                   "WHERE (申請人 LIKE N'" & gUserName & "') AND (審核人 NOT LIKE N'作廢%') AND (審核人 NOT LIKE N'')  AND (核准人 LIKE N'作廢%') ORDER BY 流水號 DESC"
-        End If
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds4) : DataGridView5.DataSource = ds4.Tables(0) : conn.Close() : Set_grid4()
-    End Sub
-    Private Sub Set_grid4()
-        DataGridView5.Columns(0).Width = 120 : DataGridView5.Columns(1).Width = 114 : DataGridView5.Columns(2).Width = 114 : DataGridView5.Columns(3).Width = 115 : DataGridView5.Columns(4).Width = 115
-        DataGridView5.Columns(5).Width = 115 : DataGridView5.Columns(6).Width = 115 : DataGridView5.Columns(7).Width = 115
+        二級作廢_dgv.DataSource = Nothing : ds4.Clear()
+        二級作廢_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        二級作廢_dgv.ColumnHeadersHeight = 25
+        二級作廢_dgv.AllowUserToAddRows = False
+
+        PA = "二級作廢" : SQL_財務單據()
+        da.Fill(ds4) : 二級作廢_dgv.DataSource = ds4.Tables(0) : conn.Close()
+
+        二級作廢_dgv.Columns(0).Width = 120 : 二級作廢_dgv.Columns(1).Width = 114 : 二級作廢_dgv.Columns(2).Width = 114 : 二級作廢_dgv.Columns(3).Width = 115
+        二級作廢_dgv.Columns(4).Width = 115 : 二級作廢_dgv.Columns(5).Width = 115 : 二級作廢_dgv.Columns(6).Width = 115 : 二級作廢_dgv.Columns(7).Width = 115
+        二級作廢_dgv.Columns(8).Visible = False : 二級作廢_dgv.Columns(9).Visible = False
     End Sub
     Private Sub Set_日期格式轉換()
         DTP = Format(Today(), "yyyy/MM/dd") & "-" & Format(TimeOfDay(), "hh:mm:ss") : DTP1 = Format(Today(), "yyyyMMdd")
     End Sub
+    Private Sub ComboBox1下拉表單資料載入()
+        SQL_帳本下拉清單()
+        帳本名稱_cb.Items.Clear() : 帳本編號_cb.Items.Clear() : While (dr.Read()) : 帳本名稱_cb.Items.Add(dr("帳本名稱")) : 帳本編號_cb.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
     Private Sub 零用金支付申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         Button2.Enabled = False : Button6.Enabled = False : Button15.Enabled = False : Button3.Enabled = False : Button4.Enabled = False : Button5.Enabled = False
-        TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False : TextBox4.Enabled = False
+        TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False : TextBox4.Enabled = False : 帳本編號_cb.Visible = False
+        ComboBox1下拉表單資料載入() : 帳本名稱_cb.SelectedIndex = 0 : PA19 = 帳本編號_cb.Text
         Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4()
     End Sub
     Private Sub 零用金支付申請_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
         If Button2.Enabled = True Then
-            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-            SQL1 = "DELETE FROM 零用金支付表 WHERE (流水號 LIKE N'" & TextBox1.Text & "')"
-            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
-            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-            SQL1 = "DELETE FROM 零用金支付明細 WHERE (流水號 LIKE N'" & TextBox1.Text & "')"
-            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
+            PA = TextBox1.Text : SQL_財務單據刪除() : conn.Close()
         End If
     End Sub
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         If Label62.Visible = True Then : Label62.Visible = False : Else : Label62.Visible = True : End If
     End Sub
-    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
+    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 明細_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox4.Text = DataGridView1(1, e.RowIndex).Value.ToString
+            TextBox4.Text = 明細_dgv(1, e.RowIndex).Value.ToString
         End If
     End Sub
-    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView2.CellClick
+    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 一級未審核_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox1.Text = DataGridView2(0, e.RowIndex).Value.ToString : TextBox2.Text = DataGridView2(1, e.RowIndex).Value.ToString : TextBox3.Text = DataGridView2(2, e.RowIndex).Value.ToString
-            Button3.Enabled = True : Button5.Enabled = True : Set_使用者清單()
+            TextBox1.Text = 一級未審核_dgv(0, e.RowIndex).Value.ToString : TextBox2.Text = 一級未審核_dgv(1, e.RowIndex).Value.ToString : TextBox3.Text = 一級未審核_dgv(2, e.RowIndex).Value.ToString
+            Button3.Enabled = True : Button5.Enabled = True : Set_財務單清單()
         End If
     End Sub
-    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView3.CellClick
+    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 一級作廢_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox1.Text = DataGridView3(0, e.RowIndex).Value.ToString : TextBox2.Text = DataGridView3(1, e.RowIndex).Value.ToString : TextBox3.Text = DataGridView3(2, e.RowIndex).Value.ToString
-            Button3.Enabled = False : Button5.Enabled = False : Set_使用者清單()
+            TextBox1.Text = 一級作廢_dgv(0, e.RowIndex).Value.ToString : TextBox2.Text = 一級作廢_dgv(1, e.RowIndex).Value.ToString : TextBox3.Text = 一級作廢_dgv(2, e.RowIndex).Value.ToString
+            Button3.Enabled = False : Button5.Enabled = False : Set_財務單清單()
         End If
     End Sub
-    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView4.CellClick
+    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 二級未核准_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox1.Text = DataGridView4(0, e.RowIndex).Value.ToString : TextBox2.Text = DataGridView4(1, e.RowIndex).Value.ToString : TextBox3.Text = DataGridView4(2, e.RowIndex).Value.ToString
-            Button3.Enabled = False : Button5.Enabled = False : Set_使用者清單()
+            TextBox1.Text = 二級未核准_dgv(0, e.RowIndex).Value.ToString : TextBox2.Text = 二級未核准_dgv(1, e.RowIndex).Value.ToString : TextBox3.Text = 二級未核准_dgv(2, e.RowIndex).Value.ToString
+            Button3.Enabled = False : Button5.Enabled = False : Set_財務單清單()
         End If
     End Sub
-    Private Sub DataGridView5_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView5.CellClick
+    Private Sub DataGridView5_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 二級作廢_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox1.Text = DataGridView5(0, e.RowIndex).Value.ToString : TextBox2.Text = DataGridView5(1, e.RowIndex).Value.ToString : TextBox3.Text = DataGridView5(2, e.RowIndex).Value.ToString
-            Button3.Enabled = False : Button5.Enabled = False : Set_使用者清單()
+            TextBox1.Text = 二級作廢_dgv(0, e.RowIndex).Value.ToString : TextBox2.Text = 二級作廢_dgv(1, e.RowIndex).Value.ToString : TextBox3.Text = 二級作廢_dgv(2, e.RowIndex).Value.ToString
+            Button3.Enabled = False : Button5.Enabled = False : Set_財務單清單()
         End If
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
@@ -166,28 +134,24 @@ Public Class 零用金支付申請
             NUM1 = 0 + i
             If NUM1 < 10 Then : TextBox1.Text = "PC-" & DTP1 & "-00" & NUM1
             ElseIf NUM1 > 9 And NUM1 < 100 Then : TextBox1.Text = "PC-" & DTP1 & "-0" & NUM1
-            ElseIf NUM1 > 99 Then : TextBox1.Text = "PC-" & DTP1 & "-" & NUM1
-            End If
-            conn.Close()
-            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-            SQL1 = "SELECT TOP (1)  流水號 FROM 零用金支付表 WHERE ( 流水號 LIKE N'" & TextBox1.Text & "')"
-            cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
+            ElseIf NUM1 > 99 Then : TextBox1.Text = "PC-" & DTP1 & "-" & NUM1 : End If
+            PA = TextBox1.Text : SQL_零用金支付表最後一筆資料()
             If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
         Next
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "INSERT INTO 零用金支付表 (流水號, 部門, 申請人, 申請日期, 審核人, 審核日期, 核准人, 核准日期, 會計, 作帳日期, 出納, 出納日期, 核准圖檔, 簽名編碼, 備註) " &
-               "VALUES (N'" & TextBox1.Text & "',N'" & 登入人部門 & "',N'" & gUserName & "',N'" & DTP & "',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'')"
+        SQL1 = "INSERT INTO 零用金支付表 (流水號, 部門, 申請人, 申請日期, 審核人, 審核日期, 核准人, 核准日期, 會計, 作帳日期, 出納, 出納日期, 核准圖檔, 簽名編碼, 備註, 帳本編號) " &
+               "VALUES (N'" & PA & "',N'" & 登入人部門 & "',N'" & gUserName & "',N'" & DTP & "',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'" & 帳本編號_cb.Text & "')"
         cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
         TextBox2.Text = 登入人部門 : TextBox3.Text = gUserName
-        DataGridView1.DataSource = Nothing : ds.Clear()
+        明細_dgv.DataSource = Nothing : ds.Clear()
         conn.Close()
     End Sub
     Private Sub 存檔()
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            資料數 = DataGridView1.Rows.Count : MyModule1.進度條()
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            資料數 = 明細_dgv.Rows.Count : MyModule1.進度條()
             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-            SQL1 = "UPDATE 零用金支付明細 SET  用途 = N'" & DataGridView1.Rows(i).Cells("用途").Value & "', 金額 = N'" & DataGridView1.Rows(i).Cells("金額").Value &
-                   "', 備註 = N'" & DataGridView1.Rows(i).Cells("備註").Value & "' WHERE (流水號 LIKE N'" & TextBox1.Text & "' AND 項次 LIKE N'" & DataGridView1.Rows(i).Cells("項次").Value & "')"
+            SQL1 = "UPDATE 零用金支付明細 SET  用途 = N'" & 明細_dgv.Rows(i).Cells("用途").Value & "', 金額 = N'" & 明細_dgv.Rows(i).Cells("金額").Value &
+                   "', 備註 = N'" & 明細_dgv.Rows(i).Cells("備註").Value & "' WHERE (流水號 LIKE N'" & TextBox1.Text & "' AND 項次 LIKE N'" & 明細_dgv.Rows(i).Cells("項次").Value & "')"
             cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
         Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
     End Sub
@@ -205,7 +169,7 @@ Public Class 零用金支付申請
         SQL1 = "INSERT INTO 零用金支付明細 (流水號, 用途, 金額, 備註, 項次) " &
                "VALUES (N'" & TextBox1.Text & "',N'',N'0',N'',N'" & 新項次 & "')"
         cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
-        Set_使用者清單()
+        Set_財務單清單()
     End Sub
     Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
         If TextBox4.Text = "" Then
@@ -215,16 +179,16 @@ Public Class 零用金支付申請
             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
             SQL1 = "DELETE FROM 零用金支付明細 WHERE (流水號 LIKE N'" & TextBox1.Text & "' AND 項次 LIKE N'" & TextBox4.Text & "')"
             cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
-            Set_使用者清單()
+            Set_財務單清單()
             Dim NUM1 As Integer = 0
-            For i As Integer = 0 To DataGridView1.Rows.Count - 1
+            For i As Integer = 0 To 明細_dgv.Rows.Count - 1
                 NUM1 = NUM1 + 1 : If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-                SQL1 = "UPDATE 零用金支付明細 SET 項次 = N'" & 新項次 & "' WHERE (流水號 LIKE N'" & TextBox1.Text & "' AND 項次 LIKE N'" & DataGridView1.Rows(i).Cells("項次").Value & "')"
+                SQL1 = "UPDATE 零用金支付明細 SET 項次 = N'" & 新項次 & "' WHERE (流水號 LIKE N'" & TextBox1.Text & "' AND 項次 LIKE N'" & 明細_dgv.Rows(i).Cells("項次").Value & "')"
                 cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
                 conn.Close()
             Next
-            Set_使用者清單()
+            Set_財務單清單()
         End If
     End Sub
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
@@ -232,7 +196,7 @@ Public Class 零用金支付申請
         Button1.Enabled = True : Button2.Enabled = False : Button6.Enabled = False : Button15.Enabled = False
         存檔()
         TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : TextBox4.Text = ""
-        DataGridView1.DataSource = Nothing : ds.Clear()
+        明細_dgv.DataSource = Nothing : ds.Clear()
         MsgBox("申請完成，請通知主管審核。")
         Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4()
     End Sub
@@ -241,11 +205,11 @@ Public Class 零用金支付申請
     End Sub
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
         Button3.Enabled = True : Button4.Enabled = False : Button6.Enabled = False : Button15.Enabled = False
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            資料數 = DataGridView1.Rows.Count : MyModule1.進度條()
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            資料數 = 明細_dgv.Rows.Count : MyModule1.進度條()
             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-            SQL1 = "UPDATE 零用金支付明細 SET  用途 = N'" & DataGridView1.Rows(i).Cells("用途").Value & "', 金額 = N'" & DataGridView1.Rows(i).Cells("金額").Value &
-                   "', 備註 = N'" & DataGridView1.Rows(i).Cells("備註").Value & "' WHERE (流水號 LIKE N'" & TextBox1.Text & "' AND 項次 LIKE N'" & DataGridView1.Rows(i).Cells("項次").Value & "')"
+            SQL1 = "UPDATE 零用金支付明細 SET  用途 = N'" & 明細_dgv.Rows(i).Cells("用途").Value & "', 金額 = N'" & 明細_dgv.Rows(i).Cells("金額").Value &
+                   "', 備註 = N'" & 明細_dgv.Rows(i).Cells("備註").Value & "' WHERE (流水號 LIKE N'" & TextBox1.Text & "' AND 項次 LIKE N'" & 明細_dgv.Rows(i).Cells("項次").Value & "')"
             cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
         Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
     End Sub
@@ -260,8 +224,16 @@ Public Class 零用金支付申請
             SQL1 = "DELETE FROM 零用金支付明細 WHERE (流水號 LIKE N'" & TextBox1.Text & "')"
             cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
             TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : TextBox4.Text = ""
-            DataGridView1.DataSource = Nothing : ds.Clear()
+            明細_dgv.DataSource = Nothing : ds.Clear()
             Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4()
         End If
     End Sub
+    Private Sub 帳本名稱_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 帳本名稱_cb.SelectedIndexChanged
+        帳本編號_cb.SelectedIndex = 帳本名稱_cb.SelectedIndex : PA19 = 帳本編號_cb.Text : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4()
+        TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : Set_財務單清單()
+    End Sub
+    Private Sub 帳本編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 帳本編號_cb.SelectedIndexChanged
+        帳本名稱_cb.SelectedIndex = 帳本編號_cb.SelectedIndex : PA19 = 帳本編號_cb.Text : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4()
+        TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : Set_財務單清單()
+    End Sub
 End Class

SHENKANG-MES-SYS/資料庫管理系統/系統編碼規則_1.Designer.vb

@@ -31,16 +31,17 @@ Partial Class 系統編碼規則_1
         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()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
-        Me.DataGridView3 = New System.Windows.Forms.DataGridView()
+        Me.部件大項_dgv = New System.Windows.Forms.DataGridView()
         Me.Button7 = New System.Windows.Forms.Button()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.Button8 = New System.Windows.Forms.Button()
         Me.Button9 = New System.Windows.Forms.Button()
         Me.TextBox4 = New System.Windows.Forms.TextBox()
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
-        Me.DataGridView2 = New System.Windows.Forms.DataGridView()
+        Me.貼標大項_dgv = New System.Windows.Forms.DataGridView()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.Button5 = New System.Windows.Forms.Button()
@@ -54,21 +55,21 @@ Partial Class 系統編碼規則_1
         Me.Button21 = New System.Windows.Forms.Button()
         Me.TextBox8 = New System.Windows.Forms.TextBox()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.部門_dgv = New System.Windows.Forms.DataGridView()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.Button4 = New System.Windows.Forms.Button()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.GroupBox4 = New System.Windows.Forms.GroupBox()
-        Me.DataGridView4 = New System.Windows.Forms.DataGridView()
+        Me.職稱_dgv = New System.Windows.Forms.DataGridView()
         Me.Button10 = New System.Windows.Forms.Button()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Button11 = New System.Windows.Forms.Button()
         Me.Button12 = New System.Windows.Forms.Button()
         Me.TextBox2 = New System.Windows.Forms.TextBox()
         Me.GroupBox5 = New System.Windows.Forms.GroupBox()
-        Me.DataGridView5 = New System.Windows.Forms.DataGridView()
+        Me.請假類別_dgv = New System.Windows.Forms.DataGridView()
         Me.Button13 = New System.Windows.Forms.Button()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.Button14 = New System.Windows.Forms.Button()
@@ -82,37 +83,48 @@ Partial Class 系統編碼規則_1
         Me.Button18 = New System.Windows.Forms.Button()
         Me.TextBox6 = New System.Windows.Forms.TextBox()
         Me.GroupBox8 = New System.Windows.Forms.GroupBox()
-        Me.DataGridView8 = New System.Windows.Forms.DataGridView()
+        Me.模具結構_dgv = New System.Windows.Forms.DataGridView()
         Me.Button22 = New System.Windows.Forms.Button()
         Me.Label8 = New System.Windows.Forms.Label()
         Me.Button23 = New System.Windows.Forms.Button()
         Me.Button24 = New System.Windows.Forms.Button()
         Me.TextBox7 = New System.Windows.Forms.TextBox()
         Me.GroupBox9 = New System.Windows.Forms.GroupBox()
-        Me.DataGridView9 = New System.Windows.Forms.DataGridView()
+        Me.模具材料_dgv = New System.Windows.Forms.DataGridView()
         Me.Button25 = New System.Windows.Forms.Button()
         Me.Label10 = New System.Windows.Forms.Label()
         Me.Button26 = New System.Windows.Forms.Button()
         Me.Button27 = New System.Windows.Forms.Button()
         Me.TextBox9 = New System.Windows.Forms.TextBox()
+        Me.GroupBox10 = New System.Windows.Forms.GroupBox()
+        Me.帳本_tb = New System.Windows.Forms.TextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.帳本編號_tb = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.帳本_刪除_bt = New System.Windows.Forms.Button()
+        Me.帳本_新增_bt = New System.Windows.Forms.Button()
+        Me.帳本_修改_bt = New System.Windows.Forms.Button()
+        Me.帳本_dgv = New System.Windows.Forms.DataGridView()
         Me.GroupBox3.SuspendLayout()
-        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.部件大項_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox2.SuspendLayout()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.貼標大項_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox7.SuspendLayout()
         CType(Me.DataGridView7, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox1.SuspendLayout()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.部門_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox4.SuspendLayout()
-        CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.職稱_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox5.SuspendLayout()
-        CType(Me.DataGridView5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.請假類別_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox6.SuspendLayout()
         CType(Me.DataGridView6, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox8.SuspendLayout()
-        CType(Me.DataGridView8, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.模具結構_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox9.SuspendLayout()
-        CType(Me.DataGridView9, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.模具材料_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox10.SuspendLayout()
+        CType(Me.帳本_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'Label3
@@ -128,7 +140,7 @@ Partial Class 系統編碼規則_1
         '
         'GroupBox3
         '
-        Me.GroupBox3.Controls.Add(Me.DataGridView3)
+        Me.GroupBox3.Controls.Add(Me.部件大項_dgv)
         Me.GroupBox3.Controls.Add(Me.Button7)
         Me.GroupBox3.Controls.Add(Me.Label5)
         Me.GroupBox3.Controls.Add(Me.Button8)
@@ -141,17 +153,17 @@ Partial Class 系統編碼規則_1
         Me.GroupBox3.TabStop = False
         Me.GroupBox3.Text = "部件大項分類"
         '
-        'DataGridView3
+        '部件大項_dgv
         '
         DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView3.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        Me.DataGridView3.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView3.Location = New System.Drawing.Point(6, 141)
-        Me.DataGridView3.Name = "DataGridView3"
-        Me.DataGridView3.RowHeadersWidth = 5
-        Me.DataGridView3.RowTemplate.Height = 24
-        Me.DataGridView3.Size = New System.Drawing.Size(125, 311)
-        Me.DataGridView3.TabIndex = 222
+        Me.部件大項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.部件大項_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.部件大項_dgv.Location = New System.Drawing.Point(6, 141)
+        Me.部件大項_dgv.Name = "部件大項_dgv"
+        Me.部件大項_dgv.RowHeadersWidth = 5
+        Me.部件大項_dgv.RowTemplate.Height = 24
+        Me.部件大項_dgv.Size = New System.Drawing.Size(125, 311)
+        Me.部件大項_dgv.TabIndex = 222
         '
         'Button7
         '
@@ -204,7 +216,7 @@ Partial Class 系統編碼規則_1
         '
         'GroupBox2
         '
-        Me.GroupBox2.Controls.Add(Me.DataGridView2)
+        Me.GroupBox2.Controls.Add(Me.貼標大項_dgv)
         Me.GroupBox2.Controls.Add(Me.Button1)
         Me.GroupBox2.Controls.Add(Me.Label4)
         Me.GroupBox2.Controls.Add(Me.Button5)
@@ -217,17 +229,17 @@ Partial Class 系統編碼規則_1
         Me.GroupBox2.TabStop = False
         Me.GroupBox2.Text = "貼標對應名稱清單"
         '
-        'DataGridView2
+        '貼標大項_dgv
         '
         DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
-        Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView2.Location = New System.Drawing.Point(6, 141)
-        Me.DataGridView2.Name = "DataGridView2"
-        Me.DataGridView2.RowHeadersWidth = 5
-        Me.DataGridView2.RowTemplate.Height = 24
-        Me.DataGridView2.Size = New System.Drawing.Size(125, 311)
-        Me.DataGridView2.TabIndex = 222
+        Me.貼標大項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.貼標大項_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.貼標大項_dgv.Location = New System.Drawing.Point(6, 141)
+        Me.貼標大項_dgv.Name = "貼標大項_dgv"
+        Me.貼標大項_dgv.RowHeadersWidth = 5
+        Me.貼標大項_dgv.RowTemplate.Height = 24
+        Me.貼標大項_dgv.Size = New System.Drawing.Size(125, 311)
+        Me.貼標大項_dgv.TabIndex = 222
         '
         'Button1
         '
@@ -356,7 +368,7 @@ Partial Class 系統編碼規則_1
         '
         'GroupBox1
         '
-        Me.GroupBox1.Controls.Add(Me.DataGridView1)
+        Me.GroupBox1.Controls.Add(Me.部門_dgv)
         Me.GroupBox1.Controls.Add(Me.Button2)
         Me.GroupBox1.Controls.Add(Me.Label1)
         Me.GroupBox1.Controls.Add(Me.Button3)
@@ -369,17 +381,17 @@ Partial Class 系統編碼規則_1
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "部門清單管理"
         '
-        'DataGridView1
+        '部門_dgv
         '
         DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(6, 141)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(125, 311)
-        Me.DataGridView1.TabIndex = 222
+        Me.部門_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.部門_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.部門_dgv.Location = New System.Drawing.Point(6, 141)
+        Me.部門_dgv.Name = "部門_dgv"
+        Me.部門_dgv.RowHeadersWidth = 5
+        Me.部門_dgv.RowTemplate.Height = 24
+        Me.部門_dgv.Size = New System.Drawing.Size(125, 311)
+        Me.部門_dgv.TabIndex = 222
         '
         'Button2
         '
@@ -432,7 +444,7 @@ Partial Class 系統編碼規則_1
         '
         'GroupBox4
         '
-        Me.GroupBox4.Controls.Add(Me.DataGridView4)
+        Me.GroupBox4.Controls.Add(Me.職稱_dgv)
         Me.GroupBox4.Controls.Add(Me.Button10)
         Me.GroupBox4.Controls.Add(Me.Label2)
         Me.GroupBox4.Controls.Add(Me.Button11)
@@ -445,17 +457,17 @@ Partial Class 系統編碼規則_1
         Me.GroupBox4.TabStop = False
         Me.GroupBox4.Text = "職稱清單管理"
         '
-        'DataGridView4
+        '職稱_dgv
         '
         DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView4.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
-        Me.DataGridView4.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView4.Location = New System.Drawing.Point(6, 141)
-        Me.DataGridView4.Name = "DataGridView4"
-        Me.DataGridView4.RowHeadersWidth = 5
-        Me.DataGridView4.RowTemplate.Height = 24
-        Me.DataGridView4.Size = New System.Drawing.Size(125, 311)
-        Me.DataGridView4.TabIndex = 222
+        Me.職稱_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.職稱_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.職稱_dgv.Location = New System.Drawing.Point(6, 141)
+        Me.職稱_dgv.Name = "職稱_dgv"
+        Me.職稱_dgv.RowHeadersWidth = 5
+        Me.職稱_dgv.RowTemplate.Height = 24
+        Me.職稱_dgv.Size = New System.Drawing.Size(125, 311)
+        Me.職稱_dgv.TabIndex = 222
         '
         'Button10
         '
@@ -508,7 +520,7 @@ Partial Class 系統編碼規則_1
         '
         'GroupBox5
         '
-        Me.GroupBox5.Controls.Add(Me.DataGridView5)
+        Me.GroupBox5.Controls.Add(Me.請假類別_dgv)
         Me.GroupBox5.Controls.Add(Me.Button13)
         Me.GroupBox5.Controls.Add(Me.Label6)
         Me.GroupBox5.Controls.Add(Me.Button14)
@@ -521,17 +533,17 @@ Partial Class 系統編碼規則_1
         Me.GroupBox5.TabStop = False
         Me.GroupBox5.Text = "請假類別管理"
         '
-        'DataGridView5
+        '請假類別_dgv
         '
         DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView5.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
-        Me.DataGridView5.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView5.Location = New System.Drawing.Point(6, 141)
-        Me.DataGridView5.Name = "DataGridView5"
-        Me.DataGridView5.RowHeadersWidth = 5
-        Me.DataGridView5.RowTemplate.Height = 24
-        Me.DataGridView5.Size = New System.Drawing.Size(125, 311)
-        Me.DataGridView5.TabIndex = 222
+        Me.請假類別_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.請假類別_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.請假類別_dgv.Location = New System.Drawing.Point(6, 141)
+        Me.請假類別_dgv.Name = "請假類別_dgv"
+        Me.請假類別_dgv.RowHeadersWidth = 5
+        Me.請假類別_dgv.RowTemplate.Height = 24
+        Me.請假類別_dgv.Size = New System.Drawing.Size(125, 311)
+        Me.請假類別_dgv.TabIndex = 222
         '
         'Button13
         '
@@ -660,7 +672,7 @@ Partial Class 系統編碼規則_1
         '
         'GroupBox8
         '
-        Me.GroupBox8.Controls.Add(Me.DataGridView8)
+        Me.GroupBox8.Controls.Add(Me.模具結構_dgv)
         Me.GroupBox8.Controls.Add(Me.Button22)
         Me.GroupBox8.Controls.Add(Me.Label8)
         Me.GroupBox8.Controls.Add(Me.Button23)
@@ -673,17 +685,17 @@ Partial Class 系統編碼規則_1
         Me.GroupBox8.TabStop = False
         Me.GroupBox8.Text = "模具開發用結構清單"
         '
-        'DataGridView8
+        '模具結構_dgv
         '
         DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView8.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
-        Me.DataGridView8.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView8.Location = New System.Drawing.Point(6, 141)
-        Me.DataGridView8.Name = "DataGridView8"
-        Me.DataGridView8.RowHeadersWidth = 5
-        Me.DataGridView8.RowTemplate.Height = 24
-        Me.DataGridView8.Size = New System.Drawing.Size(125, 311)
-        Me.DataGridView8.TabIndex = 222
+        Me.模具結構_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        Me.模具結構_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.模具結構_dgv.Location = New System.Drawing.Point(6, 141)
+        Me.模具結構_dgv.Name = "模具結構_dgv"
+        Me.模具結構_dgv.RowHeadersWidth = 5
+        Me.模具結構_dgv.RowTemplate.Height = 24
+        Me.模具結構_dgv.Size = New System.Drawing.Size(125, 311)
+        Me.模具結構_dgv.TabIndex = 222
         '
         'Button22
         '
@@ -736,7 +748,7 @@ Partial Class 系統編碼規則_1
         '
         'GroupBox9
         '
-        Me.GroupBox9.Controls.Add(Me.DataGridView9)
+        Me.GroupBox9.Controls.Add(Me.模具材料_dgv)
         Me.GroupBox9.Controls.Add(Me.Button25)
         Me.GroupBox9.Controls.Add(Me.Label10)
         Me.GroupBox9.Controls.Add(Me.Button26)
@@ -749,17 +761,17 @@ Partial Class 系統編碼規則_1
         Me.GroupBox9.TabStop = False
         Me.GroupBox9.Text = "模具開發用材質清單"
         '
-        'DataGridView9
+        '模具材料_dgv
         '
         DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView9.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
-        Me.DataGridView9.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView9.Location = New System.Drawing.Point(6, 141)
-        Me.DataGridView9.Name = "DataGridView9"
-        Me.DataGridView9.RowHeadersWidth = 5
-        Me.DataGridView9.RowTemplate.Height = 24
-        Me.DataGridView9.Size = New System.Drawing.Size(125, 311)
-        Me.DataGridView9.TabIndex = 222
+        Me.模具材料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        Me.模具材料_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.模具材料_dgv.Location = New System.Drawing.Point(6, 141)
+        Me.模具材料_dgv.Name = "模具材料_dgv"
+        Me.模具材料_dgv.RowHeadersWidth = 5
+        Me.模具材料_dgv.RowTemplate.Height = 24
+        Me.模具材料_dgv.Size = New System.Drawing.Size(125, 311)
+        Me.模具材料_dgv.TabIndex = 222
         '
         'Button25
         '
@@ -810,11 +822,107 @@ Partial Class 系統編碼規則_1
         Me.TextBox9.Size = New System.Drawing.Size(87, 23)
         Me.TextBox9.TabIndex = 227
         '
+        'GroupBox10
+        '
+        Me.GroupBox10.Controls.Add(Me.帳本_tb)
+        Me.GroupBox10.Controls.Add(Me.Label11)
+        Me.GroupBox10.Controls.Add(Me.帳本編號_tb)
+        Me.GroupBox10.Controls.Add(Me.Label12)
+        Me.GroupBox10.Controls.Add(Me.帳本_刪除_bt)
+        Me.GroupBox10.Controls.Add(Me.帳本_新增_bt)
+        Me.GroupBox10.Controls.Add(Me.帳本_修改_bt)
+        Me.GroupBox10.Controls.Add(Me.帳本_dgv)
+        Me.GroupBox10.Location = New System.Drawing.Point(762, 39)
+        Me.GroupBox10.Name = "GroupBox10"
+        Me.GroupBox10.Size = New System.Drawing.Size(238, 462)
+        Me.GroupBox10.TabIndex = 254
+        Me.GroupBox10.TabStop = False
+        Me.GroupBox10.Text = "財務帳本編號"
+        '
+        '帳本_tb
+        '
+        Me.帳本_tb.Location = New System.Drawing.Point(135, 16)
+        Me.帳本_tb.Name = "帳本_tb"
+        Me.帳本_tb.Size = New System.Drawing.Size(95, 23)
+        Me.帳本_tb.TabIndex = 677
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(103, 20)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(32, 16)
+        Me.Label11.TabIndex = 676
+        Me.Label11.Text = "職別"
+        '
+        '帳本編號_tb
+        '
+        Me.帳本編號_tb.Location = New System.Drawing.Point(41, 17)
+        Me.帳本編號_tb.Name = "帳本編號_tb"
+        Me.帳本編號_tb.Size = New System.Drawing.Size(60, 23)
+        Me.帳本編號_tb.TabIndex = 675
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(9, 20)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(32, 16)
+        Me.Label12.TabIndex = 674
+        Me.Label12.Text = "編號"
+        '
+        '帳本_刪除_bt
+        '
+        Me.帳本_刪除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.帳本_刪除_bt.ForeColor = System.Drawing.Color.Red
+        Me.帳本_刪除_bt.Location = New System.Drawing.Point(156, 45)
+        Me.帳本_刪除_bt.Name = "帳本_刪除_bt"
+        Me.帳本_刪除_bt.Size = New System.Drawing.Size(74, 25)
+        Me.帳本_刪除_bt.TabIndex = 673
+        Me.帳本_刪除_bt.Text = "刪除"
+        Me.帳本_刪除_bt.UseVisualStyleBackColor = True
+        '
+        '帳本_新增_bt
+        '
+        Me.帳本_新增_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.帳本_新增_bt.ForeColor = System.Drawing.Color.Blue
+        Me.帳本_新增_bt.Location = New System.Drawing.Point(6, 45)
+        Me.帳本_新增_bt.Name = "帳本_新增_bt"
+        Me.帳本_新增_bt.Size = New System.Drawing.Size(74, 25)
+        Me.帳本_新增_bt.TabIndex = 671
+        Me.帳本_新增_bt.Text = "新增"
+        Me.帳本_新增_bt.UseVisualStyleBackColor = True
+        '
+        '帳本_修改_bt
+        '
+        Me.帳本_修改_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.帳本_修改_bt.ForeColor = System.Drawing.Color.DarkGreen
+        Me.帳本_修改_bt.Location = New System.Drawing.Point(81, 45)
+        Me.帳本_修改_bt.Name = "帳本_修改_bt"
+        Me.帳本_修改_bt.Size = New System.Drawing.Size(74, 25)
+        Me.帳本_修改_bt.TabIndex = 672
+        Me.帳本_修改_bt.Text = "修改"
+        Me.帳本_修改_bt.UseVisualStyleBackColor = True
+        '
+        '帳本_dgv
+        '
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.帳本_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
+        Me.帳本_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.帳本_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.帳本_dgv.Location = New System.Drawing.Point(6, 76)
+        Me.帳本_dgv.Name = "帳本_dgv"
+        Me.帳本_dgv.RowHeadersWidth = 5
+        Me.帳本_dgv.RowTemplate.Height = 24
+        Me.帳本_dgv.Size = New System.Drawing.Size(224, 376)
+        Me.帳本_dgv.TabIndex = 663
+        '
         '系統編碼規則_1
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 971)
+        Me.Controls.Add(Me.GroupBox10)
         Me.Controls.Add(Me.GroupBox9)
         Me.Controls.Add(Me.GroupBox8)
         Me.Controls.Add(Me.GroupBox6)
@@ -828,34 +936,37 @@ Partial Class 系統編碼規則_1
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "系統編碼規則_1"
-        Me.Text = "系統編碼規則_1"
+        Me.Text = "系統編碼原則"
         Me.GroupBox3.ResumeLayout(False)
         Me.GroupBox3.PerformLayout()
-        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.部件大項_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GroupBox2.ResumeLayout(False)
         Me.GroupBox2.PerformLayout()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.貼標大項_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GroupBox7.ResumeLayout(False)
         Me.GroupBox7.PerformLayout()
         CType(Me.DataGridView7, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GroupBox1.ResumeLayout(False)
         Me.GroupBox1.PerformLayout()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.部門_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GroupBox4.ResumeLayout(False)
         Me.GroupBox4.PerformLayout()
-        CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.職稱_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GroupBox5.ResumeLayout(False)
         Me.GroupBox5.PerformLayout()
-        CType(Me.DataGridView5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.請假類別_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GroupBox6.ResumeLayout(False)
         Me.GroupBox6.PerformLayout()
         CType(Me.DataGridView6, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GroupBox8.ResumeLayout(False)
         Me.GroupBox8.PerformLayout()
-        CType(Me.DataGridView8, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.模具結構_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GroupBox9.ResumeLayout(False)
         Me.GroupBox9.PerformLayout()
-        CType(Me.DataGridView9, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.模具材料_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox10.ResumeLayout(False)
+        Me.GroupBox10.PerformLayout()
+        CType(Me.帳本_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -863,14 +974,14 @@ Partial Class 系統編碼規則_1
 
     Friend WithEvents Label3 As Label
     Friend WithEvents GroupBox3 As GroupBox
-    Friend WithEvents DataGridView3 As DataGridView
+    Friend WithEvents 部件大項_dgv As DataGridView
     Friend WithEvents Button7 As Button
     Friend WithEvents Label5 As Label
     Friend WithEvents Button8 As Button
     Friend WithEvents Button9 As Button
     Friend WithEvents TextBox4 As TextBox
     Friend WithEvents GroupBox2 As GroupBox
-    Friend WithEvents DataGridView2 As DataGridView
+    Friend WithEvents 貼標大項_dgv As DataGridView
     Friend WithEvents Button1 As Button
     Friend WithEvents Label4 As Label
     Friend WithEvents Button5 As Button
@@ -884,21 +995,21 @@ Partial Class 系統編碼規則_1
     Friend WithEvents Button21 As Button
     Friend WithEvents TextBox8 As TextBox
     Friend WithEvents GroupBox1 As GroupBox
-    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents 部門_dgv As DataGridView
     Friend WithEvents Button2 As Button
     Friend WithEvents Label1 As Label
     Friend WithEvents Button3 As Button
     Friend WithEvents Button4 As Button
     Friend WithEvents TextBox1 As TextBox
     Friend WithEvents GroupBox4 As GroupBox
-    Friend WithEvents DataGridView4 As DataGridView
+    Friend WithEvents 職稱_dgv As DataGridView
     Friend WithEvents Button10 As Button
     Friend WithEvents Label2 As Label
     Friend WithEvents Button11 As Button
     Friend WithEvents Button12 As Button
     Friend WithEvents TextBox2 As TextBox
     Friend WithEvents GroupBox5 As GroupBox
-    Friend WithEvents DataGridView5 As DataGridView
+    Friend WithEvents 請假類別_dgv As DataGridView
     Friend WithEvents Button13 As Button
     Friend WithEvents Label6 As Label
     Friend WithEvents Button14 As Button
@@ -912,17 +1023,26 @@ Partial Class 系統編碼規則_1
     Friend WithEvents Button18 As Button
     Friend WithEvents TextBox6 As TextBox
     Friend WithEvents GroupBox8 As GroupBox
-    Friend WithEvents DataGridView8 As DataGridView
+    Friend WithEvents 模具結構_dgv As DataGridView
     Friend WithEvents Button22 As Button
     Friend WithEvents Label8 As Label
     Friend WithEvents Button23 As Button
     Friend WithEvents Button24 As Button
     Friend WithEvents TextBox7 As TextBox
     Friend WithEvents GroupBox9 As GroupBox
-    Friend WithEvents DataGridView9 As DataGridView
+    Friend WithEvents 模具材料_dgv As DataGridView
     Friend WithEvents Button25 As Button
     Friend WithEvents Label10 As Label
     Friend WithEvents Button26 As Button
     Friend WithEvents Button27 As Button
     Friend WithEvents TextBox9 As TextBox
+    Friend WithEvents GroupBox10 As GroupBox
+    Friend WithEvents 帳本_tb As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 帳本編號_tb As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents 帳本_刪除_bt As Button
+    Friend WithEvents 帳本_新增_bt As Button
+    Friend WithEvents 帳本_修改_bt As Button
+    Friend WithEvents 帳本_dgv As DataGridView
 End Class

SHENKANG-MES-SYS/資料庫管理系統/系統編碼規則_1.vb

@@ -1,201 +1,142 @@
 Option Strict Off
 Imports System.Data.SqlClient
 Public Class 系統編碼規則_1
-    Dim conn As New SqlConnection
-    Dim da As New SqlDataAdapter
-    Dim cmd As New SqlCommand
-    Dim ds As New DataSet : Dim ds1 As New DataSet : Dim ds2 As New DataSet : Dim ds3 As New DataSet : Dim ds4 As New DataSet : Dim ds5 As New DataSet : Dim ds6 As New DataSet : Dim ds7 As New DataSet
-    Dim ds8 As New DataSet
-    Dim dr As SqlDataReader
-    Private Sub Set_DGV1載入前設定()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet : ReadOnly ds5 As New DataSet
+    ReadOnly ds6 As New DataSet : ReadOnly ds7 As New DataSet : ReadOnly ds8 As New DataSet : ReadOnly ds9 As New DataSet
+    Dim EDR As Integer = 0 : Dim ESTR As String
+    Private Sub Set_帳本清單()
+        帳本_dgv.DataSource = Nothing : ds9.Clear()
+        帳本_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        帳本_dgv.ColumnHeadersHeight = 25
+        帳本_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-    End Sub
-    Private Sub Set_DGV1載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        SQL1 = "SELECT 編號, 帳本名稱 FROM 財務帳本編號 ORDER BY 編號"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds9) : 帳本_dgv.DataSource = ds9.Tables(0) : conn.Close()
+        帳本_dgv.Columns(0).Width = 100 : 帳本_dgv.Columns(1).Width = 100
     End Sub
     Private Sub Set_部門清單()
-        Set_DGV1載入前設定()
-        SQL1 = "SELECT 部門 FROM METOO部門清單"
-        Set_DGV1載入後設定() : Set_grid()
-    End Sub
-    Private Sub Set_grid()
-        DataGridView1.Columns(0).Width = 100
-    End Sub
-    Private Sub Set_DGV2載入前設定()
-        DataGridView2.DataSource = Nothing : ds1.Clear()
-        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView2.ColumnHeadersHeight = 25
-        DataGridView2.AllowUserToAddRows = False
+        部門_dgv.DataSource = Nothing : ds.Clear()
+        部門_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        部門_dgv.ColumnHeadersHeight = 25
+        部門_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-    End Sub
-    Private Sub Set_DGV2載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
+        SQL1 = "SELECT 部門 FROM METOO部門清單"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : 部門_dgv.DataSource = ds.Tables(0) : conn.Close()
+        部門_dgv.Columns(0).Width = 100
     End Sub
     Private Sub Set_清單2()
-        Set_DGV2載入前設定()
-        SQL1 = "SELECT 貼標對應名稱 FROM 貼標對應名稱清單"
-        Set_DGV2載入後設定() : Set_grid1()
-    End Sub
-    Private Sub Set_grid1()
-        DataGridView2.Columns(0).Width = 100
-    End Sub
-    Private Sub Set_DGV3載入前設定()
-        DataGridView3.DataSource = Nothing : ds2.Clear()
-        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView3.ColumnHeadersHeight = 25
-        DataGridView3.AllowUserToAddRows = False
+        貼標大項_dgv.DataSource = Nothing : ds1.Clear()
+        貼標大項_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        貼標大項_dgv.ColumnHeadersHeight = 25
+        貼標大項_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-    End Sub
-    Private Sub Set_DGV3載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close()
+        SQL1 = "SELECT 貼標對應名稱 FROM 貼標對應名稱清單"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds1) : 貼標大項_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        貼標大項_dgv.Columns(0).Width = 100
     End Sub
     Private Sub Set_清單1()
-        Set_DGV3載入前設定()
-        SQL1 = "SELECT 部件類別 FROM 部件大項分類 ORDER BY   部件類別"
-        Set_DGV3載入後設定() : Set_grid2()
-    End Sub
-    Private Sub Set_grid2()
-        DataGridView3.Columns(0).Width = 100
-    End Sub
-    Private Sub Set_DGV4載入前設定()
-        DataGridView4.DataSource = Nothing : ds3.Clear()
-        DataGridView4.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView4.ColumnHeadersHeight = 25
-        DataGridView4.AllowUserToAddRows = False
+        部件大項_dgv.DataSource = Nothing : ds2.Clear()
+        部件大項_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        部件大項_dgv.ColumnHeadersHeight = 25
+        部件大項_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-    End Sub
-    Private Sub Set_DGV4載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds3) : DataGridView4.DataSource = ds3.Tables(0) : conn.Close()
+        SQL1 = "SELECT 部件類別 FROM 部件大項分類 ORDER BY   部件類別"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds2) : 部件大項_dgv.DataSource = ds2.Tables(0) : conn.Close()
+        部件大項_dgv.Columns(0).Width = 100
     End Sub
     Private Sub Set_職稱清單()
-        Set_DGV4載入前設定()
-        SQL1 = "SELECT 職稱 FROM METOO職稱清單 ORDER BY 職稱"
-        Set_DGV4載入後設定() : Set_grid3()
-    End Sub
-    Private Sub Set_grid3()
-        DataGridView4.Columns(0).Width = 100
-    End Sub
-    Private Sub Set_DGV5載入前設定()
-        DataGridView5.DataSource = Nothing : ds4.Clear()
-        DataGridView5.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView5.ColumnHeadersHeight = 25
-        DataGridView5.AllowUserToAddRows = False
+        職稱_dgv.DataSource = Nothing : ds3.Clear()
+        職稱_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        職稱_dgv.ColumnHeadersHeight = 25
+        職稱_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-    End Sub
-    Private Sub Set_DGV5載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds4) : DataGridView5.DataSource = ds4.Tables(0) : conn.Close()
+        SQL1 = "SELECT 職稱 FROM METOO職稱清單 ORDER BY 職稱"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds3) : 職稱_dgv.DataSource = ds3.Tables(0) : conn.Close()
+        職稱_dgv.Columns(0).Width = 100
     End Sub
     Private Sub Set_請假類別清單()
-        Set_DGV5載入前設定()
+        請假類別_dgv.DataSource = Nothing : ds4.Clear()
+        請假類別_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        請假類別_dgv.ColumnHeadersHeight = 25
+        請假類別_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT 請假類別 FROM METOO請假類別 ORDER BY 請假類別"
-        Set_DGV5載入後設定() : Set_grid4()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds4) : 請假類別_dgv.DataSource = ds4.Tables(0) : conn.Close()
+        請假類別_dgv.Columns(0).Width = 100
     End Sub
-    Private Sub Set_grid4()
-        DataGridView5.Columns(0).Width = 100
-    End Sub
-    Private Sub Set_DGV6載入前設定()
+    Private Sub Set_廠商類別()
         DataGridView6.DataSource = Nothing : ds5.Clear()
         DataGridView6.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         DataGridView6.ColumnHeadersHeight = 25
         DataGridView6.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-    End Sub
-    Private Sub Set_DGV6載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds5) : DataGridView6.DataSource = ds5.Tables(0) : conn.Close()
-    End Sub
-    Private Sub Set_廠商類別()
-        Set_DGV6載入前設定()
         SQL1 = "SELECT 廠商類別 FROM 廠商類別 ORDER BY 廠商類別"
-        Set_DGV6載入後設定() : Set_grid5()
-    End Sub
-    Private Sub Set_grid5()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds5) : DataGridView6.DataSource = ds5.Tables(0) : conn.Close()
         DataGridView6.Columns(0).Width = 100
     End Sub
-    Private Sub Set_DGV7載入前設定()
+    Private Sub Set_年度清單()
         DataGridView7.DataSource = Nothing : ds6.Clear()
         DataGridView7.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         DataGridView7.ColumnHeadersHeight = 25
         DataGridView7.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-    End Sub
-    Private Sub Set_DGV7載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds6) : DataGridView7.DataSource = ds6.Tables(0) : conn.Close()
-    End Sub
-    Private Sub Set_年度清單()
-        Set_DGV7載入前設定()
         SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC"
-        Set_DGV7載入後設定() : Set_grid6()
-    End Sub
-    Private Sub Set_grid6()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds6) : DataGridView7.DataSource = ds6.Tables(0) : conn.Close()
         DataGridView7.Columns(0).Width = 100
     End Sub
-    Private Sub Set_DGV8載入前設定()
-        DataGridView8.DataSource = Nothing : ds7.Clear()
-        DataGridView8.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView8.ColumnHeadersHeight = 25
-        DataGridView8.AllowUserToAddRows = False
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-    End Sub
-    Private Sub Set_DGV8載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds7) : DataGridView8.DataSource = ds7.Tables(0) : conn.Close()
-    End Sub
     Private Sub Set_模具開發用結構清單()
-        Set_DGV8載入前設定()
-        SQL1 = "SELECT  結構 FROM 模具開發用結構清單 ORDER BY 結構"
-        Set_DGV8載入後設定() : Set_grid7()
-    End Sub
-    Private Sub Set_grid7()
-        DataGridView8.Columns(0).Width = 100
-    End Sub
-    Private Sub Set_DGV9載入前設定()
-        DataGridView9.DataSource = Nothing : ds8.Clear()
-        DataGridView9.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView9.ColumnHeadersHeight = 25
-        DataGridView9.AllowUserToAddRows = False
+        模具結構_dgv.DataSource = Nothing : ds7.Clear()
+        模具結構_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        模具結構_dgv.ColumnHeadersHeight = 25
+        模具結構_dgv.AllowUserToAddRows = False
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-    End Sub
-    Private Sub Set_DGV9載入後設定()
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds8) : DataGridView9.DataSource = ds8.Tables(0) : conn.Close()
+        SQL1 = "SELECT  結構 FROM 模具開發用結構清單 ORDER BY 結構"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds7) : 模具結構_dgv.DataSource = ds7.Tables(0) : conn.Close()
+        模具結構_dgv.Columns(0).Width = 100
     End Sub
     Private Sub Set_模具開發用材質清單()
-        Set_DGV9載入前設定()
+        模具材料_dgv.DataSource = Nothing : ds8.Clear()
+        模具材料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        模具材料_dgv.ColumnHeadersHeight = 25
+        模具材料_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT  材質 FROM 模具開發用材質清單 ORDER BY 材質"
-        Set_DGV9載入後設定() : Set_grid8()
-    End Sub
-    Private Sub Set_grid8()
-        DataGridView9.Columns(0).Width = 100
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds8) : 模具材料_dgv.DataSource = ds8.Tables(0) : conn.Close()
+        模具材料_dgv.Columns(0).Width = 100
     End Sub
     Private Sub 系統編碼規則_1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        Set_清單1() : Set_清單2() : Set_年度清單() : Set_部門清單() : Set_職稱清單() : Set_請假類別清單() : Set_廠商類別() : Set_模具開發用結構清單() : Set_模具開發用材質清單()
+        Set_清單1() : Set_清單2() : Set_年度清單() : Set_部門清單() : Set_職稱清單() : Set_請假類別清單() : Set_廠商類別()
+        Set_模具開發用結構清單() : Set_模具開發用材質清單() : Set_帳本清單()
     End Sub
-    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
+    Private Sub 帳本_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 帳本_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox1.Text = DataGridView1(0, e.RowIndex).Value.ToString
+            帳本編號_tb.Text = 帳本_dgv("編號", e.RowIndex).Value.ToString : 帳本_tb.Text = 帳本_dgv("帳本名稱", e.RowIndex).Value.ToString
         End If
     End Sub
-    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView2.CellClick
+    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 部門_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox3.Text = DataGridView2(0, e.RowIndex).Value.ToString
+            TextBox1.Text = 部門_dgv(0, e.RowIndex).Value.ToString
         End If
     End Sub
-    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView3.CellClick
+    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 貼標大項_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox4.Text = DataGridView3(0, e.RowIndex).Value.ToString
+            TextBox3.Text = 貼標大項_dgv(0, e.RowIndex).Value.ToString
         End If
     End Sub
-    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView4.CellClick
+    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 部件大項_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox2.Text = DataGridView4(0, e.RowIndex).Value.ToString
+            TextBox4.Text = 部件大項_dgv(0, e.RowIndex).Value.ToString
         End If
     End Sub
-    Private Sub DataGridView5_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView5.CellClick
+    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 職稱_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox5.Text = DataGridView5(0, e.RowIndex).Value.ToString
+            TextBox2.Text = 職稱_dgv(0, e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub DataGridView5_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 請假類別_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            TextBox5.Text = 請假類別_dgv(0, e.RowIndex).Value.ToString
         End If
     End Sub
     Private Sub DataGridView6_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView6.CellClick
@@ -208,14 +149,14 @@ Public Class 系統編碼規則_1
             TextBox8.Text = DataGridView7(0, e.RowIndex).Value.ToString
         End If
     End Sub
-    Private Sub DataGridView8_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView8.CellClick
+    Private Sub DataGridView8_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 模具結構_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox7.Text = DataGridView8(0, e.RowIndex).Value.ToString
+            TextBox7.Text = 模具結構_dgv(0, e.RowIndex).Value.ToString
         End If
     End Sub
-    Private Sub DataGridView9_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView9.CellClick
+    Private Sub DataGridView9_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 模具材料_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox9.Text = DataGridView9(0, e.RowIndex).Value.ToString
+            TextBox9.Text = 模具材料_dgv(0, e.RowIndex).Value.ToString
         End If
     End Sub
     Private Sub SET_新增按鈕程式共用2()
@@ -238,7 +179,8 @@ Public Class 系統編碼規則_1
         式共用1()
     End Sub
     Private Sub 式共用1()
-        Set_清單1() : Set_清單2() : Set_年度清單() : Set_部門清單() : Set_職稱清單() : Set_請假類別清單() : Set_廠商類別() : Set_模具開發用結構清單() : Set_模具開發用材質清單() : PA = ""
+        Set_清單1() : Set_清單2() : Set_年度清單() : Set_部門清單() : Set_職稱清單() : Set_請假類別清單() : Set_廠商類別()
+        Set_帳本清單() : Set_模具開發用結構清單() : Set_模具開發用材質清單() : PA = ""
     End Sub
     Private Sub 式共用2()
         conn.Close() : dr.Close()
@@ -517,4 +459,29 @@ Public Class 系統編碼規則_1
     Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click
         SQL1 = "DELETE FROM 模具開發用材質清單 WHERE (材質 = N'" & TextBox9.Text & "')" : SET_刪除按鈕程式共用1()
     End Sub
+    '------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub 帳本_新增_bt_Click(sender As Object, e As EventArgs) Handles 帳本_新增_bt.Click, Button5.Click
+        PA = InputBox("請輸入要新增的帳本") : SQL_帳本查詢()
+        If dr.Read() Then : MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
+        Else
+            '----------------------自动生成流水号-------------------------------------------------------------------------
+            SQL_帳本流水號最後一筆()
+            If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("編號").ToString, 3)) : Else : EDR = 0 : End If : conn.Close() : EDR += 1
+            If EDR < 10 Then : ESTR = "LN" & "00" & EDR
+            ElseIf EDR > 9 And EDR < 100 Then : ESTR = "LN" & "0" & EDR
+            ElseIf EDR > 99 Then : ESTR = "LN" & EDR : End If : PA1 = ESTR
+            式共用2() : SQL_帳本新增() : SET_新增按鈕程式共用2()
+        End If : 式共用1()
+    End Sub
+    Private Sub 帳本_修改_bt_Click(sender As Object, e As EventArgs) Handles 帳本_修改_bt.Click
+        If 帳本編號_tb.Text = "" Or 帳本_tb.Text = "" Then : MsgBox("資料有缺或有誤，請重新檢查")
+        Else
+            PA = InputBox("請輸入要修改的職別")
+            If PA = "" Then : MsgBox("沒有輸入修改內容")
+            Else : 式共用3() : SQL_帳本修改() : SET_修改按鈕程式共用1() : End If
+        End If : 式共用1()
+    End Sub
+    Private Sub 帳本_刪除_bt_Click(sender As Object, e As EventArgs) Handles 帳本_刪除_bt.Click
+        SQL_帳本刪除() : SET_刪除按鈕程式共用1()
+    End Sub
 End Class

SHENKANG-MES-SYS/量產訂單管理系統/量產出貨明細表.Designer.vb

@@ -22,7 +22,7 @@ Partial Class 量產出貨明細表
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.CheckBox4 = New System.Windows.Forms.CheckBox()
         Me.Label4 = New System.Windows.Forms.Label()
@@ -58,6 +58,9 @@ Partial Class 量產出貨明細表
         Me.Button9 = New System.Windows.Forms.Button()
         Me.DataGridView1 = New System.Windows.Forms.DataGridView()
         Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.資料流水號_tb = New System.Windows.Forms.TextBox()
+        Me.實際離場_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.實際離場日修改_bt = New System.Windows.Forms.Button()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -371,8 +374,8 @@ Partial Class 量產出貨明細表
         '
         'DataGridView1
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.DataGridView1.Location = New System.Drawing.Point(344, 99)
@@ -392,11 +395,41 @@ Partial Class 量產出貨明細表
         Me.CheckBox1.Text = "明細是否建檔"
         Me.CheckBox1.UseVisualStyleBackColor = True
         '
+        '資料流水號_tb
+        '
+        Me.資料流水號_tb.Location = New System.Drawing.Point(1336, 12)
+        Me.資料流水號_tb.Name = "資料流水號_tb"
+        Me.資料流水號_tb.Size = New System.Drawing.Size(100, 23)
+        Me.資料流水號_tb.TabIndex = 580
+        '
+        '實際離場_dtp
+        '
+        Me.實際離場_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.實際離場_dtp.Location = New System.Drawing.Point(1336, 41)
+        Me.實際離場_dtp.Name = "實際離場_dtp"
+        Me.實際離場_dtp.Size = New System.Drawing.Size(100, 23)
+        Me.實際離場_dtp.TabIndex = 581
+        '
+        '實際離場日修改_bt
+        '
+        Me.實際離場日修改_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.實際離場日修改_bt.ForeColor = System.Drawing.Color.Black
+        Me.實際離場日修改_bt.Location = New System.Drawing.Point(1336, 69)
+        Me.實際離場日修改_bt.Name = "實際離場日修改_bt"
+        Me.實際離場日修改_bt.RightToLeft = System.Windows.Forms.RightToLeft.No
+        Me.實際離場日修改_bt.Size = New System.Drawing.Size(100, 24)
+        Me.實際離場日修改_bt.TabIndex = 582
+        Me.實際離場日修改_bt.Text = "實際離廠日修改"
+        Me.實際離場日修改_bt.UseVisualStyleBackColor = True
+        '
         '量產出貨明細表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 971)
+        Me.Controls.Add(Me.實際離場日修改_bt)
+        Me.Controls.Add(Me.實際離場_dtp)
+        Me.Controls.Add(Me.資料流水號_tb)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.CheckBox4)
         Me.Controls.Add(Me.Label4)
@@ -479,4 +512,7 @@ Partial Class 量產出貨明細表
     Friend WithEvents Button9 As Button
     Friend WithEvents DataGridView1 As DataGridView
     Friend WithEvents CheckBox1 As CheckBox
+    Friend WithEvents 資料流水號_tb As TextBox
+    Friend WithEvents 實際離場_dtp As DateTimePicker
+    Friend WithEvents 實際離場日修改_bt As Button
 End Class

SHENKANG-MES-SYS/量產訂單管理系統/量產出貨明細表.vb

@@ -26,7 +26,7 @@ Public Class 量產出貨明細表
                             貨款匯入出款明細表.楦型, 貨款匯入出款明細表.訂單數量, 貨款匯入出款明細表.出貨數量, 訂單控制表.備註, 
                             訂單控制表.生產工廠, 訂單控制表.訂單種類, 訂單控制表.工廠回復交期, 訂單控制表.客戶交期 AS 交期開始, 
                             訂單控制表.客戶交期1 AS 交期結束, 貨款匯入出款明細表.實際離廠日, 訂單控制表.明細建檔, 
-                            訂單控制表.驗貨報告圖片 
+                            訂單控制表.驗貨報告圖片, 貨款匯入出款明細表.資料流水號 
                     FROM    貨款匯入出款明細表 LEFT OUTER JOIN 訂單控制表 ON 貨款匯入出款明細表.資料流水號 = 訂單控制表.資料流水號 
                    " & kkk1 & kkk2 & kkk3 & kkk4 & kkk5 & kkk6 & "  " &
                    "ORDER BY 貨款匯入出款明細表.訂單流水號 DESC, 貨款匯入出款明細表.形體號, 貨款匯入出款明細表.顏色, 貨款匯入出款明細表.楦型"
@@ -36,7 +36,7 @@ Public Class 量產出貨明細表
                             貨款匯入出款明細表.楦型, 貨款匯入出款明細表.訂單數量, 貨款匯入出款明細表.出貨數量, 訂單控制表.備註, 
                             訂單控制表.生產工廠, 訂單控制表.訂單種類, 訂單控制表.工廠回復交期, 訂單控制表.客戶交期 AS 交期開始, 
                             訂單控制表.客戶交期1 AS 交期結束, 貨款匯入出款明細表.實際離廠日, 訂單控制表.明細建檔, 
-                            訂單控制表.驗貨報告圖片 
+                            訂單控制表.驗貨報告圖片, 貨款匯入出款明細表.資料流水號 
                     FROM    貨款匯入出款明細表 LEFT OUTER JOIN 訂單控制表 ON 貨款匯入出款明細表.資料流水號 = 訂單控制表.資料流水號
                    " & kkk1 & kkk2 & kkk3 & kkk4 & kkk5 & kkk6 & "
                      AND (貨款匯入出款明細表.訂單流水號 LIKE '%" & PA & "%' OR 貨款匯入出款明細表.客戶訂單號 LIKE '%" & PA & "%' OR 貨款匯入出款明細表.形體號 LIKE '%" & PA & "%' 
@@ -51,7 +51,7 @@ Public Class 量產出貨明細表
         DataGridView1.Columns(4).FillWeight = 200 : DataGridView1.Columns(5).FillWeight = 130 : DataGridView1.Columns(6).FillWeight = 60 : DataGridView1.Columns(7).FillWeight = 80
         DataGridView1.Columns(8).FillWeight = 80 : DataGridView1.Columns(9).FillWeight = 235 : DataGridView1.Columns(10).Visible = False : DataGridView1.Columns(11).FillWeight = 80
         DataGridView1.Columns(12).FillWeight = 80 : DataGridView1.Columns(13).FillWeight = 80 : DataGridView1.Columns(14).FillWeight = 80 : DataGridView1.Columns(15).FillWeight = 90
-        DataGridView1.Columns(16).FillWeight = 90 : DataGridView1.Columns(17).Visible = False
+        DataGridView1.Columns(16).FillWeight = 90 : DataGridView1.Columns(17).Visible = False : DataGridView1.Columns(18).Visible = False
 
         DataGridView1.Columns(7).DefaultCellStyle.Format = "#,##0"
         DataGridView1.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
@@ -103,8 +103,8 @@ Public Class 量產出貨明細表
     End Sub
     Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox1.Text = DataGridView1(1, e.RowIndex).Value.ToString
-            CheckBox1.Checked = DataGridView1(16, e.RowIndex).Value.ToString
+            TextBox1.Text = DataGridView1(1, e.RowIndex).Value.ToString : 資料流水號_tb.Text = DataGridView1("資料流水號", e.RowIndex).Value.ToString
+            CheckBox1.Checked = DataGridView1(16, e.RowIndex).Value.ToString : 實際離場_dtp.Value = DataGridView1("實際離廠日", e.RowIndex).Value
             If CheckBox1.Checked = False Then : Button30.Enabled = False : Else : Button30.Enabled = True : End If
 
             PictureBox1.Image = Nothing : conn.Close()
@@ -284,4 +284,13 @@ Public Class 量產出貨明細表
         MsgBox("下次開發。")
         '列印_出貨明細表.ShowDialog()
     End Sub
+    Private Sub 實際離場日修改_bt_Click(sender As Object, e As EventArgs) Handles 實際離場日修改_bt.Click
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "UPDATE 訂單控制表 SET 實際離廠日 = N'" & Format(實際離場_dtp.Value, "yyyy/MM/dd") & "' WHERE 資料流水號 LIKE N'" & 資料流水號_tb.Text & "'"
+        cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "UPDATE 貨款匯入出款明細表 SET 實際離廠日 = N'" & Format(實際離場_dtp.Value, "yyyy/MM/dd") & "' WHERE 資料流水號 LIKE N'" & 資料流水號_tb.Text & "'"
+        cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
+        Set_訂單清單()
+    End Sub
 End Class

SHENKANG-MES-SYS/量產訂單管理系統/量產訂單控制表.vb

@@ -168,6 +168,9 @@ Public Class 量產訂單控制表
         Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         DataGridView2.Visible = False : TextBox13.Enabled = False : Button3.Enabled = False
         Set_清單3()
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "DELETE FROM 貨款匯入出款明細表 WHERE (出貨數量 = 0)"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader : conn.Close()
     End Sub
     Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView3.CellClick
         If e.RowIndex = -1 Then : Else
@@ -342,7 +345,7 @@ Public Class 量產訂單控制表
                                        驗貨時間, 實際離廠日, 資料流水號, 明細建檔, LEATHER, LEA_Note, CXL, CXLTime, 出貨數量, PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, Special_Packaging, 
                                        Remarks, 出貨地, 楦頭號, 材質, 長期試穿, 面料, 副料, 中底, 鞋墊, 大底, 跟, 工廠進度表備註1, 七號模具, 工廠進度表備註2, 國標測試, 客戶包裝確認, 東莞業務備註, 
                                        驗貨報告圖片 FROM 訂單控制表 
-                                WHERE (資料流水號 = '" & TextBox2.Text & "')"
+                                WHERE (資料流水號 = '" & TextBox2.Text & "') AND (CXL <> 1)"
                         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
 
                         For i As Integer = 0 To DataGridView2.Rows.Count - 1
@@ -402,7 +405,7 @@ Public Class 量產訂單控制表
                                    驗貨時間, 實際離廠日, 資料流水號, 明細建檔, LEATHER, LEA_Note, CXL, CXLTime, 出貨數量, PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, Special_Packaging, 
                                    Remarks, 出貨地, 楦頭號, 材質, 長期試穿, 面料, 副料, 中底, 鞋墊, 大底, 跟, 工廠進度表備註1, 七號模具, 工廠進度表備註2, 國標測試, 客戶包裝確認, 東莞業務備註, 
                                    驗貨報告圖片 FROM 訂單控制表 
-                            WHERE (訂單流水號 = '" & TextBox12.Text & "')"
+                            WHERE (訂單流水號 = '" & TextBox12.Text & "') AND (CXL <> 1)"
                     cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
 
                     For i As Integer = 0 To DataGridView2.Rows.Count - 1

SHENKANG-MES-SYS/量產訂單管理系統/量產訂單輸入.Designer.vb

@@ -109,6 +109,7 @@ Partial Class 量產訂單輸入
         Me.Button9 = New System.Windows.Forms.Button()
         Me.DateTimePicker5 = New System.Windows.Forms.DateTimePicker()
         Me.DateTimePicker6 = New System.Windows.Forms.DateTimePicker()
+        Me.Button18 = New System.Windows.Forms.Button()
         CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView5, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -921,11 +922,22 @@ Partial Class 量產訂單輸入
         Me.DateTimePicker6.Size = New System.Drawing.Size(142, 23)
         Me.DateTimePicker6.TabIndex = 1002
         '
+        'Button18
+        '
+        Me.Button18.ForeColor = System.Drawing.Color.Blue
+        Me.Button18.Location = New System.Drawing.Point(801, 106)
+        Me.Button18.Name = "Button18"
+        Me.Button18.Size = New System.Drawing.Size(115, 24)
+        Me.Button18.TabIndex = 1003
+        Me.Button18.Text = "修改形體"
+        Me.Button18.UseVisualStyleBackColor = True
+        '
         '量產訂單輸入
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 971)
+        Me.Controls.Add(Me.Button18)
         Me.Controls.Add(Me.DateTimePicker6)
         Me.Controls.Add(Me.DateTimePicker5)
         Me.Controls.Add(Me.Button9)
@@ -1098,4 +1110,5 @@ Partial Class 量產訂單輸入
     Friend WithEvents Button9 As Button
     Friend WithEvents DateTimePicker5 As DateTimePicker
     Friend WithEvents DateTimePicker6 As DateTimePicker
+    Friend WithEvents Button18 As Button
 End Class

SHENKANG-MES-SYS/量產訂單管理系統/量產訂單輸入.vb

@@ -503,4 +503,14 @@ Public Class 量產訂單輸入
     Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
         清單修改.Close() : 訂單顏色修改 = True : 清單修改.ShowDialog() : Set_清單1() : 訂單顏色修改 = False
     End Sub
+
+    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "UPDATE 訂單控制表 SET 型體號碼 = N'" & ComboBox11.Text & "', GOODBOX = N'" & ComboBox12.Text & "' WHERE 資料流水號 LIKE '" & TextBox15.Text & "'"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "UPDATE 訂單明細表 SET ItemNumber = N'" & ComboBox11.Text & "', ProductName = N'" & ComboBox12.Text & "' WHERE 資料流水號 LIKE '" & TextBox15.Text & "'"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
+        Set_清單3() : Set_清單4()
+    End Sub
 End Class