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

Option Strict Off
Imports System.Data.SqlClient
Public Class 匯率修改
    ReadOnly ds As New DataSet
    Private Sub Set_grid()
        DataGridView4.Columns(0).FillWeight = 60 : DataGridView4.Columns(1).FillWeight = 60
        DataGridView4.Columns(2).FillWeight = 60 : DataGridView4.Columns(3).FillWeight = 60
        DataGridView4.Columns(4).FillWeight = 60 : DataGridView4.Columns(5).FillWeight = 60
    End Sub
    Private Sub Set_日期()
        TextBox4.Text = Format(DateTimePicker1.Value, "yyyy") : TextBox5.Text = Format(DateTimePicker1.Value, "MM")
    End Sub
    Private Sub Set_歷史匯率清單()
        DataGridView4.DataSource = Nothing : ds.Clear()
        DataGridView4.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView4.ColumnHeadersHeight = 25
        DataGridView4.AllowUserToAddRows = False
        ConnOpen()
        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
        End If
    End Sub
    Private Sub Set_日期寫入()
        Set_日期()
        ConnOpen()
        SQL1 = "SELECT 買進匯率, 賣出匯率, 中心匯率 FROM 歷史匯率表 WHERE (年 LIKE '" & TextBox4.Text & "%') AND (月 LIKE '" & TextBox5.Text & "%')"
        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 & "%')"
            CmdSet_For_dr() : conn.Close()
        Else
            ConnOpen()
            SQL1 = "INSERT INTO 歷史匯率表 (年, 月, 買進匯率, 賣出匯率, 中心匯率, 美金匯率) VALUES ('" & TextBox4.Text & "','" & TextBox5.Text & "
                          ','" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox1.Text & "', '" & TextBox6.Text & "')"
            CmdSet_For_dr() : conn.Close()
        End If : conn.Close() : MsgBox("完成")
    End Sub
    Private Sub 匯率修改_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DateTimePicker1.Value = Today

        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
        conn.Close() : dr.Close()

        ConnOpen()
        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
        conn.Close() : dr.Close()
        Set_歷史匯率清單() : Set_grid() : Set_日期()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        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
    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
    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
            MsgBox("輸入資料有誤")
        Else
            If CheckBox1.Checked = False Then
                DateTimePicker1.Value = Today
                Set_日期寫入()
                ConnOpen()
                SQL1 = "UPDATE 匯率表 SET 匯率 = '" & TextBox1.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
        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
        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
        End If
    End Sub
End Class