20210101備份

工巧明智能管理系統/我的系統/MyModule/MyModule.vb

     Public 登入權限AQL As String = "姓名, 帳號, 密碼, 密碼日期, CC00, 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"
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2020051901"
+    Public 版本 As String = "2020112301"
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 判斷重登 As Boolean : Public 重登確認 As Boolean : Public 主頁開啟 As Boolean
     Public timeExit As Integer = 0 : Public timeExit2 As Integer = 0 : Public timeNow As Integer = 0 : Public timeNow2 As Integer = 0 : Public 密碼時限 As Integer = 30

工巧明智能管理系統/我的系統/obj/x86/Debug/工巧明智能管理系統.vbproj.FileListAbsolute.txt

 F:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\bin\Debug\GCM-ERP-SYS.pdb
 F:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\bin\Debug\GCM-ERP-SYS.xml
 F:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.vbprojAssemblyReference.cache
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\bin\Debug\GCM-ERP-SYS.exe.config
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\bin\Debug\GCM-ERP-SYS.exe
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\bin\Debug\GCM-ERP-SYS.pdb
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\bin\Debug\GCM-ERP-SYS.xml
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.vbprojAssemblyReference.cache
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.vbproj.ResolveComReference.cache
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.營運報表.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.計算機.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.會計科目管理.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.測試下載.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.營運成本收支單_對帳表.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.營運成本收支單一覽表.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.營運成本收支單審核.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.營運成本收支單申請.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.網段.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.系統開發功能點檢表.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.系統開發點檢控制表.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.系統對應電腦註冊.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.系統登出.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.系統通用變數管理.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.FTP資料夾管理.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.人員入職資料表.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.人員ID卡系統配置設定.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.工作日誌與代辦事項.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.個人帳號管理.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.系統編碼原則_1.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.開發文件存放區.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.出庫紀錄表.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.列印清單.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.原代碼存放區.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.品牌清單.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.庫存管理.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.服務項目成本建檔.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.業務專案控制表.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.機台零件BOM表.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.機台零件成本建檔.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.機構件零件BOM表.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.供應商資料.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.機構件零件成本建檔.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.機構科目清單.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.機構組件零件BOM表.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.機構組件零件成本建檔.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.系統使用者管理.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.系統執行檔版本管理.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.進貨管理.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.銷貨管理.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.零組件零件BOM表.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.零組件零件成本建檔.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.財務流水帳系統.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.私有財務.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.分類查詢.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.匯率修改.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.卜卦.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.Login.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.GCM_ERP_SYS.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.Resources.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.SplashScreen1.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.月份查詢.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.卜卦2.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.零件成本建檔.resources
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.vbproj.GenerateResource.cache
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.vbproj.CoreCompileInputs.cache
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\GCM-ERP-SYS.exe
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\GCM-ERP-SYS.xml
+G:\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\GCM-ERP-SYS.pdb

工巧明智能管理系統/我的系統/財務系統管理/匯率修改.Designer.vb

         Me.CheckBox1 = New System.Windows.Forms.CheckBox()
         Me.TextBox4 = New System.Windows.Forms.TextBox()
         Me.TextBox5 = New System.Windows.Forms.TextBox()
+        Me.TextBox6 = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
         CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '
         Me.Button2.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button2.ForeColor = System.Drawing.Color.DarkGreen
-        Me.Button2.Location = New System.Drawing.Point(12, 155)
+        Me.Button2.Location = New System.Drawing.Point(12, 185)
         Me.Button2.Name = "Button2"
         Me.Button2.Size = New System.Drawing.Size(101, 34)
         Me.Button2.TabIndex = 11
         Me.Button4.Enabled = False
         Me.Button4.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button4.ForeColor = System.Drawing.Color.Green
-        Me.Button4.Location = New System.Drawing.Point(119, 155)
+        Me.Button4.Location = New System.Drawing.Point(119, 185)
         Me.Button4.Name = "Button4"
         Me.Button4.Size = New System.Drawing.Size(120, 74)
         Me.Button4.TabIndex = 12
         Me.Button5.Enabled = False
         Me.Button5.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button5.ForeColor = System.Drawing.Color.Black
-        Me.Button5.Location = New System.Drawing.Point(12, 195)
+        Me.Button5.Location = New System.Drawing.Point(12, 225)
         Me.Button5.Name = "Button5"
         Me.Button5.Size = New System.Drawing.Size(101, 34)
         Me.Button5.TabIndex = 19
         '
         'DataGridView4
         '
+        Me.DataGridView4.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
         DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.DataGridView4.RowHeadersWidth = 5
         Me.DataGridView4.RowTemplate.Height = 24
         Me.DataGridView4.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView4.Size = New System.Drawing.Size(331, 217)
+        Me.DataGridView4.Size = New System.Drawing.Size(410, 247)
         Me.DataGridView4.TabIndex = 39
         '
         'Label2
         '
         Me.TextBox4.Enabled = False
         Me.TextBox4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.TextBox4.Location = New System.Drawing.Point(64, 235)
+        Me.TextBox4.Location = New System.Drawing.Point(277, 38)
         Me.TextBox4.Name = "TextBox4"
         Me.TextBox4.Size = New System.Drawing.Size(83, 23)
         Me.TextBox4.TabIndex = 90
         '
         Me.TextBox5.Enabled = False
         Me.TextBox5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.TextBox5.Location = New System.Drawing.Point(153, 235)
+        Me.TextBox5.Location = New System.Drawing.Point(366, 38)
         Me.TextBox5.Name = "TextBox5"
         Me.TextBox5.Size = New System.Drawing.Size(83, 23)
         Me.TextBox5.TabIndex = 91
         Me.TextBox5.Visible = False
         '
