HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/04、工藝管理/Frm_01_finish_rcp.vb

Imports System.Data.SqlClient
Imports System.IO
Imports NPOI.XSSF.UserModel
Imports NPOI.SS.UserModel
Public Class Frm_01_finish_rcp
    Private isFlashing As Boolean = False
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim sql As String
    Dim colorArray(10) As Color
    Dim conn As New SqlConnection
    Private Sub SetupAutoCompleteForCustomer()
        Dim customerList As New AutoCompleteStringCollection() : customerList.AddRange(New String() {"客戶A", "客戶B", "客戶C", "客戶D"}) ' 可從數據庫加載
        cbo_customer.AutoCompleteMode = AutoCompleteMode.SuggestAppend : cbo_customer.AutoCompleteSource = AutoCompleteSource.CustomSource
        cbo_customer.AutoCompleteCustomSource = customerList
    End Sub
    Private Sub SetupAutoCompleteForColor()
        Dim colorList As New AutoCompleteStringCollection() : colorList.AddRange(New String() {"紅色", "藍色", "綠色", "黑色", "白色"}) ' 可從數據庫加載
        txtColor.AutoCompleteMode = AutoCompleteMode.SuggestAppend : txtColor.AutoCompleteSource = AutoCompleteSource.CustomSource
        txtColor.AutoCompleteCustomSource = colorList
    End Sub
    Private Sub Set_清單1(條件 As String)
        Dim ds1 As New DataSet
        處方清單_dgv.DataSource = Nothing : ds1.Clear()
        處方清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        處方清單_dgv.ColumnHeadersHeight = 30 : 處方清單_dgv.AllowUserToAddRows = False : 處方清單_dgv.RowTemplate.Height = 20
        處方清單_dgv.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        SQL_塗飾處方清單(條件)
        da.Fill(ds1) : 處方清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        處方清單_dgv.Columns(0).FillWeight = 200
        For i As Integer = 0 To 處方清單_dgv.Columns.Count - 1 : 處方清單_dgv.Columns(i).ReadOnly = True : Next
    End Sub
    Private Sub Frm_01_finish_rcp_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = FrmMDI : Me.WindowState = 2 : Me.AutoScroll = True
        Set_清單1("")
        Timer1.Interval = 1000 ' 每 500 毫秒闪烁一次
        txtCustomer.AutoCompleteMode = AutoCompleteMode.SuggestAppend : txtCustomer.AutoCompleteSource = AutoCompleteSource.CustomSource
        SetupAutoCompleteForCustomer() : SetupAutoCompleteForColor()
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If isFlashing Then : 模式通知_lb.Text = "修改模式" : Else : 模式通知_lb.Text = "" : End If : isFlashing = Not isFlashing ' 切换闪烁状态
    End Sub
    Private Sub 處方清單_dgv_SelectionChanged(sender As Object, e As EventArgs) Handles 處方清單_dgv.SelectionChanged
        Dim ds1 As New DataSet
        處方_dgv.DataSource = Nothing : ds1.Clear()
        處方_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        處方_dgv.ColumnHeadersHeight = 30 : 處方_dgv.AllowUserToAddRows = False : 處方_dgv.RowTemplate.Height = 25
        處方_dgv.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        SQL_塗飾處方明細(處方清單_dgv.Rows(處方清單_dgv.CurrentCell.RowIndex).Cells(0).Value)
        da.Fill(ds1) : 處方_dgv.DataSource = ds1.Tables(0) : conn.Close()
        處方_dgv.Columns(0).FillWeight = 220 : 處方_dgv.Columns(2).FillWeight = 180
        For i As Integer = 0 To 處方_dgv.Columns.Count - 1 : 處方_dgv.Columns(i).ReadOnly = True : Next
        For Each row As DataGridViewRow In 處方_dgv.Rows : For Each cell As DataGridViewCell In row.Cells : cell.Tag = cell.Value : Next : Next
    End Sub
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles 關鍵字_tb.TextChanged
        Set_清單1("WHERE rcp_name LIKE N'%" & 關鍵字_tb.Text & "%'")
    End Sub
    Private Sub 處方_dgv_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles 處方_dgv.CellPainting
        If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then    ' 自定义单元格绘制，确保字体位置居中，并选中单元格背景色为蓝色
            Dim cell As DataGridViewCell = 處方_dgv.Rows(e.RowIndex).Cells(e.ColumnIndex)
            If cell.Style.ForeColor = Color.Red OrElse e.State.HasFlag(DataGridViewElementStates.Selected) Then   ' 判断是否需要自定义绘制
                Dim backgroundColor As Color = If(e.State.HasFlag(DataGridViewElementStates.Selected),            ' 获取背景颜色
                                                  e.CellStyle.SelectionBackColor, e.CellStyle.BackColor)
                e.Graphics.FillRectangle(New SolidBrush(backgroundColor), e.CellBounds)                           ' 填充背景色
                e.Paint(e.ClipBounds, DataGridViewPaintParts.Border)                                              ' 使用默认的边框样式绘制边框
                Dim textFormat As TextFormatFlags = TextFormatFlags.VerticalCenter                                ' 根据单元格的对齐方式调整文本绘制位置
                If e.CellStyle.Alignment = DataGridViewContentAlignment.MiddleRight Then : textFormat = textFormat Or TextFormatFlags.Right
                ElseIf e.CellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter Then : textFormat = textFormat Or TextFormatFlags.HorizontalCenter
                Else : textFormat = textFormat Or TextFormatFlags.Left : End If                                   ' 绘制文本内容
                TextRenderer.DrawText(e.Graphics, cell.Value?.ToString(), e.CellStyle.Font, e.CellBounds, cell.Style.ForeColor, textFormat)
                e.Handled = True                                                                                  ' 阻止默认绘制
            End If
        End If
    End Sub
    Private Sub 處方_dgv_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles 處方_dgv.CellValueChanged
        Dim currentCell As DataGridViewCell = 處方_dgv.Rows(e.RowIndex).Cells(e.ColumnIndex)               ' 获取修改的单元格
        If currentCell.Tag IsNot Nothing AndAlso Not currentCell.Value.Equals(currentCell.Tag) Then        ' 检查 Tag 是否存在，以及当前值是否与原值不同
            currentCell.Style.ForeColor = Color.Red                                                        ' 如果值被修改，将字体设置为红色
        Else
            currentCell.Style.ForeColor = Color.Black                                                      ' 如果值未修改，恢复默认字体颜色
        End If
    End Sub




    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnEdit.Click
        ' 启用 Label1
        模式通知_lb.Enabled = True
        ' 启动 Timer1
        Timer1.Start()
        ' 确保当前 DataGridView 的焦点单元格有效
        Dim currentCell As DataGridViewCell = 處方_dgv.CurrentCell
        If currentCell Is Nothing Then
            MessageBox.Show("请选中一个单元格进行编辑。")
            Return
        End If
        ' 获取当前选中行的第 0 列和第 2 列的值
        Dim sysName As String = 處方_dgv.CurrentRow.Cells(0).Value.ToString() ' 化学品名称
        Dim qty As String = 處方_dgv.CurrentRow.Cells(2).Value.ToString() ' 份数
        ' 从数据库获取化学品名称作为自动完成数据
        Dim suggestions As List(Of String) = ChemicalNamesFromDatabase()
        ' 初始化并显示 AutoCompleteInputBox，传入从数据库获取的建议列表
        Dim inputBox As New AutoCompleteWithListBox("输入化学品名称", suggestions, sysName, qty)
        Dim my_input() As String
        If inputBox.ShowDialog() = DialogResult.OK Then
            my_input = Split(inputBox.UserInput, "  ")
            '  Dim chemName = inputBox.UserInput
            ' 显示结果
            MessageBox.Show($"选择的化学品：{my_input(1)}{vbNewLine}数量：{inputBox.Quantity}")
        End If
        Dim chemName = my_input(1)
        Dim re_qty = inputBox.Quantity
        ' 更新 DataGridView 的单元格信息
        If inputBox.DialogResult = DialogResult.OK Then
            ' 判断化学品名称是否被修改
            If sysName <> chemName Then
                處方_dgv.CurrentRow.Cells("化工品名").Value = my_input(1) ' 更新化学品名称
                處方_dgv.CurrentRow.Cells("化工品名").Style.ForeColor = Color.Red ' 设置化学品名称为红色字体
                ' 查询化工分类并更新
                Dim type1 As String = GetChemicalTypesFromDatabase(my_input(1))
                處方_dgv.CurrentRow.Cells("化工分类").Value = type1 ' 更新化工分类
            End If
            ' 判断份数是否被修改
            If qty <> inputBox.Quantity Then
                處方_dgv.CurrentRow.Cells("份数").Value = re_qty ' 更新份数
                處方_dgv.CurrentRow.Cells("份数").Style.ForeColor = Color.Red ' 设置份数为红色字体
            End If
        End If
    End Sub
    Private Function GetChemicalTypesFromDatabase(chemicalName As String) As String
        ' 数据库连接字符串
        Dim connectionString As String = connstring ' 请替换为你的实际数据库连接字符串
        ' 查询语句
        Dim query As String = "SELECT type FROM ht_k3_material WHERE name = @sys_name"
        Dim type1 As String = ""
        ' 使用 SQL 连接和命令
        Using connection As New SqlConnection(connectionString)
            Dim command As New SqlCommand(query, connection)
            ' 添加查询参数
            command.Parameters.AddWithValue("@sys_name", chemicalName)
            ' 打开数据库连接
            connection.Open()
            ' 执行查询并获取结果
            Dim result = command.ExecuteScalar()
            If result IsNot Nothing Then
                type1 = result.ToString() ' 确保返回类型为字符串
            End If
        End Using
        ' 返回化工分类
        Return type1
    End Function
    ' 原本返回的是 String()，现在改为 List(Of String)
    Private Function ChemicalNamesFromDatabase() As List(Of String)
        Dim connectionString As String = connstring   ' 换成你的数据库连接字符串
        Dim query As String = "SELECT code,name FROM ht_k3_material"
        Dim chemicalNames As New List(Of String)()
        Using connection As New SqlConnection(connectionString)
            Using command As New SqlCommand(query, connection)
                connection.Open()
                Using reader As SqlDataReader = command.ExecuteReader()
                    While reader.Read()
                        ' 将 sys_name 添加到列表中
                        chemicalNames.Add(reader("code").ToString() & "  " & reader("name").ToString())
                    End While
                End Using
            End Using
        End Using
        ' 返回 List(Of String)
        Return chemicalNames
    End Function
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        ' 數據庫連接字串
        Dim connectionString As String = connstring ' 確保你的連接字符串正確
        ' **(A) 取得選中的 rcp_name**
        If 處方清單_dgv.CurrentRow Is Nothing OrElse 處方清單_dgv.CurrentRow.Cells("配料名称").Value Is Nothing Then
            MessageBox.Show("請先選擇一個配料名称 (rcp_name)！", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Return
        End If
        Dim rcpName As String = 處方清單_dgv.CurrentRow.Cells("配料名称").Value.ToString()
        ' **(B) 確保 dgv2 內有數據**
        If 處方_dgv.Rows.Count = 0 Then
            MessageBox.Show("沒有數據可更新！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return
        End If
        ' **(C) 記錄目前選中的行**
        Dim selectedRowIndex As Integer = 處方_dgv.CurrentCell.RowIndex
        Dim selectedId As String = If(處方_dgv.CurrentRow.Cells("id").Value IsNot Nothing, 處方_dgv.CurrentRow.Cells("id").Value.ToString(), "")
        ' **(D) 開始 SQL Transaction**
        Using conn As New SqlConnection(connectionString)
            conn.Open()
            Using trans As SqlTransaction = conn.BeginTransaction()
                Try
                    ' **(E) 刪除資料表中該 rcp_name 的所有數據**
                    Dim deleteQuery As String = "DELETE FROM ht_finish_rcp WHERE rcp_name = @rcp_name;"
                    Using cmd As New SqlCommand(deleteQuery, conn, trans)
                        cmd.Parameters.AddWithValue("@rcp_name", rcpName)
                        cmd.ExecuteNonQuery()
                    End Using
                    ' **(F) 遍歷 dgv2，將沒有刪除線的數據重新插入**
                    Dim insertQuery As String = "INSERT INTO ht_finish_rcp (id, rcp_name, chem_name, percents, edited_date) 
                                             VALUES (@id, @rcp_name, @chem_name, @percents, @edited_date);"
                    For Each row As DataGridViewRow In 處方_dgv.Rows
                        ' 確保不是空白行
                        If row.IsNewRow Then Continue For
                        ' **(G) 檢查是否有刪除線 (Strikeout)**
                        Dim hasStrikeout As Boolean = False
                        For Each cell As DataGridViewCell In row.Cells
                            If cell.Style.Font IsNot Nothing AndAlso cell.Style.Font.Strikeout Then
                                hasStrikeout = True
                                Exit For
                            End If
                        Next
                        If hasStrikeout Then
                            Debug.Print("跳過刪除線記錄：" & row.Cells("化工品名").Value.ToString()) ' Debug 記錄
                            Continue For ' **跳過刪除線的記錄，不插入數據庫**
                        End If
                        ' 取得數據
                        Dim idString As String = If(row.Cells("id").Value IsNot Nothing, row.Cells("id").Value.ToString(), "")
                        If String.IsNullOrEmpty(idString) Then Continue For ' 跳過無效數據
                        Dim chemName As String = row.Cells("化工品名").Value.ToString()
                        Dim percents As String = row.Cells("份数").Value.ToString()
                        Dim dPercents As Decimal = 0
                        Decimal.TryParse(percents, dPercents)
                        ' **(H) 插入新數據**
                        Using cmd As New SqlCommand(insertQuery, conn, trans)
                            cmd.Parameters.AddWithValue("@id", idString)
                            cmd.Parameters.AddWithValue("@rcp_name", rcpName)
                            cmd.Parameters.AddWithValue("@chem_name", chemName)
                            cmd.Parameters.AddWithValue("@percents", dPercents)
                            cmd.Parameters.AddWithValue("@edited_date", DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss"))
                            cmd.ExecuteNonQuery()
                        End Using
                    Next
                    ' **(I) 提交 Transaction**
                    trans.Commit()
                    MessageBox.Show("所有數據已成功同步至資料庫！", "更新成功", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    ' **(J) 重新載入 dgv2 的資料**
                    ReloadDGV2(rcpName)
                    ' **(K) 恢復選取的 row**
                    RestoreSelectedRow(selectedRowIndex, selectedId)
                Catch ex As Exception
                    ' **(L) 出錯時回滾**
                    trans.Rollback()
                    MessageBox.Show("更新失敗：" & ex.Message, "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End Try
            End Using
        End Using
    End Sub
    Private Sub RestoreSelectedRow(previousRowIndex As Integer, previousId As String)
        ' **確保 dgv2 內有數據**
        If 處方_dgv.Rows.Count = 0 Then Return
        ' **嘗試選擇原來的行**
        For Each row As DataGridViewRow In 處方_dgv.Rows
            If row.Cells("id").Value IsNot Nothing AndAlso row.Cells("id").Value.ToString() = previousId Then
                處方_dgv.CurrentCell = row.Cells(0)
                row.Selected = True
                Return
            End If
        Next
        ' **如果原行被刪除，則選擇前一行**
        Dim newRowIndex As Integer = previousRowIndex
        If newRowIndex >= 處方_dgv.Rows.Count Then
            newRowIndex = 處方_dgv.Rows.Count - 1 ' 如果超過範圍，則選擇最後一行
        End If
        If newRowIndex >= 0 Then
            處方_dgv.CurrentCell = 處方_dgv.Rows(newRowIndex).Cells(0)
            處方_dgv.Rows(newRowIndex).Selected = True
        End If
    End Sub
    Private Sub ReloadDGV2(rcpName As String)
        ' **SQL 查詢 rcp_name 的新數據**
        Dim query As String = "SELECT chem_name AS 化工品名, percents as 份数,id, EDITED_DATE FROM ht_finish_rcp WHERE rcp_name = @rcp_name"
        Dim connectionString As String = connstring
        Dim adapter As New SqlDataAdapter(query, connectionString)
        adapter.SelectCommand.Parameters.AddWithValue("@rcp_name", rcpName)
        Dim dt As New DataTable()
        adapter.Fill(dt)
        ' **重新綁定 DataGridView**
        處方_dgv.DataSource = dt
        處方_dgv.Columns(0).Width = 220
        處方_dgv.Columns(2).Width = 220
    End Sub
    ''' <summary>
    ''' 小工具：安全取得某欄位字串；如果是 Nothing 則回傳 ""
    ''' </summary>
    Private Function SafeCellValue(row As DataGridViewRow, columnName As String) As String
        If row.Cells(columnName).Value IsNot Nothing Then
            Return row.Cells(columnName).Value.ToString().Trim()
        End If
        Return String.Empty
    End Function
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        關鍵字_tb.Enabled = False
        'For Each cell As DataGridViewCell In dgv2.CurrentRow.Cells
        '    ' 将单元格的值恢复为 Tag 中存储的原始值
        '    cell.Value = cell.Tag
        '    ' 将字体颜色恢复为默认黑色
        '    cell.Style.ForeColor = Color.Black
        'Next
        Try
            ' **檢查 DataGridView 是否有未保存的變更**
            If 處方_dgv IsNot Nothing AndAlso 處方_dgv.DataSource IsNot Nothing Then
                Dim dt As DataTable = CType(處方_dgv.DataSource, DataTable)
                ' **取消所有變更**
                dt.RejectChanges()
            End If
            ' **清除選取**
            處方_dgv.ClearSelection()
            ' **隱藏 DataGridView 的空白行**
            處方_dgv.AllowUserToAddRows = False
            ' **確保數值欄位不為 null**
            For Each row As DataGridViewRow In 處方_dgv.Rows
                If Not row.IsNewRow Then ' 避免影響新行
                    For Each cell As DataGridViewCell In row.Cells
                        ' **如果是數值欄位，將 null 設為 0**
                        If IsDBNull(cell.Value) AndAlso IsNumeric(cell.OwningColumn.DataPropertyName) Then
                            cell.Value = 0
                        End If
                    Next
                End If
            Next
        Catch ex As Exception
            MessageBox.Show("取消變更時發生錯誤：" & ex.Message, "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
    Private Sub dgv2_DataError(sender As Object, e As DataGridViewDataErrorEventArgs) Handles 處方_dgv.DataError
        ' **防止 "無法將 null 設定給 DataGridView" 錯誤**
        If e.Exception IsNot Nothing Then
            MessageBox.Show("數據錯誤：" & e.Exception.Message, "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            ' **只修正數值欄位，避免影響文字欄位**
            Try
                Dim columnName As String = 處方_dgv.Columns(e.ColumnIndex).DataPropertyName
                If IsNumeric(columnName) Then
                    處方_dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = 0 ' 設為 0，避免錯誤
                Else
                    處方_dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = DBNull.Value ' 保持空值
                End If
            Catch ex As Exception
                Debug.Print("無法修正 DataGridView 錯誤：" & ex.Message)
            End Try
        End If
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
        If 處方_dgv.CurrentRow IsNot Nothing Then
            For Each cell As DataGridViewCell In 處方_dgv.CurrentRow.Cells
                ' 设置字体为带删除线的样式
                Dim currentFont As Font = cell.Style.Font
                If currentFont Is Nothing Then
                    currentFont = 處方_dgv.Font ' 使用默认字体
                End If
                cell.Style.Font = New Font(currentFont, FontStyle.Strikeout)
                ' 设置背景颜色为红色
                cell.Style.BackColor = Color.Red
            Next
        End If
    End Sub
    Private Function GetNewIDWithIncrement() As Decimal
        ' 如果 dgv2 为空，则返回 1 作为第一行的 ID
        If 處方_dgv.Rows.Count = 0 Then Return 1D
        Dim selectedIndex As Integer = 處方_dgv.CurrentRow.Index
        Dim currentID As Decimal = Convert.ToDecimal(處方_dgv.Rows(selectedIndex).Cells("id").Value)
        ' 如果选中的是最后一行，直接加 1
        If selectedIndex = 處方_dgv.Rows.Count - 1 Then
            Return currentID + 1D
        End If
        ' 否则，在当前选中行后插入新记录，新 ID = 当前行 ID + 0.1
        Return currentID + 0.1D
    End Function
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnInsert.Click
        ' 1️⃣ 获取 DataGridView 绑定的 DataTable
        Dim dt As DataTable = CType(處方_dgv.DataSource, DataTable)
        ' 2️⃣ 获取新 ID（当前选中行 ID + 0.1）
        Dim newID As Decimal = GetNewIDWithIncrement()
        ' 3️⃣ 读取数据库中的化工品建议列表
        Dim suggestions As List(Of String) = ChemicalNamesFromDatabase().ToList()
        ' 4️⃣ 打开输入框，用户输入化工品名和数量
        Dim inputBox As New AutoCompleteWithListBox("输入化学品名称", suggestions, "", "0")
        Dim my_input() As String
        If inputBox.ShowDialog() = DialogResult.OK Then
            ' 5️⃣ 读取用户输入
            my_input = Split(inputBox.UserInput, "  ")
            Dim chemName As String = my_input(1)
            Dim qty As String = inputBox.Quantity
            Dim type1 As String = GetChemicalTypesFromDatabase(chemName)
            ' 🚨 份数不可为 0，弹出警告并返回 🚨
            If String.IsNullOrWhiteSpace(qty) OrElse Not IsNumeric(qty) OrElse Convert.ToDecimal(qty) = 0 Then
                MessageBox.Show("份数不可为 0，请输入正确的数量！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return ' 直接退出，不执行插入
            End If
            ' 6️⃣ 在 DataTable 中插入新行
            Dim newRow As DataRow = dt.NewRow()
            newRow("化工品名") = chemName
            newRow("份数") = qty
            newRow("化工分类") = type1
            newRow("id") = newID  ' ID 采用小数递增
            ' 檢查 DataTable 是否已經有 "Status" 欄位，沒有則新增
            If Not dt.Columns.Contains("Status") Then
                dt.Columns.Add("Status", GetType(String)) ' 新增一個 "Status" 欄位，型別為 String
            End If
            ' **新增数据，标记为 "NEW"**
            newRow("Status") = "NEW"  ' 这里添加一个新列 "Status" 作为标记
            ' 7️⃣ 插入新行到选中行的下一行
            dt.Rows.InsertAt(newRow, 處方_dgv.CurrentRow.Index + 1)
            ' 8️⃣ 重新绑定 DataGridView
            處方_dgv.DataSource = dt
            ' 9️⃣ 设置新行的字体颜色为红色，表示未保存
            For Each cell As DataGridViewCell In 處方_dgv.Rows(處方_dgv.CurrentRow.Index + 1).Cells
                cell.Style.ForeColor = Color.Red
            Next
        End If
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles btnGenerate.Click
        Dim my_list As String
        For Each row As DataGridViewRow In 處方_dgv.Rows
            If row.Cells("化工分类").Value.ToString = "" And Not (row.Cells("化工品名").Value Like "水*") Then
                my_list += row.Cells("化工品名").Value & vbNewLine
            End If
        Next
        If Microsoft.VisualBasic.Len(my_list) > 0 Then
            MsgBox("以下化工品名有误:" & vbNewLine & vbNewLine & my_list)
            Exit Sub
        End If
        ' **(1) 請使用者輸入泡料總重量**
        Dim totalWeightStr As String = InputBox("请输入配料的总重量 (kg)：", "输入总重量")
        Dim totalWeight As Decimal
        ' **(2) 檢查輸入是否合法**
        If Not Decimal.TryParse(totalWeightStr, totalWeight) OrElse totalWeight <= 0 Then
            MessageBox.Show("請输入有效的总重量！", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Return
        End If
        ' **(3) 計算總份數**
        Dim totalPortions As Decimal = 0
        For Each row As DataGridViewRow In 處方_dgv.Rows
            If row.IsNewRow Then Continue For ' 跳過新行
            Dim portionStr As String = row.Cells("份数").Value.ToString()
            Dim portion As Decimal = 0
            If Decimal.TryParse(portionStr, portion) Then
                totalPortions += portion
            End If
        Next
        ' **(4) 確保份數不為 0**
        If totalPortions = 0 Then
            MessageBox.Show("化工品的總份數為 0，無法計算重量！", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Return
        End If
        ' **(5) 清空 dgv3 並填充新數據**
        Dim dt As New DataTable()
        dt.Columns.Add("化工品名", GetType(String))
        dt.Columns.Add("化工分类", GetType(String))
        dt.Columns.Add("份数", GetType(Decimal))
        dt.Columns.Add("重量 (kg)", GetType(Decimal))
        dt.Columns.Add("总重量 (kg)", GetType(Decimal))
        dt.Columns.Add("化工代码", GetType(String))
        ' **(6) 計算每個化工的重量並填入 dgv3**
        Dim totalCalculatedWeight As Decimal = 0
        For Each row As DataGridViewRow In 處方_dgv.Rows
            If row.IsNewRow Then Continue For
            Dim chemName As String = row.Cells("化工品名").Value.ToString()
            Dim chemCategory As String = row.Cells("化工分类").Value.ToString()
            Dim portion As Decimal = Convert.ToDecimal(row.Cells("份数").Value)
            ' 計算該化工品的重量
            Dim weight As Decimal = Math.Round((portion / totalPortions) * totalWeight, 1)
            totalCalculatedWeight += weight ' 累計總重量
            ' **(7) 加入 DataTable**
            dt.Rows.Add(chemName, chemCategory, portion, weight, totalWeight)
        Next
        ' **(8) 添加總計行**
        Dim totalRow As DataRow = dt.NewRow()
        totalRow("化工品名") = "总计"
        totalRow("化工分类") = ""
        totalRow("份数") = totalPortions
        totalRow("重量 (kg)") = totalCalculatedWeight
        totalRow("总重量 (kg)") = totalWeight
        dt.Rows.Add(totalRow)
        ' **(9) 更新 dgv3**
        DGV3.DataSource = dt
        ' **(3) 設定總計行樣式（紅色粗體）**
        Dim lastRowIndex As Integer = DGV3.Rows.Count - 1
        If lastRowIndex >= 0 Then
            Dim lastRow As DataGridViewRow = DGV3.Rows(lastRowIndex)
            If lastRow.Cells(0).Value IsNot Nothing AndAlso lastRow.Cells(0).Value.ToString() = "总计" Then
                For Each cell As DataGridViewCell In lastRow.Cells
                    cell.Style.Font = New Font("Microsoft YaHei", 10, FontStyle.Bold)
                    cell.Style.ForeColor = Color.Red
                Next
            End If
        End If
        ' **(10) 美化 dgv3**
        ' CustomizeDataGridView(DGV3)
    End Sub
    Private Sub Button_領料_Click(sender As Object, e As EventArgs) Handles Button7.Click
        ' ------------------------ 1️⃣ 生成領料單號 ------------------------
        Dim out_Number As String = GenerateSerialNumber(DateTimePicker1.Value)
        ' ------------------------ 2️⃣ 計算總重量 ------------------------
        Dim totalWeight As Double = DGV3.Rows.Cast(Of DataGridViewRow)().
        Sum(Function(r) Convert.ToDouble(r.Cells(4).Value))
        totalWeight = Math.Round(totalWeight) ' 四捨五入取整
        ' ------------------------ 3️⃣ 讀取 Excel 模板 ------------------------
        Dim templatePath As String = "C:\表格模版\涂饰配料标签模版.xlsx"
        Dim savePath As String = Path.Combine("C:\GHS", out_Number & ".xlsx")
        Dim workbook As IWorkbook
        Using fs As New FileStream(templatePath, FileMode.Open, FileAccess.Read)
            workbook = New XSSFWorkbook(fs)
        End Using
        ' 假設我們要操作第 1 個工作表
        Dim sheet As ISheet = workbook.GetSheetAt(0)
        ' ------------------------ 4️⃣ 寫入 Excel ------------------------
        ' ========== (A) 設置 rcp_name 到 A1、B1 ==========
        ' 假設 DGV1.CurrentRow.Cells("配料名称") 有你想填入的值
        Dim rcpName As String = 處方清單_dgv.CurrentRow.Cells("配料名称").Value.ToString()
        ' 先確保第 1 行(索引0)已存在
        Dim row0 As IRow = sheet.GetRow(0)
        If row0 Is Nothing Then
            row0 = sheet.CreateRow(0)
        End If
        ' A1 => GetCell(0)
        Dim cellA1 As ICell = row0.GetCell(0)
        If cellA1 Is Nothing Then
            cellA1 = row0.CreateCell(0)
        End If
        cellA1.SetCellValue(rcpName)
        ' B1 => GetCell(1)
        Dim cellB1 As ICell = row0.GetCell(1)
        If cellB1 Is Nothing Then
            cellB1 = row0.CreateCell(1)
        End If
        cellB1.SetCellValue(rcpName)
        ' ========== (B) 成份明細 D2:D14 (化工品) & E2:E14 (重量) ==========
        ' 從 DGV3 把化工品名稱、重量 分別寫到 D、E 欄 (索引3, 4)
        ' 從 Excel 的第 2 行(索引1)開始，直到第 14 行(索引13)
        Dim startExcelRow As Integer = 1  ' D2 所在的行索引
        Dim endExcelRow As Integer = 15   ' D14 所在的行索引
        Dim rowIndex As Integer = startExcelRow
        For Each dgvRow As DataGridViewRow In DGV3.Rows
            If rowIndex > endExcelRow Then Exit For
            Dim chemName As String = dgvRow.Cells("化工品名").Value.ToString()
            Dim weight As Double = Convert.ToDouble(dgvRow.Cells(3).Value)
            ' 確保 Excel 行存在
            Dim excelRow As IRow = sheet.GetRow(rowIndex)
            If excelRow Is Nothing Then
                excelRow = sheet.CreateRow(rowIndex)
            End If
            ' D欄(索引3) 寫化工品名
            Dim chemCell As ICell = excelRow.GetCell(2)
            If chemCell Is Nothing Then
                chemCell = excelRow.CreateCell(2)
            End If
            chemCell.SetCellValue(chemName)
            ' E欄(索引4) 寫重量
            Dim weightCell As ICell = excelRow.GetCell(3)
            If weightCell Is Nothing Then
                weightCell = excelRow.CreateCell(3)
            End If
            weightCell.SetCellValue(weight)
            rowIndex += 1
        Next
        ' ========== 設置字體樣式(可選) ==========
        Dim cellStyle As ICellStyle = workbook.CreateCellStyle()
        Dim font As IFont = workbook.CreateFont()
        font.FontHeightInPoints = 16
        font.Boldweight = FontBoldWeight.Normal
        cellStyle.SetFont(font)
        cellStyle.Alignment = HorizontalAlignment.Right
        cellStyle.VerticalAlignment = VerticalAlignment.Center
        ' 如果想給前面寫入的 D/E 欄都設置樣式，可在上面循環裡賦值
        ' 或者這裡再遍歷一次已寫入的行
        ' ========== 移除最後一行(若你不想保留 '总计' 那一行) ==========
        ' 假設 DGV3.Rows.Count = n，那麼最後一行索引就是 n (對 NPOI 來說)
        ' 如果確定要刪除那一行，就這樣做:
        Dim lastRowIndex As Integer = DGV3.Rows.Count
        If sheet.GetRow(lastRowIndex) IsNot Nothing Then
            sheet.RemoveRow(sheet.GetRow(lastRowIndex))
        End If
        ' ========== 重算總重量並取平均值 ==========
        totalWeight = DGV3.Rows.Cast(Of DataGridViewRow)().
        Sum(Function(r) Convert.ToDouble(r.Cells(4).Value))
        Dim avgWeight As Double = totalWeight / DGV3.Rows.Count
        ' ========== (C) B15: 領料單號, B16: 平均重量, E15: 調料日期 ==========
        ' Excel中 B15 => (Row=14, Col=1), B16 => (Row=15, Col=1), E15 => (Row=14, Col=4)
        ' 先確保 row14, row15 都存在
        Dim row14 As IRow = sheet.GetRow(16)
        If row14 Is Nothing Then row14 = sheet.CreateRow(16)
        Dim row15 As IRow = sheet.GetRow(17)
        If row15 Is Nothing Then row15 = sheet.CreateRow(17)
        ' B15 => 領料單號
        Dim cellB15 As ICell = row14.GetCell(1)
        If cellB15 Is Nothing Then cellB15 = row14.CreateCell(1)
        cellB15.SetCellValue(out_Number)
        ' B16 => 平均重量
        Dim cellB16 As ICell = row15.GetCell(1)
        If cellB16 Is Nothing Then cellB16 = row15.CreateCell(1)
        cellB16.SetCellValue(Math.Round(avgWeight, 0))
        ' E15 => 日期
        Dim cellE15 As ICell = row14.GetCell(4)
        If cellE15 Is Nothing Then cellE15 = row14.CreateCell(4)
        cellE15.SetCellValue(DateTimePicker1.Value.ToString("yyyy-MM-dd"))
        ' ------------------------ 5️⃣ 保存 Excel ------------------------
        Using fs As New FileStream(savePath, FileMode.Create, FileAccess.Write)
            workbook.Write(fs)
        End Using
        ' ------------------------ 6️⃣ 寫入數據庫 ------------------------
        Dim connectionString As String = connstring
        Using conn As New SqlConnection(connectionString)
            conn.Open()
            Using trans As SqlTransaction = conn.BeginTransaction()
                Try
                    Dim insertQuery As String = "
                    INSERT INTO HT_finish_out (out_no, [date], chem_name, qty, cust, color, rcp_name) 
                    VALUES (@out_no, @date, @chem_name, @qty, @cust, @color,@rcp_name)"
                    For Each dgvRow As DataGridViewRow In DGV3.Rows
                        Dim chemName As String = dgvRow.Cells("化工品名").Value.ToString().Trim()
                        ' 假設某行叫 "总计" 就跳過
                        If chemName = "总计" Then Continue For
                        Dim cust As String = txtCustomer.Text.Trim()
                        Dim color As String = txtColor.Text.Trim()
                        Using cmd As New SqlCommand(insertQuery, conn, trans)
                            cmd.Parameters.AddWithValue("@out_no", out_Number)
                            cmd.Parameters.AddWithValue("@date", DateTimePicker1.Value)
                            cmd.Parameters.AddWithValue("@chem_name", chemName)
                            cmd.Parameters.AddWithValue("@qty", Convert.ToDouble(dgvRow.Cells(3).Value))
                            cmd.Parameters.AddWithValue("@cust", cust)
                            cmd.Parameters.AddWithValue("@color", color)
                            cmd.Parameters.AddWithValue("@rcp_name", 處方清單_dgv.Rows(處方清單_dgv.CurrentCell.RowIndex).Cells("配料名称").Value)
                            cmd.ExecuteNonQuery()
                        End Using
                    Next
                    trans.Commit()
                Catch ex As Exception
                    trans.Rollback()
                    MessageBox.Show("數據庫錯誤：" & ex.Message, "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Return
                End Try
            End Using
        End Using
        ' ------------------------ 7️⃣ 自動打開 Excel ------------------------
        Process.Start("explorer.exe", savePath)
        ' ------------------------ 8️⃣ 提示成功 ------------------------
        MessageBox.Show("領料單已成功導出！單號：" & out_Number, "成功", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
    Private Function GenerateSerialNumber(dateStr As String) As String
        Dim connectionString As String = connstring ' 請替換為你的資料庫連接字串
        Dim dateStr1 As String = DateTimePicker1.Value.ToString("yyMMdd") ' 取得 "250131" 格式
        ' **SQL 查詢，獲取當天的最大流水號**
        Dim query As String = "SELECT MAX(CAST(SUBSTRING(out_no, 9, LEN(out_no) - 8) AS INT)) " &
                          "FROM HT_finish_out WHERE out_no LIKE 'P" & dateStr1 & "-%';"
        Dim maxSerial As Integer = 0
        Using conn As New SqlConnection(connectionString)
            conn.Open()
            Using cmd As New SqlCommand(query, conn)
                Dim result As Object = cmd.ExecuteScalar()
                If result IsNot DBNull.Value AndAlso result IsNot Nothing Then
                    maxSerial = Convert.ToInt32(result)
                End If
            End Using
        End Using
        ' **流水號遞增**
        Dim newSerial As Integer = maxSerial + 1
        ' **返回格式化的領料單號**
        Return "P" & dateStr1 & "-" & newSerial.ToString()
    End Function
    Private Sub ExportToExcel(orderNumber As String)
        Dim savePath As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), orderNumber & ".xlsx")
        ' **(1) 創建 Excel Workbook**
        Dim workbook As IWorkbook = New XSSFWorkbook()
        Dim sheet As ISheet = workbook.CreateSheet("領料單")
        ' **(2) 設定標題行**
        Dim headerRow As IRow = sheet.CreateRow(0)
        For col As Integer = 0 To DGV3.Columns.Count - 1
            Dim cell As ICell = headerRow.CreateCell(col)
            cell.SetCellValue(DGV3.Columns(col).HeaderText)
            ' **設定標題格式**
            Dim headerStyle As ICellStyle = workbook.CreateCellStyle()
            Dim font As IFont = workbook.CreateFont()
            font.IsBold = True
            headerStyle.SetFont(font)
            headerStyle.Alignment = HorizontalAlignment.Center
            cell.CellStyle = headerStyle
        Next
        ' **(3) 填充數據**
        For row As Integer = 0 To DGV3.Rows.Count - 1
            Dim dataRow As IRow = sheet.CreateRow(row + 1)
            For col As Integer = 0 To DGV3.Columns.Count - 1
                Dim cell As ICell = dataRow.CreateCell(col)
                Dim value As Object = DGV3.Rows(row).Cells(col).Value
                If value IsNot Nothing Then
                    If TypeOf value Is Decimal OrElse TypeOf value Is Double Then
                        cell.SetCellValue(Convert.ToDouble(value))
                    Else
                        cell.SetCellValue(value.ToString())
                    End If
                End If
            Next
        Next
        ' **(4) 自動調整欄位寬度**
        For col As Integer = 0 To DGV3.Columns.Count - 1
            sheet.AutoSizeColumn(col)
        Next
        ' **(5) 寫入文件**
        Using fs As New FileStream(savePath, FileMode.Create, FileAccess.Write)
            workbook.Write(fs)
        End Using
        ' **(6) 自動開啟 Excel 文件**
        If File.Exists(savePath) Then
            Process.Start("explorer.exe", savePath)
        End If
    End Sub
    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnSaveAs.Click
        ' 使用 InputBox 获取用户输入的配料名称
        Dim rcpName As String = InputBox("请输入配料名称：", "输入配料名称", "")

        ' 检查用户是否输入了配料名称
        If String.IsNullOrEmpty(rcpName) Then
            MessageBox.Show("请输入配料名称", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If
        ' 检查 rcp_name 是否存在，如果存在，则在后面加上 "副本"
        rcpName = CheckAndModifyRcpName(rcpName)
        ' 获取选择的日期
        Dim createdDate As DateTime = DateTimePicker1.Value
        ' 数据库连接字符串
        Dim connectionString As String = connstring
        ' 获取当前最大ID
        Dim maxId As Integer = GetMaxId(connectionString)
        Dim newId As Integer = maxId + 1 ' 生成新的ID
        ' 使用连接保存数据
        Using conn As New SqlConnection(connectionString)
            conn.Open()
            ' 遍历 dgv2 中的每一行，将数据插入到数据库
            For Each row As DataGridViewRow In 處方_dgv.Rows
                If row.IsNewRow Then Continue For ' 跳过新行
                ' 获取每一列的值
                Dim chemName As String = row.Cells("化工品名").Value.ToString()
                Dim percents As Double = Convert.ToDouble(row.Cells("份数").Value)
                ' 插入数据的 SQL 查询
                Dim query As String = "INSERT INTO HT_finish_rcp (rcp_name, chem_name, percents, created_date, id) " &
                                      "VALUES (@rcp_name, @chem_name, @percents, @created_date, @id)"
                Using cmd As New SqlCommand(query, conn)
                    cmd.Parameters.AddWithValue("@rcp_name", rcpName)
                    cmd.Parameters.AddWithValue("@chem_name", chemName)
                    cmd.Parameters.AddWithValue("@percents", percents)
                    cmd.Parameters.AddWithValue("@created_date", createdDate)
                    cmd.Parameters.AddWithValue("@id", newId)
                    ' 执行插入
                    cmd.ExecuteNonQuery()
                    newId += 1 ' 每次插入后，id+1
                End Using
            Next
            ' 显示保存成功的消息
            MessageBox.Show("数据已成功保存！", "成功", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Using
    End Sub
    Private Function CheckAndModifyRcpName(rcpName As String) As String
        Dim connectionString As String = connstring
        Dim query As String = "SELECT COUNT(*) FROM HT_finish_rcp WHERE rcp_name = @rcp_name"
        Using conn As New SqlConnection(connectionString)
            conn.Open()
            Using cmd As New SqlCommand(query, conn)
                cmd.Parameters.AddWithValue("@rcp_name", rcpName)
                Dim count As Integer = Convert.ToInt32(cmd.ExecuteScalar())
                ' 如果 rcp_name 已经存在，则添加 "副本"
                If count > 0 Then
                    rcpName = rcpName & "副本"
                End If
            End Using
        End Using
        Return rcpName
    End Function
    Private Function GetMaxId(connectionString As String) As Integer
        Dim query As String = "SELECT MAX(id) FROM HT_finish_rcp"
        Using conn As New SqlConnection(connectionString)
            conn.Open()
            Using cmd As New SqlCommand(query, conn)
                Dim result As Object = cmd.ExecuteScalar()
                If result IsNot DBNull.Value AndAlso result IsNot Nothing Then
                    Return Convert.ToInt32(result)
                Else
                    Return 0 ' 如果没有记录，返回0
                End If
            End Using
        End Using
    End Function
    ' 删除指定配料名称的所有记录
    Private Sub DeleteRcpNameRecords(rcpName As String)
        Dim connectionString As String = connstring
        Dim query As String = "DELETE FROM HT_finish_rcp WHERE rcp_name = @rcp_name"
        Using conn As New SqlConnection(connectionString)
            conn.Open()
            Using cmd As New SqlCommand(query, conn)
                cmd.Parameters.AddWithValue("@rcp_name", rcpName)
                ' 执行删除操作
                cmd.ExecuteNonQuery()
            End Using
        End Using
    End Sub
    Private Sub RefreshDgv1()
        Dim connectionString As String = connstring
        Dim query As String = "SELECT rcp_name as 配料名称,created_date as 创建日期 FROM HT_finish_rcp group by rcp_name,created_date order by id"
        Using conn As New SqlConnection(connectionString)
            conn.Open()
            ' 使用 DataAdapter 将数据库数据填充到 DataTable
            Using da As New SqlDataAdapter(query, conn)
                Dim dt As New DataTable()
                da.Fill(dt)
                ' 将填充的数据绑定到 dgv1
                處方清單_dgv.DataSource = dt
            End Using
        End Using
    End Sub
End Class