HX-PGS-ERP-SYS-LEEHSIEHJUI/05、財務管理系統/匯率修改.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 = 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()
        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
            人民幣買_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_日期寫入()
        Set_日期()
        ConnOpen()
        SQL1 = "SELECT 買進匯率, 賣出匯率, 中心匯率 FROM 歷史匯率表 WHERE (年 LIKE '" & TextBox4.Text & "%') AND (月 LIKE '" & TextBox5.Text & "%')"
        CmdSet_For_dr()
        If dr.Read() Then
            ConnOpen()
            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 & "',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
    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 : 人民幣中心_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 & "%')"
        CmdSet_For_dr()
        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
    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
        人民幣中心_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
        人民幣中心_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 人民幣中心_tb.Text = "" Or 人民幣買_tb.Text = "" Or 人民幣賣_tb.Text = "" Then
            MsgBox("輸入資料有誤")
        Else
            If CheckBox1.Checked = False Then
                DateTimePicker1.Value = Today
                Set_日期寫入()
                ConnOpen()
                SQL1 = "UPDATE 匯率表 SET 匯率 = '" & 人民幣中心_tb.Text & "' WHERE (對應 = '人民幣兌台幣')"
                CmdSet_For_dr() : conn.Close() : dr.Close()
            Else
                Set_日期寫入()
            End If
        End If
        人民幣中心_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 人民幣買_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
End Class