+        'TextBox6
+        '
+        Me.TextBox6.Enabled = False
+        Me.TextBox6.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.TextBox6.Location = New System.Drawing.Point(92, 154)
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Size = New System.Drawing.Size(147, 29)
+        Me.TextBox6.TabIndex = 93
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label4.Location = New System.Drawing.Point(13, 157)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(73, 20)
+        Me.Label4.TabIndex = 92
+        Me.Label4.Text = "美金匯率"
+        '
         '匯率修改
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(583, 236)
+        Me.ClientSize = New System.Drawing.Size(667, 265)
+        Me.Controls.Add(Me.TextBox6)
+        Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.TextBox5)
         Me.Controls.Add(Me.TextBox4)
         Me.Controls.Add(Me.CheckBox1)
     Friend WithEvents CheckBox1 As CheckBox
     Friend WithEvents TextBox4 As TextBox
     Friend WithEvents TextBox5 As TextBox
+    Friend WithEvents TextBox6 As TextBox
+    Friend WithEvents Label4 As Label
 End Class

工巧明智能管理系統/我的系統/財務系統管理/匯率修改.vb

     Dim dr As SqlDataReader : Dim dr1 As SqlDataReader
     Dim zaq As New DataSet : Dim ds2 As DataSet
     Private Sub Set_grid()
-        DataGridView4.Columns(0).Width = 60 : DataGridView4.Columns(1).Width = 60
-        DataGridView4.Columns(2).Width = 60 : DataGridView4.Columns(3).Width = 60
-        DataGridView4.Columns(4).Width = 60
+        DataGridView4.Columns(0).FillWeight = 60 : DataGridView4.Columns(1).FillWeight = 60
+        DataGridView4.Columns(2).FillWeight = 60 : DataGridView4.Columns(3).FillWeight = 60
+        DataGridView4.Columns(4).FillWeight = 60 : DataGridView4.Columns(5).FillWeight = 60
     End Sub
     Private Sub Set_日期()
         TextBox4.Text = Format(DateTimePicker1.Value, "yyyy") : TextBox5.Text = Format(DateTimePicker1.Value, "MM")
         DataGridView4.ColumnHeadersHeight = 25
         DataGridView4.AllowUserToAddRows = False
         If conn2.State = ConnectionState.Closed Then : conn2.ConnectionString = ConString : conn2.Open() : End If
-        SQL2 = "SELECT 年, 月, 買進匯率, 賣出匯率, 中心匯率 FROM 歷史匯率表 ORDER BY 年 DESC, 月 DESC"
+        SQL2 = "SELECT 年, 月, 買進匯率, 賣出匯率, 中心匯率, 美金匯率 FROM 歷史匯率表 ORDER BY 年 DESC, 月 DESC"
         cmd2.Connection = conn2 : cmd2.CommandText = SQL2 : wsx.SelectCommand = cmd2 : wsx.Fill(zaq) : DataGridView4.DataSource = zaq.Tables(0) : conn2.Close()
     End Sub
     Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView4.CellClick
             TextBox2.Text = DataGridView4(2, e.RowIndex).Value.ToString
             TextBox3.Text = DataGridView4(3, e.RowIndex).Value.ToString
             TextBox1.Text = DataGridView4(4, e.RowIndex).Value.ToString
+            TextBox6.Text = DataGridView4(5, e.RowIndex).Value.ToString
         End If
     End Sub
     Private Sub Set_日期寫入()
         cmd1.Connection = conn1 : cmd1.CommandText = SQL1 : dr1 = cmd1.ExecuteReader
         If dr1.Read() Then
             If conn.State = ConnectionState.Closed Then : conn.Open() : End If
-            SQL = "UPDATE 歷史匯率表 SET 買進匯率 = '" & TextBox2.Text & "', 賣出匯率 = '" & TextBox3.Text & "', 中心匯率 = '" & TextBox1.Text & "' " &
-                          "WHERE (年 LIKE '" & TextBox4.Text & "%') AND (月 LIKE '" & TextBox5.Text & "%')"
+            SQL = "UPDATE 歷史匯率表 SET 買進匯率 = '" & TextBox2.Text & "', 賣出匯率 = '" & TextBox3.Text & "', 中心匯率 = '" & TextBox1.Text & "', 美金匯率 = '" & TextBox6.Text & "'  
+                   WHERE (年 LIKE '" & TextBox4.Text & "%') AND (月 LIKE '" & TextBox5.Text & "%')"
             cmd.Connection = conn : cmd.CommandText = SQL : cmd.ExecuteNonQuery()
             conn.Close()
         Else
             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-            SQL = "INSERT INTO 歷史匯率表 (年, 月, 買進匯率, 賣出匯率, 中心匯率) VALUES ('" & TextBox4.Text & "','" & TextBox5.Text & "
-                          ','" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox1.Text & "')"
+            SQL = "INSERT INTO 歷史匯率表 (年, 月, 買進匯率, 賣出匯率, 中心匯率, 美金匯率) VALUES ('" & TextBox4.Text & "','" & TextBox5.Text & "
+                          ','" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox1.Text & "', '" & TextBox6.Text & "')"
             cmd.Connection = conn : cmd.CommandText = SQL : cmd.ExecuteNonQuery()
             conn.Close()
         End If
         conn.Close() : dr.Close()
 
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL = "SELECT 買進匯率, 賣出匯率 FROM 歷史匯率表  WHERE (年 LIKE '" & TextBox4.Text & "%') AND (月 LIKE '" & TextBox5.Text & "%')"
+        SQL = "SELECT 買進匯率, 賣出匯率, 美金匯率 FROM 歷史匯率表  WHERE (年 LIKE '" & TextBox4.Text & "%') AND (月 LIKE '" & TextBox5.Text & "%')"
         cmd.Connection = conn : cmd.CommandText = SQL : dr = cmd.ExecuteReader
