20220722備份

工巧明智能管理系統/我的系統/App.config

@@ -3,12 +3,10 @@
     <configSections>
     </configSections>
     <connectionStrings>
-        <add name="工巧明智能管理系統.My.MySettings.資料庫1" connectionString="Data Source=VAIO-VAIO;Initial Catalog=我的資料庫;Integrated Security=True"
-            providerName="System.Data.SqlClient" />
-        <add name="工巧明智能管理系統.My.MySettings.資料庫2" connectionString="Data Source=192.168.3.192;Initial Catalog=我的資料庫;Persist Security Info=True;User ID=break;Password=0911274990"
-            providerName="System.Data.SqlClient" />
+        <add name="工巧明智能管理系統.My.MySettings.資料庫1" connectionString="Data Source=VAIO-VAIO;Initial Catalog=我的資料庫;Integrated Security=True" providerName="System.Data.SqlClient"/>
+        <add name="工巧明智能管理系統.My.MySettings.資料庫2" connectionString="Data Source=192.168.3.192;Initial Catalog=我的資料庫;Persist Security Info=True;User ID=break;Password=0911274990" providerName="System.Data.SqlClient"/>
     </connectionStrings>
     <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
     </startup>
 </configuration>

工巧明智能管理系統/我的系統/My Project/Application.Designer.vb

@@ -3,7 +3,7 @@
 '     這段程式碼是由工具產生的。
 '     執行階段版本:4.0.30319.42000
 '
-'     對這個檔案所做的變更可能會造成錯誤的行為,而且如果重新產生程式碼,
+'     對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
 '     變更將會遺失。
 ' </auto-generated>
 '------------------------------------------------------------------------------
@@ -14,9 +14,9 @@ Option Explicit On
 
 Namespace My
     
-    '注意:這是自動產生的檔案,請勿直接修改它。若要進行變更,
-    ' 或者您在這個檔案發生建置錯誤,請到專案設計工具
-    ' (移至專案屬性或者在 [方案總管] 中按兩下 [My Project] 節點),
+    '注意:這是自動產生的檔案，請勿直接修改它。若要進行變更，
+    ' 或者您在這個檔案發生建置錯誤，請到專案設計工具
+    ' (移至專案屬性或者在 [方案總管] 中按兩下 [My Project] 節點)，
     ' 然後在 [應用程式] 索引標籤上進行變更。
     '
     Partial Friend Class MyApplication

工巧明智能管理系統/我的系統/My Project/Resources.Designer.vb

@@ -3,7 +3,7 @@
 '     這段程式碼是由工具產生的。
 '     執行階段版本:4.0.30319.42000
 '
-'     對這個檔案所做的變更可能會造成錯誤的行為,而且如果重新產生程式碼,
+'     對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
 '     變更將會遺失。
 ' </auto-generated>
 '------------------------------------------------------------------------------
@@ -15,14 +15,14 @@ Imports System
 
 Namespace My.Resources
     
-    '這個類別是自動產生的,是利用 StronglyTypedResourceBuilder
+    '這個類別是自動產生的，是利用 StronglyTypedResourceBuilder
     '類別透過 ResGen 或 Visual Studio 這類工具。
-    '若要加入或移除成員,請編輯您的 .ResX 檔,然後重新執行 ResGen
-    '(利用 /str 選項),或重建您的 VS 專案。
+    '若要加入或移除成員，請編輯您的 .ResX 檔，然後重新執行 ResGen
+    '(利用 /str 選項)，或重建您的 VS 專案。
     '''<summary>
     '''  用於查詢當地語系化字串等的強類型資源類別。
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
      Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
