HX-PGS-ERP-SYS-LEEHSIEHJUI/05、財務管理系統/匯率管理.vb

Imports System.IO
Public Class 匯率管理
    Dim ds4 As New DataSet
    Dim RI As Integer = -1
    Dim SK As String = "要查找的 KEY"
    Dim Str As String = Application.StartupPath
    DIM 對話框(8) As String
    Private Sub Set_日期()
        年_tb.Text = Format(DateTimePicker1.Value, "yyyy") : 月_tb.Text = Format(DateTimePicker1.Value, "MM")
    End Sub
    Private Sub Set_歷史匯率清單()
        Dim ds As New DataSet
        歷史匯率_dgv.DataSource = Nothing : ds.Clear()
        歷史匯率_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        歷史匯率_dgv.ColumnHeadersHeight = 40 : 歷史匯率_dgv.AllowUserToAddRows = False
        SQL_匯率管理_歷史匯率清單()
        da.Fill(ds) : 歷史匯率_dgv.DataSource = ds.Tables(0) : conn.Close()

        歷史匯率_dgv.Columns(0).FillWeight = 60 : 歷史匯率_dgv.Columns(1).FillWeight = 60 : 歷史匯率_dgv.Columns(6).Visible = False : 歷史匯率_dgv.Columns(2).Visible = False
        歷史匯率_dgv.Columns(3).Visible = False : 歷史匯率_dgv.Columns(2).Visible = False : 歷史匯率_dgv.Columns(3).Visible = False : 歷史匯率_dgv.Columns(4).Visible = False
        歷史匯率_dgv.Columns(5).Visible = False : 歷史匯率_dgv.Columns(6).FillWeight = 60 : 歷史匯率_dgv.Columns(7).FillWeight = 60 : 歷史匯率_dgv.Columns(8).FillWeight = 60
        歷史匯率_dgv.Columns(9).FillWeight = 60
        歷史匯率_dgv.Columns("RMB").DefaultCellStyle.Format = "#,##0" : 歷史匯率_dgv.Columns("USD").DefaultCellStyle.Format = "#,##0" : 歷史匯率_dgv.Columns("TWD").DefaultCellStyle.Format = "#,##0"
        For i As Integer = 0 To 歷史匯率_dgv.Rows.Count - 1
            歷史匯率_dgv("RMB", i).Value = 歷史匯率_dgv(4, i).Value / 歷史匯率_dgv(6, i).Value
            歷史匯率_dgv("USD", i).Value = 歷史匯率_dgv(5, i).Value / 歷史匯率_dgv(6, i).Value
            歷史匯率_dgv("TWD", i).Value = 1 / 歷史匯率_dgv(6, i).Value
        Next
    End Sub
    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 歷史匯率_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            買進匯率1_tb.Text = Strings.Format(歷史匯率_dgv(2, e.RowIndex).Value / 歷史匯率_dgv(6, e.RowIndex).Value, "#,##0.0000")
            賣出匯率1_tb.Text = Strings.Format(歷史匯率_dgv(3, e.RowIndex).Value / 歷史匯率_dgv(6, e.RowIndex).Value, "#,##0.0000")
            中心匯率1_tb.Text = Strings.Format(歷史匯率_dgv(4, e.RowIndex).Value / 歷史匯率_dgv(6, e.RowIndex).Value, "#,##0.0000")
            美金匯率1_tb.Text = Strings.Format(歷史匯率_dgv(5, e.RowIndex).Value / 歷史匯率_dgv(6, e.RowIndex).Value, "#,##0.0000")
            買進美金1_tb.Text = Strings.Format(歷史匯率_dgv(5, e.RowIndex).Value / 歷史匯率_dgv(6, e.RowIndex).Value, "#,##0.0000")
            賣出美金1_tb.Text = Strings.Format(歷史匯率_dgv(5, e.RowIndex).Value / 歷史匯率_dgv(6, e.RowIndex).Value, "#,##0.0000")
            印尼盾1_tb.Text = Strings.Format(1 / 歷史匯率_dgv(6, e.RowIndex).Value, "#,##0.0000")
            買進印尼1_tb.Text = Strings.Format(1 / 歷史匯率_dgv(6, e.RowIndex).Value, "#,##0.0000")
            賣出印尼1_tb.Text = Strings.Format(1 / 歷史匯率_dgv(6, e.RowIndex).Value, "#,##0.0000")
        End If
    End Sub
    Private Sub Set_日期寫入()
        Set_日期() : SQL_匯率管理_查詢指定匯率()
        If dr.Read() Then : SQL_匯率管理_修改匯率() : conn.Close() : Else : SQL_匯率管理_新增匯率() : conn.Close() : End If : conn.Close()
        MGB(對話框(1), 1)
    End Sub
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25
        語言_dgv.AllowUserToAddRows = False
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1 : 語言_dgv.Rows.RemoveAt(0) : Next
        If File.Exists(Str + "\LANGUAGE_FILE.csv") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\LANGUAGE_FILE.csv", System.Text.Encoding.Default)
            Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing)
                line = filereader.ReadLine()
                If line <> Nothing Then
                    line = line.Replace("""", "")
                    If Strings.Left(line, 4) = "G000" Or Strings.Left(line, 8) = "H001-201" Or Strings.Left(line, 4) = 介面 Then
                        If 系統語言 = "繁體中文" Then
                            If Strings.Mid(line, 10, 2) = "CH" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        ElseIf 系統語言 = "English" Then
                            If Strings.Mid(line, 10, 2) = "EN" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        ElseIf 系統語言 = "Indonesian" Then
                            If Strings.Mid(line, 10, 2) = "IN" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        End If
                    End If
                End If
            End While
            filereader.Close()
        End If
    End Sub
    Private Sub Set_語言查詢()
         RI = -1 : For Each row As DataGridViewRow In 語言_dgv.Rows
            If Strings.Left(row.Cells(0).Value.ToString(), 8) = SK Then
                RI = row.Index : Exit For
            End If
        Next
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言()
        SK = "G000-121" : Set_語言查詢() : 對話框(0) = 語言_dgv(1, RI).Value.ToString : SK = "G000-119" : Set_語言查詢() : 對話框(1) = 語言_dgv(1, RI).Value.ToString
        SK = "H001-201" : Set_語言查詢() : 主題_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H306-100" : Set_語言查詢() : 人民中心_lb.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H306-101" : Set_語言查詢() : 人民幣買進_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H306-102" : Set_語言查詢() : 人民幣賣出_lb.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H306-103" : Set_語言查詢() : 中美元_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H306-104" : Set_語言查詢() : 印尼盾_lb.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H306-105" : Set_語言查詢() : 表頭(93) = 語言_dgv(1, RI).Value.ToString : SK = "H306-106" : Set_語言查詢() : 表頭(90) = 語言_dgv(1, RI).Value.ToString
        SK = "H306-107" : Set_語言查詢() : 表頭(95) = 語言_dgv(1, RI).Value.ToString : SK = "H306-108" : Set_語言查詢() : 表頭(89) = 語言_dgv(1, RI).Value.ToString
        SK = "H306-109" : Set_語言查詢() : 表頭(94) = 語言_dgv(1, RI).Value.ToString : SK = "H306-110" : Set_語言查詢() : 表頭(91) = 語言_dgv(1, RI).Value.ToString
        SK = "H306-111" : Set_語言查詢() : 表頭(92) = 語言_dgv(1, RI).Value.ToString : SK = "H306-112" : Set_語言查詢() : 買印尼_lb.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H306-113" : Set_語言查詢() : 買美金_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H306-114" : Set_語言查詢() : 寫入歷史資料_cb.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H306-115" : Set_語言查詢() : 賣印尼_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H306-116" : Set_語言查詢() : 賣美金_lb.Text = 語言_dgv(1, RI).Value.ToString
    End Sub
    Private Sub PnlTitleBar_Paint(sender As Object, e As PaintEventArgs) Handles PnlTitleBar.Paint
    End Sub
    Private Sub 匯率管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        語言_dgv.SendToBack() : 風格() : H(306) = True : 介面 = "H306" : 語言轉換讀取() : 載入作業.Enabled = True : 顯示說明(999, False)
    End Sub
    Private Sub 載入作業_Tick(sender As Object, e As EventArgs) Handles 載入作業.Tick
        載入作業.Enabled = False
        SQL_匯率管理_查詢人民幣匯率()

        If dr.Read() Then : 中心匯率_tb.Text = dr("匯率").ToString : End If : If 中心匯率_tb.Text = "" Then : 中心匯率_tb.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
        '------------------------------------------------------------------------------------------------
        If dr.Read() Then : 印尼盾_tb.Text = dr("匯率").ToString : End If : If 印尼盾_tb.Text = "" Then : 印尼盾_tb.Text = "0.00" : End If
        conn.Close() : dr.Close()

        SQL_匯率管理_查詢指定匯率()
        If dr.Read() Then : 買進匯率_tb.Text = dr("買進匯率").ToString : 賣出匯率_tb.Text = dr("賣出匯率").ToString
            買進美金_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_日期()
        買進匯率_tb.Text = "" : 賣出匯率_tb.Text = "" : 中心匯率_tb.Text = "" : 買進美金_tb.Text = "" : 賣出美金_tb.Text = "" : 美金匯率_tb.Text = ""
        買進印尼_tb.Text = "" : 賣出印尼_tb.Text = "" : 印尼盾_tb.Text = ""
        歷史匯率_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改_bt.Click
        中心匯率1_tb.Text = "" : 買進匯率1_tb.Text = "" : 賣出匯率1_tb.Text = "" : 美金匯率1_tb.Text = "" : 印尼盾1_tb.Text = "" : 買進印尼1_tb.Text = "" : 賣出美金1_tb.Text = ""
        買進美金1_tb.Text = "" : 賣出印尼1_tb.Text = ""
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 取消_bt.Click
        中心匯率1_tb.Text = "" : 買進匯率1_tb.Text = "" : 賣出匯率1_tb.Text = "" : 美金匯率1_tb.Text = "" : 印尼盾1_tb.Text = "" : 買進印尼1_tb.Text = "" : 賣出美金1_tb.Text = ""
        買進美金1_tb.Text = "" : 賣出印尼1_tb.Text = ""
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 儲存修改_bt.Click
        If 中心匯率_tb.Text = "" Or 買進匯率_tb.Text = "" Or 賣出匯率_tb.Text = "" Or 印尼盾_tb.Text = "" Then
            MGB(對話框(0), 1)
        Else
            If 寫入歷史資料_cb.Checked = False Then : DateTimePicker1.Value = Today : Set_日期寫入() : SQL_匯率管理_修改人民幣匯率() : conn.Close() : dr.Close()
            Else : Set_日期寫入() : End If
        End If : 取消_bt.PerformClick() : Set_歷史匯率清單() : Set_日期()
    End Sub
    Private Sub 買進匯率_tb_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 賣出匯率_tb_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 買進美金_tb_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 賣出買金_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 買進印尼_tb_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 賣出印尼_tb_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 買進匯率1_tb_TextChanged(sender As Object, e As EventArgs) Handles 買進匯率1_tb.TextChanged
        If 買進匯率1_tb.Text <> "" And 賣出匯率1_tb.Text <> "" Then : 中心匯率1_tb.Text = Strings.Format(((CDbl(買進匯率1_tb.Text) + CDbl(賣出匯率1_tb.Text)) / 2), "##0.0000") : End If
        If 買進匯率1_tb.Text <> "" And 印尼盾1_tb.Text <> "" Then : 買進匯率_tb.Text = Strings.Format(CDbl(買進匯率1_tb.Text) / CDbl(印尼盾1_tb.Text), "##0.0000")
        ElseIf 買進匯率1_tb.Text <> "" And 印尼盾1_tb.Text = "" Then : 買進匯率_tb.Text = Strings.Format(CDbl(買進匯率1_tb.Text) / 500, "##0.0000") : End If
    End Sub
    Private Sub 賣出匯率1_tb_TextChanged(sender As Object, e As EventArgs) Handles 賣出匯率1_tb.TextChanged
        If 買進匯率1_tb.Text <> "" And 賣出匯率1_tb.Text <> "" Then : 中心匯率1_tb.Text = Strings.Format(((CDbl(買進匯率1_tb.Text) + CDbl(賣出匯率1_tb.Text)) / 2), "##0.0000") : End If
        If 賣出匯率1_tb.Text <> "" And 印尼盾1_tb.Text <> "" Then : 賣出匯率_tb.Text = Strings.Format(CDbl(賣出匯率1_tb.Text) / CDbl(印尼盾1_tb.Text), "##0.0000")
        ElseIf 賣出匯率1_tb.Text <> "" And 印尼盾1_tb.Text = "" Then : 賣出匯率_tb.Text = Strings.Format(CDbl(賣出匯率1_tb.Text) / 500, "##0.0000") : End If
    End Sub
    Private Sub 買進美金1_tb_TextChanged(sender As Object, e As EventArgs) Handles 買進美金1_tb.TextChanged
        If 買進美金1_tb.Text <> "" And 賣出美金1_tb.Text <> "" Then : 美金匯率1_tb.Text = Strings.Format(((CDbl(買進美金1_tb.Text) + CDbl(賣出美金1_tb.Text)) / 2), "##0.0000") : End If
        If 買進美金1_tb.Text <> "" And 印尼盾1_tb.Text <> "" Then : 買進美金_tb.Text = Strings.Format(CDbl(買進美金1_tb.Text) / CDbl(印尼盾1_tb.Text), "##0.0000")
        ElseIf 買進美金1_tb.Text <> "" And 印尼盾1_tb.Text = "" Then : 買進美金_tb.Text = Strings.Format(CDbl(買進美金1_tb.Text) / 500, "##0.0000") : End If
    End Sub
    Private Sub 賣出美金1_tb_TextChanged(sender As Object, e As EventArgs) Handles 賣出美金1_tb.TextChanged
        If 買進美金1_tb.Text <> "" And 賣出美金1_tb.Text <> "" Then : 美金匯率1_tb.Text = Strings.Format(((CDbl(買進美金1_tb.Text) + CDbl(賣出美金1_tb.Text)) / 2), "##0.00") : End If
        If 賣出美金1_tb.Text <> "" And 印尼盾1_tb.Text <> "" Then : 賣出美金_tb.Text = Strings.Format(CDbl(賣出美金1_tb.Text) / CDbl(印尼盾1_tb.Text), "##0.00")
        ElseIf 賣出美金1_tb.Text <> "" And 印尼盾1_tb.Text = "" Then : 賣出美金_tb.Text = Strings.Format(CDbl(賣出美金1_tb.Text) / 500, "##0.00") : End If
    End Sub
    Private Sub 買進印尼1_tb_TextChanged(sender As Object, e As EventArgs) Handles 買進印尼1_tb.TextChanged
        If 買進印尼1_tb.Text <> "" And 賣出印尼1_tb.Text <> "" Then : 印尼盾1_tb.Text = Strings.Format(((CDbl(買進印尼1_tb.Text) + CDbl(賣出印尼1_tb.Text)) / 2), "##0.0000") : End If
        If 買進印尼1_tb.Text <> "" Then : 買進印尼_tb.Text = Strings.Format(1 / CDbl(買進印尼1_tb.Text), "##0.0000") : End If
    End Sub
    Private Sub 賣出印尼1_tb_TextChanged(sender As Object, e As EventArgs) Handles 賣出印尼1_tb.TextChanged
        If 買進印尼1_tb.Text <> "" And 賣出印尼1_tb.Text <> "" Then : 印尼盾1_tb.Text = Strings.Format(((CDbl(買進印尼1_tb.Text) + CDbl(賣出印尼1_tb.Text)) / 2), "##0.0000") : End If
        If 賣出印尼1_tb.Text <> "" Then : 賣出印尼_tb.Text = Strings.Format(1 / CDbl(賣出印尼1_tb.Text), "##0.0000") : End If
    End Sub
    Private Sub 印尼盾1_tb_TextChanged(sender As Object, e As EventArgs) Handles 印尼盾1_tb.TextChanged
        If 買進匯率1_tb.Text <> "" And 印尼盾1_tb.Text <> "" Then : 買進匯率_tb.Text = Strings.Format(CDbl(買進匯率1_tb.Text) / CDbl(印尼盾1_tb.Text), "##0.0000")
        ElseIf 買進匯率1_tb.Text <> "" And 印尼盾1_tb.Text = "" Then : 買進匯率_tb.Text = Strings.Format(CDbl(買進匯率1_tb.Text) / 500, "##0.0000") : End If
        If 賣出匯率1_tb.Text <> "" And 印尼盾1_tb.Text <> "" Then : 賣出匯率_tb.Text = Strings.Format(CDbl(賣出匯率1_tb.Text) / CDbl(印尼盾1_tb.Text), "##0.0000")
        ElseIf 賣出匯率1_tb.Text <> "" And 印尼盾1_tb.Text = "" Then : 賣出匯率_tb.Text = Strings.Format(CDbl(賣出匯率1_tb.Text) / 500, "##0.0000") : End If
        If 買進美金1_tb.Text <> "" And 印尼盾1_tb.Text <> "" Then : 買進美金_tb.Text = Strings.Format(CDbl(買進美金1_tb.Text) / CDbl(印尼盾1_tb.Text), "##0.0000")
        ElseIf 買進美金1_tb.Text <> "" And 印尼盾1_tb.Text = "" Then : 買進美金_tb.Text = Strings.Format(CDbl(買進美金1_tb.Text) / 500, "##0.0000") : End If
        If 賣出美金1_tb.Text <> "" And 印尼盾1_tb.Text <> "" Then : 賣出美金_tb.Text = Strings.Format(CDbl(賣出美金1_tb.Text) / CDbl(印尼盾1_tb.Text), "##0.00")
        ElseIf 買進美金1_tb.Text <> "" And 印尼盾1_tb.Text = "" Then : 賣出美金_tb.Text = Strings.Format(CDbl(賣出美金1_tb.Text) / 500, "##0.00") : End If
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H306" : 語言轉換讀取() : 載入作業.Enabled = True
    End Sub
    Private Sub Cancel_bt_Click(sender As Object, e As EventArgs) Handles Cancel_bt.Click
        Me.Close()
    End Sub
    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = Color.Linen : Panel1.BackColor = Color.White : Panel2.BackColor = Color.White : 主題_lb.ForeColor = Color.Black
            寫入歷史資料_cb.ForeColor = Color.Black : 人民幣賣出_lb.ForeColor = Color.Black : 人民中心_lb.ForeColor = Color.Black : 賣美金_lb.ForeColor = Color.Black
            中美元_lb.ForeColor = Color.Black : 賣印尼_lb.ForeColor = Color.Black : 印尼盾_lb.ForeColor = Color.Black
            人民幣買進_lb.ForeColor = Color.Green : 買美金_lb.ForeColor = Color.Green : 買印尼_lb.ForeColor = Color.Green

            語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black : 買進匯率1_tb.BackColor = Color.White : 買進匯率1_tb.ForeColor = Color.Black
            賣出匯率1_tb.BackColor = Color.White : 賣出匯率1_tb.ForeColor = Color.Black : 中心匯率1_tb.BackColor = Color.White : 中心匯率1_tb.ForeColor = Color.Black
            買進美金1_tb.BackColor = Color.White : 買進美金1_tb.ForeColor = Color.Black : 賣出美金1_tb.BackColor = Color.White : 賣出美金1_tb.ForeColor = Color.Black
            美金匯率1_tb.BackColor = Color.White : 美金匯率1_tb.ForeColor = Color.Black : 買進印尼1_tb.BackColor = Color.White : 買進印尼1_tb.ForeColor = Color.Black
            賣出印尼1_tb.BackColor = Color.White : 賣出印尼1_tb.ForeColor = Color.Black : 印尼盾1_tb.BackColor = Color.White : 印尼盾1_tb.ForeColor = Color.Black
            年_tb.BackColor = Color.White : 年_tb.ForeColor = Color.Black : 月_tb.BackColor = Color.White : 月_tb.ForeColor = Color.Black
            買進匯率_tb.BackColor = Color.White : 買進匯率_tb.ForeColor = Color.Black : 賣出匯率_tb.BackColor = Color.White : 賣出匯率_tb.ForeColor = Color.Black
            中心匯率_tb.BackColor = Color.White : 中心匯率_tb.ForeColor = Color.Black : 買進美金_tb.BackColor = Color.White : 買進美金_tb.ForeColor = Color.Black
            賣出美金_tb.BackColor = Color.White : 賣出美金_tb.ForeColor = Color.Black : 美金匯率_tb.BackColor = Color.White : 美金匯率_tb.ForeColor = Color.Black
            買進印尼_tb.BackColor = Color.White : 買進印尼_tb.ForeColor = Color.Black : 賣出印尼_tb.BackColor = Color.White : 賣出印尼_tb.ForeColor = Color.Black
            印尼盾_tb.BackColor = Color.White : 印尼盾_tb.ForeColor = Color.Black : 取消_bt.BackColor = Color.White : 取消_bt.ForeColor = Color.Black
            修改_bt.BackColor = Color.White : 修改_bt.ForeColor = Color.Green : 儲存修改_bt.BackColor = Color.White : 儲存修改_bt.ForeColor = Color.Green

            歷史匯率_dgv.EnableHeadersVisualStyles = True : 歷史匯率_dgv.BackgroundColor = Color.White : 歷史匯率_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            歷史匯率_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            歷史匯率_dgv.DefaultCellStyle.BackColor = Color.White : 歷史匯率_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black : Panel1.BackColor = Color.DimGray : Panel2.BackColor = Color.DimGray : 主題_lb.ForeColor = Color.White
            寫入歷史資料_cb.ForeColor = Color.White : 人民幣賣出_lb.ForeColor = Color.White : 人民中心_lb.ForeColor = Color.White : 賣美金_lb.ForeColor = Color.White
            中美元_lb.ForeColor = Color.White : 賣印尼_lb.ForeColor = Color.White : 印尼盾_lb.ForeColor = Color.White
            人民幣買進_lb.ForeColor = Color.LightGreen : 買美金_lb.ForeColor = Color.LightGreen : 買印尼_lb.ForeColor = Color.LightGreen

            語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White : 買進匯率1_tb.BackColor = Color.DimGray : 買進匯率1_tb.ForeColor = Color.White
            賣出匯率1_tb.BackColor = Color.DimGray : 賣出匯率1_tb.ForeColor = Color.White : 中心匯率1_tb.BackColor = Color.DimGray : 中心匯率1_tb.ForeColor = Color.White
            買進美金1_tb.BackColor = Color.DimGray : 買進美金1_tb.ForeColor = Color.White : 賣出美金1_tb.BackColor = Color.DimGray : 賣出美金1_tb.ForeColor = Color.White
            美金匯率1_tb.BackColor = Color.DimGray : 美金匯率1_tb.ForeColor = Color.White : 買進印尼1_tb.BackColor = Color.DimGray : 買進印尼1_tb.ForeColor = Color.White
            賣出印尼1_tb.BackColor = Color.DimGray : 賣出印尼1_tb.ForeColor = Color.White : 印尼盾1_tb.BackColor = Color.DimGray : 印尼盾1_tb.ForeColor = Color.White
            年_tb.BackColor = Color.DimGray : 年_tb.ForeColor = Color.White : 月_tb.BackColor = Color.DimGray : 月_tb.ForeColor = Color.White
            買進匯率_tb.BackColor = Color.DimGray : 買進匯率_tb.ForeColor = Color.White : 賣出匯率_tb.BackColor = Color.DimGray : 賣出匯率_tb.ForeColor = Color.White
            中心匯率_tb.BackColor = Color.DimGray : 中心匯率_tb.ForeColor = Color.White : 買進美金_tb.BackColor = Color.DimGray : 買進美金_tb.ForeColor = Color.White
            賣出美金_tb.BackColor = Color.DimGray : 賣出美金_tb.ForeColor = Color.White : 美金匯率_tb.BackColor = Color.DimGray : 美金匯率_tb.ForeColor = Color.White
            買進印尼_tb.BackColor = Color.DimGray : 買進印尼_tb.ForeColor = Color.White : 賣出印尼_tb.BackColor = Color.DimGray : 賣出印尼_tb.ForeColor = Color.White
            印尼盾_tb.BackColor = Color.DimGray : 印尼盾_tb.ForeColor = Color.White : 取消_bt.BackColor = Color.DimGray : 取消_bt.ForeColor = Color.White
            修改_bt.BackColor = Color.DimGray : 修改_bt.ForeColor = Color.LightGreen : 儲存修改_bt.BackColor = Color.DimGray : 儲存修改_bt.ForeColor = Color.LightGreen

            歷史匯率_dgv.EnableHeadersVisualStyles = False : 歷史匯率_dgv.BackgroundColor = Color.DimGray : 歷史匯率_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            歷史匯率_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 歷史匯率_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            歷史匯率_dgv.DefaultCellStyle.BackColor = Color.DimGray : 歷史匯率_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
    Dim nOldWndLeft, nOldWndTop, nClickX, nClickY As Integer
    Private Sub PnlTitleBar_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PnlTitleBar.MouseDown
        '紀錄滑鼠點選時的視窗位置與滑鼠點選位置
        nOldWndLeft = Me.Left : nOldWndTop = Me.Top : nClickX = e.X : nClickY = e.Y
    End Sub
    Private Sub PnlTitleBar_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PnlTitleBar.MouseMove
        If PnlTitleBar.Capture = True Then        '如果滑鼠按著拖曳
            Me.Top = e.Y + nOldWndTop - nClickY : Me.Left = e.X + nOldWndLeft - nClickX   '設定新的視窗位置
            nOldWndLeft = Me.Left : nOldWndTop = Me.Top   '更新紀錄的視窗位置
        End If
    End Sub
    Private Sub 主題_lb_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 主題_lb.MouseDown
        '紀錄滑鼠點選時的視窗位置與滑鼠點選位置
        nOldWndLeft = Me.Left : nOldWndTop = Me.Top : nClickX = e.X : nClickY = e.Y
    End Sub
    Private Sub 主題_lb_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 主題_lb.MouseMove
        If 主題_lb.Capture = True Then        '如果滑鼠按著拖曳
            Me.Top = e.Y + nOldWndTop - nClickY : Me.Left = e.X + nOldWndLeft - nClickX   '設定新的視窗位置
            nOldWndLeft = Me.Left : nOldWndTop = Me.Top   '更新紀錄的視窗位置
        End If
    End Sub
End Class