-        If dr.Read() Then : TextBox2.Text = dr("買進匯率").ToString : TextBox3.Text = dr("賣出匯率").ToString : End If
+        If dr.Read() Then : TextBox2.Text = dr("買進匯率").ToString : TextBox3.Text = dr("賣出匯率").ToString : TextBox3.Text = dr("美金匯率").ToString : End If
         If TextBox1.Text = "" Then : TextBox1.Text = "0.00" : End If
         conn.Close() : dr.Close()
         Set_歷史匯率清單() : Set_grid() : Set_日期()
         GCM_ERP_SYS.Timer1.Enabled = True
     End Sub
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
-        TextBox1.Enabled = True : TextBox2.Enabled = True : TextBox3.Enabled = True : Button4.Enabled = True : Button5.Enabled = True
+        TextBox1.Enabled = True : TextBox2.Enabled = True : TextBox3.Enabled = True : TextBox6.Enabled = True : Button4.Enabled = True : Button5.Enabled = True
     End Sub
     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
-        TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False : Button4.Enabled = False : Button5.Enabled = False
+        TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False : TextBox6.Enabled = False : Button4.Enabled = False : Button5.Enabled = False
     End Sub
     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
         If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
                 Set_日期寫入()
             End If
         End If
-        TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False : Button4.Enabled = False : Button5.Enabled = False
+        TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False : TextBox6.Enabled = False : Button4.Enabled = False : Button5.Enabled = False
         Set_歷史匯率清單() : Set_grid() : Set_日期()
     End Sub
     Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

工巧明智能管理系統/我的系統/財務系統管理/營運成本收支單一覽表.Designer.vb

         Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.TextBox4 = New System.Windows.Forms.TextBox()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.明細_dgv = New System.Windows.Forms.DataGridView()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.TextBox3 = New System.Windows.Forms.TextBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.Label4 = New System.Windows.Forms.Label()
-        Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
-        Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker()
+        Me.結束日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.開始日期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.TextBox6 = New System.Windows.Forms.TextBox()
         Me.Label9 = New System.Windows.Forms.Label()
         Me.TextBox7 = New System.Windows.Forms.TextBox()
         Me.Label16 = New System.Windows.Forms.Label()
         Me.TextBox15 = New System.Windows.Forms.TextBox()
         Me.Label17 = New System.Windows.Forms.Label()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.下個月_bt = New System.Windows.Forms.Button()
+        Me.上個月_bt = New System.Windows.Forms.Button()
+        Me.一般月_ch = New System.Windows.Forms.CheckBox()
+        Me.會計月_ch = New System.Windows.Forms.CheckBox()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.TextBox4.Size = New System.Drawing.Size(74, 23)
         Me.TextBox4.TabIndex = 866
         '
-        'DataGridView1
+        '明細_dgv
         '
         DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        Me.DataGridView1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+        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.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(328, 82)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
+        Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.明細_dgv.Location = New System.Drawing.Point(328, 82)
+        Me.明細_dgv.Name = "明細_dgv"
+        Me.明細_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle2
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(1227, 524)
-        Me.DataGridView1.TabIndex = 865
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.明細_dgv.RowTemplate.Height = 24
+        Me.明細_dgv.Size = New System.Drawing.Size(1227, 524)
+        Me.明細_dgv.TabIndex = 865
         '
         'Label3
         '
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.DataGridView4.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.DataGridView4.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView4.Location = New System.Drawing.Point(9, 56)
+        Me.DataGridView4.Location = New System.Drawing.Point(9, 82)
         Me.DataGridView4.Name = "DataGridView4"
         Me.DataGridView4.RowHeadersWidth = 5
         Me.DataGridView4.RowTemplate.Height = 24
-        Me.DataGridView4.Size = New System.Drawing.Size(315, 500)
+        Me.DataGridView4.Size = New System.Drawing.Size(315, 474)
         Me.DataGridView4.TabIndex = 857
         '
         'DateTimePicker2
         Me.Label4.TabIndex = 888
         Me.Label4.Text = "到"
         '
-        'DateTimePicker3
+        '結束日期_dtp
         '
-        Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker3.Location = New System.Drawing.Point(128, 30)
-        Me.DateTimePicker3.Name = "DateTimePicker3"
-        Me.DateTimePicker3.Size = New System.Drawing.Size(91, 23)
-        Me.DateTimePicker3.TabIndex = 887
+        Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.結束日期_dtp.Location = New System.Drawing.Point(128, 30)
+        Me.結束日期_dtp.Name = "結束日期_dtp"
+        Me.結束日期_dtp.Size = New System.Drawing.Size(91, 23)
+        Me.結束日期_dtp.TabIndex = 887
         '
-        'DateTimePicker4
+        '開始日期_dtp
         '
-        Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker4.Location = New System.Drawing.Point(8, 30)
-        Me.DateTimePicker4.Name = "DateTimePicker4"
-        Me.DateTimePicker4.Size = New System.Drawing.Size(91, 23)
-        Me.DateTimePicker4.TabIndex = 886
+        Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.開始日期_dtp.Location = New System.Drawing.Point(8, 30)
+        Me.開始日期_dtp.Name = "開始日期_dtp"
+        Me.開始日期_dtp.Size = New System.Drawing.Size(91, 23)
+        Me.開始日期_dtp.TabIndex = 886
         '
         'TextBox6
         '
         Me.Label17.TabIndex = 970
         Me.Label17.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(32, 100)