@@ -47,7 +47,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  覆寫目前執行緒的 CurrentUICulture 屬性,對象是所有
+        '''  覆寫目前執行緒的 CurrentUICulture 屬性，對象是所有
         '''  使用這個強類型資源類別的資源查閱。
         '''</summary>
         <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _

工巧明智能管理系統/我的系統/My Project/Settings.Designer.vb

@@ -3,7 +3,7 @@
 '     這段程式碼是由工具產生的。
 '     執行階段版本:4.0.30319.42000
 '
-'     對這個檔案所做的變更可能會造成錯誤的行為,而且如果重新產生程式碼,
+'     對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
 '     變更將會遺失。
 ' </auto-generated>
 '------------------------------------------------------------------------------
@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.8.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.2.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase

工巧明智能管理系統/我的系統/MyModule/SQL_休假與加班.vb

@@ -180,7 +180,7 @@
     End Sub
     Friend Sub SQL_申請刪除1()
         ConnOpen()
-        SQL1 = "DELETE FROM  人事請假單  WHERE 日期 LIKE '" & 到離職管理.特假日期_tb.Text & "' AND 員工編號 = " & 到離職管理.員工編號_tb.Text & ""
+        SQL1 = "DELETE FROM  人事請假單  WHERE 日期 LIKE '" & 到離職管理.特假日期_tb.Text & "' AND 員工編號 LIKE '" & 到離職管理.員工編號_tb.Text & "'"
         CmdSet_For_dr()
     End Sub
 End Module

工巧明智能管理系統/我的系統/MyModule/全域變數.vb

@@ -8,7 +8,7 @@
     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, CC27, CC28, CC29, CC30, CC31, CC32"
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2021101301"
+    Public 版本 As String = "2022060101"
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 判斷重登 As Boolean : 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

工巧明智能管理系統/我的系統/bin/Debug/GCM-ERP-SYS.exe.config

@@ -3,12 +3,10 @@
     <configSections>
     </configSections>
     <connectionStrings>
-        <add name="工巧明智能管理系統.My.MySettings.資料庫1" connectionString="Data Source=VAIO-VAIO;Initial Catalog=我的資料庫;Integrated Security=True"
-            providerName="System.Data.SqlClient" />
-        <add name="工巧明智能管理系統.My.MySettings.資料庫2" connectionString="Data Source=192.168.3.192;Initial Catalog=我的資料庫;Persist Security Info=True;User ID=break;Password=0911274990"
-            providerName="System.Data.SqlClient" />
+        <add name="工巧明智能管理系統.My.MySettings.資料庫1" connectionString="Data Source=VAIO-VAIO;Initial Catalog=我的資料庫;Integrated Security=True" providerName="System.Data.SqlClient"/>
+        <add name="工巧明智能管理系統.My.MySettings.資料庫2" connectionString="Data Source=192.168.3.192;Initial Catalog=我的資料庫;Persist Security Info=True;User ID=break;Password=0911274990" providerName="System.Data.SqlClient"/>
     </connectionStrings>
     <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
     </startup>
 </configuration>

工巧明智能管理系統/我的系統/bin/Debug/GCM-ERP-SYS.xml

@@ -18,7 +18,7 @@ GCM-ERP-SYS
 </member>
 <member name="P:工巧明智能管理系統.My.Resources.Resources.Culture">
 <summary>
-  覆寫目前執行緒的 CurrentUICulture 屬性,對象是所有
+  覆寫目前執行緒的 CurrentUICulture 屬性，對象是所有
   使用這個強類型資源類別的資源查閱。
 </summary>
 </member>

工巧明智能管理系統/我的系統/obj/x86/Debug/.NETFramework,Version=v4.8.AssemblyAttributes.vb

@@ -0,0 +1,7 @@
+' <autogenerated/>
+            Option Strict Off
+            Option Explicit On
+
+            Imports System
+            Imports System.Reflection
+            <Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.8", FrameworkDisplayName:=".NET Framework 4.8")>

工巧明智能管理系統/我的系統/obj/x86/Debug/GCM-ERP-SYS.xml

@@ -18,7 +18,7 @@ GCM-ERP-SYS
 </member>
 <member name="P:工巧明智能管理系統.My.Resources.Resources.Culture">
 <summary>
-  覆寫目前執行緒的 CurrentUICulture 屬性,對象是所有
+  覆寫目前執行緒的 CurrentUICulture 屬性，對象是所有
   使用這個強類型資源類別的資源查閱。
 </summary>
 </member>

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

@@ -1 +1 @@
-39707ed71c8a58ae11eebd743d665ed6579af55e
+463fc9866f628b2fd87289bb5757a1e238ad1f55

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

@@ -718,4 +718,5 @@ D:\工巧明\GCM\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\De
 D:\工巧明\GCM\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\GCM-ERP-SYS.exe
 D:\工巧明\GCM\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\GCM-ERP-SYS.xml
 D:\工巧明\GCM\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\GCM-ERP-SYS.pdb
-D:\工巧明\GCM\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.vbprojAssemblyReference.cache
+D:\工巧明\GCM\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.vbproj.AssemblyReference.cache
+D:\工巧明\GCM\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.vbproj.SuggestedBindingRedirects.cache

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

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
     <Platform Condition=" '$(Platform)' == '' ">x86</Platform>
@@ -13,7 +13,7 @@
     <AssemblyName>GCM-ERP-SYS</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
     <TargetFrameworkProfile>
     </TargetFrameworkProfile>
     <IsWebBootstrapper>false</IsWebBootstrapper>
@@ -43,6 +43,7 @@
     <NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</NoWarn>
     <WarningsAsErrors>
     </WarningsAsErrors>
+    <Prefer32Bit>false</Prefer32Bit>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
     <PlatformTarget>x86</PlatformTarget>
@@ -55,6 +56,7 @@
     <NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</NoWarn>
     <WarningsAsErrors>
     </WarningsAsErrors>
+    <Prefer32Bit>false</Prefer32Bit>
   </PropertyGroup>
   <PropertyGroup>
     <OptionExplicit>On</OptionExplicit>

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

@@ -22,25 +22,27 @@ Partial Class 匯率修改
     '請不要使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim 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()
         Me.Label1 = New System.Windows.Forms.Label()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.人民幣中心_tb = New System.Windows.Forms.TextBox()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button4 = New System.Windows.Forms.Button()
         Me.Button5 = New System.Windows.Forms.Button()
         Me.DataGridView4 = New System.Windows.Forms.DataGridView()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Label3 = New System.Windows.Forms.Label()
-        Me.TextBox2 = New System.Windows.Forms.TextBox()
-        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.人民幣買_tb = New System.Windows.Forms.TextBox()
+        Me.人民幣賣_tb = New System.Windows.Forms.TextBox()
         Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
         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.美金中心_tb = New System.Windows.Forms.TextBox()
         Me.Label4 = New System.Windows.Forms.Label()
+        Me.印尼中心_tb = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
         CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -48,26 +50,26 @@ Partial Class 匯率修改
         '
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label1.Location = New System.Drawing.Point(13, 123)
+        Me.Label1.Location = New System.Drawing.Point(5, 98)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(73, 20)
         Me.Label1.TabIndex = 9
         Me.Label1.Text = "目前匯率"
         '
-        'TextBox1
+        '人民幣中心_tb
         '
-        Me.TextBox1.Enabled = False
-        Me.TextBox1.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.TextBox1.Location = New System.Drawing.Point(92, 120)
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(147, 29)
-        Me.TextBox1.TabIndex = 10
+        Me.人民幣中心_tb.Enabled = False
+        Me.人民幣中心_tb.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.人民幣中心_tb.Location = New System.Drawing.Point(84, 95)
+        Me.人民幣中心_tb.Name = "人民幣中心_tb"
+        Me.人民幣中心_tb.Size = New System.Drawing.Size(147, 29)
+        Me.人民幣中心_tb.TabIndex = 10
         '
         'Button2
         '
         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, 185)
+        Me.Button2.Location = New System.Drawing.Point(9, 190)
         Me.Button2.Name = "Button2"
         Me.Button2.Size = New System.Drawing.Size(101, 34)
         Me.Button2.TabIndex = 11
@@ -79,9 +81,9 @@ Partial Class 匯率修改
         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, 185)
+        Me.Button4.Location = New System.Drawing.Point(111, 190)
         Me.Button4.Name = "Button4"
-        Me.Button4.Size = New System.Drawing.Size(120, 74)
+        Me.Button4.Size = New System.Drawing.Size(120, 69)
         Me.Button4.TabIndex = 12
         Me.Button4.Text = "儲存修改"
         Me.Button4.UseVisualStyleBackColor = True
@@ -91,7 +93,7 @@ Partial Class 匯率修改
         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, 225)
+        Me.Button5.Location = New System.Drawing.Point(9, 225)
         Me.Button5.Name = "Button5"
         Me.Button5.Size = New System.Drawing.Size(101, 34)
         Me.Button5.TabIndex = 19
@@ -101,44 +103,44 @@ Partial Class 匯率修改
         '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))
-        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.DataGridView4.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView4.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
         Me.DataGridView4.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.DataGridView4.DefaultCellStyle = DataGridViewCellStyle5
-        Me.DataGridView4.Location = New System.Drawing.Point(245, 12)
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.DataGridView4.DefaultCellStyle = DataGridViewCellStyle2
+        Me.DataGridView4.Location = New System.Drawing.Point(235, 5)
         Me.DataGridView4.Name = "DataGridView4"
-        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView4.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView4.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
         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(410, 247)
+        Me.DataGridView4.Size = New System.Drawing.Size(530, 254)
         Me.DataGridView4.TabIndex = 39
         '
         'Label2
         '
         Me.Label2.AutoSize = True
         Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label2.Location = New System.Drawing.Point(13, 53)
+        Me.Label2.Location = New System.Drawing.Point(5, 36)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(73, 20)
         Me.Label2.TabIndex = 40
@@ -148,35 +150,35 @@ Partial Class 匯率修改
         '
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label3.Location = New System.Drawing.Point(13, 88)
+        Me.Label3.Location = New System.Drawing.Point(5, 67)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(73, 20)
         Me.Label3.TabIndex = 41
         Me.Label3.Text = "賣出匯率"
         '
-        'TextBox2
+        '人民幣買_tb
         '
-        Me.TextBox2.Enabled = False
-        Me.TextBox2.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.TextBox2.Location = New System.Drawing.Point(92, 50)
-        Me.TextBox2.Name = "TextBox2"
-        Me.TextBox2.Size = New System.Drawing.Size(147, 29)
-        Me.TextBox2.TabIndex = 42
+        Me.人民幣買_tb.Enabled = False
+        Me.人民幣買_tb.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.人民幣買_tb.Location = New System.Drawing.Point(84, 33)
+        Me.人民幣買_tb.Name = "人民幣買_tb"
+        Me.人民幣買_tb.Size = New System.Drawing.Size(147, 29)
+        Me.人民幣買_tb.TabIndex = 42
         '
-        'TextBox3
+        '人民幣賣_tb
         '
-        Me.TextBox3.Enabled = False
-        Me.TextBox3.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.TextBox3.Location = New System.Drawing.Point(92, 85)
-        Me.TextBox3.Name = "TextBox3"
-        Me.TextBox3.Size = New System.Drawing.Size(147, 29)
-        Me.TextBox3.TabIndex = 43
+        Me.人民幣賣_tb.Enabled = False
+        Me.人民幣賣_tb.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.人民幣賣_tb.Location = New System.Drawing.Point(84, 64)
+        Me.人民幣賣_tb.Name = "人民幣賣_tb"
+        Me.人民幣賣_tb.Size = New System.Drawing.Size(147, 29)
+        Me.人民幣賣_tb.TabIndex = 43
         '
         'DateTimePicker1
         '
         Me.DateTimePicker1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker1.Location = New System.Drawing.Point(17, 12)
+        Me.DateTimePicker1.Location = New System.Drawing.Point(9, 5)
         Me.DateTimePicker1.Name = "DateTimePicker1"
         Me.DateTimePicker1.Size = New System.Drawing.Size(120, 23)
         Me.DateTimePicker1.TabIndex = 44
@@ -184,7 +186,7 @@ Partial Class 匯率修改
         'CheckBox1
         '
         Me.CheckBox1.AutoSize = True
-        Me.CheckBox1.Location = New System.Drawing.Point(143, 18)
+        Me.CheckBox1.Location = New System.Drawing.Point(135, 11)
         Me.CheckBox1.Name = "CheckBox1"
         Me.CheckBox1.Size = New System.Drawing.Size(96, 16)
         Me.CheckBox1.TabIndex = 89
@@ -211,45 +213,66 @@ Partial Class 匯率修改
         Me.TextBox5.TabIndex = 91
         Me.TextBox5.Visible = False
         '
-        'TextBox6
+        '美金中心_tb
         '
-        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
+        Me.美金中心_tb.Enabled = False
+        Me.美金中心_tb.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.美金中心_tb.Location = New System.Drawing.Point(84, 126)
+        Me.美金中心_tb.Name = "美金中心_tb"
+        Me.美金中心_tb.Size = New System.Drawing.Size(147, 29)
+        Me.美金中心_tb.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.Location = New System.Drawing.Point(5, 130)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(73, 20)
         Me.Label4.TabIndex = 92
         Me.Label4.Text = "美金匯率"
         '
+        '印尼中心_tb
+        '
+        Me.印尼中心_tb.Enabled = False
+        Me.印尼中心_tb.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.印尼中心_tb.Location = New System.Drawing.Point(84, 157)
+        Me.印尼中心_tb.Name = "印尼中心_tb"
+        Me.印尼中心_tb.Size = New System.Drawing.Size(147, 29)
+        Me.印尼中心_tb.TabIndex = 95
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label5.Location = New System.Drawing.Point(5, 160)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(73, 20)
+        Me.Label5.TabIndex = 94
+        Me.Label5.Text = "印尼匯率"
+        '
         '匯率修改
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(667, 265)
-        Me.Controls.Add(Me.TextBox6)
+        Me.ClientSize = New System.Drawing.Size(771, 265)
+        Me.Controls.Add(Me.印尼中心_tb)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.美金中心_tb)
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.TextBox5)
         Me.Controls.Add(Me.TextBox4)
         Me.Controls.Add(Me.CheckBox1)
         Me.Controls.Add(Me.DateTimePicker1)
-        Me.Controls.Add(Me.TextBox3)
-        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.人民幣賣_tb)
+        Me.Controls.Add(Me.人民幣買_tb)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.DataGridView4)
         Me.Controls.Add(Me.Button5)
         Me.Controls.Add(Me.Button4)
         Me.Controls.Add(Me.Button2)
-        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.人民幣中心_tb)
         Me.Controls.Add(Me.Label1)
         Me.Name = "匯率修改"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
@@ -260,19 +283,21 @@ Partial Class 匯率修改
 
     End Sub
     Friend WithEvents Label1 As System.Windows.Forms.Label
-    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
+    Friend WithEvents 人民幣中心_tb As System.Windows.Forms.TextBox
     Friend WithEvents Button2 As System.Windows.Forms.Button
     Friend WithEvents Button4 As System.Windows.Forms.Button
     Friend WithEvents Button5 As System.Windows.Forms.Button
     Friend WithEvents DataGridView4 As DataGridView
     Friend WithEvents Label2 As Label
     Friend WithEvents Label3 As Label
-    Friend WithEvents TextBox2 As TextBox
-    Friend WithEvents TextBox3 As TextBox
+    Friend WithEvents 人民幣買_tb As TextBox
+    Friend WithEvents 人民幣賣_tb As TextBox
     Friend WithEvents DateTimePicker1 As DateTimePicker
     Friend WithEvents CheckBox1 As CheckBox
     Friend WithEvents TextBox4 As TextBox
     Friend WithEvents TextBox5 As TextBox
-    Friend WithEvents TextBox6 As TextBox
+    Friend WithEvents 美金中心_tb As TextBox
     Friend WithEvents Label4 As Label
+    Friend WithEvents 印尼中心_tb As TextBox
+    Friend WithEvents Label5 As Label
 End Class

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

@@ -8,7 +8,7 @@ Public Class 匯率修改
         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")
+        TextBox4.Text = Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 4) : TextBox5.Text = Strings.Mid(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 6, 2)
     End Sub
     Private Sub Set_歷史匯率清單()
         DataGridView4.DataSource = Nothing : ds.Clear()
@@ -16,15 +16,14 @@ Public Class 匯率修改
         DataGridView4.ColumnHeadersHeight = 25
         DataGridView4.AllowUserToAddRows = False
         ConnOpen()
-        SQL1 = "SELECT 年, 月, 買進匯率, 賣出匯率, 中心匯率, 美金匯率 FROM 歷史匯率表 ORDER BY 年 DESC, 月 DESC"
+        SQL1 = "SELECT 年, 月, 買進匯率, 賣出匯率, 中心匯率, 美金匯率, 印尼匯率 FROM 歷史匯率表 ORDER BY 年 DESC, 月 DESC"
         CmdSet_For_DGV() : da.Fill(ds) : DataGridView4.DataSource = ds.Tables(0) : conn.Close()
     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
-            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
+            人民幣買_tb.Text = DataGridView4(2, e.RowIndex).Value.ToString : 人民幣賣_tb.Text = DataGridView4(3, e.RowIndex).Value.ToString
+            人民幣中心_tb.Text = DataGridView4(4, e.RowIndex).Value.ToString : 美金中心_tb.Text = DataGridView4(5, e.RowIndex).Value.ToString
+            印尼中心_tb.Text = DataGridView4(6, e.RowIndex).Value.ToString
         End If
     End Sub
     Private Sub Set_日期寫入()
@@ -34,13 +33,14 @@ Public Class 匯率修改
         CmdSet_For_dr()
         If dr.Read() Then
             ConnOpen()
-            SQL1 = "UPDATE 歷史匯率表 SET 買進匯率 = '" & TextBox2.Text & "', 賣出匯率 = '" & TextBox3.Text & "', 中心匯率 = '" & TextBox1.Text & "', 美金匯率 = '" & TextBox6.Text & "'  
-                   WHERE (年 LIKE '" & TextBox4.Text & "%') AND (月 LIKE '" & TextBox5.Text & "%')"
+            SQL1 = "UPDATE 歷史匯率表 SET 買進匯率 = '" & 人民幣買_tb.Text & "', 賣出匯率 = '" & 人民幣賣_tb.Text & "', 中心匯率 = '" & 人民幣中心_tb.Text & "', 
+                                          美金匯率 = '" & 美金中心_tb.Text & "', 印尼匯率 = '" & 印尼中心_tb.Text & "'  
+                    WHERE (年 LIKE '" & TextBox4.Text & "%') AND (月 LIKE '" & TextBox5.Text & "%')"
             CmdSet_For_dr() : conn.Close()
         Else
             ConnOpen()
-            SQL1 = "INSERT INTO 歷史匯率表 (年, 月, 買進匯率, 賣出匯率, 中心匯率, 美金匯率) VALUES ('" & TextBox4.Text & "','" & TextBox5.Text & "
-                          ','" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox1.Text & "', '" & TextBox6.Text & "')"
+            SQL1 = "INSERT INTO 歷史匯率表 (年, 月, 買進匯率, 賣出匯率, 中心匯率, 美金匯率, 印尼匯率) VALUES ('" & TextBox4.Text & "',N'" & TextBox5.Text & " ',
+                    '" & 人民幣買_tb.Text & "', '" & 人民幣賣_tb.Text & "', '" & 人民幣中心_tb.Text & "', '" & 美金中心_tb.Text & "', '" & 印尼中心_tb.Text & "')"
             CmdSet_For_dr() : conn.Close()
         End If : conn.Close() : MsgBox("完成")
     End Sub
@@ -50,15 +50,17 @@ Public Class 匯率修改
         ConnOpen()
         SQL1 = "SELECT 匯率 FROM 匯率表 WHERE (對應 = '人民幣兌台幣')"
         CmdSet_For_dr()
-        If dr.Read() Then : TextBox1.Text = dr("匯率").ToString : End If
-        If TextBox1.Text = "" Then : TextBox1.Text = "0.00" : End If
+        If dr.Read() Then : 人民幣中心_tb.Text = dr("匯率").ToString : End If
+        If 人民幣中心_tb.Text = "" Then : 人民幣中心_tb.Text = "0.00" : End If
         conn.Close() : dr.Close()
 
         ConnOpen()
-        SQL1 = "SELECT 買進匯率, 賣出匯率, 美金匯率 FROM 歷史匯率表  WHERE (年 LIKE '" & TextBox4.Text & "%') AND (月 LIKE '" & TextBox5.Text & "%')"
+        SQL1 = "SELECT 買進匯率, 賣出匯率, 美金匯率, 印尼匯率 FROM 歷史匯率表  WHERE (年 LIKE '" & TextBox4.Text & "%') AND (月 LIKE '" & TextBox5.Text & "%')"
         CmdSet_For_dr()
-        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
+        If dr.Read() Then
+            人民幣買_tb.Text = dr("買進匯率").ToString : 人民幣賣_tb.Text = dr("賣出匯率").ToString : 美金中心_tb.Text = dr("美金匯率").ToString : 印尼中心_tb.Text = dr("印尼匯率").ToString
+        End If
+        If 人民幣中心_tb.Text = "" Then : 人民幣中心_tb.Text = "0.00" : End If
         conn.Close() : dr.Close()
         Set_歷史匯率清單() : Set_grid() : Set_日期()
     End Sub
@@ -73,36 +75,39 @@ Public Class 匯率修改
         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 : TextBox6.Enabled = True : Button4.Enabled = True : Button5.Enabled = True
+        人民幣中心_tb.Enabled = True : 人民幣買_tb.Enabled = True : 人民幣賣_tb.Enabled = True : 美金中心_tb.Enabled = True
+        Button4.Enabled = True : Button5.Enabled = True : 印尼中心_tb.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 : TextBox6.Enabled = False : Button4.Enabled = False : Button5.Enabled = False
+        人民幣中心_tb.Enabled = False : 人民幣買_tb.Enabled = False : 人民幣賣_tb.Enabled = False : 美金中心_tb.Enabled = False
+        Button4.Enabled = False : Button5.Enabled = False : 印尼中心_tb.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
+        If 人民幣中心_tb.Text = "" Or 人民幣買_tb.Text = "" Or 人民幣賣_tb.Text = "" Then
             MsgBox("輸入資料有誤")
         Else
             If CheckBox1.Checked = False Then
                 DateTimePicker1.Value = Today
                 Set_日期寫入()
                 ConnOpen()
-                SQL1 = "UPDATE 匯率表 SET 匯率 = '" & TextBox1.Text & "' WHERE (對應 = '人民幣兌台幣')"
+                SQL1 = "UPDATE 匯率表 SET 匯率 = '" & 人民幣中心_tb.Text & "' WHERE (對應 = '人民幣兌台幣')"
                 CmdSet_For_dr() : conn.Close() : dr.Close()
             Else
                 Set_日期寫入()
             End If
         End If
-        TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False : TextBox6.Enabled = False : Button4.Enabled = False : Button5.Enabled = False
+        人民幣中心_tb.Enabled = False : 人民幣買_tb.Enabled = False : 人民幣賣_tb.Enabled = False : 美金中心_tb.Enabled = False
+        Button4.Enabled = False : Button5.Enabled = False : 印尼中心_tb.Enabled = False
         Set_歷史匯率清單() : Set_grid() : Set_日期()
     End Sub
-    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
-        If TextBox2.Text <> "" And TextBox3.Text <> "" Then
-            TextBox1.Text = (Val(TextBox2.Text) + Val(TextBox3.Text)) / 2
+    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles 人民幣買_tb.TextChanged
+        If 人民幣買_tb.Text <> "" And 人民幣賣_tb.Text <> "" Then
+            人民幣中心_tb.Text = (Val(人民幣買_tb.Text) + Val(人民幣賣_tb.Text)) / 2
         End If
     End Sub
-    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
-        If TextBox2.Text <> "" And TextBox3.Text <> "" Then
-            TextBox1.Text = (Val(TextBox2.Text) + Val(TextBox3.Text)) / 2
+    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles 人民幣賣_tb.TextChanged
+        If 人民幣買_tb.Text <> "" And 人民幣賣_tb.Text <> "" Then
+            人民幣中心_tb.Text = (Val(人民幣買_tb.Text) + Val(人民幣賣_tb.Text)) / 2
         End If
     End Sub
 End Class

工巧明智能管理系統/我的系統/財務系統管理/財務_對帳單.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class 財務_對帳單
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,10 +20,10 @@ Partial Class 財務_對帳單
     '注意: 以下為 Windows Form 設計工具所需的程序
     '可以使用 Windows Form 設計工具進行修改。
     '請勿使用程式碼編輯器進行修改。
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <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 DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.TextBox7 = New System.Windows.Forms.TextBox()
@@ -122,8 +122,8 @@ Partial Class 財務_對帳單
         Me.清單_dgv.Location = New System.Drawing.Point(7, 59)
         Me.清單_dgv.Name = "清單_dgv"
         Me.清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.清單_dgv.RowTemplate.Height = 24
         Me.清單_dgv.Size = New System.Drawing.Size(1236, 522)
         Me.清單_dgv.TabIndex = 1006
@@ -542,11 +542,11 @@ Partial Class 財務_對帳單
         Me.Controls.Add(Me.TextBox1)
         Me.Controls.Add(Me.TextBox7)
         Me.Controls.Add(Me.Label9)
-        Me.Controls.Add(Me.清單_dgv)
         Me.Controls.Add(Me.Label62)
         Me.Controls.Add(Me.ComboBox2)
         Me.Controls.Add(Me.ComboBox1)
         Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.清單_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "財務_對帳單"

工巧明智能管理系統/我的系統/財務系統管理/財務_對帳單.vb

@@ -1,7 +1,7 @@
 Option Strict Off
 Public Class 財務_對帳單
     ReadOnly ds As New DataSet
-    Dim KKKJJ As String : Dim KKKJJ2 As String : Dim KKKJJ3 As String : Dim KKK3 As String : Dim KKK4 As String
+    Dim KKKJJ As String : Dim KKKJJ2 As String : Dim KKKJJ3 As String : Dim KKK3 As String : Dim KKK4 As String : Dim 匯率1 As Double
     Private Sub Set_清單1()
         清單_dgv.DataSource = Nothing : ds.Clear()
         清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -85,6 +85,18 @@ Public Class 財務_對帳單
         While (dr.Read()) : ComboBox1.Items.Add(dr("年份")) : End While
         conn.Close()
     End Sub
+    'Private Sub 匯率()
+    '    ConnOpen()
+    '    SQL1 = "SELECT 中心匯率, 美金匯率, 印尼匯率 FROM 歷史匯率表 
+    '            WHERE (年 LIKE '" & ComboBox1.Text & "') AND 
+    '                  (月 LIKE '" & ComboBox2.Text & "')"
+    '    cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
+    '    If dr.Read() Then
+    '        人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : 印尼匯率_tb.Text = dr("印尼匯率").ToString : conn.Close() : dr.Close()
+    '    Else
+    '        conn.Close() : dr.Close() : 匯率修改.Close() : 匯率修改.Show() : 匯率修改.BringToFront()
+    '    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
         TextBox7.Text = "0" : TextBox2.Text = "0" : TextBox3.Text = "0" : TextBox9.Text = "0" : TextBox11.Text = "0" : TextBox13.Text = "0"

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

@@ -93,6 +93,9 @@ Partial Class 財務_收支單一覽表
         Me.全部_ch = New System.Windows.Forms.CheckBox()
         Me.含稅_ch = New System.Windows.Forms.CheckBox()
         Me.非稅_ch = New System.Windows.Forms.CheckBox()
+        Me.印尼匯率_tb = New System.Windows.Forms.TextBox()
+        Me.美金匯率_tb = New System.Windows.Forms.TextBox()
+        Me.人民幣匯率_tb = New System.Windows.Forms.TextBox()
         CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -768,12 +771,45 @@ Partial Class 財務_收支單一覽表
         Me.非稅_ch.Text = "非稅"
         Me.非稅_ch.UseVisualStyleBackColor = True
         '
+        '印尼匯率_tb
+        '
+        Me.印尼匯率_tb.Location = New System.Drawing.Point(578, 325)
+        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 = 1188
+        Me.印尼匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.印尼匯率_tb.Visible = False
+        '
+        '美金匯率_tb
+        '
+        Me.美金匯率_tb.Location = New System.Drawing.Point(578, 294)
+        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 = 1187
+        Me.美金匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.美金匯率_tb.Visible = False
+        '
+        '人民幣匯率_tb
+        '
+        Me.人民幣匯率_tb.Location = New System.Drawing.Point(578, 263)
+        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 = 1186
+        Me.人民幣匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.人民幣匯率_tb.Visible = False
+        '
         '財務_收支單一覽表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1331, 611)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.印尼匯率_tb)
+        Me.Controls.Add(Me.美金匯率_tb)
+        Me.Controls.Add(Me.人民幣匯率_tb)
         Me.Controls.Add(Me.非稅_ch)
         Me.Controls.Add(Me.含稅_ch)
         Me.Controls.Add(Me.全部_ch)
@@ -917,4 +953,7 @@ Partial Class 財務_收支單一覽表
     Friend WithEvents 全部_ch As CheckBox
     Friend WithEvents 含稅_ch As CheckBox
     Friend WithEvents 非稅_ch As CheckBox
+    Friend WithEvents 印尼匯率_tb As TextBox
+    Friend WithEvents 美金匯率_tb As TextBox
+    Friend WithEvents 人民幣匯率_tb As TextBox
 End Class

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

@@ -12,7 +12,7 @@ Imports Microsoft.Office.Interop.Excel.XlWindowState
 Imports Microsoft.Office.Interop.Excel
 Public Class 財務_收支單一覽表
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
-    Dim DTP As String : Dim N1 As Integer : Dim N2 As Integer
+    Dim DTP As String : Dim N1 As Integer : Dim N2 As Integer : Dim 匯率1 As Double
     Dim xlApp As Application
     Dim xlBook As Workbook
     Dim xlSheet As Worksheet
@@ -95,9 +95,9 @@ Public Class 財務_收支單一覽表
                 ORDER BY    財務流水帳.項次"
         CmdSet_For_DGV() : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 300 : 明細_dgv.Columns(3).FillWeight = 350
-        明細_dgv.Columns(4).FillWeight = 160 : 明細_dgv.Columns(5).FillWeight = 160 : 明細_dgv.Columns(6).FillWeight = 160 : 明細_dgv.Columns(7).FillWeight = 160
-        明細_dgv.Columns(8).FillWeight = 140 : 明細_dgv.Columns(9).FillWeight = 140 : 明細_dgv.Columns(10).FillWeight = 140 : 明細_dgv.Columns(11).Visible = False
+        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 250 : 明細_dgv.Columns(3).FillWeight = 400
+        明細_dgv.Columns(4).Visible = False : 明細_dgv.Columns(5).FillWeight = 120 : 明細_dgv.Columns(6).FillWeight = 165 : 明細_dgv.Columns(7).FillWeight = 165
+        明細_dgv.Columns(8).FillWeight = 150 : 明細_dgv.Columns(9).FillWeight = 130 : 明細_dgv.Columns(10).FillWeight = 140 : 明細_dgv.Columns(11).Visible = False
         明細_dgv.Columns(12).Visible = False : 明細_dgv.Columns(13).FillWeight = 80
 
         明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(9).ReadOnly = True : 明細_dgv.Columns(10).ReadOnly = True
@@ -114,12 +114,13 @@ Public Class 財務_收支單一覽表
 
         現1_tb.Text = "0.00" : 出1_tb.Text = "0.00" : 合1_tb.Text = "0.00" : 零1_tb.Text = "0.00" : 支1_tb.Text = "0.00"
         零2_tb.Text = "0.00" : 支2_tb.Text = "0.00" : 現2_tb.Text = "0.00" : 出2_tb.Text = "0.00" : 合2_tb.Text = "0.00"
+        零3_tb.Text = "0.00" : 支3_tb.Text = "0.00" : 現3_tb.Text = "0.00" : 出3_tb.Text = "0.00" : 合3_tb.Text = "0.00"
         For i As Integer = 0 To 明細_dgv.Rows.Count - 1
-            If 明細_dgv.Rows(i).Cells("幣別").Value = "台幣現金" Then
-                現1_tb.Text = Val(現1_tb.Text) + 明細_dgv.Rows(i).Cells("現金").Value
-                出1_tb.Text = Val(出1_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value
-                零1_tb.Text = Val(零1_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value
-                支1_tb.Text = Val(支1_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
+            If 明細_dgv.Rows(i).Cells("幣別").Value = "台幣現金" Or 明細_dgv.Rows(i).Cells("幣別").Value = "印尼盾" Then
+                現1_tb.Text = Val(現1_tb.Text) + 明細_dgv.Rows(i).Cells("現金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+                出1_tb.Text = Val(出1_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+                零1_tb.Text = Val(零1_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+                支1_tb.Text = Val(支1_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value * 明細_dgv.Rows(i).Cells("匯率").Value
             End If
             If 明細_dgv.Rows(i).Cells("幣別").Value = "人民幣現金" Then
                 現2_tb.Text = Val(現2_tb.Text) + 明細_dgv.Rows(i).Cells("現金").Value
@@ -166,10 +167,22 @@ Public Class 財務_收支單一覽表
             結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
         End If
     End Sub
+    Private Sub 匯率()
+        ConnOpen()
+        SQL1 = "SELECT 中心匯率, 美金匯率, 印尼匯率 FROM 歷史匯率表 
+                WHERE (年 LIKE '" & Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyyMMdd"), 4) & "%') AND 
+                      (月 LIKE '" & Strings.Mid(Strings.Format(DateTimePicker1.Value, "yyyyMMdd"), 5, 2) & "%')"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
+        If dr.Read() Then
+            人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : 印尼匯率_tb.Text = dr("印尼匯率").ToString : conn.Close() : dr.Close()
+        Else
+            conn.Close() : dr.Close() : 匯率修改.Close() : 匯率修改.Show() : 匯率修改.BringToFront()
+        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"
-        開始日期_dtp.Value = DTP : 結束日期_dtp.Value = Today()
+        匯率() : 開始日期_dtp.Value = DTP : 結束日期_dtp.Value = Today()
         日期格式() : 開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1) : 彙總_dgv.Visible = False : RadioButton1.Checked = True
     End Sub
     Dim 已超出 As Boolean

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

@@ -23,9 +23,9 @@ Partial Class 財務_收支單審核
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.明細_dgv = New System.Windows.Forms.DataGridView()
@@ -60,6 +60,9 @@ Partial Class 財務_收支單審核
         Me.Label19 = New System.Windows.Forms.Label()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.DataGridView3 = New System.Windows.Forms.DataGridView()
+        Me.印尼匯率_tb = New System.Windows.Forms.TextBox()
+        Me.美金匯率_tb = New System.Windows.Forms.TextBox()
+        Me.人民幣匯率_tb = New System.Windows.Forms.TextBox()
         CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
@@ -91,8 +94,8 @@ Partial Class 財務_收支單審核
         '
         '明細_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         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)
@@ -101,8 +104,8 @@ Partial Class 財務_收支單審核
         Me.明細_dgv.Location = New System.Drawing.Point(327, 55)
         Me.明細_dgv.Name = "明細_dgv"
         Me.明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
         Me.明細_dgv.RowTemplate.Height = 24
         Me.明細_dgv.Size = New System.Drawing.Size(916, 549)
         Me.明細_dgv.TabIndex = 823
@@ -131,8 +134,8 @@ Partial Class 財務_收支單審核
         '
         'DataGridView2
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
         Me.DataGridView2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.DataGridView2.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -395,12 +398,45 @@ Partial Class 財務_收支單審核
         Me.DataGridView3.Size = New System.Drawing.Size(180, 47)
         Me.DataGridView3.TabIndex = 959
         '
+        '印尼匯率_tb
+        '
+        Me.印尼匯率_tb.Location = New System.Drawing.Point(892, 256)
+        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 = 967
+        Me.印尼匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.印尼匯率_tb.Visible = False
+        '
+        '美金匯率_tb
+        '
+        Me.美金匯率_tb.Location = New System.Drawing.Point(892, 225)
+        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 = 966
+        Me.美金匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.美金匯率_tb.Visible = False
+        '
+        '人民幣匯率_tb
+        '
+        Me.人民幣匯率_tb.Location = New System.Drawing.Point(892, 194)
+        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 = 965
+        Me.人民幣匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.人民幣匯率_tb.Visible = False
+        '
         '財務_收支單審核
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1249, 611)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.印尼匯率_tb)
+        Me.Controls.Add(Me.美金匯率_tb)
+        Me.Controls.Add(Me.人民幣匯率_tb)
         Me.Controls.Add(Me.TextBox14)
         Me.Controls.Add(Me.TextBox13)
         Me.Controls.Add(Me.Label20)
@@ -425,11 +461,11 @@ Partial Class 財務_收支單審核
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Button1)
-        Me.Controls.Add(Me.明細_dgv)
         Me.Controls.Add(Me.RadioButton2)
         Me.Controls.Add(Me.RadioButton1)
         Me.Controls.Add(Me.DataGridView2)
         Me.Controls.Add(Me.TextBox8)
+        Me.Controls.Add(Me.明細_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "財務_收支單審核"
@@ -477,4 +513,7 @@ Partial Class 財務_收支單審核
     Friend WithEvents Label19 As Label
     Friend WithEvents PictureBox1 As PictureBox
     Friend WithEvents DataGridView3 As DataGridView
+    Friend WithEvents 印尼匯率_tb As TextBox
+    Friend WithEvents 美金匯率_tb As TextBox
+    Friend WithEvents 人民幣匯率_tb As TextBox
 End Class

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

@@ -4,7 +4,7 @@ Imports System.IO
 Public Class 財務_收支單審核
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
     Private ReadOnly QQW(11) As String
-    Dim DTP As String : Dim WWEE As String : Private II As Integer
+    Dim DTP As String : Dim WWEE As String : Private II As Integer : Dim 匯率1 As Double
     Private Sub Set_清單1()
         DataGridView2.DataSource = Nothing : ds1.Clear()
         DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -38,9 +38,9 @@ Public Class 財務_收支單審核
                 ORDER BY    財務流水帳.項次"
         CmdSet_For_DGV() : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        明細_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(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 250 : 明細_dgv.Columns(3).FillWeight = 400
+        明細_dgv.Columns(4).Visible = False : 明細_dgv.Columns(5).FillWeight = 120 : 明細_dgv.Columns(6).FillWeight = 165 : 明細_dgv.Columns(7).FillWeight = 165
+        明細_dgv.Columns(8).FillWeight = 150 : 明細_dgv.Columns(9).FillWeight = 130 : 明細_dgv.Columns(10).FillWeight = 140 : 明細_dgv.Columns(11).Visible = False
         明細_dgv.Columns(12).Visible = False : 明細_dgv.Columns(13).FillWeight = 80
 
         明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(9).ReadOnly = True : 明細_dgv.Columns(10).ReadOnly = True
@@ -58,8 +58,10 @@ Public Class 財務_收支單審核
 
         TextBox5.Text = "0" : TextBox2.Text = "0" : TextBox6.Text = "0" : TextBox7.Text = "0" : TextBox8.Text = "0"
         For i As Integer = 0 To 明細_dgv.Rows.Count - 1
-            TextBox5.Text = Val(TextBox5.Text) + 明細_dgv.Rows(i).Cells("現金").Value : TextBox2.Text = Val(TextBox2.Text) + 明細_dgv.Rows(i).Cells("支出").Value
-            TextBox7.Text = Val(TextBox7.Text) + 明細_dgv.Rows(i).Cells("零用金").Value : TextBox8.Text = Val(TextBox8.Text) + 明細_dgv.Rows(i).Cells("支票").Value
+            TextBox5.Text = Val(TextBox5.Text) + 明細_dgv.Rows(i).Cells("現金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            TextBox2.Text = Val(TextBox2.Text) + 明細_dgv.Rows(i).Cells("支出").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            TextBox7.Text = Val(TextBox7.Text) + 明細_dgv.Rows(i).Cells("零用金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            TextBox8.Text = Val(TextBox8.Text) + 明細_dgv.Rows(i).Cells("支票").Value * 明細_dgv.Rows(i).Cells("匯率").Value
         Next i
         TextBox6.Text = Val(TextBox7.Text) + Val(TextBox5.Text) - Val(TextBox2.Text)
         If Val(TextBox6.Text) > 0 Then : TextBox6.ForeColor = Color.Blue : Else : TextBox6.ForeColor = Color.Red : End If
@@ -122,10 +124,21 @@ Public Class 財務_收支單審核
     Public Sub Delay(ByRef Interval As Double)  'Interval单位为毫秒
         Dim time As DateTime = DateTime.Now : Dim Span As Double = Interval * 1234 : While ((DateTime.Now.Ticks - time.Ticks) < Span) : Application.DoEvents() : End While
     End Sub
+    Private Sub 匯率()
+        ConnOpen()
+        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
+            人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : 印尼匯率_tb.Text = dr("印尼匯率").ToString : conn.Close() : dr.Close()
+        Else
+            conn.Close() : dr.Close() : 匯率修改.Close() : 匯率修改.Show() : 匯率修改.BringToFront()
+        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
         RadioButton1.Checked = True : DataGridView2.Visible = True
-        Set_清單1() : Set_清單()
+        匯率() : Set_清單1() : Set_清單()
     End Sub
     Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellClick
         If e.RowIndex = -1 Then : Else

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

@@ -27,7 +27,7 @@ Partial Class 財務_收支單申請
         Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.ComboBox1 = New System.Windows.Forms.ComboBox()
-        Me.TextBox5 = New System.Windows.Forms.TextBox()
+        Me.收入_tb = New System.Windows.Forms.TextBox()
         Me.Label8 = New System.Windows.Forms.Label()
         Me.Label62 = New System.Windows.Forms.Label()
         Me.TextBox4 = New System.Windows.Forms.TextBox()
@@ -58,13 +58,13 @@ Partial Class 財務_收支單申請
         Me.Label4 = New System.Windows.Forms.Label()
         Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
         Me.CheckBox1 = New System.Windows.Forms.CheckBox()
-        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.支出_tb = New System.Windows.Forms.TextBox()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.TextBox6 = New System.Windows.Forms.TextBox()
         Me.Label9 = New System.Windows.Forms.Label()
-        Me.TextBox7 = New System.Windows.Forms.TextBox()
+        Me.零用金_tb = New System.Windows.Forms.TextBox()
         Me.Label10 = New System.Windows.Forms.Label()
-        Me.TextBox8 = New System.Windows.Forms.TextBox()
+        Me.支票_tb = New System.Windows.Forms.TextBox()
         Me.Label11 = New System.Windows.Forms.Label()
         Me.RadioButton3 = New System.Windows.Forms.RadioButton()
         Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
@@ -79,6 +79,7 @@ Partial Class 財務_收支單申請
         Me.幣別_cb = New System.Windows.Forms.ComboBox()
         Me.人民幣匯率_tb = New System.Windows.Forms.TextBox()
         Me.美金匯率_tb = New System.Windows.Forms.TextBox()
+        Me.印尼匯率_tb = New System.Windows.Forms.TextBox()
         CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
@@ -94,14 +95,14 @@ Partial Class 財務_收支單申請
         Me.ComboBox1.Size = New System.Drawing.Size(175, 24)
         Me.ComboBox1.TabIndex = 845
         '
-        'TextBox5
+        '收入_tb
         '
-        Me.TextBox5.Location = New System.Drawing.Point(672, 30)
-        Me.TextBox5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.TextBox5.Name = "TextBox5"
-        Me.TextBox5.Size = New System.Drawing.Size(113, 23)
-        Me.TextBox5.TabIndex = 844
-        Me.TextBox5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.收入_tb.Location = New System.Drawing.Point(672, 30)
+        Me.收入_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.收入_tb.Name = "收入_tb"
+        Me.收入_tb.Size = New System.Drawing.Size(113, 23)
+        Me.收入_tb.TabIndex = 844
+        Me.收入_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'Label8
         '
@@ -110,7 +111,7 @@ Partial Class 財務_收支單申請
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(32, 16)
         Me.Label8.TabIndex = 843
-        Me.Label8.Text = "現金"
+        Me.Label8.Text = "收入"
         '
         'Label62
         '
@@ -160,7 +161,7 @@ Partial Class 財務_收支單申請
             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(328, 83)
+        Me.明細_dgv.Location = New System.Drawing.Point(328, 88)
         Me.明細_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.明細_dgv.Name = "明細_dgv"
         Me.明細_dgv.RowHeadersWidth = 5
@@ -369,14 +370,14 @@ Partial Class 財務_收支單申請
         Me.CheckBox1.Text = "補"
         Me.CheckBox1.UseVisualStyleBackColor = True
         '
-        'TextBox2
+        '支出_tb
         '
-        Me.TextBox2.Location = New System.Drawing.Point(821, 30)
-        Me.TextBox2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.TextBox2.Name = "TextBox2"
-        Me.TextBox2.Size = New System.Drawing.Size(113, 23)
-        Me.TextBox2.TabIndex = 881
-        Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.支出_tb.Location = New System.Drawing.Point(821, 30)
+        Me.支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.支出_tb.Name = "支出_tb"
+        Me.支出_tb.Size = New System.Drawing.Size(113, 23)
+        Me.支出_tb.TabIndex = 881
+        Me.支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'Label5
         '
@@ -406,14 +407,14 @@ Partial Class 財務_收支單申請
         Me.Label9.TabIndex = 882
         Me.Label9.Text = "現金餘額"
         '
-        'TextBox7
+        '零用金_tb
         '
-        Me.TextBox7.Location = New System.Drawing.Point(374, 30)
-        Me.TextBox7.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.TextBox7.Name = "TextBox7"
-        Me.TextBox7.Size = New System.Drawing.Size(113, 23)
-        Me.TextBox7.TabIndex = 885
-        Me.TextBox7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.零用金_tb.Location = New System.Drawing.Point(374, 30)
+        Me.零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.零用金_tb.Name = "零用金_tb"
+        Me.零用金_tb.Size = New System.Drawing.Size(113, 23)
+        Me.零用金_tb.TabIndex = 885
+        Me.零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'Label10
         '
@@ -424,14 +425,14 @@ Partial Class 財務_收支單申請
         Me.Label10.TabIndex = 884
         Me.Label10.Text = "零用金"
         '
-        'TextBox8
+        '支票_tb
         '
-        Me.TextBox8.Location = New System.Drawing.Point(523, 30)
-        Me.TextBox8.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.TextBox8.Name = "TextBox8"
-        Me.TextBox8.Size = New System.Drawing.Size(113, 23)
-        Me.TextBox8.TabIndex = 887
-        Me.TextBox8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.支票_tb.Location = New System.Drawing.Point(523, 30)
+        Me.支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.支票_tb.Name = "支票_tb"
+        Me.支票_tb.Size = New System.Drawing.Size(113, 23)
+        Me.支票_tb.TabIndex = 887
+        Me.支票_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'Label11
         '
@@ -543,7 +544,7 @@ Partial Class 財務_收支單申請
         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.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)
@@ -569,12 +570,23 @@ Partial Class 財務_收支單申請
         Me.美金匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         Me.美金匯率_tb.Visible = False
         '
+        '印尼匯率_tb
+        '
+        Me.印尼匯率_tb.Location = New System.Drawing.Point(892, 292)
+        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 = 901
+        Me.印尼匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.印尼匯率_tb.Visible = False
+        '
         '財務_收支單申請
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1249, 611)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.印尼匯率_tb)
         Me.Controls.Add(Me.美金匯率_tb)
         Me.Controls.Add(Me.人民幣匯率_tb)
         Me.Controls.Add(Me.幣別_cb)
@@ -588,20 +600,20 @@ Partial Class 財務_收支單申請
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.DateTimePicker2)
         Me.Controls.Add(Me.RadioButton3)
-        Me.Controls.Add(Me.TextBox8)
+        Me.Controls.Add(Me.支票_tb)
         Me.Controls.Add(Me.Label11)
-        Me.Controls.Add(Me.TextBox7)
+        Me.Controls.Add(Me.零用金_tb)
         Me.Controls.Add(Me.Label10)
         Me.Controls.Add(Me.TextBox6)
         Me.Controls.Add(Me.Label9)
-        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.支出_tb)
         Me.Controls.Add(Me.Label5)
         Me.Controls.Add(Me.CheckBox1)
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.DateTimePicker1)
         Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.ComboBox1)
-        Me.Controls.Add(Me.TextBox5)
+        Me.Controls.Add(Me.收入_tb)
         Me.Controls.Add(Me.Label8)
         Me.Controls.Add(Me.Label62)
         Me.Controls.Add(Me.TextBox4)
@@ -629,7 +641,7 @@ Partial Class 財務_收支單申請
     End Sub
 
     Friend WithEvents ComboBox1 As ComboBox
-    Friend WithEvents TextBox5 As TextBox
+    Friend WithEvents 收入_tb As TextBox
     Friend WithEvents Label8 As Label
     Friend WithEvents Label62 As Label
     Friend WithEvents TextBox4 As TextBox
@@ -659,13 +671,13 @@ Partial Class 財務_收支單申請
     Friend WithEvents Label4 As Label
     Friend WithEvents DateTimePicker1 As DateTimePicker
     Friend WithEvents CheckBox1 As CheckBox
-    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents 支出_tb As TextBox
     Friend WithEvents Label5 As Label
     Friend WithEvents TextBox6 As TextBox
     Friend WithEvents Label9 As Label
-    Friend WithEvents TextBox7 As TextBox
+    Friend WithEvents 零用金_tb As TextBox
     Friend WithEvents Label10 As Label
-    Friend WithEvents TextBox8 As TextBox
+    Friend WithEvents 支票_tb As TextBox
     Friend WithEvents Label11 As Label
     Friend WithEvents RadioButton3 As RadioButton
     Friend WithEvents DateTimePicker2 As DateTimePicker
@@ -681,4 +693,5 @@ Partial Class 財務_收支單申請
     Friend WithEvents 幣別_cb As ComboBox
     Friend WithEvents 人民幣匯率_tb As TextBox
     Friend WithEvents 美金匯率_tb As TextBox
+    Friend WithEvents 印尼匯率_tb As TextBox
 End Class

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

@@ -43,9 +43,9 @@ Public Class 財務_收支單申請
                 ORDER BY    財務流水帳.項次"
         CmdSet_For_DGV() : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        明細_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(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 250 : 明細_dgv.Columns(3).FillWeight = 400
+        明細_dgv.Columns(4).Visible = False : 明細_dgv.Columns(5).FillWeight = 120 : 明細_dgv.Columns(6).FillWeight = 165 : 明細_dgv.Columns(7).FillWeight = 165
+        明細_dgv.Columns(8).FillWeight = 150 : 明細_dgv.Columns(9).FillWeight = 130 : 明細_dgv.Columns(10).FillWeight = 140 : 明細_dgv.Columns(11).Visible = False
         明細_dgv.Columns(12).Visible = False : 明細_dgv.Columns(13).FillWeight = 80
 
         明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(9).ReadOnly = True : 明細_dgv.Columns(10).ReadOnly = True
@@ -61,15 +61,17 @@ Public Class 財務_收支單申請
         明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
         明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
 
-        TextBox5.Text = "0.00" : TextBox2.Text = "0.00" : TextBox6.Text = "0.00" : TextBox7.Text = "0" : TextBox8.Text = "0.00"
+        收入_tb.Text = "0.00" : 支出_tb.Text = "0.00" : TextBox6.Text = "0.00" : 零用金_tb.Text = "0" : 支票_tb.Text = "0.00"
         For i As Integer = 0 To 明細_dgv.Rows.Count - 1
-            TextBox5.Text = Val(TextBox5.Text) + Val(明細_dgv.Rows(i).Cells("現金").Value) : TextBox2.Text = Val(TextBox2.Text) + Val(明細_dgv.Rows(i).Cells("支出").Value)
-            TextBox7.Text = Val(TextBox7.Text) + 明細_dgv.Rows(i).Cells("零用金").Value : TextBox8.Text = Val(TextBox8.Text) + 明細_dgv.Rows(i).Cells("支票").Value
+            收入_tb.Text = Val(收入_tb.Text) + Val(明細_dgv.Rows(i).Cells("現金").Value) * 明細_dgv.Rows(i).Cells("匯率").Value
+            支出_tb.Text = Val(支出_tb.Text) + Val(明細_dgv.Rows(i).Cells("支出").Value) * 明細_dgv.Rows(i).Cells("匯率").Value
+            零用金_tb.Text = Val(零用金_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            支票_tb.Text = Val(支票_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value * 明細_dgv.Rows(i).Cells("匯率").Value
         Next i
-        TextBox6.Text = Val(TextBox7.Text) + Val(TextBox5.Text) - Val(TextBox2.Text)
+        TextBox6.Text = Val(零用金_tb.Text) + Val(收入_tb.Text) - Val(支出_tb.Text)
         If Val(TextBox6.Text) > 0 Then : TextBox6.ForeColor = Color.Blue : Else : TextBox6.ForeColor = Color.Red : End If
-        TextBox5.Text = Format(Val(TextBox5.Text), "#,##0.00") : TextBox2.Text = Format(Val(TextBox2.Text), "#,##0.00") : TextBox6.Text = Format(Val(TextBox6.Text), "#,##0.00")
-        TextBox7.Text = Format(Val(TextBox7.Text), "#,##0.00") : TextBox8.Text = Format(Val(TextBox8.Text), "#,##0.00")
+        收入_tb.Text = Format(Val(收入_tb.Text), "#,##0.00") : 支出_tb.Text = Format(Val(支出_tb.Text), "#,##0.00") : TextBox6.Text = Format(Val(TextBox6.Text), "#,##0.00")
+        零用金_tb.Text = Format(Val(零用金_tb.Text), "#,##0.00") : 支票_tb.Text = Format(Val(支票_tb.Text), "#,##0.00")
     End Sub
     Private Sub ComboBox1下拉表單資料載入()
         conn.Close()
@@ -96,11 +98,11 @@ Public Class 財務_收支單申請
     End Sub
     Private Sub 匯率()
         ConnOpen()
-        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
-            人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : conn.Close() : dr.Close()
+            人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : 印尼匯率_tb.Text = dr("印尼匯率").ToString : conn.Close() : dr.Close()
         Else
             conn.Close() : dr.Close() : 匯率修改.Close() : 匯率修改.Show() : 匯率修改.BringToFront()
         End If
@@ -141,15 +143,17 @@ Public Class 財務_收支單申請
         If Label62.Visible = True Then : Label62.Visible = False : Else : Label62.Visible = True : End If
     End Sub
     Private Sub DataGridView1_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 明細_dgv.CellEndEdit
-        TextBox5.Text = "0" : TextBox2.Text = "0" : TextBox6.Text = "0" : TextBox7.Text = "0" : TextBox8.Text = "0"
+        收入_tb.Text = "0" : 支出_tb.Text = "0" : TextBox6.Text = "0" : 零用金_tb.Text = "0" : 支票_tb.Text = "0"
         For i As Integer = 0 To 明細_dgv.Rows.Count - 1
-            TextBox5.Text = Val(TextBox5.Text) + 明細_dgv.Rows(i).Cells("現金").Value : TextBox2.Text = Val(TextBox2.Text) + 明細_dgv.Rows(i).Cells("支出").Value
-            TextBox7.Text = Val(TextBox7.Text) + 明細_dgv.Rows(i).Cells("零用金").Value : TextBox8.Text = Val(TextBox8.Text) + 明細_dgv.Rows(i).Cells("支票").Value
+            收入_tb.Text = Val(收入_tb.Text) + 明細_dgv.Rows(i).Cells("現金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            支出_tb.Text = Val(支出_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            零用金_tb.Text = Val(零用金_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            支票_tb.Text = Val(支票_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value * 明細_dgv.Rows(i).Cells("匯率").Value
         Next i
-        TextBox6.Text = Val(TextBox7.Text) + Val(TextBox5.Text) - Val(TextBox2.Text)
+        TextBox6.Text = Val(零用金_tb.Text) + Val(收入_tb.Text) - Val(支出_tb.Text)
         If Val(TextBox6.Text) > 0 Then : TextBox6.ForeColor = Color.Blue : Else : TextBox6.ForeColor = Color.Red : End If
-        TextBox5.Text = Format(Val(TextBox5.Text), "#,##0") : TextBox2.Text = Format(Val(TextBox2.Text), "#,##0") : TextBox6.Text = Format(Val(TextBox6.Text), "#,##0")
-        TextBox7.Text = Format(Val(TextBox7.Text), "#,##0") : TextBox8.Text = Format(Val(TextBox8.Text), "#,##0")
+        收入_tb.Text = Format(Val(收入_tb.Text), "#,##0") : 支出_tb.Text = Format(Val(支出_tb.Text), "#,##0") : TextBox6.Text = Format(Val(TextBox6.Text), "#,##0")
+        零用金_tb.Text = Format(Val(零用金_tb.Text), "#,##0") : 支票_tb.Text = Format(Val(支票_tb.Text), "#,##0")
         Dim EU As String
         EU = 明細_dgv("票期", e.RowIndex).Value.ToString
         If EU = "" Then
@@ -170,8 +174,8 @@ Public Class 財務_收支單申請
         End If
     End Sub
     Private Sub Set_切換格式()
-        明細_dgv.DataSource = Nothing : ds.Clear() : TextBox1.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : TextBox5.Text = "" : TextBox2.Text = "" : TextBox6.Text = ""
-        TextBox7.Text = "" : TextBox8.Text = "" : ComboBox1下拉表單資料載入() : Set_清單1()
+        明細_dgv.DataSource = Nothing : ds.Clear() : TextBox1.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : 收入_tb.Text = "" : 支出_tb.Text = "" : TextBox6.Text = ""
+        零用金_tb.Text = "" : 支票_tb.Text = "" : ComboBox1下拉表單資料載入() : Set_清單1()
     End Sub
     Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.Click
         RadioButton1.Checked = True : RadioButton2.Checked = False : RadioButton3.Checked = False : 申請完成ToolStripMenuItem.Enabled = True : 複製單據開單ToolStripMenuItem.Enabled = False
@@ -349,12 +353,10 @@ Public Class 財務_收支單申請
             End If
             ConnOpen()
 
-            If 幣別_cb.Text = "台幣現金" Then
-                匯率1 = 1
-            ElseIf 幣別_cb.Text = "人民幣現金" Then
-                匯率1 = 人民幣匯率_tb.Text
-            ElseIf 幣別_cb.Text = "美金" Then
-                匯率1 = 美金匯率_tb.Text
+            If 幣別_cb.Text = "台幣現金" Then : 匯率1 = 1
+            ElseIf 幣別_cb.Text = "人民幣現金" Then : 匯率1 = 人民幣匯率_tb.Text
+            ElseIf 幣別_cb.Text = "美金" Then : 匯率1 = 美金匯率_tb.Text
+            ElseIf 幣別_cb.Text = "印尼盾" Then : 匯率1 = 印尼匯率_tb.Text
             End If
 
             SQL1 = "INSERT INTO 財務流水帳 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票,