GCM-LINE-SYS-LEEHSIEHJUI/GCM-LINE-SYS/01.人事系統管理/歷史發送數據.vb

Imports System.IO

Public Class 歷史發送數據
    Dim 已開啟 As Boolean = False
    Private Sub Set_歷史訊息LOG()
        Dim ds1 As New DataSet
        清單_dgv.DataSource = Nothing : ds1.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 25 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 25
        If 公司名稱_cb.Text = "全部" Or 公司名稱_cb.Text = "" Then : SQL2 = "%%" : Else : SQL2 = 公司名稱_cb.Text : End If
        If 年份_cb.Text = "全部" Or 年份_cb.Text = "" Then : SQL3 = "%%" : Else : SQL3 = 年份_cb.Text & "%" : End If
        SQL_LOG檔清單()
        da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單_dgv.Columns(0).FillWeight = 30 : 清單_dgv.Columns(2).FillWeight = 30 : 清單_dgv.Columns(3).FillWeight = 30
    End Sub
    Private Sub Set_公司名稱_下拉清單()
        SQL_公司_下拉清單() : 公司名稱_cb.Items.Clear() : 公司名稱_cb.Items.Add("全部") : 公司名稱_cb.Items.Add("HX")
        While (dr.Read()) : 公司名稱_cb.Items.Add(dr("公司名稱")) : End While : conn.Close()
    End Sub
    Private Sub Set_年份_下拉清單()
        SQL_年份_下拉清單() : 年份_cb.Items.Clear() : 年份_cb.Items.Add("全部")
        While (dr.Read()) : 年份_cb.Items.Add(dr("年份")) : End While : conn.Close()
    End Sub
    Private Sub 簡訊價格計算()
        Dim exchangeRate, simpleprice As Double : If Double.TryParse(匯率_tb.Text, exchangeRate) And Double.TryParse(基礎價格_tb.Text, simpleprice) Then : Dim result As Double = Math.Round(exchangeRate * simpleprice, 1) : 簡訊單次_tb.Text = result.ToString() : Else : MessageBox.Show("無效的匯率值。請輸入有效的數字。") : End If
        Dim smsAmount As Double : If Double.TryParse(簡訊單次_tb.Text, smsAmount) Then : Dim result As Double = Math.Round(smsAmount / 3, 1) : LINE單次_tb.Text = result.ToString() : Else : MessageBox.Show("無效的簡訊單次值。請輸入有效的數字。") : End If
    End Sub
    Private Sub 計算總計()
        Dim SMS總計 = 0, LINE總計 As Double = 0
        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
            If 清單_dgv.Rows(i).Cells("訊息類別").Value.ToString() = "Line" Then
                LINE總計 += CInt(Math.Round(Val(LINE單次_tb.Text)))
            ElseIf 清單_dgv.Rows(i).Cells("訊息類別").Value.ToString() = "Message" Then
                SMS總計 += CInt(Math.Round(Val(簡訊單次_tb.Text)))
            End If
        Next
        簡訊統計_tb.Text = SMS總計 : LINE統計_tb.Text = LINE總計
    End Sub
    Private Sub 歷史發送數據_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        年份_cb.Text = Today.Year.ToString() : 匯率_tb.Text = "33" : 基礎價格_tb.Text = "0.38"
        If File.Exists("./C.txt") Then : 匯率_tb.Text = File.ReadAllText("./C.txt") : Else
            Dim content As String = "31" : File.WriteAllText("./C.txt", content) : 匯率_tb.Text = content
        End If
        If File.Exists("./S.txt") Then : 基礎價格_tb.Text = File.ReadAllText("./S.txt") : Else
            Dim content As String = "0.3603" : File.WriteAllText("./S.txt", content) : 基礎價格_tb.Text = content
        End If
        簡訊價格計算() : Set_公司名稱_下拉清單() : Set_年份_下拉清單() : Set_歷史訊息LOG() : 計算總計()
        已開啟 = True
    End Sub
    Private Sub 公司名稱_cb_Click(sender As Object, e As EventArgs) Handles 公司名稱_cb.Click
        CB選擇清單(公司名稱_cb, 公司名稱_cb.Text)
    End Sub
    Private Sub 公司名稱_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 公司名稱_cb.SelectedIndexChanged
        If 已開啟 Then : Set_歷史訊息LOG() : 簡訊價格計算() : 計算總計() : End If
    End Sub
    Private Sub 年份_cb_Click(sender As Object, e As EventArgs) Handles 年份_cb.Click
        CB選擇清單(年份_cb, 年份_cb.Text)
    End Sub
    Private Sub 年份_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份_cb.SelectedIndexChanged
        If 已開啟 Then : Set_歷史訊息LOG() : 簡訊價格計算() : 計算總計() : End If
    End Sub

    Private Sub 匯率_tb_TextChanged(sender As Object, e As EventArgs) Handles 匯率_tb.TextChanged
        If 已開啟 Then : 簡訊價格計算() : 計算總計() : End If
    End Sub

    Private Sub 基礎價格_tb_TextChanged(sender As Object, e As EventArgs) Handles 基礎價格_tb.TextChanged
        If 已開啟 Then : 簡訊價格計算() : 計算總計() : End If
    End Sub

    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        Try
            Using sw As New StreamWriter("./C.txt")
                sw.Write(匯率_tb.Text)
            End Using
            Using sw As New StreamWriter("./S.txt")
                sw.Write(基礎價格_tb.Text)
            End Using
            MessageBox.Show("保存成功。")
        Catch ex As Exception
            MessageBox.Show("保存時出現錯誤：" & ex.Message)
        End Try
    End Sub
End Class