+        Me.中間日期_dtp.Name = "中間日期_dtp"
+        Me.中間日期_dtp.Size = New System.Drawing.Size(43, 23)
+        Me.中間日期_dtp.TabIndex = 1168
+        Me.中間日期_dtp.Visible = False
+        '
+        '下個月_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(267, 56)
+        Me.下個月_bt.Name = "下個月_bt"
+        Me.下個月_bt.Size = New System.Drawing.Size(57, 23)
+        Me.下個月_bt.TabIndex = 1170
+        Me.下個月_bt.Text = "下個月"
+        Me.下個月_bt.UseVisualStyleBackColor = True
+        '
+        '上個月_bt
+        '
+        Me.上個月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.上個月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.上個月_bt.Location = New System.Drawing.Point(209, 56)
+        Me.上個月_bt.Name = "上個月_bt"
+        Me.上個月_bt.Size = New System.Drawing.Size(57, 23)
+        Me.上個月_bt.TabIndex = 1169
+        Me.上個月_bt.Text = "上個月"
+        Me.上個月_bt.UseVisualStyleBackColor = True
+        '
+        '一般月_ch
+        '
+        Me.一般月_ch.AutoSize = True
+        Me.一般月_ch.Checked = True
+        Me.一般月_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.一般月_ch.Location = New System.Drawing.Point(128, 58)
+        Me.一般月_ch.Name = "一般月_ch"
+        Me.一般月_ch.Size = New System.Drawing.Size(63, 20)
+        Me.一般月_ch.TabIndex = 1172
+        Me.一般月_ch.Text = "一般月"
+        Me.一般月_ch.UseVisualStyleBackColor = True
+        '
+        '會計月_ch
+        '
+        Me.會計月_ch.AutoSize = True
+        Me.會計月_ch.Location = New System.Drawing.Point(36, 58)
+        Me.會計月_ch.Name = "會計月_ch"
+        Me.會計月_ch.Size = New System.Drawing.Size(63, 20)
+        Me.會計月_ch.TabIndex = 1171
+        Me.會計月_ch.Text = "會計月"
+        Me.會計月_ch.UseVisualStyleBackColor = True
+        '
         '營運成本收支單一覽表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1562, 611)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.一般月_ch)
+        Me.Controls.Add(Me.會計月_ch)
+        Me.Controls.Add(Me.下個月_bt)
+        Me.Controls.Add(Me.上個月_bt)
+        Me.Controls.Add(Me.中間日期_dtp)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.TextBox2)
         Me.Controls.Add(Me.Label12)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.Button3)
         Me.Controls.Add(Me.Label4)
-        Me.Controls.Add(Me.DateTimePicker3)
-        Me.Controls.Add(Me.DateTimePicker4)
+        Me.Controls.Add(Me.結束日期_dtp)
+        Me.Controls.Add(Me.開始日期_dtp)
         Me.Controls.Add(Me.TextBox5)
         Me.Controls.Add(Me.Label10)
         Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.DataGridView4)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.明細_dgv)
         Me.Controls.Add(Me.DataGridView2)
-        Me.Controls.Add(Me.DataGridView1)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "營運成本收支單一覽表"
         Me.Text = "營運成本收支單一覽表"
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ContextMenuStrip1.ResumeLayout(False)
     Friend WithEvents DateTimePicker1 As DateTimePicker
     Friend WithEvents Label5 As Label
     Friend WithEvents TextBox4 As TextBox
-    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents 明細_dgv As DataGridView
     Friend WithEvents Label3 As Label
     Friend WithEvents TextBox3 As TextBox
     Friend WithEvents Label1 As Label
     Friend WithEvents Button1 As Button
     Friend WithEvents Button3 As Button
     Friend WithEvents Label4 As Label
-    Friend WithEvents DateTimePicker3 As DateTimePicker
-    Friend WithEvents DateTimePicker4 As DateTimePicker
+    Friend WithEvents 結束日期_dtp As DateTimePicker
+    Friend WithEvents 開始日期_dtp As DateTimePicker
     Friend WithEvents TextBox6 As TextBox
     Friend WithEvents Label9 As Label
     Friend WithEvents TextBox7 As TextBox
     Friend WithEvents Label16 As Label
     Friend WithEvents TextBox15 As TextBox
     Friend WithEvents Label17 As Label
+    Friend WithEvents 中間日期_dtp As DateTimePicker
+    Friend WithEvents 下個月_bt As Button
+    Friend WithEvents 上個月_bt As Button
+    Friend WithEvents 一般月_ch As CheckBox
+    Friend WithEvents 會計月_ch As CheckBox
 End Class

工巧明智能管理系統/我的系統/財務系統管理/營運成本收支單一覽表.vb

         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT 支付單號 AS 收支單號, 申請人, 申請日期, 審核人, 審核日期, 核准圖檔,  簽名編碼 FROM 公帳控制表 
                 WHERE (審核人 NOT LIKE '') AND (審核人 NOT LIKE '作廢%') AND 
-                審核日期 BETWEEN '" & Strings.Format(DateTimePicker4.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(DateTimePicker3.Value, "yyyy/MM/dd") & "'
+                審核日期 BETWEEN '" & Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd") & "'
                 ORDER BY 審核日期 DESC"
         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds1) : DataGridView4.DataSource = ds1.Tables(0) : conn.Close()
 
                 FROM        公帳控制表 RIGHT OUTER JOIN
                             公帳流水帳 ON 公帳控制表.支付單號 = 公帳流水帳.支付單號 RIGHT OUTER JOIN
                             會計科目 ON 公帳流水帳.類別 = 會計科目.編號
