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