雅邸系統

版本號 : 2021040601
更新內容如下
1、新增財務管理系統，其中包含，薪轉資料表、財務流水帳申請、財務流水帳審核、帳務一欄表、財務對帳表、財務決算表、匯率功能、會計科目設定。
2、人事資料表新增薪轉帳戶記錄功能。
3、供應商資料表新增供應商付款相關資料。

YD-ERP-SYS/Module/SQL_Module.vb

@@ -4,8 +4,8 @@ Module SQL_Module
     Public conn As New SqlConnection : Public cmd As New SqlCommand : Public dr As SqlDataReader : Public da As New SqlDataAdapter
     Public DTP As String : Public DTP1 As String : Public DTP2 As String : Public DTP3 As String
     Public 登入權限 As String = "姓名, 帳號, 密碼, 職稱, 級別, CC01, CC02, CC03, CC04, CC05, CC06, CC07, CC08, CC09, CC10, CC11, CC12, CC13, CC14, CC15, CC16, CC17, CC18, CC19, CC20, CC21,
-                                 CC22, CC23, CC24, CC25, CC26, CC27, CC28, CC29, CC30, CC31, CC32, CC33, CC34, CC35, CC36, CC37 "
-    Public 權限數量 As Integer = 37
+                                 CC22, CC23, CC24, CC25, CC26, CC27, CC28, CC29, CC30, CC31, CC32, CC33, CC34, CC35, CC36, CC37, CC38, CC39, CC40, CC41, CC42, CC43, CC44, CC45, CC46 "
+    Public 權限數量 As Integer = 46
     Friend Sub ConnOpen()
         conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
     End Sub

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

@@ -410,7 +410,7 @@
         SQL1 = "UPDATE 公帳流水帳 SET 現金 = '" & PA15 & "', 備用金 = '" & PA14 & "', 
                                       公帳 = '" & PA13 & "', 支票 = '" & PA12 & "' 
                 WHERE  支付單號   LIKE       '" & PA11 & "' AND 項次 Like '" & PA10 & "'"
-        CmdSet_For_DGV()
+        CmdSet_For_dr()
     End Sub
     '---------------------營運報表.-------------------------------------------------------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_營運報表_年份查詢()
@@ -777,5 +777,77 @@
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
         CmdSet_For_DGV()
     End Sub
+    '---------------------匯入EXCEL.------------------------------------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_薪資轉帳表_流水號_最後一筆資料()
+        ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 薪資轉帳表 ORDER BY 流水號 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_薪資轉帳表_匯入EXCEL_新增(ByVal NoColumns As Integer)
+        ConnOpen()
+        SQL1 = "INSERT INTO 薪資轉帳表 (流水號, 姓名, 身分證, 結算日期, 獎金, 薪資, 領現, 薪資合計, 領現合計, 給付方式, 人事資料流水號) 
+                VALUES (N'" & 匯入EXCEL.流水號_tb.Text & "', N'" & 匯入EXCEL.薪資匯入EXCEL_dgv(7, NoColumns).Value & "',
+                        N'" & 匯入EXCEL.薪資匯入EXCEL_dgv(2, NoColumns).Value & "', N'" & 匯入EXCEL.薪資匯入EXCEL_dgv(8, NoColumns).Value & "',
+                        N'" & 匯入EXCEL.薪資匯入EXCEL_dgv(3, NoColumns).Value & "', N'" & 匯入EXCEL.薪資匯入EXCEL_dgv(4, NoColumns).Value & "', 
+                        N'" & 匯入EXCEL.薪資匯入EXCEL_dgv(5, NoColumns).Value & "', N'" & 匯入EXCEL.薪資匯入EXCEL_dgv(6, NoColumns).Value & "', 
+                        N'" & 匯入EXCEL.薪資匯入EXCEL_dgv(5, NoColumns).Value & "', N'" & 匯入EXCEL.薪資匯入EXCEL_dgv(9, NoColumns).Value & "', 
+                        N'" & 匯入EXCEL.人事流水號_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    '---------------------匯出EXCEL.------------------------------------------------------------------------------------------------------------------------------------------
+    Friend Sub 薪資轉帳表_匯出EXCEL_月份清單(ByVal Str_Date As String)
+        ConnOpen()
+        SQL1 = "SELECT      薪資轉帳表.流水號, 人事資料表.舊編, 人事資料表.薪資帳號, 人事資料表.身分證, 薪資轉帳表.獎金, 薪資轉帳表.薪資, 
+                            薪資轉帳表.領現, 薪資轉帳表.薪資合計, 人事資料表.姓名, 薪資轉帳表.結算日期, 薪資轉帳表.給付方式, 薪資轉帳表.人事資料流水號
+                FROM        薪資轉帳表  LEFT OUTER JOIN
+                            人事資料表 ON 薪資轉帳表.人事資料流水號 = 人事資料表.流水號
+                WHERE      (薪資轉帳表.結算日期 NOT LIKE '')  
+                           AND (薪資轉帳表.結算日期 LIKE '" & Str_Date & "%" & "')
+               ORDER BY    薪資轉帳表.流水號"
+        CmdSet_For_DGV()
+    End Sub
+    '---------------------薪資轉帳.------------------------------------------------------------------------------------------------------------------------------------------
+    Friend Sub 薪資轉帳表_月份清單()
+        ConnOpen()
+        SQL1 = "SELECT      薪資轉帳表.流水號, 人事資料表.姓名, 人事資料表.身分證, 薪資轉帳表.結算日期, 薪資轉帳表.獎金, 薪資轉帳表.薪資, 薪資轉帳表.領現, 
+                            薪資轉帳表.薪資合計, 薪資轉帳表.領現合計, 薪資轉帳表.給付方式, 薪資轉帳表.人事資料流水號, 
+                            人事資料表.薪資帳號, 人事資料表.職務, 人事資料表.電話, 人事資料表.手機
+                FROM        薪資轉帳表  LEFT OUTER JOIN
+                            人事資料表 ON 薪資轉帳表.人事資料流水號 = 人事資料表.流水號
+                WHERE      (薪資轉帳表.結算日期 NOT LIKE '')  
+                           AND (薪資轉帳表.結算日期 LIKE '" & Strings.Left(Format(薪資轉帳表.結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "%" & "')
+               ORDER BY    薪資轉帳表.流水號"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub 薪資轉帳表_姓名選擇()
+        ConnOpen() : SQL1 = "SELECT  姓名 FROM 人事資料表 GROUP BY 姓名" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_薪資轉帳表_新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO 薪資轉帳表 (流水號, 身分證, 結算日期, 獎金, 薪資, 領現, 薪資合計, 領現合計, 給付方式, 人事資料流水號) 
+                VALUES (N'" & 薪資轉帳表.流水號_tb.Text & "', N'" & 薪資轉帳表.身分證_tb.Text & "', N'" & 薪資轉帳表.結束日期_dtp.Value.ToString("yyyy/MM/dd") & "', N'', N'', N'', N'', N'', N'', N'" & 薪資轉帳表.人事流水號_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_薪資轉帳表_修改()
+        ConnOpen()
+        SQL1 = "UPDATE 薪資轉帳表 SET 結算日期 = N'" & 薪資轉帳表.結束日期_dtp.Value.ToString("yyyy/MM/dd") & "', 姓名 = N'" & 薪資轉帳表.姓名_cb.Text & "',
+                                      身分證 = N'" & 薪資轉帳表.身分證_tb.Text & "', 獎金 = N'" & 薪資轉帳表.獎金_tb.Text & "',
+                                      薪資 = N'" & 薪資轉帳表.薪資_tb.Text & "', 領現 = N'" & 薪資轉帳表.領現_tb.Text & "', 
+                                      薪資合計 = N'" & 薪資轉帳表.薪資總金額_tb.Text & "', 領現合計 = N'" & 薪資轉帳表.領現總金額_tb.Text & "',
+                                      給付方式 = N'" & 薪資轉帳表.給付方式_cb.Text & "', 人事資料流水號 = N'" & 薪資轉帳表.人事流水號_tb.Text & "'
+                        WHERE (流水號 = N'" & 薪資轉帳表.流水號_tb.Text & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_薪資轉帳表_刪除()
+        ConnOpen() : SQL1 = "DELETE 薪資轉帳表 WHERE (流水號 = N'" & 薪資轉帳表.流水號_tb.Text & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_薪資轉帳表_批量存檔薪轉資料()
+        ConnOpen()
+        SQL1 = "UPDATE 會計科目       SET 流水號 = N'" & PA1 & "', 姓名 = N'" & PA2 & "', 身分證 = N'" & PA3 & "', 結算日期 = N'" & PA4 &
+                                      "', 獎金 = N'" & PA5 & "', 薪资 = N'" & PA6 & "', 領現 = N'" & PA7 & "', 薪資合計 = N'" & PA8 &
+                                      "', 領現合計 = N'" & PA9 & "' , 給付方式 = N'" & PA10 & "', 薪資帳號 = N'" & PA11 &
+                                      "', 職務 = N'" & PA12 & "', 電話 = N'" & PA13 & "', 手機 = N'" & PA14 & "'
+                WHERE  流水號         LIKE N'" & PA15 & "'"
+        CmdSet_For_DGV()
+    End Sub
+    '將SQL_薪資轉帳表_批量存檔薪轉資料()SQL語法的key做更動
 End Module
 

YD-ERP-SYS/Module/SQL_資料庫系統管理.vb

@@ -41,7 +41,10 @@
                         N'" & 系統使用者管理.CheckBox26.Checked & "',N'" & 系統使用者管理.CheckBox27.Checked & "',N'" & 系統使用者管理.CheckBox28.Checked & "',
                         N'" & 系統使用者管理.CheckBox29.Checked & "',N'" & 系統使用者管理.CheckBox30.Checked & "',N'" & 系統使用者管理.CheckBox31.Checked & "',
                         N'" & 系統使用者管理.CheckBox32.Checked & "',N'" & 系統使用者管理.CheckBox33.Checked & "',N'" & 系統使用者管理.CheckBox34.Checked & "',
-                        N'" & 系統使用者管理.CheckBox35.Checked & "',N'" & 系統使用者管理.CheckBox36.Checked & "',N'" & 系統使用者管理.CheckBox37.Checked & "')"
+                        N'" & 系統使用者管理.CheckBox35.Checked & "',N'" & 系統使用者管理.CheckBox36.Checked & "',N'" & 系統使用者管理.CheckBox37.Checked & "',
+                        N'" & 系統使用者管理.CheckBox38.Checked & "',N'" & 系統使用者管理.CheckBox39.Checked & "',N'" & 系統使用者管理.CheckBox40.Checked & "',
+                        N'" & 系統使用者管理.CheckBox41.Checked & "',N'" & 系統使用者管理.CheckBox42.Checked & "',N'" & 系統使用者管理.CheckBox43.Checked & "',
+                        N'" & 系統使用者管理.CheckBox44.Checked & "',N'" & 系統使用者管理.CheckBox45.Checked & "',N'" & 系統使用者管理.CheckBox46.Checked & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_系統使用者密碼顯示()
@@ -62,7 +65,10 @@
                                        CC27 = N'" & 系統使用者管理.CheckBox27.Checked & "', CC28 = N'" & 系統使用者管理.CheckBox28.Checked & "', CC29 = N'" & 系統使用者管理.CheckBox29.Checked & "', 
                                        CC30 = N'" & 系統使用者管理.CheckBox30.Checked & "', CC31 = N'" & 系統使用者管理.CheckBox31.Checked & "', CC32 = N'" & 系統使用者管理.CheckBox32.Checked & "', 
                                        CC33 = N'" & 系統使用者管理.CheckBox33.Checked & "', CC34 = N'" & 系統使用者管理.CheckBox34.Checked & "', CC35 = N'" & 系統使用者管理.CheckBox35.Checked & "', 
-                                       CC36 = N'" & 系統使用者管理.CheckBox36.Checked & "', CC37 = N'" & 系統使用者管理.CheckBox37.Checked & "'
+                                       CC36 = N'" & 系統使用者管理.CheckBox36.Checked & "', CC37 = N'" & 系統使用者管理.CheckBox37.Checked & "', CC38 = N'" & 系統使用者管理.CheckBox38.Checked & "', 
+                                       CC39 = N'" & 系統使用者管理.CheckBox39.Checked & "', CC40 = N'" & 系統使用者管理.CheckBox40.Checked & "', CC41 = N'" & 系統使用者管理.CheckBox41.Checked & "', 
+                                       CC42 = N'" & 系統使用者管理.CheckBox42.Checked & "', CC43 = N'" & 系統使用者管理.CheckBox43.Checked & "', CC44 = N'" & 系統使用者管理.CheckBox44.Checked & "', 
+                                       CC45 = N'" & 系統使用者管理.CheckBox45.Checked & "', CC46 = N'" & 系統使用者管理.CheckBox46.Checked & "'
                 WHERE (帳號 = '" & 系統使用者管理.帳號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub

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

@@ -4,7 +4,7 @@
     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 AA(99) As String : Public BB(99) As Boolean : Public CC(99) As Boolean : Public 登入判斷 As Boolean : Public 業務號碼 As String
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2021010601"
+    Public 版本 As String = "2021040601"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL As String = "" : Public 列印用SQL2 As String : Public 公司編號 As String : Public 公司電話 As String : Public 公司統編 As String : Public 公司地址 As String
     Public 關鍵字編號 As String

YD-ERP-SYS/My Project/Resources.Designer.vb

@@ -1170,6 +1170,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property Payment2() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Payment2", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
         '''</summary>
@@ -1280,6 +1290,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property Report7() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Report7", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property Report8() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Report8", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
         '''</summary>

YD-ERP-SYS/My Project/Resources.resx

@@ -118,6 +118,9 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="check1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\check.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="068" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\068.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -142,11 +145,11 @@
   <data name="Report3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="008" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\008.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="027" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\027.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="017" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\017.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Sys-Command1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Sys-Command.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="065" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\065.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -154,26 +157,32 @@
   <data name="018" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\018.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="064" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\064.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="087" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\087.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="033" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\033.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="069" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\069.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="008" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\008.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="067" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\067.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="056" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\056.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Payment2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Payment.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="032" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\032.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="timg02" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\timg02.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Sys-Command13" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\Sys-Command1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="029" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\029.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="061" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\061.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -193,6 +202,9 @@
   <data name="pen" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\pen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="check2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\check.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="023" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\023.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -211,17 +223,14 @@
   <data name="028" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\028.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="100" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\100.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="011" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\011.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="099" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\099.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="060" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\060.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="078" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\078.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="045" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\045.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -238,9 +247,6 @@
   <data name="Report2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="052" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\052.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="pen2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\pen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -265,12 +271,6 @@
   <data name="timg03" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\timg03.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="078" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\078.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="004" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\004.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="082" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\082.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -286,8 +286,8 @@
   <data name="007" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\007.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="051" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\051.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Sys-Command14" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Sys-Command1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="020" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\020.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -304,6 +304,9 @@
   <data name="095" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\095.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Report4" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="049" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\049.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -346,6 +349,9 @@
   <data name="050" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\050.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="024" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\024.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="088" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\088.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -373,23 +379,23 @@
   <data name="022" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\022.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="042" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\042.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="054" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\054.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="032" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\032.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="024" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\024.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Sys-Command13" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Sys-Command1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="093" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\093.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="051" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\051.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="070" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\070.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Sys-Command1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\Sys-Command.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="052" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\052.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="062" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\062.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -397,6 +403,12 @@
   <data name="079" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\079.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Report7" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="060" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\060.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="LOGO -01" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\LOGO -01.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -418,9 +430,6 @@
   <data name="015" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\015.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="002" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\002.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Payment" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Payment.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -436,8 +445,8 @@
   <data name="048" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\048.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Report4" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="093" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\093.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="006" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\006.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -457,23 +466,23 @@
   <data name="063" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\063.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="040" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\040.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="017" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\017.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Report" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Report5" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="069" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\069.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="card_ipod" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\card_ipod.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="check1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\check.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="004" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\004.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="042" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\042.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="040" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\040.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="000" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\000.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -484,20 +493,20 @@
   <data name="055" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\055.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="check2" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\check.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="002" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\002.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="046" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\046.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="027" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\027.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="056" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\056.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Sys-Command" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Sys-Command1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="064" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\064.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Report5" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="053" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\053.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -508,10 +517,10 @@
   <data name="094" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片比例用\094.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="029" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片比例用\029.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="100" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片比例用\100.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Sys-Command14" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\Sys-Command1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Report8" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

YD-ERP-SYS/YD-ERP-SYS.Designer.vb

@@ -74,16 +74,18 @@ Partial Class YD_ERP_SYS
         Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
         Me.物料檔案_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.倉儲分區控制表_tsm = New System.Windows.Forms.ToolStripMenuItem()
-        Me.財務系統管理ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.營運成本收支單申請ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.營運成本收支單審核ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.營運成本收支單一覽表ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.財務系統管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.薪資轉帳表_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator15 = New System.Windows.Forms.ToolStripSeparator()
+        Me.營運成本收支單申請_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.營運成本收支單審核_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.營運成本收支單一覽表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator()
-        Me.營運成本收支單對帳表ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.營運成本收支單對帳表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.營運報表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator()
-        Me.匯率管理ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.會計科目管理ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.匯率管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.會計科目管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.資料庫系統管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.系統使用者管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
@@ -91,6 +93,7 @@ Partial Class YD_ERP_SYS
         Me.系統執行檔版本管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
         Me.FTP資料夾管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator14 = New System.Windows.Forms.ToolStripSeparator()
         Me.簽名檔管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.StatusStrip = New System.Windows.Forms.StatusStrip()
         Me.著作權_tss = New System.Windows.Forms.ToolStripStatusLabel()
@@ -98,14 +101,13 @@ Partial Class YD_ERP_SYS
         Me.ToolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar()
         Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
         Me.使用者_cb = New System.Windows.Forms.ComboBox()
-        Me.ToolStripSeparator14 = New System.Windows.Forms.ToolStripSeparator()
         Me.MenuStrip.SuspendLayout()
         Me.StatusStrip.SuspendLayout()
         Me.SuspendLayout()
         '
         'MenuStrip
         '
-        Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileMenu, Me.WindowsMenu, Me.人事系統管理_tsm, Me.業務系統管理_tsm, Me.採購系統管理_tsm, Me.倉儲系統管理_tsm, Me.財務系統管理ToolStripMenuItem1, Me.資料庫系統管理_tsm})
+        Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileMenu, Me.WindowsMenu, Me.人事系統管理_tsm, Me.業務系統管理_tsm, Me.採購系統管理_tsm, Me.倉儲系統管理_tsm, Me.財務系統管理_tsm, Me.資料庫系統管理_tsm})
         Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
         Me.MenuStrip.MdiWindowListItem = Me.WindowsMenu
         Me.MenuStrip.Name = "MenuStrip"
@@ -464,51 +466,64 @@ Partial Class YD_ERP_SYS
         Me.倉儲分區控制表_tsm.Size = New System.Drawing.Size(199, 22)
         Me.倉儲分區控制表_tsm.Text = "倉儲分區控制表"
         '
-        '財務系統管理ToolStripMenuItem1
+        '財務系統管理_tsm
+        '
+        Me.財務系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.薪資轉帳表_tsm, Me.ToolStripSeparator15, Me.營運成本收支單申請_tsm, Me.營運成本收支單審核_tsm, Me.營運成本收支單一覽表_tsm, Me.ToolStripSeparator12, Me.營運成本收支單對帳表_tsm, Me.營運報表_tsm, Me.ToolStripSeparator13, Me.匯率管理_tsm, Me.會計科目管理_tsm})
+        Me.財務系統管理_tsm.ForeColor = System.Drawing.Color.Red
+        Me.財務系統管理_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Payment1
+        Me.財務系統管理_tsm.Name = "財務系統管理_tsm"
+        Me.財務系統管理_tsm.Size = New System.Drawing.Size(107, 20)
+        Me.財務系統管理_tsm.Text = "財務系統管理"
+        '
+        '薪資轉帳表_tsm
         '
-        Me.財務系統管理ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.營運成本收支單申請ToolStripMenuItem1, Me.營運成本收支單審核ToolStripMenuItem1, Me.營運成本收支單一覽表ToolStripMenuItem1, Me.ToolStripSeparator12, Me.營運成本收支單對帳表ToolStripMenuItem, Me.營運報表_tsm, Me.ToolStripSeparator13, Me.匯率管理ToolStripMenuItem1, Me.會計科目管理ToolStripMenuItem1})
-        Me.財務系統管理ToolStripMenuItem1.ForeColor = System.Drawing.Color.Red
-        Me.財務系統管理ToolStripMenuItem1.Image = Global.YD_ERP_SYS.My.Resources.Resources.Payment1
-        Me.財務系統管理ToolStripMenuItem1.Name = "財務系統管理ToolStripMenuItem1"
-        Me.財務系統管理ToolStripMenuItem1.Size = New System.Drawing.Size(107, 20)
-        Me.財務系統管理ToolStripMenuItem1.Text = "財務系統管理"
+        Me.薪資轉帳表_tsm.ForeColor = System.Drawing.Color.Red
+        Me.薪資轉帳表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Payment2
+        Me.薪資轉帳表_tsm.Name = "薪資轉帳表_tsm"
+        Me.薪資轉帳表_tsm.Size = New System.Drawing.Size(205, 22)
+        Me.薪資轉帳表_tsm.Text = "薪資轉帳表"
         '
-        '營運成本收支單申請ToolStripMenuItem1
+        'ToolStripSeparator15
         '
-        Me.營運成本收支單申請ToolStripMenuItem1.ForeColor = System.Drawing.Color.Red
-        Me.營運成本收支單申請ToolStripMenuItem1.Image = Global.YD_ERP_SYS.My.Resources.Resources.pen2
-        Me.營運成本收支單申請ToolStripMenuItem1.Name = "營運成本收支單申請ToolStripMenuItem1"
-        Me.營運成本收支單申請ToolStripMenuItem1.Size = New System.Drawing.Size(205, 22)
-        Me.營運成本收支單申請ToolStripMenuItem1.Text = "營運成本收支單申請"
+        Me.ToolStripSeparator15.Name = "ToolStripSeparator15"
+        Me.ToolStripSeparator15.Size = New System.Drawing.Size(202, 6)
         '
-        '營運成本收支單審核ToolStripMenuItem1
+        '營運成本收支單申請_tsm
         '
-        Me.營運成本收支單審核ToolStripMenuItem1.ForeColor = System.Drawing.Color.Red
-        Me.營運成本收支單審核ToolStripMenuItem1.Image = Global.YD_ERP_SYS.My.Resources.Resources.check2
-        Me.營運成本收支單審核ToolStripMenuItem1.Name = "營運成本收支單審核ToolStripMenuItem1"
-        Me.營運成本收支單審核ToolStripMenuItem1.Size = New System.Drawing.Size(205, 22)
-        Me.營運成本收支單審核ToolStripMenuItem1.Text = "營運成本收支單審核"
+        Me.營運成本收支單申請_tsm.ForeColor = System.Drawing.Color.Red
+        Me.營運成本收支單申請_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.pen2
+        Me.營運成本收支單申請_tsm.Name = "營運成本收支單申請_tsm"
+        Me.營運成本收支單申請_tsm.Size = New System.Drawing.Size(205, 22)
+        Me.營運成本收支單申請_tsm.Text = "營運成本收支單申請"
         '
-        '營運成本收支單一覽表ToolStripMenuItem1
+        '營運成本收支單審核_tsm
         '
-        Me.營運成本收支單一覽表ToolStripMenuItem1.ForeColor = System.Drawing.Color.Red
-        Me.營運成本收支單一覽表ToolStripMenuItem1.Image = Global.YD_ERP_SYS.My.Resources.Resources.Report4
-        Me.營運成本收支單一覽表ToolStripMenuItem1.Name = "營運成本收支單一覽表ToolStripMenuItem1"
-        Me.營運成本收支單一覽表ToolStripMenuItem1.Size = New System.Drawing.Size(205, 22)
-        Me.營運成本收支單一覽表ToolStripMenuItem1.Text = "營運成本收支單一覽表"
+        Me.營運成本收支單審核_tsm.ForeColor = System.Drawing.Color.Red
+        Me.營運成本收支單審核_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.check2
+        Me.營運成本收支單審核_tsm.Name = "營運成本收支單審核_tsm"
+        Me.營運成本收支單審核_tsm.Size = New System.Drawing.Size(205, 22)
+        Me.營運成本收支單審核_tsm.Text = "營運成本收支單審核"
+        '
+        '營運成本收支單一覽表_tsm
+        '
+        Me.營運成本收支單一覽表_tsm.ForeColor = System.Drawing.Color.Red
+        Me.營運成本收支單一覽表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Report4
+        Me.營運成本收支單一覽表_tsm.Name = "營運成本收支單一覽表_tsm"
+        Me.營運成本收支單一覽表_tsm.Size = New System.Drawing.Size(205, 22)
+        Me.營運成本收支單一覽表_tsm.Text = "營運成本收支單一覽表"
         '
         'ToolStripSeparator12
         '
         Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
         Me.ToolStripSeparator12.Size = New System.Drawing.Size(202, 6)
         '
-        '營運成本收支單對帳表ToolStripMenuItem
+        '營運成本收支單對帳表_tsm
         '
-        Me.營運成本收支單對帳表ToolStripMenuItem.ForeColor = System.Drawing.Color.Red
-        Me.營運成本收支單對帳表ToolStripMenuItem.Image = Global.YD_ERP_SYS.My.Resources.Resources.Report5
-        Me.營運成本收支單對帳表ToolStripMenuItem.Name = "營運成本收支單對帳表ToolStripMenuItem"
-        Me.營運成本收支單對帳表ToolStripMenuItem.Size = New System.Drawing.Size(205, 22)
-        Me.營運成本收支單對帳表ToolStripMenuItem.Text = "營運成本收支單 - 對帳表"
+        Me.營運成本收支單對帳表_tsm.ForeColor = System.Drawing.Color.Red
+        Me.營運成本收支單對帳表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Report5
+        Me.營運成本收支單對帳表_tsm.Name = "營運成本收支單對帳表_tsm"
+        Me.營運成本收支單對帳表_tsm.Size = New System.Drawing.Size(205, 22)
+        Me.營運成本收支單對帳表_tsm.Text = "營運成本收支單 - 對帳表"
         '
         '營運報表_tsm
         '
@@ -523,21 +538,21 @@ Partial Class YD_ERP_SYS
         Me.ToolStripSeparator13.Name = "ToolStripSeparator13"
         Me.ToolStripSeparator13.Size = New System.Drawing.Size(202, 6)
         '
-        '匯率管理ToolStripMenuItem1
+        '匯率管理_tsm
         '
-        Me.匯率管理ToolStripMenuItem1.ForeColor = System.Drawing.Color.Red
-        Me.匯率管理ToolStripMenuItem1.Image = Global.YD_ERP_SYS.My.Resources.Resources.Sys_Command13
-        Me.匯率管理ToolStripMenuItem1.Name = "匯率管理ToolStripMenuItem1"
-        Me.匯率管理ToolStripMenuItem1.Size = New System.Drawing.Size(205, 22)
-        Me.匯率管理ToolStripMenuItem1.Text = "匯率管理"
+        Me.匯率管理_tsm.ForeColor = System.Drawing.Color.Red
+        Me.匯率管理_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Sys_Command13
+        Me.匯率管理_tsm.Name = "匯率管理_tsm"
+        Me.匯率管理_tsm.Size = New System.Drawing.Size(205, 22)
+        Me.匯率管理_tsm.Text = "匯率管理"
         '
-        '會計科目管理ToolStripMenuItem1
+        '會計科目管理_tsm
         '
-        Me.會計科目管理ToolStripMenuItem1.ForeColor = System.Drawing.Color.Red
-        Me.會計科目管理ToolStripMenuItem1.Image = Global.YD_ERP_SYS.My.Resources.Resources.Sys_Command14
-        Me.會計科目管理ToolStripMenuItem1.Name = "會計科目管理ToolStripMenuItem1"
-        Me.會計科目管理ToolStripMenuItem1.Size = New System.Drawing.Size(205, 22)
-        Me.會計科目管理ToolStripMenuItem1.Text = "會計科目管理"
+        Me.會計科目管理_tsm.ForeColor = System.Drawing.Color.Red
+        Me.會計科目管理_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Sys_Command14
+        Me.會計科目管理_tsm.Name = "會計科目管理_tsm"
+        Me.會計科目管理_tsm.Size = New System.Drawing.Size(205, 22)
+        Me.會計科目管理_tsm.Text = "會計科目管理"
         '
         '資料庫系統管理_tsm
         '