-                WHERE      (公帳控制表.審核日期 BETWEEN '" & Strings.Format(DateTimePicker4.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(DateTimePicker3.Value, "yyyy/MM/dd") & "')
+                WHERE      (公帳控制表.審核日期 BETWEEN '" & Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd") & "')
                 GROUP BY    會計科目.第一階, 會計科目.第二階, 會計科目.會計科目, LEFT(會計科目.編號, 7), 
                             LEFT(公帳控制表.審核日期, 7), 公帳流水帳.銀行, 公帳流水帳.匯率
                 ORDER BY    幣別, LEFT(公帳控制表.審核日期, 7), LEFT(會計科目.編號, 7)"
         DataGridView2.Columns(4).ReadOnly = True : DataGridView2.Columns(5).ReadOnly = True : DataGridView2.Columns(6).ReadOnly = True : DataGridView2.Columns(7).ReadOnly = True
     End Sub
     Private Sub Set_費用清單()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
-        DataGridView1.RowTemplate.Height = 35
+        明細_dgv.DataSource = Nothing : ds.Clear()
+        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        明細_dgv.ColumnHeadersHeight = 25
+        明細_dgv.AllowUserToAddRows = False
+        明細_dgv.RowTemplate.Height = 35
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT      公帳流水帳.支付單號, 公帳流水帳.項次, 會計科目.會計科目, 公帳流水帳.明細 AS 用途, 
-                            公帳流水帳.零用金, 公帳流水帳.支票數 AS 支票, 公帳流水帳.收入 AS 現金, 
-                            公帳流水帳.支出, 公帳流水帳.備註 AS 票期, 公帳流水帳.匯率, 公帳流水帳.銀行 AS 幣別, 公帳流水帳.類別, 公帳流水帳.流水號
+                            Cast(公帳流水帳.零用金 AS money) AS 零用金, Cast(公帳流水帳.支票數 AS money) AS 支票, Cast(公帳流水帳.收入 AS money) AS 現金, 
+                            Cast(公帳流水帳.支出 AS money) AS 支出, 公帳流水帳.備註 AS 票期, 公帳流水帳.匯率, 公帳流水帳.銀行 AS 幣別, 公帳流水帳.類別, 公帳流水帳.流水號
                 FROM        公帳流水帳 INNER JOIN
                             會計科目 ON 公帳流水帳.類別 = 會計科目.編號
                 WHERE      (公帳流水帳.支付單號 LIKE '" & TextBox1.Text & "')
                 ORDER BY    公帳流水帳.項次"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).FillWeight = 80 : DataGridView1.Columns(2).FillWeight = 300 : DataGridView1.Columns(3).FillWeight = 500
-        DataGridView1.Columns(4).FillWeight = 140 : DataGridView1.Columns(5).FillWeight = 140 : DataGridView1.Columns(6).FillWeight = 140 : DataGridView1.Columns(7).FillWeight = 140
-        DataGridView1.Columns(8).FillWeight = 140 : DataGridView1.Columns(9).FillWeight = 140 : DataGridView1.Columns(10).FillWeight = 140 : DataGridView1.Columns(11).Visible = False
-        DataGridView1.Columns(12).Visible = False
+        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 300 : 明細_dgv.Columns(3).FillWeight = 500
+        明細_dgv.Columns(4).FillWeight = 140 : 明細_dgv.Columns(5).FillWeight = 140 : 明細_dgv.Columns(6).FillWeight = 140 : 明細_dgv.Columns(7).FillWeight = 140
+        明細_dgv.Columns(8).FillWeight = 140 : 明細_dgv.Columns(9).FillWeight = 140 : 明細_dgv.Columns(10).FillWeight = 140 : 明細_dgv.Columns(11).Visible = False
+        明細_dgv.Columns(12).Visible = False
 
-        DataGridView1.Columns(1).ReadOnly = True : DataGridView1.Columns(2).ReadOnly = True : DataGridView1.Columns(9).ReadOnly = True : DataGridView1.Columns(10).ReadOnly = True
+        明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(9).ReadOnly = True : 明細_dgv.Columns(10).ReadOnly = True
 
-        DataGridView1.Columns(4).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(5).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(7).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(8).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter
+        明細_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00"
+        明細_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00"
+        明細_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
 
-        TextBox5.Text = "0.00.00" : TextBox7.Text = "0.00.00" : TextBox6.Text = "0.00" : TextBox10.Text = "0.00" : TextBox11.Text = "0.00"
-        TextBox2.Text = "0.00.00" : TextBox8.Text = "0.00.00" : TextBox15.Text = "0.00" : TextBox12.Text = "0.00" : TextBox9.Text = "0.00"
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            If DataGridView1.Rows(i).Cells("幣別").Value = "台幣現金" Then
-                TextBox5.Text = Val(TextBox5.Text) + DataGridView1.Rows(i).Cells("現金").Value
-                TextBox7.Text = Val(TextBox7.Text) + DataGridView1.Rows(i).Cells("支出").Value
-                TextBox10.Text = Val(TextBox10.Text) + DataGridView1.Rows(i).Cells("零用金").Value
-                TextBox11.Text = Val(TextBox11.Text) + DataGridView1.Rows(i).Cells("支票").Value
+        TextBox5.Text = "0.00" : TextBox7.Text = "0.00" : TextBox6.Text = "0.00" : TextBox10.Text = "0.00" : TextBox11.Text = "0.00"
+        TextBox2.Text = "0.00" : TextBox8.Text = "0.00" : TextBox15.Text = "0.00" : TextBox12.Text = "0.00" : TextBox9.Text = "0.00"
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            If 明細_dgv.Rows(i).Cells("幣別").Value = "台幣現金" Then
+                TextBox5.Text = Val(TextBox5.Text) + 明細_dgv.Rows(i).Cells("現金").Value
+                TextBox7.Text = Val(TextBox7.Text) + 明細_dgv.Rows(i).Cells("支出").Value
+                TextBox10.Text = Val(TextBox10.Text) + 明細_dgv.Rows(i).Cells("零用金").Value
+                TextBox11.Text = Val(TextBox11.Text) + 明細_dgv.Rows(i).Cells("支票").Value
             End If
