GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/05、財務管理系統/匯率管理.vb

Option Strict Off
Imports System.Data.SqlClient
Public Class 匯率管理
    Dim ds As New DataSet : Dim ds4 As New DataSet : ReadOnly 對話框(1) As String

    Private Sub Set_grid()
        歷史匯率_dgv.Columns(0).FillWeight = 60 : 歷史匯率_dgv.Columns(1).FillWeight = 60 : 歷史匯率_dgv.Columns(6).FillWeight = 60
        歷史匯率_dgv.Columns(2).Visible = False : 歷史匯率_dgv.Columns(3).Visible = False
        歷史匯率_dgv.Columns(2).FillWeight = 60 : 歷史匯率_dgv.Columns(3).FillWeight = 60
        歷史匯率_dgv.Columns(4).FillWeight = 60 : 歷史匯率_dgv.Columns(5).FillWeight = 60
    End Sub
    Private Sub Set_日期()
        年_tb.Text = Format(DateTimePicker1.Value, "yyyy") : 月_tb.Text = Format(DateTimePicker1.Value, "MM")
    End Sub
    Private Sub Set_歷史匯率清單()
        歷史匯率_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()
    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
            買進匯率_tb.Text = 歷史匯率_dgv(2, e.RowIndex).Value.ToString
            賣出匯率_tb.Text = 歷史匯率_dgv(3, e.RowIndex).Value.ToString
            中心匯率_tb.Text = 歷史匯率_dgv(4, e.RowIndex).Value.ToString
            美金匯率_tb.Text = 歷史匯率_dgv(5, e.RowIndex).Value.ToString
            印尼盾_tb.Text = 歷史匯率_dgv(6, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub Set_日期寫入()
        Set_日期()
        SQL_匯率管理_查詢指定匯率()
        If dr.Read() Then
            SQL_匯率管理_修改匯率() : conn.Close()
        Else
            SQL_匯率管理_新增匯率() : conn.Close()
        End If
        conn.Close()
        MsgBox(對話框(1))
    End Sub
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing : ds4.Clear()
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25
        語言_dgv.AllowUserToAddRows = False
        SQL_系統語言導入()
        da.Fill(ds4) : 語言_dgv.DataSource = ds4.Tables(0) : conn.Close()
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言() : conn.Close()
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1
            If 語言_dgv("控件", i).Value.ToString = "匯率管理" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "人民幣買進_lb" Then : 人民幣買進_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "人民幣賣出_lb" Then : 人民幣賣出_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "寫入歷史資料_cb" Then : 寫入歷史資料_cb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "人民中心_lb" Then : 人民中心_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "買美金_lb" Then : 買美金_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "賣美金_lb" Then : 賣美金_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "中美元_lb" Then : 中美元_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "買印尼_lb" Then : 買印尼_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "賣印尼_lb" Then : 賣印尼_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "印尼盾_lb" Then : 印尼盾_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "修改_bt" Then : 修改_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "儲存修改_bt" Then : 儲存修改_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "取消_bt" Then : 取消_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_年" Then : 表頭(89) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_月" Then : 表頭(90) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_買進匯率" Then : 表頭(91) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_賣出匯率" Then : 表頭(92) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_中心匯率" Then : 表頭(93) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_美金匯率" Then : 表頭(94) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_印尼盾" Then : 表頭(95) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If
        Next
    End Sub

    Private Sub 匯率管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        介面 = "H306" : Set_語言() : 語言轉換讀取()
        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_grid() : Set_日期()
        買進匯率_tb.Text = "" : 賣出匯率_tb.Text = "" : 中心匯率_tb.Text = "" : 買進美金_tb.Text = "" : 賣出美金_tb.Text = "" : 美金匯率_tb.Text = ""
        買進印尼_tb.Text = "" : 賣出印尼_tb.Text = "" : 印尼盾_tb.Text = ""


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改_bt.Click
        中心匯率_tb.Enabled = True : 買進匯率_tb.Enabled = True : 賣出匯率_tb.Enabled = True : 美金匯率_tb.Enabled = True : 儲存修改_bt.Enabled = True : 取消_bt.Enabled = True
        中心匯率_tb.Text = "" : 買進匯率_tb.Text = "" : 賣出匯率_tb.Text = "" : 美金匯率_tb.Text = "" : 印尼盾_tb.Enabled = True : 印尼盾_tb.Text = "" : 買進印尼_tb.Enabled = True : 買進印尼_tb.Text = ""
        賣出印尼_tb.Enabled = True : 賣出印尼_tb.Text = "" : 買進美金_tb.Enabled = True : 買進美金_tb.Text = "" : 賣出美金_tb.Enabled = True : 賣出美金_tb.Text = "" 
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 取消_bt.Click
        中心匯率_tb.Enabled = False : 買進匯率_tb.Enabled = False : 賣出匯率_tb.Enabled = False : 儲存修改_bt.Enabled = False : 取消_bt.Enabled = False
        美金匯率_tb.Enabled = False : 買進美金_tb.Enabled = False : 賣出美金_tb.Enabled = False : 買進印尼_tb.Enabled = False : 賣出印尼_tb.Enabled = False : 印尼盾_tb.Enabled = False
    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
            MsgBox(對話框(0))
        Else
            If 寫入歷史資料_cb.Checked = False Then
                DateTimePicker1.Value = Today
                Set_日期寫入()
                SQL_匯率管理_修改人民幣匯率()
                conn.Close() : dr.Close()
            Else
                Set_日期寫入()
            End If
        End If
        中心匯率_tb.Enabled = False : 買進匯率_tb.Enabled = False : 賣出匯率_tb.Enabled = False : 美金匯率_tb.Enabled = False : 儲存修改_bt.Enabled = False : 取消_bt.Enabled = False : 印尼盾_tb.Enabled = False
        買進美金_tb.Enabled = False : 賣出美金_tb.Enabled = False : 賣出印尼_tb.Enabled = False : 買進印尼_tb.Enabled = False
        Set_歷史匯率清單() : Set_grid() : Set_日期()
    End Sub
    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 賣出匯率_tb.TextChanged
        If 買進匯率_tb.Text <> "" And 賣出匯率_tb.Text <> "" Then
            中心匯率_tb.Text = (Val(買進匯率_tb.Text) + Val(賣出匯率_tb.Text)) / 2
        End If
    End Sub

    Private Sub TextBox5_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
End Class