@@ -585,6 +600,11 @@ Partial Class YD_ERP_SYS
         Me.FTP資料夾管理_tsm.Size = New System.Drawing.Size(182, 22)
         Me.FTP資料夾管理_tsm.Text = "FTP資料夾管理"
         '
+        'ToolStripSeparator14
+        '
+        Me.ToolStripSeparator14.Name = "ToolStripSeparator14"
+        Me.ToolStripSeparator14.Size = New System.Drawing.Size(179, 6)
+        '
         '簽名檔管理ToolStripMenuItem
         '
         Me.簽名檔管理ToolStripMenuItem.Name = "簽名檔管理ToolStripMenuItem"
@@ -632,11 +652,6 @@ Partial Class YD_ERP_SYS
         Me.使用者_cb.Size = New System.Drawing.Size(97, 23)
         Me.使用者_cb.TabIndex = 9
         '
-        'ToolStripSeparator14
-        '
-        Me.ToolStripSeparator14.Name = "ToolStripSeparator14"
-        Me.ToolStripSeparator14.Size = New System.Drawing.Size(179, 6)
-        '
         'YD_ERP_SYS
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -726,16 +741,18 @@ Partial Class YD_ERP_SYS
     Friend WithEvents ToolStripSeparator11 As ToolStripSeparator
     Friend WithEvents 倉儲出庫_tsm As ToolStripMenuItem
     Friend WithEvents 單據狀態查詢_tsm As ToolStripMenuItem
-    Friend WithEvents 財務系統管理ToolStripMenuItem1 As ToolStripMenuItem
-    Friend WithEvents 營運成本收支單申請ToolStripMenuItem1 As ToolStripMenuItem
-    Friend WithEvents 營運成本收支單審核ToolStripMenuItem1 As ToolStripMenuItem
-    Friend WithEvents 營運成本收支單一覽表ToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents 財務系統管理_tsm As ToolStripMenuItem
+    Friend WithEvents 營運成本收支單申請_tsm As ToolStripMenuItem
+    Friend WithEvents 營運成本收支單審核_tsm As ToolStripMenuItem
+    Friend WithEvents 營運成本收支單一覽表_tsm As ToolStripMenuItem
     Friend WithEvents ToolStripSeparator12 As ToolStripSeparator
-    Friend WithEvents 營運成本收支單對帳表ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 營運成本收支單對帳表_tsm As ToolStripMenuItem
     Friend WithEvents 營運報表_tsm As ToolStripMenuItem
     Friend WithEvents ToolStripSeparator13 As ToolStripSeparator
-    Friend WithEvents 匯率管理ToolStripMenuItem1 As ToolStripMenuItem
-    Friend WithEvents 會計科目管理ToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents 匯率管理_tsm As ToolStripMenuItem
+    Friend WithEvents 會計科目管理_tsm As ToolStripMenuItem
     Friend WithEvents 簽名檔管理ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ToolStripSeparator14 As ToolStripSeparator
+    Friend WithEvents 薪資轉帳表_tsm As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator15 As ToolStripSeparator
 End Class

YD-ERP-SYS/YD-ERP-SYS.vb

@@ -58,7 +58,10 @@ Public Class YD_ERP_SYS
         客戶資料表_tsm.Enabled = CC(27) : 銷售分析表_tsm.Enabled = CC(31) : 貨款試算表_tsm.Enabled = CC(32)
         '----------人事系統管理---------------------------------------------------------------------------------------------------------------
         人事系統管理_tsm.Enabled = CC(28) : 人事資料表_tsm.Enabled = CC(29) : 人員ID卡系統配置設定_tsm.Enabled = CC(30)
-
+        '----------財務系統管理---------------------------------------------------------------------------------------------------------------
+        財務系統管理_tsm.Enabled = CC(38) : 薪資轉帳表_tsm.Enabled = CC(39) : 營運成本收支單申請_tsm.Enabled = CC(40) : 營運成本收支單審核_tsm.Enabled = CC(41)
+        營運成本收支單一覽表_tsm.Enabled = CC(42) : 營運成本收支單對帳表_tsm.Enabled = CC(43) : 營運報表_tsm.Enabled = CC(44) : 匯率管理_tsm.Enabled = CC(45)
+        會計科目管理_tsm.Enabled = CC(46)
     End Sub
     Private Sub YD_ERP_SYS_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
         LoginForm1.Close()
@@ -128,10 +131,6 @@ Public Class YD_ERP_SYS
     Private Sub 個人資料管理_tsm_Click(sender As Object, e As EventArgs) Handles 個人帳號管理_tsm.Click
         PA = "" : 個人帳號管理.ShowDialog() : 個人帳號管理.BringToFront()
     End Sub
-
-
-
-
     Private Sub 銷售分析表_tsm_Click(sender As Object, e As EventArgs) Handles 銷售分析表_tsm.Click
         PA = "" : 銷售分析表.Show() : 銷售分析表.BringToFront()
     End Sub
@@ -159,33 +158,31 @@ Public Class YD_ERP_SYS
     Private Sub 單據狀態查詢_tsm_Click(sender As Object, e As EventArgs) Handles 單據狀態查詢_tsm.Click
         PA = "" : 單據狀態查詢.Show() : 單據狀態查詢.BringToFront()
     End Sub
-    Private Sub 會計科目管理ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 會計科目管理ToolStripMenuItem1.Click
+    Private Sub 會計科目管理ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 會計科目管理_tsm.Click
         PA = "" : 會計科目管理.Show() : 會計科目管理.BringToFront()
     End Sub
-
-    Private Sub 營運成本收支單申請ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運成本收支單申請ToolStripMenuItem1.Click
+    Private Sub 營運成本收支單申請ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運成本收支單申請_tsm.Click
         PA = "" : 營運成本收支單申請.Show() : 營運成本收支單申請.BringToFront()
     End Sub
-
-    Private Sub 營運成本收支單審核ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運成本收支單審核ToolStripMenuItem1.Click
+    Private Sub 營運成本收支單審核ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運成本收支單審核_tsm.Click
         PA = "" : 營運成本收支單審核.Show() : 營運成本收支單審核.BringToFront()
     End Sub
-
-    Private Sub 營運成本收支單一覽表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運成本收支單一覽表ToolStripMenuItem1.Click
+    Private Sub 營運成本收支單一覽表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運成本收支單一覽表_tsm.Click
         PA = "" : 營運成本收支單一覽表.Show() : 營運成本收支單一覽表.BringToFront()
     End Sub
-
-    Private Sub 營運成本收支單對帳表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運成本收支單對帳表ToolStripMenuItem.Click
+    Private Sub 營運成本收支單對帳表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運成本收支單對帳表_tsm.Click
         PA = "" : 營運成本收支單_對帳表.Show() : 營運成本收支單_對帳表.BringToFront()
     End Sub
     Private Sub 營運成本收支決算表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運報表_tsm.Click
         PA = "" : 營運報表.Show() : 營運報表.BringToFront()
     End Sub
-
-    Private Sub 匯率管理ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 匯率管理ToolStripMenuItem1.Click
+    Private Sub 匯率管理ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 匯率管理_tsm.Click
         PA = "" : 匯率管理.Show() : 匯率管理.BringToFront()
     End Sub
     Private Sub 簽名檔管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 簽名檔管理ToolStripMenuItem.Click
         PA = "" : 簽名檔管理.Show() : 簽名檔管理.BringToFront()
     End Sub
+    Private Sub 薪資轉帳表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 薪資轉帳表_tsm.Click
+        PA = "" : 薪資轉帳表.Show() : 薪資轉帳表.BringToFront()
+    End Sub
 End Class

YD-ERP-SYS/YD-ERP-SYS.vbproj

@@ -275,6 +275,18 @@
     <Compile Include="業務系統管理\銷售單申請.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="財務系統管理\匯入EXCEL.Designer.vb">
+      <DependentUpon>匯入EXCEL.vb</DependentUpon>
+    </Compile>
+    <Compile Include="財務系統管理\匯入EXCEL.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="財務系統管理\匯出EXCEL.Designer.vb">
+      <DependentUpon>匯出EXCEL.vb</DependentUpon>
+    </Compile>
+    <Compile Include="財務系統管理\匯出EXCEL.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="財務系統管理\匯率管理.Designer.vb">
       <DependentUpon>匯率管理.vb</DependentUpon>
     </Compile>
@@ -317,6 +329,12 @@
     <Compile Include="財務系統管理\營運成本收支單申請.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="財務系統管理\薪資轉帳表.Designer.vb">
+      <DependentUpon>薪資轉帳表.vb</DependentUpon>
+    </Compile>
+    <Compile Include="財務系統管理\薪資轉帳表.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="資料庫系統管理\FTP資料夾管理.Designer.vb">
       <DependentUpon>FTP資料夾管理.vb</DependentUpon>
     </Compile>
@@ -466,6 +484,12 @@
     <EmbeddedResource Include="業務系統管理\銷售單申請.resx">
       <DependentUpon>銷售單申請.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="財務系統管理\匯入EXCEL.resx">
+      <DependentUpon>匯入EXCEL.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="財務系統管理\匯出EXCEL.resx">
+      <DependentUpon>匯出EXCEL.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="財務系統管理\匯率管理.resx">
       <DependentUpon>匯率管理.vb</DependentUpon>
     </EmbeddedResource>
@@ -487,6 +511,9 @@
     <EmbeddedResource Include="財務系統管理\營運成本收支單申請.resx">
       <DependentUpon>營運成本收支單申請.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="財務系統管理\薪資轉帳表.resx">
+      <DependentUpon>薪資轉帳表.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\FTP資料夾管理.resx">
       <DependentUpon>FTP資料夾管理.vb</DependentUpon>
     </EmbeddedResource>

YD-ERP-SYS/bin/Debug/YD-ERP-SYS.xml

@@ -577,6 +577,11 @@ YD-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Payment2">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:YD_ERP_SYS.My.Resources.Resources.pen">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -632,6 +637,16 @@ YD-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Report7">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Report8">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:YD_ERP_SYS.My.Resources.Resources.Shipping5">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。

YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-49988577c2bbadc38503a8e2d39e249a231d014f
+a4f6e87bc886a6a14ffb5949444fdd1a84718492

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

@@ -96,3 +96,62 @@ D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單一覽
 D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單_對帳表.resources
 D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運報表.resources
 D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.簽名檔管理.resources
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯入EXCEL.resources
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯出EXCEL.resources
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.薪資轉帳表.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.exe.config
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.exe
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.pdb
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.xml
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\PInvoke.Windows.Core.xml
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbprojAssemblyReference.cache
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.人事資料表.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.人員ID卡系統配置設定.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲入庫.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲出庫.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲分區控制表.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲控制表.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.單據狀態查詢.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損控制表.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損申請.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損審核_倉儲調整.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.一般性申請採購單.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.依銷售申請採購單.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購單審核.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購對帳單.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購控制表.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購訂製大圖.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.客戶資料表.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.供應商資料表.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.物料檔案.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.訂單控制表.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.貨款試算表.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售分析表.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售單審核.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售單申請.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯入EXCEL.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯出EXCEL.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯率管理.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.會計科目管理.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運報表.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單_對帳表.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單一覽表.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單審核.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單申請.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.薪資轉帳表.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.FTP資料夾管理.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.LoginForm1.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.Resources.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.YD_ERP_SYS.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.個人帳號管理.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.簽名檔管理.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.系統使用者管理.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.系統執行檔版本管理.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.系統編碼規則.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.網段.resources
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.GenerateResource.cache
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.CoreCompileInputs.cache
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.CopyComplete
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.exe
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.xml
+D:\工巧明\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.pdb

YD-ERP-SYS/obj/Debug/YD-ERP-SYS.xml

@@ -577,6 +577,11 @@ YD-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Payment2">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:YD_ERP_SYS.My.Resources.Resources.pen">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -632,6 +637,16 @@ YD-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Report7">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Report8">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:YD_ERP_SYS.My.Resources.Resources.Shipping5">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。

YD-ERP-SYS/人事系統管理/人事資料表.Designer.vb

@@ -23,7 +23,7 @@ Partial Class 人事資料表
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.人事_dgv = New System.Windows.Forms.DataGridView()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.重新整理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -56,14 +56,16 @@ Partial Class 人事資料表
         Me.刪除_bt = New System.Windows.Forms.Button()
         Me.流水號_tb = New System.Windows.Forms.TextBox()
         Me.狀態_lb = New System.Windows.Forms.Label()
+        Me.薪資帳號_tb = New System.Windows.Forms.TextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
         CType(Me.人事_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.SuspendLayout()
         '
         '人事_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.人事_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.人事_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.人事_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -168,7 +170,7 @@ Partial Class 人事資料表
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(32, 16)
         Me.Label6.TabIndex = 230
-        Me.Label6.Text = "住址"
+        Me.Label6.Text = "帳號"
         '
         'Label7
         '
@@ -251,9 +253,9 @@ Partial Class 人事資料表
         '
         Me.住址_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.住址_tb.Location = New System.Drawing.Point(662, 5)
+        Me.住址_tb.Location = New System.Drawing.Point(847, 6)
         Me.住址_tb.Name = "住址_tb"
-        Me.住址_tb.Size = New System.Drawing.Size(564, 23)
+        Me.住址_tb.Size = New System.Drawing.Size(379, 23)
         Me.住址_tb.TabIndex = 1008
         '
         '電話_tb
@@ -284,7 +286,7 @@ Partial Class 人事資料表
         '
         Me.備註_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.備註_tb.Location = New System.Drawing.Point(662, 30)
+        Me.備註_tb.Location = New System.Drawing.Point(662, 31)
         Me.備註_tb.Name = "備註_tb"
         Me.備註_tb.Size = New System.Drawing.Size(564, 23)
         Me.備註_tb.TabIndex = 1012
@@ -341,12 +343,30 @@ Partial Class 人事資料表
         Me.狀態_lb.TabIndex = 1017
         Me.狀態_lb.Text = "編輯" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "狀態"
         '
+        '薪資帳號_tb
+        '
+        Me.薪資帳號_tb.Location = New System.Drawing.Point(662, 6)
+        Me.薪資帳號_tb.Name = "薪資帳號_tb"
+        Me.薪資帳號_tb.Size = New System.Drawing.Size(145, 23)
+        Me.薪資帳號_tb.TabIndex = 1018
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(814, 9)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(32, 16)
+        Me.Label11.TabIndex = 1019
+        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(1487, 691)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.薪資帳號_tb)
         Me.Controls.Add(Me.狀態_lb)
         Me.Controls.Add(Me.流水號_tb)
         Me.Controls.Add(Me.刪除_bt)
@@ -416,4 +436,6 @@ Partial Class 人事資料表
     Friend WithEvents 刪除ToolStripMenuItem As Windows.Forms.ToolStripMenuItem
     Friend WithEvents ToolStripSeparator3 As Windows.Forms.ToolStripSeparator
     Friend WithEvents 狀態_lb As Windows.Forms.Label
+    Friend WithEvents 薪資帳號_tb As TextBox
+    Friend WithEvents Label11 As Label
 End Class

YD-ERP-SYS/人事系統管理/人事資料表.vb

@@ -11,7 +11,7 @@ Public Class 人事資料表
         da.Fill(ds1) : 人事_dgv.DataSource = ds1.Tables(0) : conn.Close()
         人事_dgv.Columns(0).Visible = False : 人事_dgv.Columns(1).FillWeight = 50 : 人事_dgv.Columns(2).FillWeight = 100 : 人事_dgv.Columns(3).FillWeight = 80
         人事_dgv.Columns(4).FillWeight = 50 : 人事_dgv.Columns(5).FillWeight = 110 : 人事_dgv.Columns(6).FillWeight = 200 : 人事_dgv.Columns(7).FillWeight = 100
-        人事_dgv.Columns(8).FillWeight = 100 : 人事_dgv.Columns(9).FillWeight = 50 : 人事_dgv.Columns(10).FillWeight = 300
+        人事_dgv.Columns(8).FillWeight = 100 : 人事_dgv.Columns(9).FillWeight = 50 : 人事_dgv.Columns(10).FillWeight = 60 : 人事_dgv.Columns(11).FillWeight = 240
     End Sub
     Private Sub 職務_cb_下拉表單資料載入()
         SQL_職稱清單_下拉清單() : 職務_cb.Items.Clear() : While (dr.Read()) : 職務_cb.Items.Add(dr("職稱")) : End While : conn.Close()
@@ -47,7 +47,7 @@ Public Class 人事資料表
                 性別_cb.Text = 人事_dgv(4, e.RowIndex).Value.ToString : 身分證_tb.Text = 人事_dgv(5, e.RowIndex).Value.ToString
                 住址_tb.Text = 人事_dgv(6, e.RowIndex).Value.ToString : 電話_tb.Text = 人事_dgv(7, e.RowIndex).Value.ToString
                 手機_tb.Text = 人事_dgv(8, e.RowIndex).Value.ToString : 職務_cb.Text = 人事_dgv(9, e.RowIndex).Value.ToString
-                備註_tb.Text = 人事_dgv(10, e.RowIndex).Value.ToString
+                薪資帳號_tb.Text = 人事_dgv(10, e.RowIndex).Value.ToString : 備註_tb.Text = 人事_dgv(11, e.RowIndex).Value.ToString
             End If
         End If
     End Sub
@@ -56,7 +56,7 @@ Public Class 人事資料表
     End Sub
     Private Sub 新增準備_bt_Click(sender As Object, e As EventArgs) Handles 新增準備_bt.Click
         流水號_tb.Text = "" : 編號_tb.Text = "" : 到職日_dtp.Value = Today() : 姓名_tb.Text = "" : 性別_cb.Text = "" : 身分證_tb.Text = "" '--------------------控件清空
-        住址_tb.Text = "" : 電話_tb.Text = "" : 手機_tb.Text = "" : 職務_cb_下拉表單資料載入() : 備註_tb.Text = ""
+        住址_tb.Text = "" : 電話_tb.Text = "" : 手機_tb.Text = "" : 職務_cb_下拉表單資料載入() : 薪資帳號_tb.Text = "" : 備註_tb.Text = ""
 
         資料新增判斷 = True '--------------------目前的編輯狀態
         狀態_lb.Text = "編輯

YD-ERP-SYS/採購系統管理/供應商資料表.Designer.vb

@@ -95,12 +95,23 @@ Partial Class 供應商資料表
         Me.查詢_tb = New System.Windows.Forms.TextBox()
         Me.清空_bt = New System.Windows.Forms.Button()
         Me.精準查詢_ch = New System.Windows.Forms.CheckBox()