-            If DataGridView1.Rows(i).Cells("幣別").Value = "人民幣現金" Then
-                TextBox15.Text = Val(TextBox15.Text) + DataGridView1.Rows(i).Cells("現金").Value
-                TextBox12.Text = Val(TextBox12.Text) + DataGridView1.Rows(i).Cells("支出").Value
-                TextBox2.Text = Val(TextBox2.Text) + DataGridView1.Rows(i).Cells("零用金").Value
-                TextBox8.Text = Val(TextBox8.Text) + DataGridView1.Rows(i).Cells("支票").Value
+            If 明細_dgv.Rows(i).Cells("幣別").Value = "人民幣現金" Then
+                TextBox15.Text = Val(TextBox15.Text) + 明細_dgv.Rows(i).Cells("現金").Value
+                TextBox12.Text = Val(TextBox12.Text) + 明細_dgv.Rows(i).Cells("支出").Value
+
+                TextBox2.Text = Val(TextBox2.Text) + 明細_dgv.Rows(i).Cells("零用金").Value
+                TextBox8.Text = Val(TextBox8.Text) + 明細_dgv.Rows(i).Cells("支票").Value
             End If
         Next i
         TextBox6.Text = Val(TextBox10.Text) + Val(TextBox5.Text) - Val(TextBox7.Text) : TextBox9.Text = Val(TextBox2.Text) + Val(TextBox15.Text) - Val(TextBox12.Text)
         TextBox2.Text = Strings.Format(Val(TextBox2.Text), "#,##0.00") : TextBox8.Text = Strings.Format(Val(TextBox8.Text), "#,##0.00") : TextBox15.Text = Strings.Format(Val(TextBox15.Text), "#,##0.00")
         TextBox12.Text = Strings.Format(Val(TextBox12.Text), "#,##0.00") : TextBox9.Text = Strings.Format(Val(TextBox9.Text), "#,##0.00")
     End Sub
+    Private Sub 日期格式()
+        If 會計月_ch.Checked = True Then
+            '-------------日期一----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1)
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "26" : 開始日期_dtp.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "25" : 結束日期_dtp.Value = DTP
+        Else
+            '-------------日期一----------------------------------------------------------------------------------------
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(1)
+            DTP = Strings.Left(Strings.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 = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         DTP = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 8) & "01"
-        DateTimePicker4.Value = DTP : DateTimePicker3.Value = Today()
-        DataGridView2.Visible = False : RadioButton1.Checked = True
+        開始日期_dtp.Value = DTP : 結束日期_dtp.Value = Today()
+        日期格式() : DataGridView2.Visible = False : RadioButton1.Checked = True
     End Sub
     Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView4.CellClick
         If e.RowIndex = -1 Then : Else
     End Sub
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
         DTP = Strings.Format(Today(), "yyyy/MM/dd")
-        DateTimePicker4.Value = DTP : DateTimePicker3.Value = DTP
+        開始日期_dtp.Value = DTP : 結束日期_dtp.Value = DTP
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         DTP = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 8) & "01"
-        DateTimePicker4.Value = DTP : DateTimePicker3.Value = Today()
+        開始日期_dtp.Value = DTP : 結束日期_dtp.Value = Today()
     End Sub
     Private Sub 彙總計算()
         If RadioButton1.Checked = False And RadioButton2.Checked = True Then
                     TextBox11.Text = Val(TextBox11.Text) + DataGridView2.Rows(i).Cells("支票").Value
                 End If
                 If DataGridView2.Rows(i).Cells("幣別").Value = "人民幣現金" Then
-                    TextBox15.Text = Val(TextBox15.Text) + DataGridView2.Rows(i).Cells("現金").Value
-                    TextBox12.Text = Val(TextBox12.Text) + DataGridView2.Rows(i).Cells("支出").Value
-                    TextBox2.Text = Val(TextBox2.Text) + DataGridView2.Rows(i).Cells("零用金").Value
-                    TextBox8.Text = Val(TextBox8.Text) + DataGridView2.Rows(i).Cells("支票").Value
+                    If DataGridView2.Rows(i).Cells("主項").Value <> "上月結存" Then
+                        TextBox15.Text = Val(TextBox15.Text) + DataGridView2.Rows(i).Cells("現金").Value
+                        TextBox12.Text = Val(TextBox12.Text) + DataGridView2.Rows(i).Cells("支出").Value
+                        TextBox2.Text = Val(TextBox2.Text) + DataGridView2.Rows(i).Cells("零用金").Value
+                        TextBox8.Text = Val(TextBox8.Text) + DataGridView2.Rows(i).Cells("支票").Value
+                    End If
                 End If
             Next i
             TextBox6.Text = Val(TextBox10.Text) + Val(TextBox5.Text) - Val(TextBox7.Text) : TextBox9.Text = Val(TextBox2.Text) + Val(TextBox15.Text) - Val(TextBox12.Text)
             TextBox12.Text = Strings.Format(Val(TextBox12.Text), "#,##0.00") : TextBox9.Text = Strings.Format(Val(TextBox9.Text), "#,##0.00")
         End If
     End Sub
-    Private Sub DateTimePicker4_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker4.ValueChanged
+    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 DateTimePicker4_ValueChanged(sender As Object, e As EventArgs) Handles 開始日期_dtp.ValueChanged
         Set_清單1() : Set_清單2() : 彙總計算()
     End Sub
-    Private Sub DateTimePicker3_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker3.ValueChanged
+    Private Sub DateTimePicker3_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged
         Set_清單1() : Set_清單2() : 彙總計算()
     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 RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.Click
-        DataGridView1.Visible = True : DataGridView2.Visible = False : RadioButton1.Checked = True : RadioButton2.Checked = False
+        明細_dgv.Visible = True : DataGridView2.Visible = False : RadioButton1.Checked = True : RadioButton2.Checked = False
         TextBox5.Text = "0.00" : TextBox7.Text = "0.00" : TextBox6.Text = "0.00" : TextBox10.Text = "0.00" : TextBox11.Text = "0.00" : DataGridView4.Enabled = True
     End Sub
     Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.Click
-        DataGridView1.Visible = False : DataGridView2.Visible = True : RadioButton1.Checked = False : RadioButton2.Checked = True
-        TextBox1.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : DataGridView1.DataSource = Nothing : ds.Clear() : DataGridView4.Enabled = False
+        明細_dgv.Visible = False : DataGridView2.Visible = True : RadioButton1.Checked = False : RadioButton2.Checked = True
+        TextBox1.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : 明細_dgv.DataSource = Nothing : ds.Clear() : DataGridView4.Enabled = False
         彙總計算()
     End Sub
     Private Sub TextBox14_TextChanged(sender As Object, e As EventArgs) Handles TextBox14.TextChanged
             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) = "票期"
 
-            For i As Integer = 0 To DataGridView1.Rows.Count - 1
-                xlSheet.Cells(i + 3, 1) = DateTimePicker1.Value : xlSheet.Cells(i + 3, 2) = DataGridView1.Rows(i).Cells("會計科目").Value
-                xlSheet.Cells(i + 3, 3) = DataGridView1.Rows(i).Cells("用途").Value : xlSheet.Cells(i + 3, 4) = DataGridView1.Rows(i).Cells("零用金").Value
-                xlSheet.Cells(i + 3, 5) = DataGridView1.Rows(i).Cells("支票").Value : xlSheet.Cells(i + 3, 6) = DataGridView1.Rows(i).Cells("現金").Value
-                xlSheet.Cells(i + 3, 7) = DataGridView1.Rows(i).Cells("支出").Value : xlSheet.Cells(i + 3, 9) = DataGridView1.Rows(i).Cells("票期").Value
+            For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+                xlSheet.Cells(i + 3, 1) = DateTimePicker1.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, 9) = 明細_dgv.Rows(i).Cells("票期").Value
                 If i = 0 Then
                     xlSheet.Cells(i + 3, 8) = "=D3+F3-G3"
                 Else

工巧明智能管理系統/我的系統/財務系統管理/營運成本收支單審核.Designer.vb

         'CheckBox1
         '
         Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.Checked = True
+        Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
         Me.CheckBox1.Location = New System.Drawing.Point(833, 5)
         Me.CheckBox1.Name = "CheckBox1"
         Me.CheckBox1.Size = New System.Drawing.Size(39, 20)

工巧明智能管理系統/我的系統/財務系統管理/營運成本收支單審核.vb

         DataGridView1.RowTemplate.Height = 35
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT      公帳流水帳.支付單號, 公帳流水帳.項次, 會計科目.會計科目, 公帳流水帳.明細 AS 用途, 
-                            公帳流水帳.零用金, 公帳流水帳.支票數 AS 支票, Cast(公帳流水帳.收入 AS money) AS 現金, 
+                            Cast(公帳流水帳.零用金 AS money) AS 零用金, Cast(公帳流水帳.支票數 AS money) AS 支票, Cast(公帳流水帳.收入 AS money) AS 現金, 
                             Cast(公帳流水帳.支出 AS money) AS 支出, 公帳流水帳.備註 AS 票期, 公帳流水帳.匯率, 公帳流水帳.銀行 AS 幣別, 公帳流水帳.類別, 公帳流水帳.流水號
                 FROM        公帳流水帳 INNER JOIN
                             會計科目 ON 公帳流水帳.類別 = 會計科目.編號

工巧明智能管理系統/我的系統/財務系統管理/營運成本收支單申請.Designer.vb

         Me.TextBox9 = New System.Windows.Forms.TextBox()
         Me.ComboBox6 = New System.Windows.Forms.ComboBox()
         Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
-        Me.ComboBox7 = New System.Windows.Forms.ComboBox()
-        Me.TextBox10 = New System.Windows.Forms.TextBox()
+        Me.幣別_cb = New System.Windows.Forms.ComboBox()
+        Me.人民幣匯率_tb = New System.Windows.Forms.TextBox()
+        Me.美金匯率_tb = New System.Windows.Forms.TextBox()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         'CheckBox1
         '
         Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.Checked = True
+        Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
         Me.CheckBox1.Location = New System.Drawing.Point(827, 6)
         Me.CheckBox1.Name = "CheckBox1"
         Me.CheckBox1.Size = New System.Drawing.Size(39, 20)
         Me.ProgressBar1.Size = New System.Drawing.Size(909, 23)
         Me.ProgressBar1.TabIndex = 897
         '