+        Me.Label30 = New System.Windows.Forms.Label()
+        Me.票期_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label31 = New System.Windows.Forms.Label()
+        Me.私人支票_tb = New System.Windows.Forms.TextBox()
+        Me.公司支票_tb = New System.Windows.Forms.TextBox()
+        Me.Label32 = New System.Windows.Forms.Label()
+        Me.稅金倍率_tb = New System.Windows.Forms.TextBox()
+        Me.Label33 = New System.Windows.Forms.Label()
+        Me.廣告費倍率_tb = New System.Windows.Forms.TextBox()
+        Me.Label34 = New System.Windows.Forms.Label()
         CType(Me.供應商_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.結算日_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.KR1_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.KR2_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.KR3_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
+        CType(Me.票期_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '供應商_dgv
@@ -116,7 +127,7 @@ Partial Class 供應商資料表
         Me.供應商_dgv.Name = "供應商_dgv"
         Me.供應商_dgv.RowHeadersWidth = 5
         Me.供應商_dgv.RowTemplate.Height = 24
-        Me.供應商_dgv.Size = New System.Drawing.Size(1506, 554)
+        Me.供應商_dgv.Size = New System.Drawing.Size(1563, 554)
         Me.供應商_dgv.TabIndex = 225
         '
         '地區編碼_cb
@@ -163,7 +174,7 @@ Partial Class 供應商資料表
         Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label3.AutoSize = True
         Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label3.Location = New System.Drawing.Point(1465, 108)
+        Me.Label3.Location = New System.Drawing.Point(1522, 108)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(44, 16)
         Me.Label3.TabIndex = 1014
@@ -172,7 +183,7 @@ Partial Class 供應商資料表
         '資料筆數_tb
         '
         Me.資料筆數_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.資料筆數_tb.Location = New System.Drawing.Point(1398, 105)
+        Me.資料筆數_tb.Location = New System.Drawing.Point(1455, 105)
         Me.資料筆數_tb.Name = "資料筆數_tb"
         Me.資料筆數_tb.Size = New System.Drawing.Size(67, 23)
         Me.資料筆數_tb.TabIndex = 1013
@@ -183,7 +194,7 @@ Partial Class 供應商資料表
         Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label4.AutoSize = True
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label4.Location = New System.Drawing.Point(1376, 108)
+        Me.Label4.Location = New System.Drawing.Point(1433, 108)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(20, 16)
         Me.Label4.TabIndex = 1012
@@ -226,7 +237,7 @@ Partial Class 供應商資料表
         '
         '公司地址_tb
         '
-        Me.公司地址_tb.Location = New System.Drawing.Point(346, 5)
+        Me.公司地址_tb.Location = New System.Drawing.Point(328, 5)
         Me.公司地址_tb.Name = "公司地址_tb"
         Me.公司地址_tb.Size = New System.Drawing.Size(321, 23)
         Me.公司地址_tb.TabIndex = 1028
@@ -236,7 +247,7 @@ Partial Class 供應商資料表
         Me.Label7.AutoSize = True
         Me.Label7.ForeColor = System.Drawing.Color.Red
         Me.Label7.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label7.Location = New System.Drawing.Point(286, 7)
+        Me.Label7.Location = New System.Drawing.Point(268, 7)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(56, 16)
         Me.Label7.TabIndex = 1027
@@ -244,7 +255,7 @@ Partial Class 供應商資料表
         '
         '電話1_tb
         '
-        Me.電話1_tb.Location = New System.Drawing.Point(346, 30)
+        Me.電話1_tb.Location = New System.Drawing.Point(328, 30)
         Me.電話1_tb.Name = "電話1_tb"
         Me.電話1_tb.Size = New System.Drawing.Size(129, 23)
         Me.電話1_tb.TabIndex = 1030
@@ -254,7 +265,7 @@ Partial Class 供應商資料表
         Me.Label8.AutoSize = True
         Me.Label8.ForeColor = System.Drawing.Color.Red
         Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label8.Location = New System.Drawing.Point(286, 33)
+        Me.Label8.Location = New System.Drawing.Point(268, 33)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(63, 16)
         Me.Label8.TabIndex = 1029
@@ -262,7 +273,7 @@ Partial Class 供應商資料表
         '
         '電話2_tb
         '
-        Me.電話2_tb.Location = New System.Drawing.Point(346, 55)
+        Me.電話2_tb.Location = New System.Drawing.Point(328, 55)
         Me.電話2_tb.Name = "電話2_tb"
         Me.電話2_tb.Size = New System.Drawing.Size(129, 23)
         Me.電話2_tb.TabIndex = 1032
@@ -271,7 +282,7 @@ Partial Class 供應商資料表
         '
         Me.Label9.AutoSize = True
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label9.Location = New System.Drawing.Point(286, 58)
+        Me.Label9.Location = New System.Drawing.Point(268, 58)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(63, 16)
         Me.Label9.TabIndex = 1031
@@ -279,7 +290,7 @@ Partial Class 供應商資料表
         '
         '電話3_tb
         '
-        Me.電話3_tb.Location = New System.Drawing.Point(538, 30)
+        Me.電話3_tb.Location = New System.Drawing.Point(520, 30)
         Me.電話3_tb.Name = "電話3_tb"
         Me.電話3_tb.Size = New System.Drawing.Size(129, 23)
         Me.電話3_tb.TabIndex = 1034
@@ -288,7 +299,7 @@ Partial Class 供應商資料表
         '
         Me.Label10.AutoSize = True
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label10.Location = New System.Drawing.Point(477, 33)
+        Me.Label10.Location = New System.Drawing.Point(459, 33)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(63, 16)
         Me.Label10.TabIndex = 1033
@@ -296,7 +307,7 @@ Partial Class 供應商資料表
         '
         '電話4_tb
         '
-        Me.電話4_tb.Location = New System.Drawing.Point(538, 55)
+        Me.電話4_tb.Location = New System.Drawing.Point(520, 55)
         Me.電話4_tb.Name = "電話4_tb"
         Me.電話4_tb.Size = New System.Drawing.Size(129, 23)
         Me.電話4_tb.TabIndex = 1036
@@ -305,7 +316,7 @@ Partial Class 供應商資料表
         '
         Me.Label11.AutoSize = True
         Me.Label11.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label11.Location = New System.Drawing.Point(477, 58)
+        Me.Label11.Location = New System.Drawing.Point(459, 58)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(63, 16)
         Me.Label11.TabIndex = 1035
@@ -315,16 +326,16 @@ Partial Class 供應商資料表
         '
         Me.店面地址_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.店面地址_tb.Location = New System.Drawing.Point(743, 5)
+        Me.店面地址_tb.Location = New System.Drawing.Point(716, 5)
         Me.店面地址_tb.Name = "店面地址_tb"
-        Me.店面地址_tb.Size = New System.Drawing.Size(530, 23)
+        Me.店面地址_tb.Size = New System.Drawing.Size(324, 23)
         Me.店面地址_tb.TabIndex = 1038
         '
         'Label12
         '
         Me.Label12.AutoSize = True
         Me.Label12.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label12.Location = New System.Drawing.Point(682, 8)
+        Me.Label12.Location = New System.Drawing.Point(655, 8)
         Me.Label12.Name = "Label12"
         Me.Label12.Size = New System.Drawing.Size(56, 16)
         Me.Label12.TabIndex = 1037
@@ -332,7 +343,7 @@ Partial Class 供應商資料表
         '
         '店面電話_tb
         '
-        Me.店面電話_tb.Location = New System.Drawing.Point(346, 105)
+        Me.店面電話_tb.Location = New System.Drawing.Point(328, 105)
         Me.店面電話_tb.Name = "店面電話_tb"
         Me.店面電話_tb.Size = New System.Drawing.Size(129, 23)
         Me.店面電話_tb.TabIndex = 1040
@@ -341,7 +352,7 @@ Partial Class 供應商資料表
         '
         Me.Label13.AutoSize = True
         Me.Label13.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label13.Location = New System.Drawing.Point(287, 108)
+        Me.Label13.Location = New System.Drawing.Point(269, 108)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(56, 16)
         Me.Label13.TabIndex = 1039
@@ -369,16 +380,16 @@ Partial Class 供應商資料表
         '
         Me.工廠地址_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.工廠地址_tb.Location = New System.Drawing.Point(743, 30)
+        Me.工廠地址_tb.Location = New System.Drawing.Point(716, 30)
         Me.工廠地址_tb.Name = "工廠地址_tb"
-        Me.工廠地址_tb.Size = New System.Drawing.Size(530, 23)
+        Me.工廠地址_tb.Size = New System.Drawing.Size(324, 23)
         Me.工廠地址_tb.TabIndex = 1044
         '
         'Label15
         '
         Me.Label15.AutoSize = True
         Me.Label15.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label15.Location = New System.Drawing.Point(682, 33)
+        Me.Label15.Location = New System.Drawing.Point(655, 33)
         Me.Label15.Name = "Label15"
         Me.Label15.Size = New System.Drawing.Size(56, 16)
         Me.Label15.TabIndex = 1043
@@ -421,7 +432,7 @@ Partial Class 供應商資料表
         '
         '傳真_tb
         '
-        Me.傳真_tb.Location = New System.Drawing.Point(538, 80)
+        Me.傳真_tb.Location = New System.Drawing.Point(520, 80)
         Me.傳真_tb.Name = "傳真_tb"
         Me.傳真_tb.Size = New System.Drawing.Size(129, 23)
         Me.傳真_tb.TabIndex = 1050
@@ -430,7 +441,7 @@ Partial Class 供應商資料表
         '
         Me.Label18.AutoSize = True
         Me.Label18.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label18.Location = New System.Drawing.Point(477, 83)
+        Me.Label18.Location = New System.Drawing.Point(459, 83)
         Me.Label18.Name = "Label18"
         Me.Label18.Size = New System.Drawing.Size(62, 16)
         Me.Label18.TabIndex = 1049
@@ -438,7 +449,7 @@ Partial Class 供應商資料表
         '
         '手機_tb
         '
-        Me.手機_tb.Location = New System.Drawing.Point(346, 80)
+        Me.手機_tb.Location = New System.Drawing.Point(328, 80)
         Me.手機_tb.Name = "手機_tb"
         Me.手機_tb.Size = New System.Drawing.Size(129, 23)
         Me.手機_tb.TabIndex = 1052
@@ -447,7 +458,7 @@ Partial Class 供應商資料表
         '
         Me.Label19.AutoSize = True
         Me.Label19.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label19.Location = New System.Drawing.Point(286, 82)
+        Me.Label19.Location = New System.Drawing.Point(268, 82)
         Me.Label19.Name = "Label19"
         Me.Label19.Size = New System.Drawing.Size(62, 16)
         Me.Label19.TabIndex = 1051
@@ -455,7 +466,7 @@ Partial Class 供應商資料表
         '
         'POS_tb
         '
-        Me.POS_tb.Location = New System.Drawing.Point(1150, 105)
+        Me.POS_tb.Location = New System.Drawing.Point(1123, 105)
         Me.POS_tb.Name = "POS_tb"
         Me.POS_tb.Size = New System.Drawing.Size(46, 23)
         Me.POS_tb.TabIndex = 1054
@@ -464,7 +475,7 @@ Partial Class 供應商資料表
         '
         Me.Label20.AutoSize = True
         Me.Label20.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label20.Location = New System.Drawing.Point(1117, 108)
+        Me.Label20.Location = New System.Drawing.Point(1090, 108)
         Me.Label20.Name = "Label20"
         Me.Label20.Size = New System.Drawing.Size(32, 16)
         Me.Label20.TabIndex = 1053
@@ -474,16 +485,16 @@ Partial Class 供應商資料表
         '
         Me.備註1_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.備註1_tb.Location = New System.Drawing.Point(743, 55)
+        Me.備註1_tb.Location = New System.Drawing.Point(716, 55)
         Me.備註1_tb.Name = "備註1_tb"
-        Me.備註1_tb.Size = New System.Drawing.Size(530, 23)
+        Me.備註1_tb.Size = New System.Drawing.Size(324, 23)
         Me.備註1_tb.TabIndex = 1056
         '
         'Label21
         '
         Me.Label21.AutoSize = True
         Me.Label21.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label21.Location = New System.Drawing.Point(682, 58)
+        Me.Label21.Location = New System.Drawing.Point(655, 58)
         Me.Label21.Name = "Label21"
         Me.Label21.Size = New System.Drawing.Size(60, 16)
         Me.Label21.TabIndex = 1055
@@ -493,16 +504,16 @@ Partial Class 供應商資料表
         '
         Me.備註2_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.備註2_tb.Location = New System.Drawing.Point(743, 80)
+        Me.備註2_tb.Location = New System.Drawing.Point(716, 80)
         Me.備註2_tb.Name = "備註2_tb"
-        Me.備註2_tb.Size = New System.Drawing.Size(530, 23)
+        Me.備註2_tb.Size = New System.Drawing.Size(324, 23)
         Me.備註2_tb.TabIndex = 1058
         '
         'Label22
         '
         Me.Label22.AutoSize = True
         Me.Label22.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label22.Location = New System.Drawing.Point(682, 83)
+        Me.Label22.Location = New System.Drawing.Point(655, 83)
         Me.Label22.Name = "Label22"
         Me.Label22.Size = New System.Drawing.Size(60, 16)
         Me.Label22.TabIndex = 1057
@@ -511,7 +522,7 @@ Partial Class 供應商資料表
         '登入日期_dtp
         '
         Me.登入日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.登入日期_dtp.Location = New System.Drawing.Point(538, 105)
+        Me.登入日期_dtp.Location = New System.Drawing.Point(520, 105)
         Me.登入日期_dtp.Name = "登入日期_dtp"
         Me.登入日期_dtp.Size = New System.Drawing.Size(129, 23)
         Me.登入日期_dtp.TabIndex = 1060
@@ -519,7 +530,7 @@ Partial Class 供應商資料表
         'Label23
         '
         Me.Label23.AutoSize = True
-        Me.Label23.Location = New System.Drawing.Point(480, 108)
+        Me.Label23.Location = New System.Drawing.Point(462, 108)
         Me.Label23.Name = "Label23"
         Me.Label23.Size = New System.Drawing.Size(56, 16)
         Me.Label23.TabIndex = 1059
@@ -527,7 +538,7 @@ Partial Class 供應商資料表
         '
         '結算日_nud
         '
-        Me.結算日_nud.Location = New System.Drawing.Point(1073, 105)
+        Me.結算日_nud.Location = New System.Drawing.Point(1046, 105)
         Me.結算日_nud.Maximum = New Decimal(New Integer() {31, 0, 0, 0})
         Me.結算日_nud.Name = "結算日_nud"
         Me.結算日_nud.Size = New System.Drawing.Size(40, 23)
@@ -537,7 +548,7 @@ Partial Class 供應商資料表
         'Label24
         '
         Me.Label24.AutoSize = True
-        Me.Label24.Location = New System.Drawing.Point(1023, 108)
+        Me.Label24.Location = New System.Drawing.Point(996, 108)
         Me.Label24.Name = "Label24"
         Me.Label24.Size = New System.Drawing.Size(44, 16)
         Me.Label24.TabIndex = 1062
@@ -546,7 +557,7 @@ Partial Class 供應商資料表
         'Label25
         '
         Me.Label25.AutoSize = True
-        Me.Label25.Location = New System.Drawing.Point(714, 108)
+        Me.Label25.Location = New System.Drawing.Point(687, 108)
         Me.Label25.Name = "Label25"
         Me.Label25.Size = New System.Drawing.Size(30, 16)
         Me.Label25.TabIndex = 1064
@@ -556,7 +567,7 @@ Partial Class 供應商資料表
         '
         Me.KR1_nud.DecimalPlaces = 4
         Me.KR1_nud.Increment = New Decimal(New Integer() {1, 0, 0, 262144})
-        Me.KR1_nud.Location = New System.Drawing.Point(743, 105)
+        Me.KR1_nud.Location = New System.Drawing.Point(716, 105)
         Me.KR1_nud.Maximum = New Decimal(New Integer() {31, 0, 0, 0})
         Me.KR1_nud.Name = "KR1_nud"
         Me.KR1_nud.Size = New System.Drawing.Size(68, 23)
@@ -565,7 +576,7 @@ Partial Class 供應商資料表
         'Label26
         '
         Me.Label26.AutoSize = True
-        Me.Label26.Location = New System.Drawing.Point(817, 108)
+        Me.Label26.Location = New System.Drawing.Point(790, 108)
         Me.Label26.Name = "Label26"
         Me.Label26.Size = New System.Drawing.Size(30, 16)
         Me.Label26.TabIndex = 1066
@@ -575,7 +586,7 @@ Partial Class 供應商資料表
         '
         Me.KR2_nud.DecimalPlaces = 4
         Me.KR2_nud.Increment = New Decimal(New Integer() {1, 0, 0, 262144})
-        Me.KR2_nud.Location = New System.Drawing.Point(846, 105)
+        Me.KR2_nud.Location = New System.Drawing.Point(819, 105)
         Me.KR2_nud.Maximum = New Decimal(New Integer() {31, 0, 0, 0})
         Me.KR2_nud.Name = "KR2_nud"
         Me.KR2_nud.Size = New System.Drawing.Size(68, 23)
@@ -584,7 +595,7 @@ Partial Class 供應商資料表
         'Label27
         '
         Me.Label27.AutoSize = True
-        Me.Label27.Location = New System.Drawing.Point(920, 108)
+        Me.Label27.Location = New System.Drawing.Point(893, 108)
         Me.Label27.Name = "Label27"
         Me.Label27.Size = New System.Drawing.Size(30, 16)
         Me.Label27.TabIndex = 1068
@@ -594,7 +605,7 @@ Partial Class 供應商資料表
         '
         Me.KR3_nud.DecimalPlaces = 4
         Me.KR3_nud.Increment = New Decimal(New Integer() {1, 0, 0, 262144})
-        Me.KR3_nud.Location = New System.Drawing.Point(949, 105)
+        Me.KR3_nud.Location = New System.Drawing.Point(922, 105)
         Me.KR3_nud.Maximum = New Decimal(New Integer() {31, 0, 0, 0})
         Me.KR3_nud.Name = "KR3_nud"
         Me.KR3_nud.Size = New System.Drawing.Size(68, 23)
@@ -607,7 +618,7 @@ Partial Class 供應商資料表
         Me.狀態_lb.Font = New System.Drawing.Font("微軟正黑體", 14.25!)
         Me.狀態_lb.ForeColor = System.Drawing.Color.Red
         Me.狀態_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.狀態_lb.Location = New System.Drawing.Point(1284, 103)
+        Me.狀態_lb.Location = New System.Drawing.Point(1341, 103)
         Me.狀態_lb.Name = "狀態_lb"
         Me.狀態_lb.Size = New System.Drawing.Size(86, 24)
         Me.狀態_lb.TabIndex = 1072
@@ -618,7 +629,7 @@ Partial Class 供應商資料表
         Me.刪除_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.刪除_bt.ForeColor = System.Drawing.Color.Red
         Me.刪除_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.刪除_bt.Location = New System.Drawing.Point(1436, 6)
+        Me.刪除_bt.Location = New System.Drawing.Point(1493, 6)
         Me.刪除_bt.Name = "刪除_bt"
         Me.刪除_bt.Size = New System.Drawing.Size(73, 72)
         Me.刪除_bt.TabIndex = 1071
@@ -630,7 +641,7 @@ Partial Class 供應商資料表
         Me.存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.存檔_bt.ForeColor = System.Drawing.Color.Green
         Me.存檔_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.存檔_bt.Location = New System.Drawing.Point(1360, 6)
+        Me.存檔_bt.Location = New System.Drawing.Point(1417, 6)
         Me.存檔_bt.Name = "存檔_bt"
         Me.存檔_bt.Size = New System.Drawing.Size(73, 72)
         Me.存檔_bt.TabIndex = 1070
@@ -642,7 +653,7 @@ Partial Class 供應商資料表
         Me.新增準備_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.新增準備_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.新增準備_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.新增準備_bt.Location = New System.Drawing.Point(1284, 6)
+        Me.新增準備_bt.Location = New System.Drawing.Point(1341, 6)
         Me.新增準備_bt.Name = "新增準備_bt"
         Me.新增準備_bt.Size = New System.Drawing.Size(73, 72)
         Me.新增準備_bt.TabIndex = 1069
@@ -703,7 +714,7 @@ Partial Class 供應商資料表
         Me.PEC_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.PEC_cb.FormattingEnabled = True
         Me.PEC_cb.Items.AddRange(New Object() {"0", "6"})
-        Me.PEC_cb.Location = New System.Drawing.Point(1233, 104)
+        Me.PEC_cb.Location = New System.Drawing.Point(1206, 104)
         Me.PEC_cb.Name = "PEC_cb"
         Me.PEC_cb.Size = New System.Drawing.Size(40, 24)
         Me.PEC_cb.TabIndex = 1075
@@ -711,7 +722,7 @@ Partial Class 供應商資料表
         'Label28
         '
         Me.Label28.AutoSize = True
-        Me.Label28.Location = New System.Drawing.Point(1201, 108)
+        Me.Label28.Location = New System.Drawing.Point(1174, 108)
         Me.Label28.Name = "Label28"
         Me.Label28.Size = New System.Drawing.Size(30, 16)
         Me.Label28.TabIndex = 1074
@@ -722,7 +733,7 @@ Partial Class 供應商資料表
         Me.Label29.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label29.AutoSize = True
         Me.Label29.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label29.Location = New System.Drawing.Point(1289, 83)
+        Me.Label29.Location = New System.Drawing.Point(1346, 83)
         Me.Label29.Name = "Label29"
         Me.Label29.Size = New System.Drawing.Size(104, 16)
         Me.Label29.TabIndex = 1077
@@ -731,7 +742,7 @@ Partial Class 供應商資料表
         '查詢_tb
         '
         Me.查詢_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.查詢_tb.Location = New System.Drawing.Point(1395, 80)
+        Me.查詢_tb.Location = New System.Drawing.Point(1452, 80)
         Me.查詢_tb.Name = "查詢_tb"
         Me.查詢_tb.Size = New System.Drawing.Size(114, 23)
         Me.查詢_tb.TabIndex = 1076
@@ -760,12 +771,117 @@ Partial Class 供應商資料表
         Me.精準查詢_ch.Text = "精準查詢"
         Me.精準查詢_ch.UseVisualStyleBackColor = True
         '
+        'Label30
+        '
+        Me.Label30.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label30.AutoSize = True
+        Me.Label30.Location = New System.Drawing.Point(1263, 57)
+        Me.Label30.Name = "Label30"
+        Me.Label30.Size = New System.Drawing.Size(32, 16)
+        Me.Label30.TabIndex = 1135
+        Me.Label30.Text = "票期"
+        '
+        '票期_nud
+        '
+        Me.票期_nud.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.票期_nud.Location = New System.Drawing.Point(1295, 54)
+        Me.票期_nud.Maximum = New Decimal(New Integer() {31, 0, 0, 0})
+        Me.票期_nud.Name = "票期_nud"
+        Me.票期_nud.Size = New System.Drawing.Size(40, 23)
+        Me.票期_nud.TabIndex = 1136
+        Me.票期_nud.Value = New Decimal(New Integer() {15, 0, 0, 0})
+        '
+        'Label31
+        '
+        Me.Label31.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label31.AutoSize = True
+        Me.Label31.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label31.Location = New System.Drawing.Point(1046, 8)
+        Me.Label31.Name = "Label31"
+        Me.Label31.Size = New System.Drawing.Size(56, 16)
+        Me.Label31.TabIndex = 1137
+        Me.Label31.Text = "私人支票"
+        '
+        '私人支票_tb
+        '
+        Me.私人支票_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.私人支票_tb.Location = New System.Drawing.Point(1101, 4)
+        Me.私人支票_tb.Name = "私人支票_tb"
+        Me.私人支票_tb.Size = New System.Drawing.Size(234, 23)
+        Me.私人支票_tb.TabIndex = 1138
+        '
+        '公司支票_tb
+        '
+        Me.公司支票_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.公司支票_tb.Location = New System.Drawing.Point(1101, 29)
+        Me.公司支票_tb.Name = "公司支票_tb"
+        Me.公司支票_tb.Size = New System.Drawing.Size(234, 23)
+        Me.公司支票_tb.TabIndex = 1140
+        '
+        'Label32
+        '
+        Me.Label32.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label32.AutoSize = True
+        Me.Label32.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label32.Location = New System.Drawing.Point(1046, 35)
+        Me.Label32.Name = "Label32"
+        Me.Label32.Size = New System.Drawing.Size(56, 16)
+        Me.Label32.TabIndex = 1139
+        Me.Label32.Text = "公司支票"
+        '
+        '稅金倍率_tb
+        '
+        Me.稅金倍率_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.稅金倍率_tb.Location = New System.Drawing.Point(1101, 54)
+        Me.稅金倍率_tb.Name = "稅金倍率_tb"
+        Me.稅金倍率_tb.Size = New System.Drawing.Size(145, 23)
+        Me.稅金倍率_tb.TabIndex = 1141
+        '
+        'Label33
+        '
+        Me.Label33.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label33.AutoSize = True
+        Me.Label33.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label33.Location = New System.Drawing.Point(1046, 57)
+        Me.Label33.Name = "Label33"
+        Me.Label33.Size = New System.Drawing.Size(56, 16)
+        Me.Label33.TabIndex = 1142
+        Me.Label33.Text = "稅金倍率"
+        '
+        '廣告費倍率_tb
+        '
+        Me.廣告費倍率_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.廣告費倍率_tb.Location = New System.Drawing.Point(1101, 79)
+        Me.廣告費倍率_tb.Name = "廣告費倍率_tb"
+        Me.廣告費倍率_tb.Size = New System.Drawing.Size(145, 23)
+        Me.廣告費倍率_tb.TabIndex = 1143
+        '
+        'Label34
+        '
+        Me.Label34.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label34.AutoSize = True
+        Me.Label34.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label34.Location = New System.Drawing.Point(1046, 82)
+        Me.Label34.Name = "Label34"
+        Me.Label34.Size = New System.Drawing.Size(56, 16)
+        Me.Label34.TabIndex = 1144
+        Me.Label34.Text = "廣告倍率"
+        '
         '供應商資料表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1517, 691)
+        Me.ClientSize = New System.Drawing.Size(1574, 691)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.廣告費倍率_tb)
+        Me.Controls.Add(Me.Label34)
+        Me.Controls.Add(Me.稅金倍率_tb)
+        Me.Controls.Add(Me.公司支票_tb)
+        Me.Controls.Add(Me.Label32)
+        Me.Controls.Add(Me.私人支票_tb)
+        Me.Controls.Add(Me.Label31)
+        Me.Controls.Add(Me.票期_nud)
+        Me.Controls.Add(Me.Label30)
         Me.Controls.Add(Me.精準查詢_ch)
         Me.Controls.Add(Me.清空_bt)
         Me.Controls.Add(Me.Label29)
@@ -831,6 +947,7 @@ Partial Class 供應商資料表
         Me.Controls.Add(Me.Label25)
         Me.Controls.Add(Me.Label24)
         Me.Controls.Add(Me.停用_ch)
+        Me.Controls.Add(Me.Label33)
         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 = "供應商資料表"
@@ -841,6 +958,7 @@ Partial Class 供應商資料表
         CType(Me.KR2_nud, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.KR3_nud, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ContextMenuStrip1.ResumeLayout(False)
+        CType(Me.票期_nud, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -917,4 +1035,14 @@ Partial Class 供應商資料表
     Friend WithEvents 查詢_tb As Windows.Forms.TextBox
     Friend WithEvents 清空_bt As Windows.Forms.Button
     Friend WithEvents 精準查詢_ch As Windows.Forms.CheckBox
+    Friend WithEvents Label30 As Label
+    Friend WithEvents 票期_nud As NumericUpDown
+    Friend WithEvents Label31 As Label
+    Friend WithEvents 私人支票_tb As TextBox
+    Friend WithEvents 公司支票_tb As TextBox
+    Friend WithEvents Label32 As Label
+    Friend WithEvents 稅金倍率_tb As TextBox
+    Friend WithEvents Label33 As Label
+    Friend WithEvents 廣告費倍率_tb As TextBox
+    Friend WithEvents Label34 As Label
 End Class

YD-ERP-SYS/採購系統管理/供應商資料表.vb

@@ -8,7 +8,9 @@ Public Class 供應商資料表
         供應商_dgv.AllowUserToAddRows = False
 
         SQL_供應商資料表_清單()
-        da.Fill(ds1) : 供應商_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        da.Fill(ds1)
+        供應商_dgv.DataSource = ds1.Tables(0)
+        conn.Close()
 
         供應商_dgv.Columns("編號").FillWeight = 20 : 供應商_dgv.Columns("簡稱").FillWeight = 35 : 供應商_dgv.Columns("供應商").FillWeight = 50
         供應商_dgv.Columns("公司地址").FillWeight = 100 : 供應商_dgv.Columns("電話1").FillWeight = 35 : 供應商_dgv.Columns("電話2").FillWeight = 35
@@ -18,7 +20,8 @@ Public Class 供應商資料表
         供應商_dgv.Columns("POS").Visible = False : 供應商_dgv.Columns("備註1").Visible = False : 供應商_dgv.Columns("備註2").Visible = False
         供應商_dgv.Columns("登入日期").Visible = False : 供應商_dgv.Columns("結算日").Visible = False : 供應商_dgv.Columns("KR1").Visible = False
         供應商_dgv.Columns("KR2").Visible = False : 供應商_dgv.Columns("KR3").Visible = False : 供應商_dgv.Columns("PEC").Visible = False
-        供應商_dgv.Columns("停用").FillWeight = 20
+        供應商_dgv.Columns("停用").FillWeight = 20 : 供應商_dgv.Columns("票期").Visible = False : 供應商_dgv.Columns("支票_私人").Visible = False
+        供應商_dgv.Columns("支票_公司").Visible = False : 供應商_dgv.Columns("稅金倍率").Visible = False : 供應商_dgv.Columns("廣告費倍率").Visible = False
         資料筆數_tb.Text = 供應商_dgv.Rows.Count
     End Sub
     Private Sub 地區碼_下拉表單資料載入()
@@ -63,7 +66,9 @@ Public Class 供應商資料表
                 登入日期_dtp.Value = 供應商_dgv("登入日期", e.RowIndex).Value : 結算日_nud.Value = 供應商_dgv("結算日", e.RowIndex).Value
                 KR1_nud.Value = 供應商_dgv("KR1", e.RowIndex).Value : KR2_nud.Value = 供應商_dgv("KR2", e.RowIndex).Value
                 KR3_nud.Value = 供應商_dgv("KR3", e.RowIndex).Value : PEC_cb.Text = 供應商_dgv("PEC", e.RowIndex).Value.ToString
-                停用_ch.Checked = 供應商_dgv("停用", e.RowIndex).Value
+                停用_ch.Checked = 供應商_dgv("停用", e.RowIndex).Value : 票期_nud.Value = 供應商_dgv("票期", e.RowIndex).Value
+                私人支票_tb.Text = 供應商_dgv("支票_私人", e.RowIndex).Value.ToString : 公司支票_tb.Text = 供應商_dgv("支票_公司", e.RowIndex).Value.ToString
+                稅金倍率_tb.Text = 供應商_dgv("稅金倍率", e.RowIndex).Value.ToString : 廣告費倍率_tb.Text = 供應商_dgv("廣告費倍率", e.RowIndex).Value.ToString
             End If
         End If
     End Sub
@@ -93,7 +98,7 @@ Public Class 供應商資料表
             工廠地址_tb.Text = "" : 聯繫人1_tb.Text = "" : 聯繫人2_tb.Text = "" : 手機_tb.Text = "" : 傳真_tb.Text = ""
             POS_tb.Text = "" : 備註1_tb.Text = "" : 備註2_tb.Text = "" : 登入日期_dtp.Value = Today() : 結算日_nud.Value = 25
             KR1_nud.Value = 0 : KR2_nud.Value = 0 : KR3_nud.Value = 0 : PEC_cb.Text = "0" : 停用_ch.Checked = False
-            查詢_tb.Text = ""
+            查詢_tb.Text = "" : 票期_nud.Value = 15 : 私人支票_tb.Text = "" : 公司支票_tb.Text = "" : 稅金倍率_tb.Text = "" : 廣告費倍率_tb.Text = ""
             資料新增判斷 = True '--------------------目前的編輯狀態
             狀態_lb.Text = "編輯狀態"
             供應商_dgv.Enabled = False : 查詢_tb.Enabled = False '--------------------關閉DGV與關鍵字查詢控件的點選控制功能
@@ -164,4 +169,5 @@ Public Class 供應商資料表
     Private Sub 刪除ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除ToolStripMenuItem.Click
         刪除_bt.PerformClick()
     End Sub
+
 End Class

YD-ERP-SYS/財務系統管理/匯入EXCEL.Designer.vb

@@ -0,0 +1,291 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class 匯入EXCEL
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.薪資匯入EXCEL_dgv = New System.Windows.Forms.DataGridView()
+        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        Me.選擇_TreeView = New System.Windows.Forms.TreeView()
+        Me.紀錄Sheet年月_LBox = New System.Windows.Forms.ListBox()
+        Me.匯入EXCEL_bt = New System.Windows.Forms.Button()
+        Me.紀錄選擇月份_LBox = New System.Windows.Forms.ListBox()
+        Me.流水號_tb = New System.Windows.Forms.TextBox()
+        Me.人事流水號_tb = New System.Windows.Forms.TextBox()
+        Me.身分證_tb = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.薪資帳號_tb = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.全選_bt = New System.Windows.Forms.Button()
+        Me.取消全選_bt = New System.Windows.Forms.Button()
+        Me.匯入Excel_PBar = New System.Windows.Forms.ProgressBar()
+        Me.匯入進度_Label = New System.Windows.Forms.Label()
+        CType(Me.薪資匯入EXCEL_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '薪資匯入EXCEL_dgv
+        '
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.薪資匯入EXCEL_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.薪資匯入EXCEL_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.薪資匯入EXCEL_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7
+        Me.薪資匯入EXCEL_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.薪資匯入EXCEL_dgv.DefaultCellStyle = DataGridViewCellStyle8
+        Me.薪資匯入EXCEL_dgv.Location = New System.Drawing.Point(130, 12)
+        Me.薪資匯入EXCEL_dgv.Margin = New System.Windows.Forms.Padding(2)
+        Me.薪資匯入EXCEL_dgv.Name = "薪資匯入EXCEL_dgv"
+        Me.薪資匯入EXCEL_dgv.ReadOnly = True
+        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.薪資匯入EXCEL_dgv.RowHeadersDefaultCellStyle = DataGridViewCellStyle9
+        Me.薪資匯入EXCEL_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.薪資匯入EXCEL_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
+        Me.薪資匯入EXCEL_dgv.RowTemplate.Height = 27
+        Me.薪資匯入EXCEL_dgv.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.薪資匯入EXCEL_dgv.Size = New System.Drawing.Size(1229, 656)
+        Me.薪資匯入EXCEL_dgv.TabIndex = 15
+        '
+        'OpenFileDialog1
+        '
+        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
+        '
+        '選擇_TreeView
+        '
+        Me.選擇_TreeView.CheckBoxes = True
+        Me.選擇_TreeView.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.選擇_TreeView.Indent = 22
+        Me.選擇_TreeView.ItemHeight = 18
+        Me.選擇_TreeView.Location = New System.Drawing.Point(12, 12)
+        Me.選擇_TreeView.Name = "選擇_TreeView"
+        Me.選擇_TreeView.Size = New System.Drawing.Size(110, 377)
+        Me.選擇_TreeView.TabIndex = 17
+        '
+        '紀錄Sheet年月_LBox
+        '
+        Me.紀錄Sheet年月_LBox.FormattingEnabled = True
+        Me.紀錄Sheet年月_LBox.ItemHeight = 12
+        Me.紀錄Sheet年月_LBox.Location = New System.Drawing.Point(138, 615)
+        Me.紀錄Sheet年月_LBox.Name = "紀錄Sheet年月_LBox"
+        Me.紀錄Sheet年月_LBox.Size = New System.Drawing.Size(100, 52)
+        Me.紀錄Sheet年月_LBox.TabIndex = 19
+        Me.紀錄Sheet年月_LBox.Visible = False
+        '
+        '匯入EXCEL_bt
+        '
+        Me.匯入EXCEL_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.匯入EXCEL_bt.Location = New System.Drawing.Point(11, 488)
+        Me.匯入EXCEL_bt.Margin = New System.Windows.Forms.Padding(2)
+        Me.匯入EXCEL_bt.Name = "匯入EXCEL_bt"
+        Me.匯入EXCEL_bt.Size = New System.Drawing.Size(110, 180)
+        Me.匯入EXCEL_bt.TabIndex = 14
+        Me.匯入EXCEL_bt.Text = "匯入EXCEL"
+        Me.匯入EXCEL_bt.UseVisualStyleBackColor = True
+        '
+        '紀錄選擇月份_LBox
+        '
+        Me.紀錄選擇月份_LBox.FormattingEnabled = True
+        Me.紀錄選擇月份_LBox.ItemHeight = 12
+        Me.紀錄選擇月份_LBox.Location = New System.Drawing.Point(244, 615)
+        Me.紀錄選擇月份_LBox.Name = "紀錄選擇月份_LBox"
+        Me.紀錄選擇月份_LBox.Size = New System.Drawing.Size(100, 52)
+        Me.紀錄選擇月份_LBox.TabIndex = 21
+        Me.紀錄選擇月份_LBox.Visible = False
+        '
+        '流水號_tb
+        '
+        Me.流水號_tb.Location = New System.Drawing.Point(138, 586)
+        Me.流水號_tb.Name = "流水號_tb"
+        Me.流水號_tb.Size = New System.Drawing.Size(100, 22)
+        Me.流水號_tb.TabIndex = 1045
+        Me.流水號_tb.Visible = False
+        '
+        '人事流水號_tb
+        '
+        Me.人事流水號_tb.Location = New System.Drawing.Point(423, 583)
+        Me.人事流水號_tb.Name = "人事流水號_tb"
+        Me.人事流水號_tb.ReadOnly = True
+        Me.人事流水號_tb.Size = New System.Drawing.Size(100, 22)
+        Me.人事流水號_tb.TabIndex = 1422
+        Me.人事流水號_tb.Visible = False
+        '
+        '身分證_tb
+        '
+        Me.身分證_tb.Location = New System.Drawing.Point(423, 639)
+        Me.身分證_tb.Name = "身分證_tb"
+        Me.身分證_tb.ReadOnly = True
+        Me.身分證_tb.Size = New System.Drawing.Size(100, 22)
+        Me.身分證_tb.TabIndex = 1424
+        Me.身分證_tb.Visible = False
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(364, 643)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(53, 12)
+        Me.Label5.TabIndex = 1423
+        Me.Label5.Text = "身分證號"
+        Me.Label5.Visible = False
+        '
+        '薪資帳號_tb
+        '
+        Me.薪資帳號_tb.Location = New System.Drawing.Point(423, 611)
+        Me.薪資帳號_tb.Name = "薪資帳號_tb"
+        Me.薪資帳號_tb.ReadOnly = True
+        Me.薪資帳號_tb.Size = New System.Drawing.Size(100, 22)
+        Me.薪資帳號_tb.TabIndex = 1426
+        Me.薪資帳號_tb.Visible = False
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(392, 615)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(29, 12)
+        Me.Label6.TabIndex = 1425
+        Me.Label6.Text = "帳號"
+        Me.Label6.Visible = False
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(356, 589)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(65, 12)
+        Me.Label11.TabIndex = 1427
+        Me.Label11.Text = "人事流水號"
+        Me.Label11.Visible = False
+        '
+        '全選_bt
+        '
+        Me.全選_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.全選_bt.Location = New System.Drawing.Point(11, 394)
+        Me.全選_bt.Margin = New System.Windows.Forms.Padding(2)
+        Me.全選_bt.Name = "全選_bt"
+        Me.全選_bt.Size = New System.Drawing.Size(110, 43)
+        Me.全選_bt.TabIndex = 1428
+        Me.全選_bt.Text = "全選"
+        Me.全選_bt.UseVisualStyleBackColor = True
+        '
+        '取消全選_bt
+        '
+        Me.取消全選_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.取消全選_bt.Location = New System.Drawing.Point(11, 441)
+        Me.取消全選_bt.Margin = New System.Windows.Forms.Padding(2)
+        Me.取消全選_bt.Name = "取消全選_bt"
+        Me.取消全選_bt.Size = New System.Drawing.Size(110, 43)
+        Me.取消全選_bt.TabIndex = 1429
+        Me.取消全選_bt.Text = "取消全選"
+        Me.取消全選_bt.UseVisualStyleBackColor = True
+        '
+        '匯入Excel_PBar
+        '
+        Me.匯入Excel_PBar.Location = New System.Drawing.Point(130, 673)
+        Me.匯入Excel_PBar.Name = "匯入Excel_PBar"
+        Me.匯入Excel_PBar.Size = New System.Drawing.Size(1229, 23)
+        Me.匯入Excel_PBar.Step = 1
+        Me.匯入Excel_PBar.TabIndex = 1430
+        '
+        '匯入進度_Label
+        '
+        Me.匯入進度_Label.AutoSize = True
+        Me.匯入進度_Label.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.匯入進度_Label.ForeColor = System.Drawing.SystemColors.HotTrack
+        Me.匯入進度_Label.Location = New System.Drawing.Point(12, 676)
+        Me.匯入進度_Label.Name = "匯入進度_Label"
+        Me.匯入進度_Label.Size = New System.Drawing.Size(108, 17)
+        Me.匯入進度_Label.TabIndex = 1431
+        Me.匯入進度_Label.Text = "EXCEL 匯入進度 :"
+        '
+        '匯入EXCEL
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1377, 704)
+        Me.Controls.Add(Me.匯入進度_Label)
+        Me.Controls.Add(Me.匯入Excel_PBar)
+        Me.Controls.Add(Me.紀錄選擇月份_LBox)
+        Me.Controls.Add(Me.紀錄Sheet年月_LBox)
+        Me.Controls.Add(Me.取消全選_bt)
+        Me.Controls.Add(Me.全選_bt)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.薪資帳號_tb)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.身分證_tb)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.人事流水號_tb)
+        Me.Controls.Add(Me.流水號_tb)
+        Me.Controls.Add(Me.選擇_TreeView)
+        Me.Controls.Add(Me.匯入EXCEL_bt)
+        Me.Controls.Add(Me.薪資匯入EXCEL_dgv)
+        Me.Name = "匯入EXCEL"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "匯入EXCEL"
+        CType(Me.薪資匯入EXCEL_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents 薪資匯入EXCEL_dgv As DataGridView
+    Friend WithEvents OpenFileDialog1 As OpenFileDialog
+    Friend WithEvents 選擇_TreeView As TreeView
+    Friend WithEvents 紀錄Sheet年月_LBox As ListBox
+    Friend WithEvents 匯入EXCEL_bt As Button
+    Friend WithEvents 紀錄選擇月份_LBox As ListBox
+    Friend WithEvents 流水號_tb As TextBox
+    Friend WithEvents 人事流水號_tb As TextBox
+    Friend WithEvents 身分證_tb As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 薪資帳號_tb As TextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 全選_bt As Button
+    Friend WithEvents 取消全選_bt As Button
+    Friend WithEvents 匯入Excel_PBar As ProgressBar
+    Friend WithEvents 匯入進度_Label As Label
+End Class

YD-ERP-SYS/財務系統管理/匯入EXCEL.resx

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

YD-ERP-SYS/財務系統管理/匯入EXCEL.vb

@@ -0,0 +1,299 @@
+
+Imports Excel = Microsoft.Office.Interop.Excel
+Public Class 匯入EXCEL
+    Dim app As Excel.Application
+    Dim book As Excel.Workbook
+    Dim sheet As Excel.Worksheet
+    Dim range As Excel.Range
+    Dim dtable As DataTable = New DataTable()
+    Dim OpenFileDialog As New OpenFileDialog
+    Dim ii As Integer = 1 : Dim 全選_index As Integer = 1 : Dim 取消全選_index As Integer = 1
+    Dim 首次開啟 As Boolean = False
+    Dim EDR As Integer = 0 : Dim ESTR As String : Dim EDR1 As Integer = 0
+
+    Private Sub 確認選擇月份()
+        紀錄Sheet年月_LBox.Items.Clear() : 紀錄選擇月份_LBox.Items.Clear()
+        For Each E_node As TreeNode In 選擇_TreeView.Nodes
+            If E_node.Checked = True Then
+                紀錄Sheet年月_LBox.Items.Add(E_node.Text)
+                紀錄選擇月份_LBox.Items.Add(ii)
+            End If
+            If E_node.Nodes.Count > 0 Then
+                SelCheckNode(E_node)
+            End If
+            ii = ii + 1
+        Next
+        ii = 1
+    End Sub
+    Private Sub SelCheckNode(ByVal Val_node As TreeNode)
+        For Each E_node As TreeNode In Val_node.Nodes
+            If E_node.Checked = True Then
+                紀錄Sheet年月_LBox.Items.Add(E_node.Text)
+                紀錄選擇月份_LBox.Items.Add(ii)
+            End If
+            If E_node.Nodes.Count > 0 Then
+                SelCheckNode(E_node)
+            End If
+            ii = ii + 1
+        Next
+    End Sub
+    Private Sub 匯入EXCEL_人事資料讀取(ByVal NoColumns As Integer)
+        ConnOpen() : SQL1 = "SELECT 流水號, 身分證, 舊編, 薪資帳號 FROM 人事資料表 WHERE (姓名 = N'" & Me.薪資匯入EXCEL_dgv(7, NoColumns).Value.ToString & "')"
+        CmdSet_For_dr()
+        dr.Read()
+        If Me.薪資匯入EXCEL_dgv(7, NoColumns).Value.ToString <> Nothing And dr.HasRows = False Then
+            人事流水號_tb.Text = ""
+            MessageBox.Show(Me.薪資匯入EXCEL_dgv(7, NoColumns).Value.ToString & " ,此人員不在人事資料中 !!!" + vbCrLf + "請追加人事資料", "重要訊息", MessageBoxButtons.OK, MessageBoxIcon.Warning)
+        ElseIf dr.HasRows = True Then
+            人事流水號_tb.Text = dr("流水號").ToString()
+        Else
+            人事流水號_tb.Text = ""
+        End If
+        If dr.HasRows = False Then
+            身分證_tb.Text = ""
+        Else
+            身分證_tb.Text = dr("身分證").ToString()
+        End If
+        If dr.HasRows = False Then
+            薪資帳號_tb.Text = ""
+        Else
+            薪資帳號_tb.Text = dr("薪資帳號").ToString()
+        End If
+        conn.Close()
+    End Sub
+    Private Sub 匯入_SQL_薪資轉帳表()
+        Dim 薪資轉帳資料存在判斷 As Boolean
+        匯入Excel_PBar.Maximum = 薪資匯入EXCEL_dgv.Rows.Count - 1
+        For k As Integer = 0 To 薪資匯入EXCEL_dgv.Rows.Count - 1 '--------------------自動取得DGV 欄位數
+            匯入EXCEL_人事資料讀取(k) ''--------------------由人事資料表讀出 (人事流水號, 身分證, 舊編, 薪資帳號)
+            薪資轉帳資料存在判斷 = 薪資轉帳表_資料重複判斷(k)
+            If 薪資轉帳資料存在判斷 = True Then
+                SQL_薪資轉帳表_流水號_最後一筆資料() '--------------------自動取得新流水號
+                If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 9)) : Else : EDR = 0 : End If
+                conn.Close() : EDR += 1
+                If EDR < 10 Then : ESTR = "M" & "00000000" & EDR
+                ElseIf EDR > 9 And EDR < 100 Then : ESTR = "M" & "0000000" & EDR
+                ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "M" & "000000" & EDR
+                ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "M" & "00000" & EDR
+                ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "M" & "0000" & EDR
+                ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "M" & "000" & EDR
+                ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "M" & "00" & EDR
+                ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "M" & "0" & EDR
+                ElseIf EDR > 99999999 Then : ESTR = "M" & EDR
+                End If : 流水號_tb.Text = ESTR
+                SQL_薪資轉帳表_匯入EXCEL_新增(k) '--------------------薪資轉帳表中寫入一筆資料
+            Else
+                MessageBox.Show(薪資匯入EXCEL_dgv(7, k).Value.ToString & ",此人員" & 薪資匯入EXCEL_dgv(8, k).Value.ToString & "薪資資料已存在", "匯入訊息", MessageBoxButtons.OK, MessageBoxIcon.Information)
+            End If
+            If 匯入Excel_PBar.Value < 匯入Excel_PBar.Maximum Then : 匯入Excel_PBar.Value += 匯入Excel_PBar.Step : End If
+        Next
+    End Sub
+    Private Function 薪資轉帳表_資料重複判斷(ByVal NoColumns As Integer) As Boolean
+        Dim Val_return As Boolean
+        ConnOpen()
+        SQL1 = "SELECT      薪資轉帳表.流水號, 人事資料表.姓名, 薪資轉帳表.結算日期, 薪資轉帳表.人事資料流水號
+                FROM        薪資轉帳表  LEFT OUTER JOIN
+                            人事資料表 ON 薪資轉帳表.人事資料流水號 = 人事資料表.流水號
+                WHERE      (薪資轉帳表.結算日期 NOT LIKE '')  
+                           AND (薪資轉帳表.結算日期 LIKE '" & 薪資匯入EXCEL_dgv(8, NoColumns).Value.ToString & "%" & "')
+                           AND (薪資轉帳表.人事資料流水號 LIKE '" & 人事流水號_tb.Text & "')
+               ORDER BY    薪資轉帳表.流水號"
+        'AND (薪資轉帳表.結算日期 LIKE '" & Format(匯入EXCEL_dgv(8, NoColumns + 1).Value.ToString, "yyyy/MM/dd") & "%" & "')
+        CmdSet_For_dr()
+        dr.Read()
+        If dr.HasRows = False Then
+            Val_return = True
+        ElseIf dr.HasRows = True Then
+            Val_return = False
+        End If
+        conn.Close()
+        Return Val_return
+    End Function
+
+    Private Sub 匯入EXCEL_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        匯入EXCEL_bt.Enabled = True
+        薪資匯入EXCEL_dgv.DataSource = Nothing
+        薪資匯入EXCEL_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        薪資匯入EXCEL_dgv.ColumnHeadersHeight = 40
+        薪資匯入EXCEL_dgv.AllowUserToAddRows = False
+        匯入Excel_PBar.Maximum = 100 : 匯入Excel_PBar.Minimum = 0 : 匯入Excel_PBar.Value = 0
+
+        OpenFileDialog1.FileName = ""
+        OpenFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
+
+        If (OpenFileDialog1.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
+            Dim FileName As String = OpenFileDialog1.FileName
+
+            '在程式開始執行路徑取得 .xlsx
+            app = New Excel.Application()
+            app.DisplayAlerts = True
+            app.Visible = False
+            book = app.Workbooks.Open(FileName)
+            sheet = book.Sheets(2)
+            range = sheet.Cells(20, 10)
+            sheet.Activate()
+
+            Dim sh() As String
+            Dim i As Integer
+            i = -1
+            Dim Val_sheet As Excel.Worksheet
+            選擇_TreeView.Nodes.Clear()
+            For Each Val_sheet In book.Worksheets
+                '在這您還可以加入您的需要,例如s1.name的名子有那些字再計算,本例是計算所有的
+                i = i + 1
+                ReDim Preserve sh(i)
+                sh(i) = Val_sheet.Name
+                選擇_TreeView.Nodes.Add(sh(i))
+            Next
+            NAR(sheet) '關閉 Excel 工作表  
+            book.Close(False)
+            NAR(book) '關閉 Excel 工作簿  
+            app.Quit() '關閉 Excel 
+            NAR(app) ''關閉 Excel 應用程式 
+        End If
+    End Sub
+    Private Sub 匯入EXCEL_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        薪資匯入EXCEL_dgv.DataSource = Nothing : dtable.Clear()
+    End Sub
+    Private Sub NAR(ByVal o As Object)
+        Try
+            System.Runtime.InteropServices.Marshal.ReleaseComObject(o)
+        Catch
+        Finally
+            o = Nothing
+        End Try
+    End Sub
+    Private Sub 匯入EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 匯入EXCEL_bt.Click
+        確認選擇月份()
+        dtable.Clear()
+        薪資匯入EXCEL_dgv.Columns.Clear()
+        If 首次開啟 = False Then
+            dtable.Clear()
+            薪資匯入EXCEL_dgv.Columns.Clear()
+            dtable.Columns.Add("編號", System.Type.GetType("System.Int32"))
+            dtable.Columns.Add("帳號", System.Type.GetType("System.String"))
+            dtable.Columns.Add("身份證字號", System.Type.GetType("System.String"))
+            dtable.Columns.Add("獎金", System.Type.GetType("System.Int32"))
+            dtable.Columns.Add("薪資", System.Type.GetType("System.Int32"))
+            dtable.Columns.Add("領現", System.Type.GetType("System.Int32"))
+            dtable.Columns.Add("合計", System.Type.GetType("System.Int32"))
+            dtable.Columns.Add("姓名", System.Type.GetType("System.String"))
+            dtable.Columns.Add("結算日期", System.Type.GetType("System.String"))
+            dtable.Columns.Add("給付方式", System.Type.GetType("System.String"))
+        End If
+        '   在程式開始執行路徑取得 .xlsx
+        Dim FileName As String = OpenFileDialog1.FileName
+        app = New Excel.Application()
+        app = CreateObject("Excel.Application")
+        app.DisplayAlerts = False
+        app.Visible = True
+        book = app.Workbooks.Open(FileName)
+
+        Dim dtrow As DataRow
+        Dim j As Integer = 0
+        For Each Items As Integer In 紀錄選擇月份_LBox.Items
+            sheet = book.Sheets(Items)
+            sheet.Activate()
+            Dim rowNo As Int32 = 4
+            Do
+                If sheet.Cells(rowNo, 1).Value = Nothing Then
+                    Do
+                        If sheet.Cells(rowNo + 1, 7).Value = Nothing Then
+                            Exit Do
+                        Else
+                            dtrow = dtable.NewRow()
+                            dtrow("姓名") = sheet.Cells(rowNo + 1, 7).Value.ToString
+                            If sheet.Cells(rowNo + 1, 6).Value <> Nothing Then
+                                dtrow("領現") = sheet.Cells(rowNo + 1, 6).Value
+                            Else
+                                dtrow("領現") = 0
+                            End If
+                            Dim str_a As String = (191100 + 紀錄Sheet年月_LBox.Items(j)).ToString
+                            dtrow("結算日期") = str_a.Substring(0, 4) & "/" & str_a.Substring(4, 2) & "/25"
+                            dtrow("給付方式") = "領現"
+                            dtable.Rows.Add(dtrow)
+                            rowNo = rowNo + 1
+                        End If
+                    Loop
+                    Exit Do
+                Else
+                    dtrow = dtable.NewRow()
+                    dtrow("編號") = sheet.Cells(rowNo, 1).Value
+                    dtrow("帳號") = sheet.Cells(rowNo, 2).Value.ToString
+                    dtrow("身份證字號") = sheet.Cells(rowNo, 3).Value.ToString
+                    dtrow("姓名") = sheet.Cells(rowNo, 7).Value.ToString
+                    If sheet.Cells(rowNo, 4).Value <> Nothing Then
+                        dtrow("獎金") = sheet.Cells(rowNo, 4).Value
+                    Else
+                        dtrow("獎金") = 0
+                    End If
+                    If sheet.Cells(rowNo, 5).Value <> Nothing Then
+                        dtrow("薪資") = sheet.Cells(rowNo, 5).Value
+                    Else
+                        dtrow("薪資") = 0
+                    End If
+                    If sheet.Cells(rowNo, 6).Value <> Nothing Then
+                        dtrow("合計") = sheet.Cells(rowNo, 6).Value
+                    Else
+                        dtrow("合計") = 0
+                    End If
+
+                    Dim str_a As String = (191100 + 紀錄Sheet年月_LBox.Items(j)).ToString
+                    dtrow("結算日期") = str_a.Substring(0, 4) & "/" & str_a.Substring(4, 2) & "/25"
+                    dtrow("給付方式") = "帳號匯款"
+                    dtable.Rows.Add(dtrow)
+                    rowNo = rowNo + 1
+                End If
+            Loop
+            j = j + 1
+            dtable.AcceptChanges()
+        Next
+        首次開啟 = True
+        薪資匯入EXCEL_dgv.DataSource = dtable
+        匯入_SQL_薪資轉帳表()
+        NAR(sheet) '關閉 Excel 工作表  
+        book.Close(False)
+        NAR(book) '關閉 Excel 工作簿  
+        app.Quit() '關閉 Excel 
+        NAR(app) ''關閉 Excel 應用程式 
+        MessageBox.Show("匯入完成 !!!", "匯入訊息", MessageBoxButtons.OK, MessageBoxIcon.Information)
+        匯入EXCEL_bt.Enabled = False
+        Me.Close()
+    End Sub
+    Private Sub 全選_bt_Click(sender As Object, e As EventArgs) Handles 全選_bt.Click
+        For Each E_node As TreeNode In 選擇_TreeView.Nodes
+            E_node.Checked = True
+            If E_node.Nodes.Count > 0 Then
+                SelAllCheck(E_node)
+            End If
+            全選_index = 全選_index + 1
+        Next
+    End Sub
+    Private Sub SelAllCheck(ByVal Val_node As TreeNode)
+        For Each E_node As TreeNode In Val_node.Nodes
+            E_node.Checked = True
+            If E_node.Nodes.Count > 0 Then
+                SelAllCheck(E_node)
+            End If
+            全選_index = 全選_index + 1
+        Next
+    End Sub
+    Private Sub 取消全選_bt_Click(sender As Object, e As EventArgs) Handles 取消全選_bt.Click
+        For Each E_node As TreeNode In 選擇_TreeView.Nodes
+            E_node.Checked = False
+            If E_node.Nodes.Count > 0 Then
+                CalAllCheck(E_node)
+            End If
+            取消全選_index = 取消全選_index + 1
+        Next
+    End Sub
+    Private Sub CalAllCheck(ByVal Val_node As TreeNode)
+        For Each E_node As TreeNode In Val_node.Nodes
+            E_node.Checked = False
+            If E_node.Nodes.Count > 0 Then
+                CalAllCheck(E_node)
+            End If
+            取消全選_index = 取消全選_index + 1
+        Next
+    End Sub
+End Class

YD-ERP-SYS/財務系統管理/匯出EXCEL.Designer.vb

@@ -0,0 +1,389 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class 匯出EXCEL
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        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()
+        Me.匯出EXCEL_bt = New System.Windows.Forms.Button()
+        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
+        Me.月份選擇_gb = New System.Windows.Forms.GroupBox()
+        Me.起始加一個月_bt = New System.Windows.Forms.Button()
+        Me.起始減一個月_bt = New System.Windows.Forms.Button()
+        Me.月選_起始_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.月選_起始_tb = New System.Windows.Forms.TextBox()
+        Me.月選_起始年_cb = New System.Windows.Forms.ComboBox()
+        Me.月選_起始月_cb = New System.Windows.Forms.ComboBox()
+        Me.Label59 = New System.Windows.Forms.Label()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.結束加一個月_bt = New System.Windows.Forms.Button()
+        Me.月選_結束年_cb = New System.Windows.Forms.ComboBox()
+        Me.月選_結束_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.結束減一個月_bt = New System.Windows.Forms.Button()
+        Me.月選_結束_tb = New System.Windows.Forms.TextBox()
+        Me.月選_結束月_cb = New System.Windows.Forms.ComboBox()
+        Me.Label60 = New System.Windows.Forms.Label()
+        Me.計算月數_tb = New System.Windows.Forms.TextBox()
+        Me.顯示選擇月份_lb = New System.Windows.Forms.ListBox()
+        Me.薪資匯出_dgv = New System.Windows.Forms.DataGridView()
+        Me.民國年月_tb = New System.Windows.Forms.TextBox()
+        Me.薪轉Ex存檔名_tb = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.月份選擇_gb.SuspendLayout()
+        Me.GroupBox1.SuspendLayout()
+        CType(Me.薪資匯出_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '匯出EXCEL_bt
+        '
+        Me.匯出EXCEL_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.匯出EXCEL_bt.Location = New System.Drawing.Point(11, 542)
+        Me.匯出EXCEL_bt.Margin = New System.Windows.Forms.Padding(2)
+        Me.匯出EXCEL_bt.Name = "匯出EXCEL_bt"
+        Me.匯出EXCEL_bt.Size = New System.Drawing.Size(178, 80)
+        Me.匯出EXCEL_bt.TabIndex = 15
+        Me.匯出EXCEL_bt.Text = "匯出" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "EXCEL"
+        Me.匯出EXCEL_bt.UseVisualStyleBackColor = True
+        '
+        '月份選擇_gb
+        '
+        Me.月份選擇_gb.Controls.Add(Me.起始加一個月_bt)
+        Me.月份選擇_gb.Controls.Add(Me.起始減一個月_bt)
+        Me.月份選擇_gb.Controls.Add(Me.月選_起始_dtp)
+        Me.月份選擇_gb.Controls.Add(Me.月選_起始_tb)
+        Me.月份選擇_gb.Controls.Add(Me.月選_起始年_cb)
+        Me.月份選擇_gb.Controls.Add(Me.月選_起始月_cb)
+        Me.月份選擇_gb.Controls.Add(Me.Label59)
+        Me.月份選擇_gb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.月份選擇_gb.Location = New System.Drawing.Point(12, 13)
+        Me.月份選擇_gb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.月份選擇_gb.Name = "月份選擇_gb"
+        Me.月份選擇_gb.Padding = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.月份選擇_gb.Size = New System.Drawing.Size(179, 126)
+        Me.月份選擇_gb.TabIndex = 437
+        Me.月份選擇_gb.TabStop = False
+        Me.月份選擇_gb.Text = "起始月份"
+        '
+        '起始加一個月_bt
+        '
+        Me.起始加一個月_bt.Location = New System.Drawing.Point(91, 91)
+        Me.起始加一個月_bt.Name = "起始加一個月_bt"
+        Me.起始加一個月_bt.Size = New System.Drawing.Size(70, 25)
+        Me.起始加一個月_bt.TabIndex = 1188
+        Me.起始加一個月_bt.Text = "加一個月"
+        Me.起始加一個月_bt.UseVisualStyleBackColor = True
+        '
+        '起始減一個月_bt
+        '
+        Me.起始減一個月_bt.Location = New System.Drawing.Point(14, 91)
+        Me.起始減一個月_bt.Name = "起始減一個月_bt"
+        Me.起始減一個月_bt.Size = New System.Drawing.Size(70, 25)
+        Me.起始減一個月_bt.TabIndex = 1187
+        Me.起始減一個月_bt.Text = "減一個月"
+        Me.起始減一個月_bt.UseVisualStyleBackColor = True
+        '
+        '月選_起始_dtp
+        '
+        Me.月選_起始_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.月選_起始_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.月選_起始_dtp.Location = New System.Drawing.Point(13, 123)
+        Me.月選_起始_dtp.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.月選_起始_dtp.Name = "月選_起始_dtp"
+        Me.月選_起始_dtp.Size = New System.Drawing.Size(147, 25)
+        Me.月選_起始_dtp.TabIndex = 1171
+        Me.月選_起始_dtp.Visible = False
+        '
+        '月選_起始_tb
+        '
+        Me.月選_起始_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.月選_起始_tb.Location = New System.Drawing.Point(14, 26)
+        Me.月選_起始_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.月選_起始_tb.Name = "月選_起始_tb"
+        Me.月選_起始_tb.ReadOnly = True
+        Me.月選_起始_tb.Size = New System.Drawing.Size(146, 25)
+        Me.月選_起始_tb.TabIndex = 434
+        '
+        '月選_起始年_cb
+        '
+        Me.月選_起始年_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.月選_起始年_cb.FormattingEnabled = True
+        Me.月選_起始年_cb.Items.AddRange(New Object() {"2018", "2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
+        Me.月選_起始年_cb.Location = New System.Drawing.Point(14, 59)
+        Me.月選_起始年_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.月選_起始年_cb.Name = "月選_起始年_cb"
+        Me.月選_起始年_cb.Size = New System.Drawing.Size(80, 25)
+        Me.月選_起始年_cb.TabIndex = 429
+        '
+        '月選_起始月_cb
+        '
+        Me.月選_起始月_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.月選_起始月_cb.FormattingEnabled = True
+        Me.月選_起始月_cb.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"})
+        Me.月選_起始月_cb.Location = New System.Drawing.Point(111, 59)
+        Me.月選_起始月_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.月選_起始月_cb.Name = "月選_起始月_cb"
+        Me.月選_起始月_cb.Size = New System.Drawing.Size(50, 25)
+        Me.月選_起始月_cb.TabIndex = 428
+        '
+        'Label59
+        '
+        Me.Label59.AutoSize = True
+        Me.Label59.Location = New System.Drawing.Point(97, 63)
+        Me.Label59.Name = "Label59"
+        Me.Label59.Size = New System.Drawing.Size(13, 17)
+        Me.Label59.TabIndex = 430
+        Me.Label59.Text = "/"
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.結束加一個月_bt)
+        Me.GroupBox1.Controls.Add(Me.月選_結束年_cb)
+        Me.GroupBox1.Controls.Add(Me.月選_結束_dtp)
+        Me.GroupBox1.Controls.Add(Me.結束減一個月_bt)
+        Me.GroupBox1.Controls.Add(Me.月選_結束_tb)
+        Me.GroupBox1.Controls.Add(Me.月選_結束月_cb)
+        Me.GroupBox1.Controls.Add(Me.Label60)
+        Me.GroupBox1.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.GroupBox1.Location = New System.Drawing.Point(12, 146)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(179, 126)
+        Me.GroupBox1.TabIndex = 438
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "結束月份"
+        '
+        '結束加一個月_bt
+        '
+        Me.結束加一個月_bt.Location = New System.Drawing.Point(91, 91)
+        Me.結束加一個月_bt.Name = "結束加一個月_bt"
+        Me.結束加一個月_bt.Size = New System.Drawing.Size(70, 25)
+        Me.結束加一個月_bt.TabIndex = 1186
+        Me.結束加一個月_bt.Text = "加一個月"
+        Me.結束加一個月_bt.UseVisualStyleBackColor = True
+        '
+        '月選_結束年_cb
+        '
+        Me.月選_結束年_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.月選_結束年_cb.FormattingEnabled = True
+        Me.月選_結束年_cb.Items.AddRange(New Object() {"2018", "2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
+        Me.月選_結束年_cb.Location = New System.Drawing.Point(14, 58)
+        Me.月選_結束年_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.月選_結束年_cb.Name = "月選_結束年_cb"
+        Me.月選_結束年_cb.Size = New System.Drawing.Size(80, 25)
+        Me.月選_結束年_cb.TabIndex = 1183
+        '
+        '月選_結束_dtp
+        '
+        Me.月選_結束_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.月選_結束_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.月選_結束_dtp.Location = New System.Drawing.Point(14, 123)
+        Me.月選_結束_dtp.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.月選_結束_dtp.Name = "月選_結束_dtp"
+        Me.月選_結束_dtp.Size = New System.Drawing.Size(146, 25)
+        Me.月選_結束_dtp.TabIndex = 1182
+        Me.月選_結束_dtp.Visible = False
+        '
+        '結束減一個月_bt
+        '
+        Me.結束減一個月_bt.Location = New System.Drawing.Point(14, 91)
+        Me.結束減一個月_bt.Name = "結束減一個月_bt"
+        Me.結束減一個月_bt.Size = New System.Drawing.Size(70, 25)
+        Me.結束減一個月_bt.TabIndex = 1185
+        Me.結束減一個月_bt.Text = "減一個月"
+        Me.結束減一個月_bt.UseVisualStyleBackColor = True
+        '
+        '月選_結束_tb
+        '
+        Me.月選_結束_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.月選_結束_tb.Location = New System.Drawing.Point(14, 25)
+        Me.月選_結束_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.月選_結束_tb.Name = "月選_結束_tb"
+        Me.月選_結束_tb.ReadOnly = True
+        Me.月選_結束_tb.Size = New System.Drawing.Size(146, 25)
+        Me.月選_結束_tb.TabIndex = 1181
+        '
+        '月選_結束月_cb
+        '
+        Me.月選_結束月_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.月選_結束月_cb.FormattingEnabled = True
+        Me.月選_結束月_cb.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"})
+        Me.月選_結束月_cb.Location = New System.Drawing.Point(111, 58)
+        Me.月選_結束月_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.月選_結束月_cb.Name = "月選_結束月_cb"
+        Me.月選_結束月_cb.Size = New System.Drawing.Size(50, 25)
+        Me.月選_結束月_cb.TabIndex = 1179
+        '
+        'Label60
+        '
+        Me.Label60.AutoSize = True
+        Me.Label60.Location = New System.Drawing.Point(98, 61)
+        Me.Label60.Name = "Label60"
+        Me.Label60.Size = New System.Drawing.Size(13, 17)
+        Me.Label60.TabIndex = 1184
+        Me.Label60.Text = "/"
+        '
+        '計算月數_tb
+        '
+        Me.計算月數_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.計算月數_tb.Location = New System.Drawing.Point(232, 469)
+        Me.計算月數_tb.Name = "計算月數_tb"
+        Me.計算月數_tb.Size = New System.Drawing.Size(100, 25)
+        Me.計算月數_tb.TabIndex = 1174
+        Me.計算月數_tb.Visible = False
+        '
+        '顯示選擇月份_lb
+        '
+        Me.顯示選擇月份_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.顯示選擇月份_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.顯示選擇月份_lb.FormattingEnabled = True
+        Me.顯示選擇月份_lb.ItemHeight = 17
+        Me.顯示選擇月份_lb.Location = New System.Drawing.Point(12, 312)
+        Me.顯示選擇月份_lb.Name = "顯示選擇月份_lb"
+        Me.顯示選擇月份_lb.Size = New System.Drawing.Size(177, 225)
+        Me.顯示選擇月份_lb.TabIndex = 1176
+        '
+        '薪資匯出_dgv
+        '
+        Me.薪資匯出_dgv.AllowUserToAddRows = False
+        Me.薪資匯出_dgv.AllowUserToDeleteRows = False
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.薪資匯出_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.薪資匯出_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.薪資匯出_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.薪資匯出_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
+        Me.薪資匯出_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("新細明體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.薪資匯出_dgv.DefaultCellStyle = DataGridViewCellStyle3
+        Me.薪資匯出_dgv.Location = New System.Drawing.Point(201, 13)
+        Me.薪資匯出_dgv.Name = "薪資匯出_dgv"
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.薪資匯出_dgv.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
+        Me.薪資匯出_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.薪資匯出_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.薪資匯出_dgv.RowTemplate.Height = 24
+        Me.薪資匯出_dgv.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.薪資匯出_dgv.Size = New System.Drawing.Size(1030, 609)
+        Me.薪資匯出_dgv.TabIndex = 1177
+        '
+        '民國年月_tb
+        '
+        Me.民國年月_tb.Location = New System.Drawing.Point(232, 500)
+        Me.民國年月_tb.Name = "民國年月_tb"
+        Me.民國年月_tb.Size = New System.Drawing.Size(100, 22)
+        Me.民國年月_tb.TabIndex = 1179
+        Me.民國年月_tb.Visible = False
+        '
+        '薪轉Ex存檔名_tb
+        '
+        Me.薪轉Ex存檔名_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.薪轉Ex存檔名_tb.Location = New System.Drawing.Point(72, 281)
+        Me.薪轉Ex存檔名_tb.Name = "薪轉Ex存檔名_tb"
+        Me.薪轉Ex存檔名_tb.Size = New System.Drawing.Size(117, 25)
+        Me.薪轉Ex存檔名_tb.TabIndex = 1180
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label1.ForeColor = System.Drawing.Color.Teal
+        Me.Label1.Location = New System.Drawing.Point(10, 284)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(60, 17)
+        Me.Label1.TabIndex = 1181
+        Me.Label1.Text = "資料年度"
+        '
+        '匯出EXCEL
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1243, 627)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.薪轉Ex存檔名_tb)
+        Me.Controls.Add(Me.薪資匯出_dgv)
+        Me.Controls.Add(Me.顯示選擇月份_lb)
+        Me.Controls.Add(Me.計算月數_tb)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Controls.Add(Me.月份選擇_gb)
+        Me.Controls.Add(Me.匯出EXCEL_bt)
+        Me.Controls.Add(Me.民國年月_tb)
+        Me.Name = "匯出EXCEL"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "匯出EXCEL"
+        Me.月份選擇_gb.ResumeLayout(False)
+        Me.月份選擇_gb.PerformLayout()
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        CType(Me.薪資匯出_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 匯出EXCEL_bt As Button
+    Friend WithEvents SaveFileDialog1 As SaveFileDialog
+    Friend WithEvents 月份選擇_gb As GroupBox
+    Friend WithEvents 月選_起始_dtp As DateTimePicker
+    Friend WithEvents 月選_起始_tb As TextBox
+    Friend WithEvents 月選_起始年_cb As ComboBox
+    Friend WithEvents 月選_起始月_cb As ComboBox
+    Friend WithEvents Label59 As Label
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents 結束加一個月_bt As Button
+    Friend WithEvents 結束減一個月_bt As Button
+    Friend WithEvents 月選_結束年_cb As ComboBox
+    Friend WithEvents 月選_結束_dtp As DateTimePicker
+    Friend WithEvents 月選_結束_tb As TextBox
+    Friend WithEvents 月選_結束月_cb As ComboBox
+    Friend WithEvents Label60 As Label
+    Friend WithEvents 起始加一個月_bt As Button
+    Friend WithEvents 起始減一個月_bt As Button
+    Friend WithEvents 計算月數_tb As TextBox
+    Friend WithEvents 顯示選擇月份_lb As ListBox
+    Friend WithEvents 薪資匯出_dgv As DataGridView
+    Friend WithEvents 民國年月_tb As TextBox
+    Friend WithEvents 薪轉Ex存檔名_tb As TextBox
+    Friend WithEvents Label1 As Label
+End Class

YD-ERP-SYS/財務系統管理/匯出EXCEL.resx

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

YD-ERP-SYS/財務系統管理/匯出EXCEL.vb

@@ -0,0 +1,326 @@
+Imports System.Data.SqlClient
+Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
+Imports Microsoft.Office.Interop.Excel.Constants
+Imports Microsoft.Office.Interop.Excel.XlBordersIndex
+Imports Microsoft.Office.Interop.Excel.XlLineStyle
+Imports Microsoft.Office.Interop.Excel.XlBorderWeight
+Imports Microsoft.Office.Interop.Excel.XlThemeFont
+Imports Microsoft.Office.Interop.Excel.XlThemeColor
+Imports Microsoft.Office.Interop.Excel.XlWindowState
+Public Class 匯出EXCEL
+    Dim xlApp As Microsoft.Office.Interop.Excel.Application
+    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
+    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
+    Dim misValue As Object = System.Reflection.Missing.Value
+    Dim 判斷月差結果 As Boolean
+    Dim Index_Row_Date As Date : Dim str01 As String = ""
+    ReadOnly ds1 As New DataSet
+    Private Sub 匯出EXCEL_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        匯出EXCEL_bt.Enabled = True
+        FormBorderStyle = FormBorderStyle.SizableToolWindow
+        月選_起始_dtp.Value = Today() : 月選_結束_dtp.Value = Today()
+        月選_起始月_cb.Text = DateAndTime.Month(Today) : 月選_結束月_cb.Text = DateAndTime.Month(Today)
+        月選_起始年_cb.Text = DateAndTime.Year(Today) : 月選_結束年_cb.Text = DateAndTime.Year(Today)
+    End Sub
+    Private Sub 匯出EXCEL_Close(sender As Object, e As EventArgs) Handles MyBase.Closed
+        薪資匯出_dgv.DataSource = Nothing : ds1.Clear() : 顯示選擇月份_lb.Items.Clear()
+    End Sub
+
+    Private Sub 匯出EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 匯出EXCEL_bt.Click
+        判斷月差結果 = 判斷月差()
+        If 判斷月差結果 = True Then
+            薪資匯出SQL_to_DGV()
+            Dim DGV_Row_index1 As Integer = 0
+            Dim DGV_Row_index2 As Integer = 0
+            SaveFileDialog1.Filter = "Excel files (*.xlsx)|*.xlsx|CSV Files (*.csv)|*.csv|XLS Files (*.xls)|*xls"
+            SaveFileDialog1.FilterIndex = 1
+            SaveFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
+            SaveFileDialog1.FileName = "薪轉資料" + 薪轉Ex存檔名_tb.Text
+            If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
+                xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
+                xlApp.Visible = True
+                xlApp.DisplayAlerts = True
+                xlApp.Application.WindowState = xlMaximized
+                xlBook = xlApp.Workbooks.Add(misValue)
+
+                Dim twC = New System.Globalization.TaiwanCalendar()
+                Dim DTP3 As Date = 月選_結束_dtp.Value
+                Index_Row_Date = DTP3
+                民國年月_tb.Text = twC.GetYear(DTP3).ToString + DTP3.ToString("MM")
+                計算月數_tb.Text = DateDiff(DateInterval.Month, 月選_起始_dtp.Value, 月選_結束_dtp.Value)
+                For index_Conut As Integer = 0 To 計算月數_tb.Text
+                    顯示選擇月份_lb.Items.Add(民國年月_tb.Text)
+                    Dim Sheet_Row_index As Integer = 4
+                    xlSheet = NewMethod(xlBook)
+                    xlApp.Sheets(1).Name = 民國年月_tb.Text
+                    xlApp.Sheets(1).Select
+                    xlApp.Cells.NumberFormat = "@"   '----------遇到數字，強迫以文字來儲存
+                    xlBook.Activate() : xlSheet.Activate()
+                    xlSheet.Range("A1").Select()
+                    xlSheet.Cells(1, 1) = "雅邸家居國際有限公司" : xlSheet.Cells(2, 1) = twC.GetYear(Index_Row_Date).ToString & " 年  " & Index_Row_Date.ToString("MM") & "   月薪資轉帳"
+                    xlSheet.Cells(3, 1) = "編號" : xlSheet.Cells(3, 2) = "帳號" : xlSheet.Cells(3, 3) = "身份證字號" : xlSheet.Cells(3, 4) = "獎金"
+                    xlSheet.Cells(3, 5) = "薪資" : xlSheet.Cells(3, 6) = "合計" : xlSheet.Cells(3, 7) = "姓名"
+                    xlSheet.Range("D4:F1000").Select() : xlApp.Selection.NumberFormatLocal = "#,##0;[紅色]-#,##0"
+                    Dim DGV_Row_Date As String = 薪資匯出_dgv(9, DGV_Row_index1).Value.ToString()
+                    Dim YY As String = Index_Row_Date.ToString("yyyy") + Index_Row_Date.ToString("/MM") + "/25"
+                    Do While String.Compare(DGV_Row_Date, YY) = 0
+                        If String.Compare(薪資匯出_dgv(10, DGV_Row_index1).Value.ToString, "帳號匯款") = 0 Then
+                            xlSheet.Cells(Sheet_Row_index, 1) = 薪資匯出_dgv(1, DGV_Row_index1).Value.ToString
+                            xlSheet.Cells(Sheet_Row_index, 2) = 薪資匯出_dgv(2, DGV_Row_index1).Value.ToString
+                            xlSheet.Cells(Sheet_Row_index, 3) = 薪資匯出_dgv(3, DGV_Row_index1).Value.ToString
+                            xlSheet.Cells(Sheet_Row_index, 4) = 薪資匯出_dgv(4, DGV_Row_index1).Value.ToString
+                            xlSheet.Cells(Sheet_Row_index, 5) = 薪資匯出_dgv(5, DGV_Row_index1).Value.ToString
+                            xlSheet.Cells(Sheet_Row_index, 6) = "=SUM(D" & Sheet_Row_index & ": E" & Sheet_Row_index & ")"
+                            xlSheet.Cells(Sheet_Row_index, 7) = 薪資匯出_dgv(8, DGV_Row_index1).Value.ToString
+                            If DGV_Row_index1 < 薪資匯出_dgv.Rows.Count - 1 Then
+                                DGV_Row_index1 = DGV_Row_index1 + 1
+                                Sheet_Row_index = Sheet_Row_index + 1
+                            ElseIf DGV_Row_index1 = 薪資匯出_dgv.Rows.Count - 1 Then
+                                Exit Do
+                            End If
+                        Else
+                            If DGV_Row_index1 < 薪資匯出_dgv.Rows.Count - 1 Then
+                                DGV_Row_index1 = DGV_Row_index1 + 1
+                            ElseIf DGV_Row_index1 = 薪資匯出_dgv.Rows.Count - 1 Then
+                                Exit Do
+                            End If
+                        End If
+                        DGV_Row_Date = 薪資匯出_dgv(9, DGV_Row_index1).Value.ToString()
+                    Loop
+                    xlSheet.Cells(Sheet_Row_index, 3) = "合計:" : xlSheet.Cells(Sheet_Row_index + 1, 3) = "領現:"
+                    xlSheet.Cells(Sheet_Row_index, 4) = "=SUM(D4: D" & (Sheet_Row_index - 1) & ")"
+                    xlSheet.Cells(Sheet_Row_index, 5) = "=SUM(E4: E" & (Sheet_Row_index - 1) & ")"
+                    xlSheet.Cells(Sheet_Row_index, 6) = "=SUM(F4: F" & (Sheet_Row_index - 1) & ")"
+                    ' 儲存格 格線設定 
+                    xlSheet.Range("A1:G" & (Sheet_Row_index - 1).ToString).Select()
+                    xlApp.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : xlApp.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+                    With xlApp.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+                    With xlApp.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+                    With xlApp.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+                    With xlApp.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+                    With xlApp.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+                    With xlApp.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+
+                    xlSheet.Range("C" & Sheet_Row_index & ":F" & Sheet_Row_index).Select()
+                    xlApp.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : xlApp.Selection.Borders(xlDiagonalUp).LineStyle = xlNone : xlApp.Selection.Borders(xlEdgeLeft).LineStyle = xlNone
+                    With xlApp.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+                    With xlApp.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+                    xlApp.Selection.Borders(xlEdgeRight).LineStyle = xlNone : xlApp.Selection.Borders(xlInsideVertical).LineStyle = xlNone : xlApp.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
+
+                    ' -------------------------------------------------------
+                    Dim Sheet_Row_index_暫存 As Integer = Sheet_Row_index
+                    Sheet_Row_index = Sheet_Row_index + 1
+                    Dim 判斷有無領現 As Boolean = False
+                    Dim ww As String = 薪資匯出_dgv(9, DGV_Row_index2).Value.ToString()
+                    Dim zz As String = Index_Row_Date.ToString("yyyy") + Index_Row_Date.ToString("/MM") + "/25"
+                    Do While String.Compare(ww, zz) = 0
+                        If String.Compare(薪資匯出_dgv(10, DGV_Row_index2).Value.ToString, "領現") = 0 Then
+                            判斷有無領現 = True
+                            xlSheet.Cells(Sheet_Row_index, 6) = 薪資匯出_dgv(6, DGV_Row_index2).Value.ToString
+                            xlSheet.Cells(Sheet_Row_index, 7) = 薪資匯出_dgv(8, DGV_Row_index2).Value.ToString
+                            If DGV_Row_index2 < 薪資匯出_dgv.Rows.Count - 1 Then
+                                DGV_Row_index2 = DGV_Row_index2 + 1
+                                Sheet_Row_index = Sheet_Row_index + 1
+                            ElseIf DGV_Row_index2 = 薪資匯出_dgv.Rows.Count - 1 Then
+                                Sheet_Row_index = Sheet_Row_index + 1
+                                Exit Do
+                            End If
+                        Else
+                            If DGV_Row_index2 < 薪資匯出_dgv.Rows.Count - 1 Then
+                                DGV_Row_index2 = DGV_Row_index2 + 1
+                            ElseIf DGV_Row_index2 = 薪資匯出_dgv.Rows.Count - 1 Then
+                                Exit Do
+                            End If
+                        End If
+                        ww = 薪資匯出_dgv(9, DGV_Row_index2).Value.ToString()
+                    Loop
+
+                    xlSheet.Cells(Sheet_Row_index, 6) = "=SUM(F" & Sheet_Row_index_暫存 & ": F" & Sheet_Row_index - 1 & ")"
+                    xlSheet.Cells(Sheet_Row_index, 3) = "共計:"
+                    '加底線
+                    xlSheet.Range("F" & Sheet_Row_index - 1 & ":F" & Sheet_Row_index - 1).Select()
+                    xlApp.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : xlApp.Selection.Borders(xlDiagonalUp).LineStyle = xlNone : xlApp.Selection.Borders(xlEdgeLeft).LineStyle = xlNone
+                    With xlApp.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+                    xlApp.Selection.Borders(xlEdgeRight).LineStyle = xlNone : xlApp.Selection.Borders(xlInsideVertical).LineStyle = xlNone : xlApp.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
+
+                    Index_Row_Date = DateAdd(DateInterval.Month, (index_Conut + 1) * (-1), DTP3)
+                    民國年月_tb.Text = twC.GetYear(Index_Row_Date).ToString + Index_Row_Date.ToString("MM")
+                    ' ----------------------------------
+                    '全選改變字體
+                    xlSheet.Cells.Select()
+                    With xlApp.Selection.Font : .Name = "微軟正黑體" : .Size = 14 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+                        .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+                    End With
+                    ' 改變行寬 Columns("A") & Columns("H")
+                    xlSheet.Columns("A:A").Select : xlApp.Selection.ColumnWidth = 8.38
+                    xlSheet.Columns("B:B").Select : xlApp.Selection.ColumnWidth = 18
+                    xlSheet.Columns("C:C").Select : xlApp.Selection.ColumnWidth = 16
+                    xlSheet.Columns("D:D").Select : xlApp.Selection.ColumnWidth = 13
+                    xlSheet.Columns("E:E").Select : xlApp.Selection.ColumnWidth = 13
+                    xlSheet.Columns("F:F").Select : xlApp.Selection.ColumnWidth = 13
+                    xlSheet.Columns("G:G").Select : xlApp.Selection.ColumnWidth = 15
+                    ' ("A1到G1") 改變粗體
+                    xlSheet.Range("A1:G3").Select()
+                    xlApp.Selection.Font.Bold = True
+                    '全選改變列高
+                    xlSheet.Cells.Select()  '全選
+                    xlApp.Selection.RowHeight = 25  '改變列高
+                    xlSheet.Range("A1").Select()
+                    ' ("A1到G1")跨欄至中
+                    xlSheet.Range("A1:G1").Select()
+                    With xlApp.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+                        .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+                    End With : xlApp.Selection.Merge
+                    ' ("A2到G2")跨欄至中
+                    xlSheet.Range("A2:G2").Select()
+                    With xlApp.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+                        .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+                    End With : xlApp.Selection.Merge
+                    ' 儲存格顏色設定
+                    xlSheet.Range("A1:G1").Select()
+                    With xlApp.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent6 : .TintAndShade = 0.599993896298105 : .PatternTintAndShade = 0 : End With
+                    ' 儲存格顏色設定
+                    xlSheet.Range("A2:G2").Select()
+                    With xlApp.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .Color = 16247773 : .TintAndShade = 0 : .PatternTintAndShade = 0 : End With
+
+                Next
+                xlApp.Sheets(CInt(計算月數_tb.Text) + 2).Delete
+                xlApp.Cells.Select()
+                xlApp.Application.WindowState = xlMinimized
+                xlSheet.SaveAs(SaveFileDialog1.FileName)
+                xlBook.Close()
+                xlApp.Quit()
+
+                releaseObject(xlApp)
+                releaseObject(xlBook)
+                releaseObject(xlSheet)
+
+                MessageBox.Show("存檔成功 !!!" & vbCrLf & "檔案儲存於 : " & SaveFileDialog1.FileName, "存檔資訊", MessageBoxButtons.OK, MessageBoxIcon.Information)
+            End If
+            'Me.Close()
+        Else
+            'MessageBox.Show("年/月 範圍選擇錯誤，請從新選擇", "範圍選擇提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
+        End If
+        匯出EXCEL_bt.Enabled = False
+    End Sub
+    Private Shared Function NewMethod(xlBook As Microsoft.Office.Interop.Excel.Workbook) As Microsoft.Office.Interop.Excel.Worksheet
+        Return CType(xlBook.Worksheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
+    End Function
+    Private Sub releaseObject(ByVal obj As Object)
+        Try
+            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
+            obj = Nothing
+        Catch ex As Exception
+            obj = Nothing
+        Finally
+            GC.Collect()
+        End Try
+    End Sub
+    Private Sub 月選_起始年_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月選_起始年_cb.SelectedIndexChanged
+        DTP = (月選_起始年_cb.Text) & "/" & (月選_起始月_cb.Text) & "/01"
+        月選_起始_dtp.Value = DTP
+        月選_起始_tb.Text = Strings.Left(Strings.Format(月選_起始_dtp.Value, "yyyy/MM/dd"), 10)
+    End Sub
+    Private Sub 月選_起始月_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月選_起始月_cb.SelectedIndexChanged
+        If 月選_起始年_cb.Text = "" Then
+            Exit Sub
+        Else
+            DTP = (月選_起始年_cb.Text) & "/" & (月選_起始月_cb.Text) & "/01"
+            月選_起始_dtp.Value = DTP
+            月選_起始_tb.Text = Strings.Left(Strings.Format(月選_起始_dtp.Value, "yyyy/MM/dd"), 10)
+        End If
+    End Sub
+    Private Sub 月選_結束年_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月選_結束年_cb.SelectedIndexChanged
+        DTP = (月選_結束年_cb.Text) & "/" & (月選_結束月_cb.Text) & "/01"
+        月選_結束_dtp.Value = DTP
+        月選_結束_dtp.Value = 月選_結束_dtp.Value.AddMonths(1)
+        月選_結束_dtp.Value = 月選_結束_dtp.Value.AddDays(-1)
+        月選_結束_tb.Text = Strings.Left(Strings.Format(月選_結束_dtp.Value, "yyyy/MM/dd"), 10)
+    End Sub
+    Private Sub 月選_結束月_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月選_結束月_cb.SelectedIndexChanged
+        If 月選_起始年_cb.Text = "" Then
+            Exit Sub
+        Else
+            DTP = (月選_結束年_cb.Text) & "/" & (月選_結束月_cb.Text) & "/01"
+            月選_結束_dtp.Value = DTP
+            月選_結束_dtp.Value = 月選_結束_dtp.Value.AddMonths(1)
+            月選_結束_dtp.Value = 月選_結束_dtp.Value.AddDays(-1)
+            月選_結束_tb.Text = Strings.Left(Strings.Format(月選_結束_dtp.Value, "yyyy/MM/dd"), 10)
+        End If
+    End Sub
+    Private Sub 結束減一個月_bt_Click(sender As Object, e As EventArgs) Handles 結束減一個月_bt.Click
+        If 月選_結束月_cb.Text <> "1" Then
+            月選_結束月_cb.Text = Val(月選_結束月_cb.Text) - 1
+        ElseIf 月選_結束月_cb.Text = "1" Then
+            月選_結束月_cb.Text = 12
+            月選_結束年_cb.Text = Val(月選_結束年_cb.Text) - 1
+        End If
+    End Sub
+    Private Sub 結束加一個月_bt_Click(sender As Object, e As EventArgs) Handles 結束加一個月_bt.Click
+        If 月選_結束月_cb.Text <> "12" Then
+            月選_結束月_cb.Text = Val(月選_結束月_cb.Text) + 1
+        ElseIf 月選_結束月_cb.Text = "12" Then
+            月選_結束月_cb.Text = 1
+            月選_結束年_cb.Text = Val(月選_結束年_cb.Text) + 1
+        End If
+    End Sub
+    Private Sub 起始減一個月_bt_Click(sender As Object, e As EventArgs) Handles 起始減一個月_bt.Click
+        If 月選_起始月_cb.Text <> "1" Then
+            月選_起始月_cb.Text = Val(月選_起始月_cb.Text) - 1
+        ElseIf 月選_起始月_cb.Text = "1" Then
+            月選_起始月_cb.Text = 12
+            月選_起始年_cb.Text = Val(月選_起始年_cb.Text) - 1
+        End If
+    End Sub
+    Private Sub 起始加一個月_bt_Click(sender As Object, e As EventArgs) Handles 起始加一個月_bt.Click
+        If 月選_起始月_cb.Text <> "12" Then
+            月選_起始月_cb.Text = Val(月選_起始月_cb.Text) + 1
+        ElseIf 月選_起始月_cb.Text = "12" Then
+            月選_起始月_cb.Text = 1
+            月選_起始年_cb.Text = Val(月選_起始年_cb.Text) + 1
+        End If
+    End Sub
+    Private Function 判斷月差() As Boolean
+        Dim 判斷結果 As Boolean
+        If DateDiff(DateInterval.Month, 月選_起始_dtp.Value, 月選_結束_dtp.Value) > 119 Then
+            月選_起始月_cb.Text = DateAndTime.Month(Today) : 月選_結束月_cb.Text = DateAndTime.Month(Today)
+            月選_起始年_cb.Text = DateAndTime.Year(Today) : 月選_結束年_cb.Text = DateAndTime.Year(Today)
+            判斷結果 = False
+            MsgBox("選擇範圍超過10年，請從新選擇", MsgBoxStyle.Information, "提示")
+        ElseIf DateDiff(DateInterval.Month, 月選_起始_dtp.Value, 月選_結束_dtp.Value) < 0 Then
+            月選_起始月_cb.Text = DateAndTime.Month(Today) : 月選_結束月_cb.Text = DateAndTime.Month(Today)
+            月選_起始年_cb.Text = DateAndTime.Year(Today) : 月選_結束年_cb.Text = DateAndTime.Year(Today)
+            判斷結果 = False
+            MsgBox("選擇範圍年分順序顛倒，請從新選擇", MsgBoxStyle.Information, "提示")
+        Else
+            判斷結果 = True
+        End If
+        Return 判斷結果
+    End Function
+
+    Private Sub 薪資匯出SQL_to_DGV()
+        薪資匯出_dgv.DataSource = Nothing : ds1.Clear()
+        薪資匯出_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        薪資匯出_dgv.ColumnHeadersHeight = 40 : 薪資匯出_dgv.AllowUserToAddRows = False
+        str01 = "" : Dim DTP3 As Date = 月選_結束_dtp.Value
+        計算月數_tb.Text = DateDiff(DateInterval.Month, 月選_起始_dtp.Value, 月選_結束_dtp.Value)
+        str01 = Strings.Left(Strings.Format(月選_結束_dtp.Value, "yyyy/MM/dd"), 7) + "/25"
+        薪資轉帳表_匯出EXCEL_月份清單(str01)
+        da.Fill(ds1) : 薪資匯出_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        薪資匯出_dgv.Columns("獎金").DefaultCellStyle.Format = "#,##0.0"
+        薪資匯出_dgv.Columns("薪資").DefaultCellStyle.Format = "#,##0.0"
+        薪資匯出_dgv.Columns("薪資合計").DefaultCellStyle.Format = "#,##0.0"
+        薪資匯出_dgv.Columns("領現").DefaultCellStyle.Format = "#,##0.0"
+        For index_Conut As Integer = 0 To 計算月數_tb.Text
+            'ListBox1.Items.Add(str01)
+            Index_Row_Date = DateAdd(DateInterval.Month, (index_Conut + 1) * (-1), DTP3)
+            str01 = Strings.Left(Strings.Format(Index_Row_Date, "yyyy/MM/dd"), 7) + "/25"
+            薪資轉帳表_匯出EXCEL_月份清單(str01)
+            da.Fill(ds1) : 薪資匯出_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        Next
+        薪資匯出_dgv.Columns(0).Visible = False : 薪資匯出_dgv.Columns(10).Visible = True : 薪資匯出_dgv.Columns(11).Visible = False
+        薪資匯出_dgv.Columns(0).ReadOnly = True : 薪資匯出_dgv.Columns(1).ReadOnly = True : 薪資匯出_dgv.Columns(2).ReadOnly = True : 薪資匯出_dgv.Columns(3).ReadOnly = True
+        薪資匯出_dgv.Columns(4).ReadOnly = True : 薪資匯出_dgv.Columns(5).ReadOnly = True : 薪資匯出_dgv.Columns(6).ReadOnly = True : 薪資匯出_dgv.Columns(7).ReadOnly = True
+        薪資匯出_dgv.Columns(8).ReadOnly = True : 薪資匯出_dgv.Columns(9).ReadOnly = True
+    End Sub
+End Class

YD-ERP-SYS/財務系統管理/營運成本收支單 - 對帳表.Designer.vb

@@ -23,7 +23,7 @@ Partial Class 營運成本收支單_對帳表
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.未兌現支票1_tb = New System.Windows.Forms.TextBox()
         Me.Label13 = New System.Windows.Forms.Label()
         Me.未兌現支票_tb = New System.Windows.Forms.TextBox()
@@ -60,12 +60,13 @@ Partial Class 營運成本收支單_對帳表
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.重新整理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.BBBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
         Me.資料尚未存檔_lb = 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.匯出EXCEL_bt = New System.Windows.Forms.Button()
+        Me.BBBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.SuspendLayout()
@@ -438,35 +439,28 @@ Partial Class 營運成本收支單_對帳表
         Me.明細_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.明細_dgv.Name = "明細_dgv"
         Me.明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.明細_dgv.RowTemplate.Height = 24
-        Me.明細_dgv.Size = New System.Drawing.Size(1743, 544)
+        Me.明細_dgv.Size = New System.Drawing.Size(1868, 544)
         Me.明細_dgv.TabIndex = 1073
         '
         'ContextMenuStrip1
         '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新整理ToolStripMenuItem, Me.ToolStripSeparator2, Me.BBBToolStripMenuItem})
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新整理ToolStripMenuItem, Me.ToolStripSeparator2})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(147, 54)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 32)
         '
         '重新整理ToolStripMenuItem
         '
         Me.重新整理ToolStripMenuItem.Name = "重新整理ToolStripMenuItem"
-        Me.重新整理ToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
+        Me.重新整理ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
         Me.重新整理ToolStripMenuItem.Text = "重新整理"
         '
         'ToolStripSeparator2
         '
         Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
-        Me.ToolStripSeparator2.Size = New System.Drawing.Size(143, 6)
-        '
-        'BBBToolStripMenuItem
-        '
-        Me.BBBToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.BBBToolStripMenuItem.Name = "BBBToolStripMenuItem"
-        Me.BBBToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
-        Me.BBBToolStripMenuItem.Text = "列印成EXCEL"
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(119, 6)
         '
         'Timer1
         '
@@ -475,11 +469,11 @@ Partial Class 營運成本收支單_對帳表
         '資料尚未存檔_lb
         '
         Me.資料尚未存檔_lb.AutoSize = True
-        Me.資料尚未存檔_lb.Font = New System.Drawing.Font("微軟正黑體", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.資料尚未存檔_lb.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.資料尚未存檔_lb.ForeColor = System.Drawing.Color.Red
-        Me.資料尚未存檔_lb.Location = New System.Drawing.Point(1473, 11)
+        Me.資料尚未存檔_lb.Location = New System.Drawing.Point(1592, 14)
         Me.資料尚未存檔_lb.Name = "資料尚未存檔_lb"
-        Me.資料尚未存檔_lb.Size = New System.Drawing.Size(331, 37)
+        Me.資料尚未存檔_lb.Size = New System.Drawing.Size(278, 31)
         Me.資料尚未存檔_lb.TabIndex = 1075
         Me.資料尚未存檔_lb.Text = "資    料    尚    未    存    檔"
         Me.資料尚未存檔_lb.Visible = False
@@ -512,12 +506,33 @@ Partial Class 營運成本收支單_對帳表
         Me.清除查詢資料_bt.Text = "清除查詢資料"
         Me.清除查詢資料_bt.UseVisualStyleBackColor = True
         '
+        '匯出EXCEL_bt
+        '
+        Me.匯出EXCEL_bt.AutoSize = True
+        Me.匯出EXCEL_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.匯出EXCEL_bt.ForeColor = System.Drawing.Color.DarkRed
+        Me.匯出EXCEL_bt.Location = New System.Drawing.Point(1473, 4)
+        Me.匯出EXCEL_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.匯出EXCEL_bt.Name = "匯出EXCEL_bt"
+        Me.匯出EXCEL_bt.Size = New System.Drawing.Size(113, 50)
+        Me.匯出EXCEL_bt.TabIndex = 1435
+        Me.匯出EXCEL_bt.Text = "匯出EXCEL"
+        Me.匯出EXCEL_bt.UseVisualStyleBackColor = True
+        '
+        'BBBToolStripMenuItem
+        '
+        Me.BBBToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.BBBToolStripMenuItem.Name = "BBBToolStripMenuItem"
+        Me.BBBToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.BBBToolStripMenuItem.Text = "列印成EXCEL"
+        '
         '營運成本收支單_對帳表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1754, 611)
+        Me.ClientSize = New System.Drawing.Size(1879, 611)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.匯出EXCEL_bt)
         Me.Controls.Add(Me.清除查詢資料_bt)
         Me.Controls.Add(Me.對帳記錄存檔_bt)
         Me.Controls.Add(Me.關鍵字查詢_bt)
@@ -602,10 +617,11 @@ Partial Class 營運成本收支單_對帳表
     Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
     Friend WithEvents 重新整理ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
-    Friend WithEvents BBBToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents Timer1 As Timer
     Friend WithEvents 資料尚未存檔_lb As Label
     Friend WithEvents 關鍵字查詢_bt As Button
     Friend WithEvents 對帳記錄存檔_bt As Button
     Friend WithEvents 清除查詢資料_bt As Button
+    Friend WithEvents 匯出EXCEL_bt As Button
+    Friend WithEvents BBBToolStripMenuItem As ToolStripMenuItem
 End Class

YD-ERP-SYS/財務系統管理/營運成本收支單 - 對帳表.vb

@@ -1,12 +1,22 @@
 Option Strict Off
+Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
+Imports Microsoft.Office.Interop.Excel.Constants
+Imports Microsoft.Office.Interop.Excel.XlBordersIndex
+Imports Microsoft.Office.Interop.Excel.XlLineStyle
+Imports Microsoft.Office.Interop.Excel.XlBorderWeight
+Imports Microsoft.Office.Interop.Excel.XlThemeFont
+Imports Microsoft.Office.Interop.Excel.XlThemeColor
+Imports Microsoft.Office.Interop.Excel.XlWindowState
 Imports System.Data.SqlClient
 Public Class 營運成本收支單_對帳表
     ReadOnly conn1 As New SqlConnection
     ReadOnly cmd As New SqlCommand : ReadOnly cmd1 As New SqlCommand
-    'Dim dr As SqlDataReader
-    'ReadOnly da As New SqlDataAdapter
     ReadOnly ds As New DataSet
-    'PA20 = KKKJJ3 : PA19 = KKKJJ : PA18 = KKKJJ2 : PA17 = KKK3 : PA16 = KKK4
+    Dim N2 As Integer
+    Dim xlApp As Microsoft.Office.Interop.Excel.Application
+    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
+    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
+    Dim 位置1 As String
     Private Sub Set_清單1()
         明細_dgv.DataSource = Nothing : ds.Clear()
         明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -57,8 +67,8 @@ Public Class 營運成本收支單_對帳表
         Next i
         損益1_tb.Text = Val(已兌現支票1_tb.Text) + Val(零用金1_tb.Text) + Val(現金1_tb.Text) - Val(支出1_tb.Text)
         If Val(損益1_tb.Text) > 0 Then : 損益1_tb.ForeColor = Color.Blue : Else : 損益1_tb.ForeColor = Color.Red : End If
-        支出1_tb.Text = Format(Val(支出1_tb.Text), "#,##0") : 損益1_tb.Text = Format(Val(損益1_tb.Text), "#,##0") : 現金1_tb.Text = Format(Val(現金1_tb.Text), "#,##0")
-        零用金1_tb.Text = Format(Val(零用金1_tb.Text), "#,##0") : 已兌現支票1_tb.Text = Format(Val(已兌現支票1_tb.Text), "#,##0") : 未兌現支票1_tb.Text = Format(Val(未兌現支票1_tb.Text), "#,##0")
+        支出1_tb.Text = Strings.Format(Val(支出1_tb.Text), "#,##0") : 損益1_tb.Text = Strings.Format(Val(損益1_tb.Text), "#,##0") : 現金1_tb.Text = Strings.Format(Val(現金1_tb.Text), "#,##0")
+        零用金1_tb.Text = Strings.Format(Val(零用金1_tb.Text), "#,##0") : 已兌現支票1_tb.Text = Strings.Format(Val(已兌現支票1_tb.Text), "#,##0") : 未兌現支票1_tb.Text =Strings. Format(Val(未兌現支票1_tb.Text), "#,##0")
     End Sub
     Private Sub ComboBox1下拉表單資料載入()
         conn.Close()
@@ -132,8 +142,8 @@ Public Class 營運成本收支單_對帳表
     End Sub
     Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 明細_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            收支單號_tb.Text = 明細_dgv.Rows(e.RowIndex).Cells("收支單號").Value
             Timer1.Enabled = True
+            收支單號_tb.Text = 明細_dgv.Rows(e.RowIndex).Cells("收支單號").Value
             總金額計算()
         End If
     End Sub
@@ -194,12 +204,230 @@ Public Class 營運成本收支單_對帳表
         MsgBox("待開發。")
         '列印_零用金支付明細.ShowDialog()
     End Sub
-
-
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢_bt.Click
         PA = InputBox("請輸入要查詢的關鍵字。")
         PA18 = " AND (公帳控制表.支付單號 LIKE N'%" & PA & "%' OR 公帳控制表.申請人 LIKE N'%" & PA & "%' OR 公帳控制表.審核人 LIKE N'%" & PA &
                  "%' OR 公帳流水帳.明細 LIKE N'%" & PA & "%' OR 公帳控制表.備註 LIKE N'%" & PA & "%' OR 公帳流水帳.備註 LIKE N'%" & PA & "%')" : Set_清單1()
         PA18 = "" : PA = ""
     End Sub
+
+    '-----------------------------EXCEL--------------------------------------------------------------------------------------------------------------------------------------
+    Private Shared Function NewMethod(xlBook As Microsoft.Office.Interop.Excel.Workbook) As Microsoft.Office.Interop.Excel.Worksheet
+        Return CType(xlBook.Worksheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
+    End Function
+    Private Sub 匯出EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 匯出EXCEL_bt.Click
+        xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
+        xlApp.Visible = True
+        xlApp.DisplayAlerts = True
+        xlApp.Application.WindowState = xlMaximized
+        xlBook = xlApp.Workbooks.Add
+        xlSheet = NewMethod(xlBook)
+        xlBook.Activate()
+        xlSheet.Activate()
+
+        xlSheet.Cells(1, 1) = "雅邸家具有限公司-營運費用收支明細表"
+        xlSheet.Cells(2, 1) = "收支單號 "
+        xlSheet.Cells(2, 2) = "申請人"
+        xlSheet.Cells(2, 3) = "申請日期 "
+        xlSheet.Cells(2, 4) = "審核人"
+        xlSheet.Cells(2, 5) = "審核日期"
+        xlSheet.Cells(2, 6) = "項次"
+        xlSheet.Cells(2, 7) = "會計科目 "
+        xlSheet.Cells(2, 8) = "用途與內容"
+        xlSheet.Cells(2, 9) = "零用金"
+        xlSheet.Cells(2, 10) = "支票"
+        xlSheet.Cells(2, 11) = "現金"
+        xlSheet.Cells(2, 12) = "支出"
+
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            xlSheet.Cells(i + 3, 1) = 明細_dgv.Rows(i).Cells("收支單號").Value
+            xlSheet.Cells(i + 3, 2) = 明細_dgv.Rows(i).Cells("申請人").Value
+            xlSheet.Cells(i + 3, 3) = 明細_dgv.Rows(i).Cells("申請日期").Value
+            xlSheet.Cells(i + 3, 4) = 明細_dgv.Rows(i).Cells("審核人").Value
+            xlSheet.Cells(i + 3, 5) = 明細_dgv.Rows(i).Cells("審核日期").Value
+            xlSheet.Cells(i + 3, 6) = 明細_dgv.Rows(i).Cells("項次").Value
+            xlSheet.Cells(i + 3, 7) = 明細_dgv.Rows(i).Cells("會計科目").Value
+            xlSheet.Cells(i + 3, 8) = 明細_dgv.Rows(i).Cells("用途與內容").Value
+            xlSheet.Cells(i + 3, 9) = 明細_dgv.Rows(i).Cells("零用金").Value
+            xlSheet.Cells(i + 3, 10) = 明細_dgv.Rows(i).Cells("支票").Value
+            xlSheet.Cells(i + 3, 11) = 明細_dgv.Rows(i).Cells("現金").Value
+            xlSheet.Cells(i + 3, 12) = 明細_dgv.Rows(i).Cells("支出").Value
+            N2 = i + 3
+        Next i
+
+        xlSheet.Cells(N2 + 1, 8) = "合計"
+        xlSheet.Cells(N2 + 1, 9) = "=SUM(I3:I" & N2 & ")"
+        xlSheet.Cells(N2 + 1, 10) = "=SUM(J3:J" & N2 & ")"
+        xlSheet.Cells(N2 + 1, 11) = "=SUM(K3:K" & N2 & ")"
+        xlSheet.Cells(N2 + 1, 12) = "=SUM(L3:L" & N2 & ")"
+
+        '--------------------------------------彙總-----------------------------
+        xlSheet.Cells(N2 + 2, 8) = "彙總"
+        xlSheet.Cells(N2 + 2, 9) = "=I" & N2 + 1 & "+J" & N2 + 1 & "+K" & N2 + 1 & "-L" & N2 + 1 & ""
+
+        BB(xlApp, xlSheet)
+        xlSheet.PageSetup.PrintArea = ""
+        xlApp.Cells.Select()
+        xlApp.Application.WindowState = xlMinimized
+        MsgBox("列印完成!!!")
+        'Me.Close()
+    End Sub
+    Private Sub BB(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
+        xlSheet.Cells.Select()
+        With myExcel.Selection.Font
+            .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
+            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+
+        xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 15
+        xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 9
+        xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 9
+        xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 9
+        xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 9
+        xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 5
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 20
+        xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 35
+        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Columns("I:L").Select : myExcel.Selection.ColumnWidth = 9 : myExcel.Selection.Style = "Comma"
+        myExcel.Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
+        myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
+        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 35
+        xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 30
+        With myExcel.Selection : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
+            .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        myExcel.Selection.AutoFilter
+        xlSheet.Rows("1:1").Select
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Range("A1:L1").Select()
+        With myExcel.Selection
+            .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+        myExcel.Selection.Merge
+        xlSheet.Rows("3:3").Select : myExcel.ActiveWindow.FreezePanes = True : xlSheet.Range("A1:L2").Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+
+        With myExcel.Selection.Borders(xlEdgeLeft)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+
+        With myExcel.Selection.Borders(xlEdgeTop)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+
+        With myExcel.Selection.Borders(xlEdgeBottom)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+
+        With myExcel.Selection.Borders(xlEdgeRight)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+
+        With myExcel.Selection.Borders(xlInsideVertical)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+        With myExcel.Selection.Borders(xlInsideHorizontal)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+
+        With myExcel.Selection.Borders(xlEdgeLeft)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+
+        With myExcel.Selection.Borders(xlEdgeTop)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+
+        With myExcel.Selection.Borders(xlEdgeBottom)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+        With myExcel.Selection.Borders(xlEdgeRight)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+        With myExcel.Selection.Borders(xlInsideVertical)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+        With myExcel.Selection.Borders(xlInsideHorizontal)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+        xlSheet.Range("A3:L" & N2).Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+
+        With myExcel.Selection.Borders(xlEdgeLeft)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+        With myExcel.Selection.Borders(xlEdgeTop)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+        With myExcel.Selection.Borders(xlEdgeBottom)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+        With myExcel.Selection.Borders(xlEdgeRight)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+        With myExcel.Selection.Borders(xlInsideVertical)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+        With myExcel.Selection.Borders(xlInsideHorizontal)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
+        myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+        With myExcel.Selection.Borders(xlEdgeTop)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+        With myExcel.Selection.Borders(xlEdgeBottom)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+        With myExcel.Selection.Borders(xlEdgeRight)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+        With myExcel.Selection.Borders(xlInsideVertical)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+        With myExcel.Selection.Borders(xlInsideHorizontal)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+        xlSheet.Range("L2").Select() : myExcel.Selection.ClearContents
+        xlSheet.Range("L2").Select() : myExcel.Selection.ClearContents
+
+        xlSheet.Range("A2:L2").Select()
+        With myExcel.Selection
+            .HorizontalAlignment = xlCenter : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+        With myExcel.Selection.Font
+            .Name = "微軟正黑體"
+            .Size = 14 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False : .Underline = xlUnderlineStyleNone
+            .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+        With myExcel.Selection.Font
+            .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+        With myExcel.Selection.Interior
+            .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent6 : .TintAndShade = 0 : .PatternTintAndShade = 0
+        End With
+        xlSheet.Range("A1:L1").Select() : myExcel.Selection.Font.Size = 11
+        With myExcel.Selection.Font
+            .Name = "微軟正黑體" : .Size = 22 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
+            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+    End Sub
 End Class

YD-ERP-SYS/財務系統管理/薪資轉帳表.Designer.vb

@@ -0,0 +1,709 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 薪資轉帳表
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(薪資轉帳表))
+        Me.薪資帳號_tb = New System.Windows.Forms.TextBox()
+        Me.狀態_lb = New System.Windows.Forms.Label()
+        Me.流水號_tb = New System.Windows.Forms.TextBox()
+        Me.刪除_bt = New System.Windows.Forms.Button()
+        Me.存檔_bt = New System.Windows.Forms.Button()
+        Me.新增準備_bt = New System.Windows.Forms.Button()
+        Me.領現_tb = New System.Windows.Forms.TextBox()
+        Me.薪資_tb = New System.Windows.Forms.TextBox()
+        Me.獎金_tb = New System.Windows.Forms.TextBox()
+        Me.身分證_tb = New System.Windows.Forms.TextBox()
+        Me.編號_tb = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.薪轉_dgv = New System.Windows.Forms.DataGridView()
+        Me.給付方式_cb = New System.Windows.Forms.ComboBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.薪資總金額_tb = New System.Windows.Forms.TextBox()
+        Me.領現總金額_tb = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.姓名_cb = New System.Windows.Forms.ComboBox()
+        Me.人事流水號_tb = New System.Windows.Forms.TextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.重新整理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
+        Me.新增準備ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.存檔ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.刪除ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.上個月_bt = New System.Windows.Forms.Button()
+        Me.一般月_ch = New System.Windows.Forms.CheckBox()
+        Me.會計月_ch = New System.Windows.Forms.CheckBox()
+        Me.下個月_bt = New System.Windows.Forms.Button()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.結束日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.開始日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.合計總金額_tb = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.匯入EXCEL_bt = New System.Windows.Forms.Button()
+        Me.匯出EXCEL_bt = New System.Windows.Forms.Button()
+        Me.批量存檔_bt = New System.Windows.Forms.Button()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        CType(Me.薪轉_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        '薪資帳號_tb
+        '
+        Me.薪資帳號_tb.Location = New System.Drawing.Point(837, 11)
+        Me.薪資帳號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.薪資帳號_tb.Name = "薪資帳號_tb"
+        Me.薪資帳號_tb.ReadOnly = True
+        Me.薪資帳號_tb.Size = New System.Drawing.Size(116, 23)
+        Me.薪資帳號_tb.TabIndex = 1046
+        '
+        '狀態_lb
+        '
+        Me.狀態_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.狀態_lb.AutoSize = True
+        Me.狀態_lb.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.狀態_lb.ForeColor = System.Drawing.Color.Red
+        Me.狀態_lb.Location = New System.Drawing.Point(1410, 18)
+        Me.狀態_lb.Name = "狀態_lb"
+        Me.狀態_lb.Size = New System.Drawing.Size(48, 48)
+        Me.狀態_lb.TabIndex = 1045
+        Me.狀態_lb.Text = "編輯" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "狀態"
+        '
+        '流水號_tb
+        '
+        Me.流水號_tb.Location = New System.Drawing.Point(126, 163)
+        Me.流水號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.流水號_tb.Name = "流水號_tb"
+        Me.流水號_tb.Size = New System.Drawing.Size(116, 23)
+        Me.流水號_tb.TabIndex = 1044
+        '
+        '刪除_bt
+        '
+        Me.刪除_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.刪除_bt.AutoSize = True
+        Me.刪除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, 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(1616, 11)
+        Me.刪除_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.刪除_bt.Name = "刪除_bt"
+        Me.刪除_bt.Size = New System.Drawing.Size(77, 63)
+        Me.刪除_bt.TabIndex = 1043
+        Me.刪除_bt.Text = "刪除"
+        Me.刪除_bt.UseVisualStyleBackColor = True
+        '
+        '存檔_bt
+        '
+        Me.存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.存檔_bt.AutoSize = True
+        Me.存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.存檔_bt.ForeColor = System.Drawing.Color.Green
+        Me.存檔_bt.Location = New System.Drawing.Point(1537, 11)
+        Me.存檔_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.存檔_bt.Name = "存檔_bt"
+        Me.存檔_bt.Size = New System.Drawing.Size(77, 63)
+        Me.存檔_bt.TabIndex = 1042
+        Me.存檔_bt.Text = "存檔"
+        Me.存檔_bt.UseVisualStyleBackColor = True
+        '
+        '新增準備_bt
+        '
+        Me.新增準備_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.新增準備_bt.AutoSize = True
+        Me.新增準備_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.新增準備_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.新增準備_bt.Location = New System.Drawing.Point(1458, 11)
+        Me.新增準備_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.新增準備_bt.Name = "新增準備_bt"
+        Me.新增準備_bt.Size = New System.Drawing.Size(77, 63)
+        Me.新增準備_bt.TabIndex = 1041
+        Me.新增準備_bt.Text = "新增" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "準備"
+        Me.新增準備_bt.UseVisualStyleBackColor = True
+        '
+        '領現_tb
+        '
+        Me.領現_tb.Location = New System.Drawing.Point(837, 41)
+        Me.領現_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.領現_tb.Name = "領現_tb"
+        Me.領現_tb.Size = New System.Drawing.Size(116, 23)
+        Me.領現_tb.TabIndex = 1040
+        Me.領現_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        '薪資_tb
+        '
+        Me.薪資_tb.Location = New System.Drawing.Point(681, 41)
+        Me.薪資_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.薪資_tb.Name = "薪資_tb"
+        Me.薪資_tb.Size = New System.Drawing.Size(116, 23)
+        Me.薪資_tb.TabIndex = 1038
+        Me.薪資_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        '獎金_tb
+        '
+        Me.獎金_tb.Location = New System.Drawing.Point(681, 11)
+        Me.獎金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.獎金_tb.Name = "獎金_tb"
+        Me.獎金_tb.Size = New System.Drawing.Size(116, 23)
+        Me.獎金_tb.TabIndex = 1037
+        Me.獎金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        '身分證_tb
+        '
+        Me.身分證_tb.Location = New System.Drawing.Point(522, 11)
+        Me.身分證_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.身分證_tb.Name = "身分證_tb"
+        Me.身分證_tb.ReadOnly = True
+        Me.身分證_tb.Size = New System.Drawing.Size(116, 23)
+        Me.身分證_tb.TabIndex = 1035
+        '
+        '編號_tb
+        '
+        Me.編號_tb.Location = New System.Drawing.Point(333, 11)
+        Me.編號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.編號_tb.Name = "編號_tb"
+        Me.編號_tb.ReadOnly = True
+        Me.編號_tb.Size = New System.Drawing.Size(116, 23)
+        Me.編號_tb.TabIndex = 1031
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(801, 48)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(32, 16)
+        Me.Label10.TabIndex = 1030
+        Me.Label10.Text = "領現"
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.ForeColor = System.Drawing.Color.Black
+        Me.Label8.Location = New System.Drawing.Point(643, 48)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(32, 16)
+        Me.Label8.TabIndex = 1028
+        Me.Label8.Text = "薪資"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(642, 16)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(32, 16)
+        Me.Label7.TabIndex = 1027
+        Me.Label7.Text = "獎金"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(801, 16)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(32, 16)
+        Me.Label6.TabIndex = 1026
+        Me.Label6.Text = "帳號"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(453, 16)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(56, 16)
+        Me.Label5.TabIndex = 1025
+        Me.Label5.Text = "身分證號"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.ForeColor = System.Drawing.Color.Red
+        Me.Label3.Location = New System.Drawing.Point(295, 46)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(32, 16)
+        Me.Label3.TabIndex = 1023
+        Me.Label3.Text = "姓名"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(295, 16)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(32, 16)
+        Me.Label1.TabIndex = 1021
+        Me.Label1.Text = "編號"
+        '
+        '薪轉_dgv
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.薪轉_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.薪轉_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.薪轉_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.薪轉_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.薪轉_dgv.Location = New System.Drawing.Point(14, 119)
+        Me.薪轉_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.薪轉_dgv.Name = "薪轉_dgv"
+        Me.薪轉_dgv.RowHeadersWidth = 5
+        Me.薪轉_dgv.RowTemplate.Height = 24
+        Me.薪轉_dgv.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.CellSelect
+        Me.薪轉_dgv.Size = New System.Drawing.Size(1679, 868)
+        Me.薪轉_dgv.TabIndex = 1020
+        '
+        '給付方式_cb
+        '
+        Me.給付方式_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.給付方式_cb.FormattingEnabled = True
+        Me.給付方式_cb.Items.AddRange(New Object() {"帳號匯款", "領現"})
+        Me.給付方式_cb.Location = New System.Drawing.Point(522, 42)
+        Me.給付方式_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.給付方式_cb.Name = "給付方式_cb"
+        Me.給付方式_cb.Size = New System.Drawing.Size(116, 24)
+        Me.給付方式_cb.TabIndex = 1181
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.ForeColor = System.Drawing.Color.Red
+        Me.Label9.Location = New System.Drawing.Point(453, 49)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(56, 16)
+        Me.Label9.TabIndex = 1180
+        Me.Label9.Text = "給付方式"
+        '
+        '薪資總金額_tb
+        '
+        Me.薪資總金額_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.薪資總金額_tb.ForeColor = System.Drawing.Color.Blue
+        Me.薪資總金額_tb.Location = New System.Drawing.Point(80, 88)
+        Me.薪資總金額_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.薪資總金額_tb.Name = "薪資總金額_tb"
+        Me.薪資總金額_tb.ReadOnly = True
+        Me.薪資總金額_tb.Size = New System.Drawing.Size(168, 23)
+        Me.薪資總金額_tb.TabIndex = 1419
+        Me.薪資總金額_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        '領現總金額_tb
+        '
+        Me.領現總金額_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.領現總金額_tb.ForeColor = System.Drawing.Color.ForestGreen
+        Me.領現總金額_tb.Location = New System.Drawing.Point(322, 88)
+        Me.領現總金額_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.領現總金額_tb.Name = "領現總金額_tb"
+        Me.領現總金額_tb.ReadOnly = True
+        Me.領現總金額_tb.Size = New System.Drawing.Size(168, 23)
+        Me.領現總金額_tb.TabIndex = 1418
+        Me.領現總金額_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.ForestGreen
+        Me.Label2.Location = New System.Drawing.Point(252, 92)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(68, 16)
+        Me.Label2.TabIndex = 1417
+        Me.Label2.Text = "領現總金額"
+        '
+        'Label4
+        '
+        Me.Label4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label4.AutoSize = True
+        Me.Label4.ForeColor = System.Drawing.Color.Blue
+        Me.Label4.Location = New System.Drawing.Point(7, 92)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(71, 16)
+        Me.Label4.TabIndex = 1416
+        Me.Label4.Text = " 薪資總金額"
+        '
+        '姓名_cb
+        '
+        Me.姓名_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.姓名_cb.FormattingEnabled = True
+        Me.姓名_cb.Location = New System.Drawing.Point(333, 42)
+        Me.姓名_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.姓名_cb.Name = "姓名_cb"
+        Me.姓名_cb.Size = New System.Drawing.Size(116, 24)
+        Me.姓名_cb.TabIndex = 1420
+        '
+        '人事流水號_tb
+        '
+        Me.人事流水號_tb.Location = New System.Drawing.Point(1031, 11)
+        Me.人事流水號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.人事流水號_tb.Name = "人事流水號_tb"
+        Me.人事流水號_tb.ReadOnly = True
+        Me.人事流水號_tb.Size = New System.Drawing.Size(116, 23)
+        Me.人事流水號_tb.TabIndex = 1421
+        Me.人事流水號_tb.Visible = False
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(957, 16)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(68, 16)
+        Me.Label11.TabIndex = 1422
+        Me.Label11.Text = "人事流水號"
+        Me.Label11.Visible = False
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新整理ToolStripMenuItem, Me.ToolStripSeparator3, Me.新增準備ToolStripMenuItem, Me.存檔ToolStripMenuItem, Me.刪除ToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 98)
+        '
+        '重新整理ToolStripMenuItem
+        '
+        Me.重新整理ToolStripMenuItem.Name = "重新整理ToolStripMenuItem"
+        Me.重新整理ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
+        Me.重新整理ToolStripMenuItem.Text = "重新整理"
+        '
+        'ToolStripSeparator3
+        '
+        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(119, 6)
+        '
+        '新增準備ToolStripMenuItem
+        '
+        Me.新增準備ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.新增準備ToolStripMenuItem.Name = "新增準備ToolStripMenuItem"
+        Me.新增準備ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
+        Me.新增準備ToolStripMenuItem.Text = "新增準備"
+        '
+        '存檔ToolStripMenuItem
+        '
+        Me.存檔ToolStripMenuItem.ForeColor = System.Drawing.Color.Green
+        Me.存檔ToolStripMenuItem.Name = "存檔ToolStripMenuItem"
+        Me.存檔ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
+        Me.存檔ToolStripMenuItem.Text = "存檔"
+        '
+        '刪除ToolStripMenuItem
+        '
+        Me.刪除ToolStripMenuItem.ForeColor = System.Drawing.Color.Red
+        Me.刪除ToolStripMenuItem.Name = "刪除ToolStripMenuItem"
+        Me.刪除ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
+        Me.刪除ToolStripMenuItem.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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.上個月_bt.Location = New System.Drawing.Point(148, 40)
+        Me.上個月_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.上個月_bt.Name = "上個月_bt"
+        Me.上個月_bt.Size = New System.Drawing.Size(71, 31)
+        Me.上個月_bt.TabIndex = 1426
+        Me.上個月_bt.Text = "上個月"
+        Me.上個月_bt.UseVisualStyleBackColor = True
+        '
+        '一般月_ch
+        '
+        Me.一般月_ch.AutoSize = True
+        Me.一般月_ch.Location = New System.Drawing.Point(79, 45)
+        Me.一般月_ch.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.一般月_ch.Name = "一般月_ch"
+        Me.一般月_ch.Size = New System.Drawing.Size(63, 20)
+        Me.一般月_ch.TabIndex = 1429
+        Me.一般月_ch.Text = "一般月"
+        Me.一般月_ch.UseVisualStyleBackColor = True
+        Me.一般月_ch.Visible = False
+        '
+        '會計月_ch
+        '
+        Me.會計月_ch.AutoSize = True
+        Me.會計月_ch.Checked = True
+        Me.會計月_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.會計月_ch.Location = New System.Drawing.Point(11, 45)
+        Me.會計月_ch.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.會計月_ch.Name = "會計月_ch"
+        Me.會計月_ch.Size = New System.Drawing.Size(63, 20)
+        Me.會計月_ch.TabIndex = 1428
+        Me.會計月_ch.Text = "會計月"
+        Me.會計月_ch.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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.下個月_bt.Location = New System.Drawing.Point(221, 40)
+        Me.下個月_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.下個月_bt.Name = "下個月_bt"
+        Me.下個月_bt.Size = New System.Drawing.Size(71, 31)
+        Me.下個月_bt.TabIndex = 1427
+        Me.下個月_bt.Text = "下個月"
+        Me.下個月_bt.UseVisualStyleBackColor = True
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(143, 17)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(20, 16)
+        Me.Label12.TabIndex = 1425
+        Me.Label12.Text = "到"
+        '
+        '結束日期_dtp
+        '
+        Me.結束日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.結束日期_dtp.Location = New System.Drawing.Point(169, 12)
+        Me.結束日期_dtp.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.結束日期_dtp.Name = "結束日期_dtp"
+        Me.結束日期_dtp.Size = New System.Drawing.Size(122, 23)
+        Me.結束日期_dtp.TabIndex = 1424
+        '
+        '開始日期_dtp
+        '
+        Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.開始日期_dtp.Location = New System.Drawing.Point(14, 12)
+        Me.開始日期_dtp.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.開始日期_dtp.Name = "開始日期_dtp"
+        Me.開始日期_dtp.Size = New System.Drawing.Size(122, 23)
+        Me.開始日期_dtp.TabIndex = 1423
+        '
+        '中間日期_dtp
+        '
+        Me.中間日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.中間日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.中間日期_dtp.Location = New System.Drawing.Point(26, 163)
+        Me.中間日期_dtp.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.中間日期_dtp.Name = "中間日期_dtp"
+        Me.中間日期_dtp.Size = New System.Drawing.Size(49, 23)
+        Me.中間日期_dtp.TabIndex = 1430
+        Me.中間日期_dtp.Visible = False
+        '
+        '合計總金額_tb
+        '
+        Me.合計總金額_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.合計總金額_tb.ForeColor = System.Drawing.Color.Crimson
+        Me.合計總金額_tb.Location = New System.Drawing.Point(564, 88)
+        Me.合計總金額_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.合計總金額_tb.Name = "合計總金額_tb"
+        Me.合計總金額_tb.ReadOnly = True
+        Me.合計總金額_tb.Size = New System.Drawing.Size(168, 23)
+        Me.合計總金額_tb.TabIndex = 1432
+        Me.合計總金額_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label13
+        '
+        Me.Label13.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label13.AutoSize = True
+        Me.Label13.ForeColor = System.Drawing.Color.Crimson
+        Me.Label13.Location = New System.Drawing.Point(494, 92)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(68, 16)
+        Me.Label13.TabIndex = 1431
+        Me.Label13.Text = "合計總金額"
+        '
+        '匯入EXCEL_bt
+        '
+        Me.匯入EXCEL_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.匯入EXCEL_bt.AutoSize = True
+        Me.匯入EXCEL_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.匯入EXCEL_bt.ForeColor = System.Drawing.Color.Black
+        Me.匯入EXCEL_bt.Location = New System.Drawing.Point(1326, 10)
+        Me.匯入EXCEL_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.匯入EXCEL_bt.Name = "匯入EXCEL_bt"
+        Me.匯入EXCEL_bt.Size = New System.Drawing.Size(82, 64)
+        Me.匯入EXCEL_bt.TabIndex = 1433
+        Me.匯入EXCEL_bt.Text = "匯入EXCEL"
+        Me.匯入EXCEL_bt.UseVisualStyleBackColor = True
+        '
+        '匯出EXCEL_bt
+        '
+        Me.匯出EXCEL_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.匯出EXCEL_bt.AutoSize = True
+        Me.匯出EXCEL_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.匯出EXCEL_bt.ForeColor = System.Drawing.Color.Black
+        Me.匯出EXCEL_bt.Location = New System.Drawing.Point(1242, 10)
+        Me.匯出EXCEL_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.匯出EXCEL_bt.Name = "匯出EXCEL_bt"
+        Me.匯出EXCEL_bt.Size = New System.Drawing.Size(82, 64)
+        Me.匯出EXCEL_bt.TabIndex = 1434
+        Me.匯出EXCEL_bt.Text = "匯出EXCEL"
+        Me.匯出EXCEL_bt.UseVisualStyleBackColor = True
+        '
+        '批量存檔_bt
+        '
+        Me.批量存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.批量存檔_bt.AutoSize = True
+        Me.批量存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.批量存檔_bt.ForeColor = System.Drawing.Color.Firebrick
+        Me.批量存檔_bt.Location = New System.Drawing.Point(1458, 88)
+        Me.批量存檔_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.批量存檔_bt.Name = "批量存檔_bt"
+        Me.批量存檔_bt.Size = New System.Drawing.Size(235, 27)
+        Me.批量存檔_bt.TabIndex = 1435
+        Me.批量存檔_bt.Text = "批量存檔"
+        Me.批量存檔_bt.UseVisualStyleBackColor = True
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Location = New System.Drawing.Point(3, 67)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(1228, 16)
+        Me.Label14.TabIndex = 1436
+        Me.Label14.Text = resources.GetString("Label14.Text")
+        '
+        'Label15
+        '
+        Me.Label15.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(465, 67)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(1228, 16)
+        Me.Label15.TabIndex = 1437
+        Me.Label15.Text = resources.GetString("Label15.Text")
+        '
+        'Timer1
+        '
+        Me.Timer1.Interval = 500
+        '
+        '薪資轉帳表
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1707, 1000)
+        Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.批量存檔_bt)
+        Me.Controls.Add(Me.匯出EXCEL_bt)
+        Me.Controls.Add(Me.匯入EXCEL_bt)
+        Me.Controls.Add(Me.合計總金額_tb)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.中間日期_dtp)
+        Me.Controls.Add(Me.上個月_bt)
+        Me.Controls.Add(Me.一般月_ch)
+        Me.Controls.Add(Me.會計月_ch)
+        Me.Controls.Add(Me.下個月_bt)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.結束日期_dtp)
+        Me.Controls.Add(Me.開始日期_dtp)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.人事流水號_tb)
+        Me.Controls.Add(Me.姓名_cb)
+        Me.Controls.Add(Me.薪資總金額_tb)
+        Me.Controls.Add(Me.領現總金額_tb)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.給付方式_cb)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.薪資帳號_tb)
+        Me.Controls.Add(Me.狀態_lb)
+        Me.Controls.Add(Me.刪除_bt)
+        Me.Controls.Add(Me.存檔_bt)
+        Me.Controls.Add(Me.新增準備_bt)
+        Me.Controls.Add(Me.領現_tb)
+        Me.Controls.Add(Me.薪資_tb)
+        Me.Controls.Add(Me.獎金_tb)
+        Me.Controls.Add(Me.身分證_tb)
+        Me.Controls.Add(Me.編號_tb)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.流水號_tb)
+        Me.Controls.Add(Me.薪轉_dgv)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.Label15)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "薪資轉帳表"
+        Me.Text = "薪資轉帳表"
+        CType(Me.薪轉_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 薪資帳號_tb As TextBox
+    Friend WithEvents 狀態_lb As Label
+    Friend WithEvents 流水號_tb As TextBox
+    Friend WithEvents 刪除_bt As Button
+    Friend WithEvents 存檔_bt As Button
+    Friend WithEvents 新增準備_bt As Button
+    Friend WithEvents 領現_tb As TextBox
+    Friend WithEvents 薪資_tb As TextBox
+    Friend WithEvents 獎金_tb As TextBox
+    Friend WithEvents 身分證_tb As TextBox
+    Friend WithEvents 編號_tb As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 薪轉_dgv As DataGridView
+    Friend WithEvents 給付方式_cb As ComboBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 薪資總金額_tb As TextBox
+    Friend WithEvents 領現總金額_tb As TextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 姓名_cb As ComboBox
+    Friend WithEvents 人事流水號_tb As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents 重新整理ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
+    Friend WithEvents 新增準備ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 存檔ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 刪除ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 上個月_bt As Button
+    Friend WithEvents 一般月_ch As CheckBox
+    Friend WithEvents 會計月_ch As CheckBox
+    Friend WithEvents 下個月_bt As Button
+    Friend WithEvents Label12 As Label
+    Friend WithEvents 結束日期_dtp As DateTimePicker
+    Friend WithEvents 開始日期_dtp As DateTimePicker
+    Friend WithEvents 中間日期_dtp As DateTimePicker
+    Friend WithEvents 合計總金額_tb As TextBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents 匯入EXCEL_bt As Button
+    Friend WithEvents 匯出EXCEL_bt As Button
+    Friend WithEvents 批量存檔_bt As Button
+    Friend WithEvents Label14 As Label
+    Friend WithEvents Label15 As Label
+    Friend WithEvents Timer1 As Timer
+End Class

YD-ERP-SYS/財務系統管理/薪資轉帳表.resx

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

YD-ERP-SYS/財務系統管理/薪資轉帳表.vb

@@ -0,0 +1,274 @@
+Option Strict Off
+Public Class 薪資轉帳表
+    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 資料新增判斷 As Boolean : Dim 第一次開啟判斷 As Boolean = False : Dim EDR As Integer = 0 : Dim ESTR As String : Dim EDR1 As Integer = 0
+    Dim ESTR1 As String : Dim 首次開啟 As Boolean = False
+    Private Sub Set_清單()
+        薪轉_dgv.DataSource = Nothing : ds1.Clear()
+        薪轉_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        薪轉_dgv.ColumnHeadersHeight = 40
+        薪轉_dgv.AllowUserToAddRows = False
+
+        薪資轉帳表_月份清單()
+        da.Fill(ds1)
+        薪轉_dgv.DataSource = ds1.Tables(0)
+        conn.Close()
+
+        薪轉_dgv.Columns(10).Visible = False
+        薪轉_dgv.Columns(0).ReadOnly = True : 薪轉_dgv.Columns(1).ReadOnly = True : 薪轉_dgv.Columns(2).ReadOnly = True : 薪轉_dgv.Columns(3).ReadOnly = True
+        薪轉_dgv.Columns(4).ReadOnly = False : 薪轉_dgv.Columns(5).ReadOnly = False : 薪轉_dgv.Columns(6).ReadOnly = False : 薪轉_dgv.Columns(7).ReadOnly = False
+        薪轉_dgv.Columns(8).ReadOnly = False : 薪轉_dgv.Columns(9).ReadOnly = True
+        薪轉_dgv.Columns("獎金").DefaultCellStyle.Format = "#,##0.0"
+        薪轉_dgv.Columns("薪資").DefaultCellStyle.Format = "#,##0.0"
+        薪轉_dgv.Columns("領現合計").DefaultCellStyle.Format = "#,##0.0"
+        薪轉_dgv.Columns("薪資合計").DefaultCellStyle.Format = "#,##0.0"
+        薪轉_dgv.Columns("領現").DefaultCellStyle.Format = "#,##0.0"
+        '---------------------------------------欄位置中-----------------------------------------------------------'
+        薪轉_dgv.Columns("流水號").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("流水號").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("姓名").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("姓名").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("身分證").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("身分證").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("結算日期").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("結算日期").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("給付方式").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("給付方式").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("薪資帳號").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("薪資帳號").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("職務").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("職務").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("電話").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("電話").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("手機").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("手機").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        '---------------------------------------欄位靠右-----------------------------------------------------------'
+        薪轉_dgv.Columns("獎金").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        薪轉_dgv.Columns("獎金").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        薪轉_dgv.Columns("薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("領現").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        薪轉_dgv.Columns("領現").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("薪資合計").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        薪轉_dgv.Columns("薪資合計").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.Columns("領現合計").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        薪轉_dgv.Columns("領現合計").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        薪轉_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        Set_合記計算()
+    End Sub
+    Private Sub Set_合記計算()
+        薪資總金額_tb.Text = "0" : 領現總金額_tb.Text = "0" : 合計總金額_tb.Text = "0"
+        For i As Integer = 0 To 薪轉_dgv.Rows.Count - 1
+            薪轉_dgv("薪資合計", i).Value = 薪轉_dgv("獎金", i).Value + 薪轉_dgv("薪資", i).Value
+            薪資總金額_tb.Text = Val(薪資總金額_tb.Text) + 薪轉_dgv("薪資合計", i).Value
+            薪轉_dgv("領現合計", i).Value = 薪轉_dgv("領現", i).Value
+            領現總金額_tb.Text = Val(領現總金額_tb.Text) + 薪轉_dgv("領現合計", i).Value
+            合計總金額_tb.Text = Val(領現總金額_tb.Text) + Val(薪資總金額_tb.Text)
+        Next
+        薪資總金額_tb.Text = Format(Val(薪資總金額_tb.Text), "#,##0")
+        領現總金額_tb.Text = Format(Val(領現總金額_tb.Text), "#,##0")
+        合計總金額_tb.Text = Format(Val(合計總金額_tb.Text), "#,##0")
+    End Sub
+    Private Sub 日期格式()
+        If 會計月_ch.Checked = True Then
+            '-------------日期一----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1)
+            DTP = Strings.Left(Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "26" : 開始日期_dtp.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "25" : 結束日期_dtp.Value = DTP
+        Else
+            '-------------日期一----------------------------------------------------------------------------------------
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(1)
+            DTP = Strings.Left(Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
+        End If
+    End Sub
+    Private Sub 薪資轉帳表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        狀態_lb.Visible = False
+        流水號_tb.Visible = False : 編號_tb.Enabled = False : 第一次開啟判斷 = True
+        If 第一次開啟判斷 = True Then
+            薪資轉帳表_姓名選擇()
+            While dr.Read()
+                姓名_cb.Items.Add(dr("姓名").ToString())
+            End While
+        End If
+        conn.Close()
+        首次開啟 = False : 日期格式() : Set_清單() : 首次開啟 = True '--------------------資料讀取
+    End Sub
+    Private Sub 薪資轉帳表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        第一次開啟判斷 = False
+    End Sub
+    Private Sub 薪轉_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 薪轉_dgv.CellClick
+        If 首次開啟 = True Then
+            If e.RowIndex = -1 Then : Else
+                流水號_tb.Text = 薪轉_dgv(0, e.RowIndex).Value : 姓名_cb.Text = 薪轉_dgv(1, e.RowIndex).Value.ToString
+                身分證_tb.Text = 薪轉_dgv(2, e.RowIndex).Value.ToString : 結束日期_dtp.Value = 薪轉_dgv(3, e.RowIndex).Value.ToString
+                獎金_tb.Text = 薪轉_dgv(4, e.RowIndex).Value.ToString : 薪資_tb.Text = 薪轉_dgv(5, e.RowIndex).Value.ToString
+                領現_tb.Text = 薪轉_dgv(6, e.RowIndex).Value.ToString : 給付方式_cb.Text = 薪轉_dgv(9, e.RowIndex).Value.ToString
+                人事流水號_tb.Text = 薪轉_dgv(10, e.RowIndex).Value.ToString
+                獎金_tb.Text = Format(Val(獎金_tb.Text), "#,##0.0")
+                薪資_tb.Text = Format(Val(薪資_tb.Text), "#,##0.0")
+                領現_tb.Text = Format(Val(領現_tb.Text), "#,##0.0")
+
+            End If
+        End If
+    End Sub
+    Private Sub 薪轉_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 薪轉_dgv.CellEndEdit
+        薪資總金額_tb.Text = "0" : 領現總金額_tb.Text = "0" : 合計總金額_tb.Text = "0"
+        For i As Integer = 0 To 薪轉_dgv.Rows.Count - 1
+            薪轉_dgv("薪資合計", i).Value = 薪轉_dgv("獎金", i).Value + 薪轉_dgv("薪資", i).Value
+            薪資總金額_tb.Text = Val(薪資總金額_tb.Text) + 薪轉_dgv("薪資合計", i).Value
+            薪轉_dgv("領現合計", i).Value = 薪轉_dgv("領現", i).Value
+            領現總金額_tb.Text = Val(領現總金額_tb.Text) + 薪轉_dgv("領現合計", i).Value
+            合計總金額_tb.Text = Val(領現總金額_tb.Text) + Val(薪資總金額_tb.Text)
+        Next
+        薪資總金額_tb.Text = Format(Val(薪資總金額_tb.Text), "#,##0")
+        領現總金額_tb.Text = Format(Val(領現總金額_tb.Text), "#,##0")
+        合計總金額_tb.Text = Format(Val(合計總金額_tb.Text), "#,##0")
+    End Sub
+    Private Sub 新增準備_bt_Click(sender As Object, e As EventArgs) Handles 新增準備_bt.Click
+        Timer1.Enabled = True
+        流水號_tb.Text = "" : 獎金_tb.Text = "" : 薪資_tb.Text = "" : 領現_tb.Text = ""     '--------------------控件清空
+        資料新增判斷 = True '--------------------目前的編輯狀態
+        新增準備_bt.Enabled = False  '--------------------關閉點選控制功能
+        ': 刪除_bt.Enabled = False : 批量存檔_bt.Enabled = False
+        薪轉_dgv.Enabled = False '--------------------關閉DGV控件的點選控制功能
+
+        SQL_薪資轉帳表_流水號_最後一筆資料() '--------------------自動取得新流水號
+        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 9)) : Else : EDR = 0 : End If
+        conn.Close() : EDR += 1
+        If EDR < 10 Then : ESTR = "M" & "00000000" & EDR
+        ElseIf EDR > 9 And EDR < 100 Then : ESTR = "M" & "0000000" & EDR
+        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "M" & "000000" & EDR
+        ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "M" & "00000" & EDR
+        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "M" & "0000" & EDR
+        ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "M" & "000" & EDR
+        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "M" & "00" & EDR
+        ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "M" & "0" & EDR
+        ElseIf EDR > 99999999 Then : ESTR = "M" & EDR
+        End If : 流水號_tb.Text = ESTR
+
+        'Set_日期格式轉換() '--------------------到職日期格式傳換
+        SQL_薪資轉帳表_新增() '--------------------薪資轉帳表中寫入一筆資料
+        Set_清單() '--------------------資料修改後重新讀取清單
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        If 流水號_tb.Text = "" Then '--------------------設定條件讓流水號控件不為空
+            MsgBox("沒有選擇要存檔的資料")
+        Else
+            If 姓名_cb.Text = "" Then
+                MsgBox("沒有名字難不成要撒錢，請填上他的名字")
+            Else
+                If 給付方式_cb.Text = "" Then
+                    MsgBox("還是選個給薪的方式巴")
+                Else
+                    資料新增判斷 = False '--------------------目前的編輯狀態
+                    狀態_lb.Visible = False
+                    薪轉_dgv.Enabled = True '--------------------開啟DGV控件的點選控制功能
+                    'Set_日期格式轉換() '--------------------到職日期格式傳換
+                    SQL_薪資轉帳表_修改() '--------------------資料修改
+                    Set_清單() '--------------------資料修改後重新讀取清單
+                    新增準備_bt.Enabled = True
+                End If
+            End If
+            Timer1.Enabled = False
+        End If
+    End Sub
+    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
+        If 流水號_tb.Text = "" Then '--------------------設定條件讓流水號控件不為空
+            MsgBox("沒有選擇要刪除的資料")
+        Else
+            Dim aa1 As MsgBoxResult = MsgBox("確定要執行刪除指令嗎?", MsgBoxStyle.OkCancel)
+            If aa1 = MsgBoxResult.Ok Then
+                SQL_薪資轉帳表_刪除() '--------------------資料刪除
+                Set_清單() '--------------------資料修改後重新讀取清單
+            End If
+        End If
+    End Sub
+    Private Sub 姓名_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 姓名_cb.SelectedIndexChanged
+        ConnOpen() : SQL1 = "SELECT 流水號 FROM 人事資料表 WHERE (姓名 = N'" & Me.姓名_cb.Text & "')"
+        CmdSet_For_dr()
+        dr.Read()
+        人事流水號_tb.Text = dr("流水號").ToString()
+        conn.Close()
+        ConnOpen() : SQL1 = "SELECT 身分證, 舊編, 薪資帳號 FROM 人事資料表 WHERE (姓名 = N'" & Me.姓名_cb.Text & "')"
+        CmdSet_For_dr()
+        dr.Read()
+        身分證_tb.Text = dr("身分證").ToString()
+        編號_tb.Text = dr("舊編").ToString()
+        薪資帳號_tb.Text = dr("薪資帳號").ToString()
+        conn.Close()
+    End Sub
+    Private Sub 開始日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 開始日期_dtp.ValueChanged
+        Set_清單()
+    End Sub
+    Private Sub 結束日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged
+        Set_清單()
+    End Sub
+    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月_ch.Click
+        會計月_ch.Checked = True : 一般月_ch.Checked = False : 日期格式()
+    End Sub
+    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月_ch.Click
+        會計月_ch.Checked = False : 一般月_ch.Checked = True : 日期格式()
+    End Sub
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        If 狀態_lb.Visible = True Then : 狀態_lb.Visible = False : Else : 狀態_lb.Visible = True : End If
+    End Sub
+    Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
+        If 會計月_ch.Checked = True Then
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        Else
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        End If
+        日期格式()
+    End Sub
+    Private Sub 下個月_bt_Click(sender As Object, e As EventArgs) Handles 下個月_bt.Click
+        If 會計月_ch.Checked = True Then
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        Else
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        End If
+        日期格式()
+    End Sub
+    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
+        Set_清單()
+    End Sub
+    Private Sub 新增準備ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 新增準備ToolStripMenuItem.Click
+        新增準備_bt.PerformClick()
+    End Sub
+    Private Sub 存檔ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 存檔ToolStripMenuItem.Click
+        存檔_bt.PerformClick()
+    End Sub
+    Private Sub 刪除ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除ToolStripMenuItem.Click
+        刪除_bt.PerformClick()
+    End Sub
+    Private Sub 匯入EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 匯入EXCEL_bt.Click
+        PA = "" : 匯入EXCEL.ShowDialog() : 匯入EXCEL.BringToFront()
+    End Sub
+    Private Sub 匯出EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 匯出EXCEL_bt.Click 
+        PA = "" : 匯出EXCEL.ShowDialog() : 匯出EXCEL.BringToFront()
+    End Sub
+    Private Sub 批量存檔_Click(sender As Object, e As EventArgs) Handles 批量存檔_bt.Click
+        For i As Integer = 0 To 薪轉_dgv.Rows.Count - 1
+            資料數 = 薪轉_dgv.Rows.Count : MyModule1.進度條() : YD_ERP_SYS.ToolStripProgressBar1.Value = 最終數
+            PA1 = 薪轉_dgv.Rows(i).Cells("流水號").Value : PA2 = 薪轉_dgv.Rows(i).Cells("姓名").Value.ToString : PA3 = 薪轉_dgv.Rows(i).Cells("身分證").Value.ToString
+            PA4 = 薪轉_dgv.Rows(i).Cells("結算日期").Value : PA5 = 薪轉_dgv.Rows(i).Cells("獎金").Value : PA6 = 薪轉_dgv.Rows(i).Cells("薪資").Value
+            PA7 = 薪轉_dgv.Rows(i).Cells("領現").Value.ToString : PA8 = 薪轉_dgv.Rows(i).Cells("薪資合計").Value : PA9 = 薪轉_dgv.Rows(i).Cells("領現合計").Value
+            PA10 = 薪轉_dgv.Rows(i).Cells("給付方式").Value : PA11 = 薪轉_dgv.Rows(i).Cells("薪資帳號").Value.ToString : PA12 = 薪轉_dgv.Rows(i).Cells("職務").Value
+            PA13 = 薪轉_dgv.Rows(i).Cells("電話").Value : PA14 = 薪轉_dgv.Rows(i).Cells("手機").Value : PA15 = 薪轉_dgv.Rows(i).Cells("流水號").Value
+            SQL_薪資轉帳表_批量存檔薪轉資料() : conn.Close()
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : MsgBox("批量存檔完成")
+    End Sub
+End Class

YD-ERP-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 DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.顯示密碼_bt = New System.Windows.Forms.Button()
         Me.修改_bt = New System.Windows.Forms.Button()
         Me.新增_bt = New System.Windows.Forms.Button()
@@ -87,6 +87,15 @@ Partial Class 系統使用者管理
         Me.Label8 = New System.Windows.Forms.Label()
         Me.Label7 = New System.Windows.Forms.Label()
         Me.Label6 = New System.Windows.Forms.Label()
+        Me.CheckBox38 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox39 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox40 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox41 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox42 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox43 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox44 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox45 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox46 = New System.Windows.Forms.CheckBox()
         CType(Me.使用者清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.SuspendLayout()
@@ -218,8 +227,8 @@ Partial Class 系統使用者管理
         '
         '使用者清單_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.使用者清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.使用者清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
         Me.使用者清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.使用者清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -272,7 +281,7 @@ Partial Class 系統使用者管理
         'CheckBox1
         '
         Me.CheckBox1.AutoSize = True
-        Me.CheckBox1.Location = New System.Drawing.Point(882, 7)
+        Me.CheckBox1.Location = New System.Drawing.Point(893, 7)
         Me.CheckBox1.Name = "CheckBox1"
         Me.CheckBox1.Size = New System.Drawing.Size(146, 20)
         Me.CheckBox1.TabIndex = 225
@@ -283,7 +292,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox2.AutoSize = True
         Me.CheckBox2.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox2.Location = New System.Drawing.Point(904, 33)
+        Me.CheckBox2.Location = New System.Drawing.Point(915, 33)
         Me.CheckBox2.Name = "CheckBox2"
         Me.CheckBox2.Size = New System.Drawing.Size(146, 20)
         Me.CheckBox2.TabIndex = 226
@@ -294,7 +303,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox3.AutoSize = True
         Me.CheckBox3.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox3.Location = New System.Drawing.Point(904, 59)
+        Me.CheckBox3.Location = New System.Drawing.Point(915, 59)
         Me.CheckBox3.Name = "CheckBox3"
         Me.CheckBox3.Size = New System.Drawing.Size(134, 20)
         Me.CheckBox3.TabIndex = 227
@@ -305,7 +314,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox4.AutoSize = True
         Me.CheckBox4.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox4.Location = New System.Drawing.Point(904, 85)
+        Me.CheckBox4.Location = New System.Drawing.Point(915, 85)
         Me.CheckBox4.Name = "CheckBox4"
         Me.CheckBox4.Size = New System.Drawing.Size(170, 20)
         Me.CheckBox4.TabIndex = 228
@@ -316,7 +325,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox5.AutoSize = True
         Me.CheckBox5.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox5.Location = New System.Drawing.Point(904, 111)
+        Me.CheckBox5.Location = New System.Drawing.Point(915, 111)
         Me.CheckBox5.Name = "CheckBox5"
         Me.CheckBox5.Size = New System.Drawing.Size(142, 20)
         Me.CheckBox5.TabIndex = 229
@@ -326,7 +335,7 @@ Partial Class 系統使用者管理
         'CheckBox6
         '
         Me.CheckBox6.AutoSize = True
-        Me.CheckBox6.Location = New System.Drawing.Point(663, 7)
+        Me.CheckBox6.Location = New System.Drawing.Point(674, 7)
         Me.CheckBox6.Name = "CheckBox6"
         Me.CheckBox6.Size = New System.Drawing.Size(134, 20)
         Me.CheckBox6.TabIndex = 230
@@ -337,7 +346,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox7.AutoSize = True
         Me.CheckBox7.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox7.Location = New System.Drawing.Point(685, 33)
+        Me.CheckBox7.Location = New System.Drawing.Point(696, 33)
         Me.CheckBox7.Name = "CheckBox7"
         Me.CheckBox7.Size = New System.Drawing.Size(122, 20)
         Me.CheckBox7.TabIndex = 231
@@ -348,7 +357,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox8.AutoSize = True
         Me.CheckBox8.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox8.Location = New System.Drawing.Point(685, 60)
+        Me.CheckBox8.Location = New System.Drawing.Point(696, 60)
         Me.CheckBox8.Name = "CheckBox8"
         Me.CheckBox8.Size = New System.Drawing.Size(134, 20)
         Me.CheckBox8.TabIndex = 232
@@ -359,7 +368,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox9.AutoSize = True
         Me.CheckBox9.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox9.Location = New System.Drawing.Point(685, 85)
+        Me.CheckBox9.Location = New System.Drawing.Point(696, 85)
         Me.CheckBox9.Name = "CheckBox9"
         Me.CheckBox9.Size = New System.Drawing.Size(110, 20)
         Me.CheckBox9.TabIndex = 233
@@ -370,7 +379,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox10.AutoSize = True
         Me.CheckBox10.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.CheckBox10.Location = New System.Drawing.Point(685, 189)
+        Me.CheckBox10.Location = New System.Drawing.Point(696, 189)
         Me.CheckBox10.Name = "CheckBox10"
         Me.CheckBox10.Size = New System.Drawing.Size(134, 20)
         Me.CheckBox10.TabIndex = 234
@@ -381,7 +390,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox11.AutoSize = True
         Me.CheckBox11.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.CheckBox11.Location = New System.Drawing.Point(685, 215)
+        Me.CheckBox11.Location = New System.Drawing.Point(696, 215)
         Me.CheckBox11.Name = "CheckBox11"
         Me.CheckBox11.Size = New System.Drawing.Size(187, 20)
         Me.CheckBox11.TabIndex = 235
@@ -392,7 +401,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox12.AutoSize = True
         Me.CheckBox12.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.CheckBox12.Location = New System.Drawing.Point(685, 241)
+        Me.CheckBox12.Location = New System.Drawing.Point(696, 241)
         Me.CheckBox12.Name = "CheckBox12"
         Me.CheckBox12.Size = New System.Drawing.Size(146, 20)
         Me.CheckBox12.TabIndex = 236
@@ -403,7 +412,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox13.AutoSize = True
         Me.CheckBox13.ForeColor = System.Drawing.Color.Olive
-        Me.CheckBox13.Location = New System.Drawing.Point(685, 267)
+        Me.CheckBox13.Location = New System.Drawing.Point(696, 267)
         Me.CheckBox13.Name = "CheckBox13"
         Me.CheckBox13.Size = New System.Drawing.Size(110, 20)
         Me.CheckBox13.TabIndex = 237
@@ -414,7 +423,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox14.AutoSize = True
         Me.CheckBox14.ForeColor = System.Drawing.Color.Olive
-        Me.CheckBox14.Location = New System.Drawing.Point(685, 293)
+        Me.CheckBox14.Location = New System.Drawing.Point(696, 293)
         Me.CheckBox14.Name = "CheckBox14"
         Me.CheckBox14.Size = New System.Drawing.Size(146, 20)
         Me.CheckBox14.TabIndex = 238
@@ -424,7 +433,7 @@ Partial Class 系統使用者管理
         'CheckBox15
         '
         Me.CheckBox15.AutoSize = True
-        Me.CheckBox15.Location = New System.Drawing.Point(446, 7)
+        Me.CheckBox15.Location = New System.Drawing.Point(457, 7)
         Me.CheckBox15.Name = "CheckBox15"
         Me.CheckBox15.Size = New System.Drawing.Size(134, 20)
         Me.CheckBox15.TabIndex = 239
@@ -435,7 +444,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox16.AutoSize = True
         Me.CheckBox16.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox16.Location = New System.Drawing.Point(468, 33)
+        Me.CheckBox16.Location = New System.Drawing.Point(479, 33)
         Me.CheckBox16.Name = "CheckBox16"
         Me.CheckBox16.Size = New System.Drawing.Size(122, 20)
         Me.CheckBox16.TabIndex = 240
@@ -446,7 +455,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox17.AutoSize = True
         Me.CheckBox17.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.CheckBox17.Location = New System.Drawing.Point(468, 85)
+        Me.CheckBox17.Location = New System.Drawing.Point(479, 85)
         Me.CheckBox17.Name = "CheckBox17"
         Me.CheckBox17.Size = New System.Drawing.Size(158, 20)
         Me.CheckBox17.TabIndex = 241
@@ -457,7 +466,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox18.AutoSize = True
         Me.CheckBox18.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.CheckBox18.Location = New System.Drawing.Point(468, 111)
+        Me.CheckBox18.Location = New System.Drawing.Point(479, 111)
         Me.CheckBox18.Name = "CheckBox18"
         Me.CheckBox18.Size = New System.Drawing.Size(158, 20)
         Me.CheckBox18.TabIndex = 242
@@ -468,7 +477,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox19.AutoSize = True
         Me.CheckBox19.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.CheckBox19.Location = New System.Drawing.Point(468, 137)
+        Me.CheckBox19.Location = New System.Drawing.Point(479, 137)
         Me.CheckBox19.Name = "CheckBox19"
         Me.CheckBox19.Size = New System.Drawing.Size(122, 20)
         Me.CheckBox19.TabIndex = 243
@@ -479,7 +488,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox20.AutoSize = True
         Me.CheckBox20.ForeColor = System.Drawing.Color.Olive
-        Me.CheckBox20.Location = New System.Drawing.Point(468, 163)
+        Me.CheckBox20.Location = New System.Drawing.Point(479, 163)
         Me.CheckBox20.Name = "CheckBox20"
         Me.CheckBox20.Size = New System.Drawing.Size(134, 20)
         Me.CheckBox20.TabIndex = 244
@@ -490,7 +499,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox21.AutoSize = True
         Me.CheckBox21.ForeColor = System.Drawing.Color.Olive
-        Me.CheckBox21.Location = New System.Drawing.Point(468, 189)
+        Me.CheckBox21.Location = New System.Drawing.Point(479, 189)
         Me.CheckBox21.Name = "CheckBox21"
         Me.CheckBox21.Size = New System.Drawing.Size(134, 20)
         Me.CheckBox21.TabIndex = 245
@@ -501,7 +510,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox22.AutoSize = True
         Me.CheckBox22.ForeColor = System.Drawing.Color.Green
-        Me.CheckBox22.Location = New System.Drawing.Point(468, 215)
+        Me.CheckBox22.Location = New System.Drawing.Point(479, 215)
         Me.CheckBox22.Name = "CheckBox22"
         Me.CheckBox22.Size = New System.Drawing.Size(134, 20)
         Me.CheckBox22.TabIndex = 246
@@ -511,7 +520,7 @@ Partial Class 系統使用者管理
         'CheckBox23
         '
         Me.CheckBox23.AutoSize = True
-        Me.CheckBox23.Location = New System.Drawing.Point(228, 7)
+        Me.CheckBox23.Location = New System.Drawing.Point(239, 7)
         Me.CheckBox23.Name = "CheckBox23"
         Me.CheckBox23.Size = New System.Drawing.Size(134, 20)
         Me.CheckBox23.TabIndex = 247
@@ -522,7 +531,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox24.AutoSize = True
         Me.CheckBox24.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox24.Location = New System.Drawing.Point(250, 33)
+        Me.CheckBox24.Location = New System.Drawing.Point(261, 33)
         Me.CheckBox24.Name = "CheckBox24"
         Me.CheckBox24.Size = New System.Drawing.Size(122, 20)
         Me.CheckBox24.TabIndex = 248
@@ -533,7 +542,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox25.AutoSize = True
         Me.CheckBox25.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.CheckBox25.Location = New System.Drawing.Point(250, 111)
+        Me.CheckBox25.Location = New System.Drawing.Point(261, 111)
         Me.CheckBox25.Name = "CheckBox25"
         Me.CheckBox25.Size = New System.Drawing.Size(122, 20)
         Me.CheckBox25.TabIndex = 249
@@ -544,7 +553,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox26.AutoSize = True
         Me.CheckBox26.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.CheckBox26.Location = New System.Drawing.Point(250, 137)
+        Me.CheckBox26.Location = New System.Drawing.Point(261, 137)
         Me.CheckBox26.Name = "CheckBox26"
         Me.CheckBox26.Size = New System.Drawing.Size(122, 20)
         Me.CheckBox26.TabIndex = 250
@@ -555,7 +564,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox27.AutoSize = True
         Me.CheckBox27.ForeColor = System.Drawing.Color.Olive
-        Me.CheckBox27.Location = New System.Drawing.Point(250, 189)
+        Me.CheckBox27.Location = New System.Drawing.Point(261, 189)
         Me.CheckBox27.Name = "CheckBox27"
         Me.CheckBox27.Size = New System.Drawing.Size(122, 20)
         Me.CheckBox27.TabIndex = 251
@@ -601,6 +610,15 @@ Partial Class 系統使用者管理
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel1.AutoScroll = True
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel1.Controls.Add(Me.CheckBox46)
+        Me.Panel1.Controls.Add(Me.CheckBox45)
+        Me.Panel1.Controls.Add(Me.CheckBox44)
+        Me.Panel1.Controls.Add(Me.CheckBox43)
+        Me.Panel1.Controls.Add(Me.CheckBox42)
+        Me.Panel1.Controls.Add(Me.CheckBox41)
+        Me.Panel1.Controls.Add(Me.CheckBox40)
+        Me.Panel1.Controls.Add(Me.CheckBox39)
+        Me.Panel1.Controls.Add(Me.CheckBox38)
         Me.Panel1.Controls.Add(Me.CheckBox37)
         Me.Panel1.Controls.Add(Me.CheckBox36)
         Me.Panel1.Controls.Add(Me.CheckBox35)
@@ -656,7 +674,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox37.AutoSize = True
         Me.CheckBox37.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.CheckBox37.Location = New System.Drawing.Point(272, 163)
+        Me.CheckBox37.Location = New System.Drawing.Point(283, 163)
         Me.CheckBox37.Name = "CheckBox37"
         Me.CheckBox37.Size = New System.Drawing.Size(158, 20)
         Me.CheckBox37.TabIndex = 270
@@ -667,7 +685,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox36.AutoSize = True
         Me.CheckBox36.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox36.Location = New System.Drawing.Point(709, 163)
+        Me.CheckBox36.Location = New System.Drawing.Point(720, 163)
         Me.CheckBox36.Name = "CheckBox36"
         Me.CheckBox36.Size = New System.Drawing.Size(110, 20)
         Me.CheckBox36.TabIndex = 269
@@ -678,7 +696,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox35.AutoSize = True
         Me.CheckBox35.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox35.Location = New System.Drawing.Point(709, 137)
+        Me.CheckBox35.Location = New System.Drawing.Point(720, 137)
         Me.CheckBox35.Name = "CheckBox35"
         Me.CheckBox35.Size = New System.Drawing.Size(110, 20)
         Me.CheckBox35.TabIndex = 268
@@ -689,7 +707,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox34.AutoSize = True
         Me.CheckBox34.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox34.Location = New System.Drawing.Point(685, 111)
+        Me.CheckBox34.Location = New System.Drawing.Point(696, 111)
         Me.CheckBox34.Name = "CheckBox34"
         Me.CheckBox34.Size = New System.Drawing.Size(110, 20)
         Me.CheckBox34.TabIndex = 267
@@ -700,7 +718,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox33.AutoSize = True
         Me.CheckBox33.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox33.Location = New System.Drawing.Point(468, 59)
+        Me.CheckBox33.Location = New System.Drawing.Point(479, 59)
         Me.CheckBox33.Name = "CheckBox33"
         Me.CheckBox33.Size = New System.Drawing.Size(122, 20)
         Me.CheckBox33.TabIndex = 266
@@ -711,7 +729,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox32.AutoSize = True
         Me.CheckBox32.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox32.Location = New System.Drawing.Point(250, 85)
+        Me.CheckBox32.Location = New System.Drawing.Point(261, 85)
         Me.CheckBox32.Name = "CheckBox32"
         Me.CheckBox32.Size = New System.Drawing.Size(122, 20)
         Me.CheckBox32.TabIndex = 265
@@ -722,7 +740,7 @@ Partial Class 系統使用者管理
         '
         Me.CheckBox31.AutoSize = True
         Me.CheckBox31.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox31.Location = New System.Drawing.Point(250, 59)
+        Me.CheckBox31.Location = New System.Drawing.Point(261, 59)
         Me.CheckBox31.Name = "CheckBox31"
         Me.CheckBox31.Size = New System.Drawing.Size(122, 20)
         Me.CheckBox31.TabIndex = 264
@@ -732,7 +750,7 @@ Partial Class 系統使用者管理
         'Label14
         '
         Me.Label14.AutoSize = True
-        Me.Label14.Location = New System.Drawing.Point(872, 321)
+        Me.Label14.Location = New System.Drawing.Point(883, 321)
         Me.Label14.Name = "Label14"
         Me.Label14.Size = New System.Drawing.Size(212, 16)
         Me.Label14.TabIndex = 263
@@ -741,7 +759,7 @@ Partial Class 系統使用者管理
         'Label13
         '
         Me.Label13.AutoSize = True
-        Me.Label13.Location = New System.Drawing.Point(865, 1)
+        Me.Label13.Location = New System.Drawing.Point(876, 1)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(11, 608)
         Me.Label13.TabIndex = 262
@@ -751,7 +769,7 @@ Partial Class 系統使用者管理
         'Label12
         '
         Me.Label12.AutoSize = True
-        Me.Label12.Location = New System.Drawing.Point(654, 321)
+        Me.Label12.Location = New System.Drawing.Point(665, 321)
         Me.Label12.Name = "Label12"
         Me.Label12.Size = New System.Drawing.Size(212, 16)
         Me.Label12.TabIndex = 261
@@ -760,7 +778,7 @@ Partial Class 系統使用者管理
         'Label11
         '
         Me.Label11.AutoSize = True
-        Me.Label11.Location = New System.Drawing.Point(436, 321)
+        Me.Label11.Location = New System.Drawing.Point(447, 321)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(212, 16)
         Me.Label11.TabIndex = 260
@@ -769,7 +787,7 @@ Partial Class 系統使用者管理
         'Label10
         '
         Me.Label10.AutoSize = True
-        Me.Label10.Location = New System.Drawing.Point(646, -2)
+        Me.Label10.Location = New System.Drawing.Point(657, -2)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(11, 608)
         Me.Label10.TabIndex = 259
@@ -779,7 +797,7 @@ Partial Class 系統使用者管理
         'Label9
         '
         Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(429, -2)
+        Me.Label9.Location = New System.Drawing.Point(440, -2)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(11, 608)
         Me.Label9.TabIndex = 258
@@ -789,7 +807,7 @@ Partial Class 系統使用者管理
         'Label8
         '
         Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(218, 321)
+        Me.Label8.Location = New System.Drawing.Point(229, 321)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(212, 16)
         Me.Label8.TabIndex = 257
@@ -798,21 +816,119 @@ Partial Class 系統使用者管理
         'Label7
         '
         Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(2, 321)
+        Me.Label7.Location = New System.Drawing.Point(0, 112)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(212, 16)
+        Me.Label7.Size = New System.Drawing.Size(224, 16)
         Me.Label7.TabIndex = 256
-        Me.Label7.Text = "一一一一一一一一一一一一一一一一一"
+        Me.Label7.Text = "一一一一一一一一一一一一一一一一一一"
         '
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(211, 3)
+        Me.Label6.Location = New System.Drawing.Point(222, 3)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(11, 608)
         Me.Label6.TabIndex = 255
         Me.Label6.Text = "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) &
     "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "I" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        '
+        'CheckBox38
+        '
+        Me.CheckBox38.AutoSize = True
+        Me.CheckBox38.Location = New System.Drawing.Point(9, 137)
+        Me.CheckBox38.Name = "CheckBox38"
+        Me.CheckBox38.Size = New System.Drawing.Size(134, 20)
+        Me.CheckBox38.TabIndex = 271
+        Me.CheckBox38.Text = "財務系統管理-CC38"
+        Me.CheckBox38.UseVisualStyleBackColor = True
+        '
+        'CheckBox39
+        '
+        Me.CheckBox39.AutoSize = True
+        Me.CheckBox39.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox39.Location = New System.Drawing.Point(31, 163)
+        Me.CheckBox39.Name = "CheckBox39"
+        Me.CheckBox39.Size = New System.Drawing.Size(122, 20)
+        Me.CheckBox39.TabIndex = 272
+        Me.CheckBox39.Text = "薪資轉帳表-CC39"
+        Me.CheckBox39.UseVisualStyleBackColor = True
+        '
+        'CheckBox40
+        '
+        Me.CheckBox40.AutoSize = True
+        Me.CheckBox40.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox40.Location = New System.Drawing.Point(31, 189)
+        Me.CheckBox40.Name = "CheckBox40"
+        Me.CheckBox40.Size = New System.Drawing.Size(170, 20)
+        Me.CheckBox40.TabIndex = 273
+        Me.CheckBox40.Text = "營運成本收支單申請-CC40"
+        Me.CheckBox40.UseVisualStyleBackColor = True
+        '
+        'CheckBox41
+        '
+        Me.CheckBox41.AutoSize = True
+        Me.CheckBox41.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox41.Location = New System.Drawing.Point(31, 215)
+        Me.CheckBox41.Name = "CheckBox41"
+        Me.CheckBox41.Size = New System.Drawing.Size(170, 20)
+        Me.CheckBox41.TabIndex = 274
+        Me.CheckBox41.Text = "營運成本收支單審核-CC41"
+        Me.CheckBox41.UseVisualStyleBackColor = True
+        '
+        'CheckBox42
+        '
+        Me.CheckBox42.AutoSize = True
+        Me.CheckBox42.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox42.Location = New System.Drawing.Point(31, 241)
+        Me.CheckBox42.Name = "CheckBox42"
+        Me.CheckBox42.Size = New System.Drawing.Size(182, 20)
+        Me.CheckBox42.TabIndex = 275
+        Me.CheckBox42.Text = "營運成本收支單一覽表-CC42"
+        Me.CheckBox42.UseVisualStyleBackColor = True
+        '
+        'CheckBox43
+        '
+        Me.CheckBox43.AutoSize = True
+        Me.CheckBox43.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox43.Location = New System.Drawing.Point(31, 267)
+        Me.CheckBox43.Name = "CheckBox43"
+        Me.CheckBox43.Size = New System.Drawing.Size(193, 20)
+        Me.CheckBox43.TabIndex = 276
+        Me.CheckBox43.Text = "營運成本收支單 - 對帳表-CC43"
+        Me.CheckBox43.UseVisualStyleBackColor = True
+        '
+        'CheckBox44
+        '
+        Me.CheckBox44.AutoSize = True
+        Me.CheckBox44.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox44.Location = New System.Drawing.Point(31, 293)
+        Me.CheckBox44.Name = "CheckBox44"
+        Me.CheckBox44.Size = New System.Drawing.Size(181, 20)
+        Me.CheckBox44.TabIndex = 277
+        Me.CheckBox44.Text = "營運成本收支 - 決算表-CC44"
+        Me.CheckBox44.UseVisualStyleBackColor = True
+        '
+        'CheckBox45
+        '
+        Me.CheckBox45.AutoSize = True
+        Me.CheckBox45.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox45.Location = New System.Drawing.Point(31, 320)
+        Me.CheckBox45.Name = "CheckBox45"
+        Me.CheckBox45.Size = New System.Drawing.Size(110, 20)
+        Me.CheckBox45.TabIndex = 278
+        Me.CheckBox45.Text = "匯率管理-CC45"
+        Me.CheckBox45.UseVisualStyleBackColor = True
+        '
+        'CheckBox46
+        '
+        Me.CheckBox46.AutoSize = True
+        Me.CheckBox46.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox46.Location = New System.Drawing.Point(31, 346)
+        Me.CheckBox46.Name = "CheckBox46"
+        Me.CheckBox46.Size = New System.Drawing.Size(134, 20)
+        Me.CheckBox46.TabIndex = 279
+        Me.CheckBox46.Text = "會計科目管理-CC46"
+        Me.CheckBox46.UseVisualStyleBackColor = True
         '
         '系統使用者管理
         '
@@ -913,4 +1029,13 @@ Partial Class 系統使用者管理
     Friend WithEvents CheckBox34 As CheckBox
     Friend WithEvents CheckBox36 As CheckBox
     Friend WithEvents CheckBox37 As CheckBox
+    Friend WithEvents CheckBox38 As CheckBox
+    Friend WithEvents CheckBox43 As CheckBox
+    Friend WithEvents CheckBox42 As CheckBox
+    Friend WithEvents CheckBox41 As CheckBox
+    Friend WithEvents CheckBox40 As CheckBox
+    Friend WithEvents CheckBox39 As CheckBox
+    Friend WithEvents CheckBox46 As CheckBox
+    Friend WithEvents CheckBox45 As CheckBox
+    Friend WithEvents CheckBox44 As CheckBox
 End Class

YD-ERP-SYS/資料庫系統管理/系統使用者管理.vb

@@ -181,4 +181,31 @@ Public Class 系統使用者管理
     Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.Click
         If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
     End Sub
+
+
+    '*************************************************************************************************************************************
+    Private Sub CheckBox39_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox39.Click
+        If CheckBox38.Checked = False Then : CheckBox38.Checked = True : End If
+    End Sub
+    Private Sub CheckBox40_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox40.Click
+        If CheckBox38.Checked = False Then : CheckBox38.Checked = True : End If
+    End Sub
+    Private Sub CheckBox41_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox41.Click
+        If CheckBox38.Checked = False Then : CheckBox38.Checked = True : End If
+    End Sub
+    Private Sub CheckBox42_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox42.Click
+        If CheckBox38.Checked = False Then : CheckBox38.Checked = True : End If
+    End Sub
+    Private Sub CheckBox43_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox43.Click
+        If CheckBox38.Checked = False Then : CheckBox38.Checked = True : End If
+    End Sub
+    Private Sub CheckBox44_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox44.Click
+        If CheckBox38.Checked = False Then : CheckBox38.Checked = True : End If
+    End Sub
+    Private Sub CheckBox45_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox45.Click
+        If CheckBox38.Checked = False Then : CheckBox38.Checked = True : End If
+    End Sub
+    Private Sub CheckBox46_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox46.Click
+        If CheckBox38.Checked = False Then : CheckBox38.Checked = True : End If
+    End Sub
 End Class