-        'ComboBox7
-        '
-        Me.ComboBox7.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.ComboBox7.FormattingEnabled = True
-        Me.ComboBox7.Items.AddRange(New Object() {"台幣現金", "人民幣現金"})
-        Me.ComboBox7.Location = New System.Drawing.Point(1118, 30)
-        Me.ComboBox7.Name = "ComboBox7"
-        Me.ComboBox7.Size = New System.Drawing.Size(119, 24)
-        Me.ComboBox7.TabIndex = 898
-        '
-        'TextBox10
-        '
-        Me.TextBox10.Location = New System.Drawing.Point(872, 4)
-        Me.TextBox10.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.TextBox10.Name = "TextBox10"
-        Me.TextBox10.Size = New System.Drawing.Size(62, 23)
-        Me.TextBox10.TabIndex = 899
-        Me.TextBox10.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '幣別_cb
+        '
+        Me.幣別_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.幣別_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.幣別_cb.FormattingEnabled = True
+        Me.幣別_cb.Items.AddRange(New Object() {"台幣現金", "人民幣現金", "美金"})
+        Me.幣別_cb.Location = New System.Drawing.Point(1118, 30)
+        Me.幣別_cb.Name = "幣別_cb"
+        Me.幣別_cb.Size = New System.Drawing.Size(119, 24)
+        Me.幣別_cb.TabIndex = 898
+        '
+        '人民幣匯率_tb
+        '
+        Me.人民幣匯率_tb.Location = New System.Drawing.Point(892, 230)
+        Me.人民幣匯率_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.人民幣匯率_tb.Name = "人民幣匯率_tb"
+        Me.人民幣匯率_tb.Size = New System.Drawing.Size(175, 23)
+        Me.人民幣匯率_tb.TabIndex = 899
+        Me.人民幣匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.人民幣匯率_tb.Visible = False
+        '
+        '美金匯率_tb
+        '
+        Me.美金匯率_tb.Location = New System.Drawing.Point(892, 261)
+        Me.美金匯率_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.美金匯率_tb.Name = "美金匯率_tb"
+        Me.美金匯率_tb.Size = New System.Drawing.Size(175, 23)
+        Me.美金匯率_tb.TabIndex = 900
+        Me.美金匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.美金匯率_tb.Visible = False
         '
         '營運成本收支單申請
         '
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1249, 611)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
-        Me.Controls.Add(Me.TextBox10)
-        Me.Controls.Add(Me.ComboBox7)
+        Me.Controls.Add(Me.美金匯率_tb)
+        Me.Controls.Add(Me.人民幣匯率_tb)
+        Me.Controls.Add(Me.幣別_cb)
         Me.Controls.Add(Me.ProgressBar1)
         Me.Controls.Add(Me.ComboBox6)
         Me.Controls.Add(Me.TextBox9)
         Me.Controls.Add(Me.TextBox4)
         Me.Controls.Add(Me.Label28)
         Me.Controls.Add(Me.Label27)
-        Me.Controls.Add(Me.DataGridView1)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.TextBox3)
         Me.Controls.Add(Me.TextBox1)
         Me.Controls.Add(Me.RadioButton2)
         Me.Controls.Add(Me.RadioButton1)
         Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.DataGridView1)
         Me.Controls.Add(Me.DataGridView2)
         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)
     Friend WithEvents TextBox9 As TextBox
     Friend WithEvents ComboBox6 As ComboBox
     Friend WithEvents ProgressBar1 As ProgressBar
-    Friend WithEvents ComboBox7 As ComboBox
-    Friend WithEvents TextBox10 As TextBox
+    Friend WithEvents 幣別_cb As ComboBox
+    Friend WithEvents 人民幣匯率_tb As TextBox
+    Friend WithEvents 美金匯率_tb As TextBox
 End Class

工巧明智能管理系統/我的系統/財務系統管理/營運成本收支單申請.vb

     End Sub
     Private Sub 匯率()
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "SELECT 中心匯率 FROM 歷史匯率表 
+        SQL1 = "SELECT 中心匯率, 美金匯率 FROM 歷史匯率表 
                 WHERE (年 LIKE '" & Strings.Left(Format(DateTimePicker1.Value, "yyyyMMdd"), 4) & "%') AND (月 LIKE '" & Strings.Mid(Format(DateTimePicker1.Value, "yyyyMMdd"), 5, 2) & "%')"
         cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
         If dr.Read() Then
-            TextBox10.Text = dr("中心匯率").ToString : conn.Close() : dr.Close()
+            人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : conn.Close() : dr.Close()
         Else
             conn.Close() : dr.Close() : 匯率修改.Close() : 匯率修改.Show() : 匯率修改.BringToFront()
         End If
         End If
     End Sub
     Private Sub 新增一筆資料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 新增一筆資料ToolStripMenuItem.Click
-        If ComboBox6.Text = "" Or ComboBox7.Text = "" Then
+        If ComboBox6.Text = "" Or 幣別_cb.Text = "" Then
             MsgBox("沒有選擇會計科目或幣別。")
         Else
             If TextBox1.Text = "" Then
             ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1
             End If
             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-            If ComboBox7.Text = "台幣現金" Then : 匯率1 = 1 : Else : 匯率1 = TextBox10.Text : End If
+
+            If 幣別_cb.Text = "台幣現金" Then
+                匯率1 = 1
+            ElseIf 幣別_cb.Text = "人民幣現金" Then
+                匯率1 = 人民幣匯率_tb.Text
+            ElseIf 幣別_cb.Text = "美金" Then
+                匯率1 = 美金匯率_tb.Text
+            End If
+
             SQL1 = "INSERT INTO 公帳流水帳 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 
                             出納日期, 零用金, 支票數, 匯率, 備註) " &
-                   "VALUES (N'" & 新流水1 & "', N'" & ComboBox7.Text & "', N'" & DTP & "', N'" & ComboBox6.Text & "', N'0', N'0', N'', N'" & gUserName & "', N'" & TextBox1.Text & "', N'" & 新項次 &
+                   "VALUES (N'" & 新流水1 & "', N'" & 幣別_cb.Text & "', N'" & DTP & "', N'" & ComboBox6.Text & "', N'0', N'0', N'', N'" & gUserName & "', N'" & TextBox1.Text & "', N'" & 新項次 &
                         "', N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'0', N'0', N'" & 匯率1 & "', N'')"
             cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
             Set_費用清單()