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

Imports NPOI.XSSF.UserModel
Imports NPOI.SS.UserModel
Imports System.IO
Imports System.Data.SqlClient
Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
Imports Microsoft.Office.Interop.Excel.Constants
Imports Microsoft.Office.Interop.Excel.XlBordersIndex
Imports Microsoft.Office.Interop.Excel.XlLineStyle
Imports Microsoft.Office.Interop.Excel.XlBorderWeight
Imports Microsoft.Office.Interop.Excel.XlPrintLocation
Imports Microsoft.Office.Interop.Excel.XlPageOrientation
Imports Microsoft.Office.Interop.Excel.XlOrder
Imports Microsoft.Office.Interop.Excel.XlPrintErrors
Imports Microsoft.Office.Core
Imports System.ComponentModel
Imports Microsoft.Office.Interop
Imports System.Drawing.Imaging
Imports System.Windows.Media.Media3D
Imports System.Text.RegularExpressions
Public Class Frm_00_Retan_rcp
    Private originalLocation As Point         ' 声明全局变量来存储原始位置和大小
    Private originalSize As Size
    Private isMaximized As Boolean = False    ' 用于标记当前是否是放大状态
    Dim dt1 As New DataTable
    Dim gWeight(), gPrice() As Double
    Dim gCoin(), sql_rcp, sql_print As String
    Dim rr As String = "" : Dim rcp_name As String = ""
    Dim gAddfromOther As Boolean = False
    Dim dt_print As DataTable
    Dim DT2 As New DataTable
    Dim colorArray(10) As Color
    Dim card As String = "" : Dim cust As String = "" : Dim thickness As String = "" : Dim r_type As String = ""
    Dim source As String = "" : Dim comment As String = "" : Dim color1 As String = ""
    Dim wb_weight As Double = 0
    Private Sub Set_清單1(queryname 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_染色處方清單(queryname)
        da.Fill(ds1) : 處方清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        處方清單_dgv.Columns(0).FillWeight = 80 : 處方清單_dgv.Columns(1).FillWeight = 280 : 處方清單_dgv.Columns(2).FillWeight = 120
        處方清單_dgv.Columns(3).FillWeight = 55 : 處方清單_dgv.Columns(4).FillWeight = 105 : 處方清單_dgv.Columns(5).FillWeight = 55
        處方清單_dgv.Columns(6).FillWeight = 75 : 處方清單_dgv.Columns(7).FillWeight = 55 : 處方清單_dgv.Columns(8).FillWeight = 145
        For i As Integer = 0 To 處方清單_dgv.Columns.Count - 1 : 處方清單_dgv.Columns(i).ReadOnly = True : Next
        Dim selectedRowIndex As Integer = 處方清單_dgv.CurrentRow?.Index
        Dim selectedColumnIndex As Integer = 處方清單_dgv.CurrentCell?.ColumnIndex                                                  ' 保存当前选中的行和列
        If selectedRowIndex >= 0 AndAlso selectedRowIndex < 處方清單_dgv.Rows.Count Then                                            ' 如果之前有选中行，刷新后重新选中
            處方清單_dgv.CurrentCell = 處方清單_dgv.Rows(selectedRowIndex).Cells(selectedColumnIndex)
        Else : 處方清單_dgv.CurrentCell = 處方清單_dgv.Rows(0).Cells(0) : End If
        '--------指定顏色--------------------------------------------------------------
        If 處方清單_dgv.Rows.Count < 2 Then Exit Sub                                                                                ' 若資料筆數過少則不執行
        Dim p(處方清單_dgv.Rows.Count - 1) As Integer : Dim c As Integer = 0 : p(0) = 0
        For x = 1 To 處方清單_dgv.Rows.Count - 1                                                                                    ' 修正範圍，避免 -2 的問題
            If Not 處方清單_dgv.Rows(x).Cells(0).Value Is Nothing AndAlso Not 處方清單_dgv.Rows(x - 1).Cells(0).Value Is Nothing AndAlso
                   處方清單_dgv.Rows(x).Cells(0).Value.ToString <> 處方清單_dgv.Rows(x - 1).Cells(0).Value.ToString Then : c += 1 : p(c) = x
            End If
        Next : c += 1 : p(c) = 處方清單_dgv.Rows.Count : ReDim Preserve p(c)                                                         ' 確保最後一組範圍正確
        If c = 1 Then : For z As Integer = 0 To 處方清單_dgv.Rows.Count - 1 : 處方清單_dgv.Rows(z).DefaultCellStyle.BackColor = colorArray(1) : Next : Else
            For cc As Integer = 0 To c - 1                                                                                           ' 修正範圍
                Dim startIdx As Integer = p(cc) : Dim endIdx As Integer = If(cc + 1 < c, p(cc + 1) - 1, 處方清單_dgv.Rows.Count - 1)
                For z As Integer = startIdx To endIdx : 處方清單_dgv.Rows(z).DefaultCellStyle.BackColor = colorArray(cc Mod 5) : Next
            Next
        End If
        建立日期_lb.Text = "" : 片数_lb.Text = "" : 选级_lb.Text = "" : 流程卡号_lb.Text = "" : 重量_lb.Text = "" : 平均_lb.Text = ""
    End Sub
    Private Sub Frm_00HF_Retan_Rcp_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = FrmMDI : Me.WindowState = 2 : Me.AutoScroll = True
        FrmMDI.WindowState = FormWindowState.Maximized : Panel1.SendToBack()
        dgv2.CausesValidation = False : Button17.Visible = False
        建立日期_lb.Text = "" : 片数_lb.Text = "" : 选级_lb.Text = ""
        流程卡号_lb.Text = "" : 重量_lb.Text = "" : 平均_lb.Text = ""
        colorArray(0) = Color.FromName("Aquamarine") : colorArray(1) = Color.FromName("azure") : colorArray(2) = Color.FromName("beige")
        colorArray(3) = Color.FromName("gainsboro") : colorArray(4) = Color.FromName("LightBlue") : colorArray(5) = Color.FromName("LightSalmon")
    End Sub
    Private Sub Frm_00HF_Retan_Rcp_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Application.DoEvents()
        SQL_HT_RetanRcp時間整理() : Set_清單1("")
        isMaximized = True : originalLocation = 處方_dgv.Location : originalSize = 處方_dgv.Size
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If 模式通知_lb.Visible = True Then : 模式通知_lb.Visible = False : Else : 模式通知_lb.Visible = True : End If
    End Sub
    Private Sub 處方清單_sgv_CellMouseUp(sender As Object, e As DataGridViewCellMouseEventArgs) Handles 處方清單_dgv.CellMouseUp
        模式通知_lb.ForeColor = Color.Red : Timer1.Enabled = False
        單寧_tb.Text = "" : 烤膠_bt.Text = "" : 油脂_tb.Text = "" : 染料_tb.Text = "" : 助劑_tb.Text = "" : 丙烯酸_tb.Text = "" : 复鞣剂_tb.Text = ""
        Dim 位置 As Integer = 處方清單_dgv.CurrentRow.Index
        品名_lb.Text = 處方清單_dgv.Rows(位置).Cells("品名").Value.ToString : 開削_lb.Text = "开削" & 處方清單_dgv.Rows(位置).Cells("开削").Value.ToString
        片数_lb.Text = 處方清單_dgv.Rows(位置).Cells("片数").Value.ToString & " P" : 选级_lb.Text = 處方清單_dgv.Rows(位置).Cells("选级").Value.ToString
        重量_lb.Text = 處方清單_dgv.Rows(位置).Cells("重量").Value.ToString & " KG" : 平均_lb.Text = 處方清單_dgv.Rows(位置).Cells("平均").Value.ToString & " KG"
        建立日期_lb.Text = Strings.Format(處方清單_dgv.Rows(位置).Cells("日期").Value, "yyyy-DD-mm")
        流程卡号_lb.Text = 處方清單_dgv.Rows(位置).Cells("流程卡号").Value.ToString
        Set_處方明細()
    End Sub
    Private Sub Set_處方明細()
        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.CellSelect
        SQL_染色處方(處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("品名").Value, 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("日期").Value,
                     處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("选级").Value, 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("表格编号").Value)
        da.Fill(ds1) : 處方_dgv.DataSource = ds1.Tables(0) : conn.Close()
        For i As Integer = 0 To 處方_dgv.Columns.Count - 1 : 處方_dgv.Columns(i).ReadOnly = True : Next
        For I As Integer = 0 To 處方_dgv.Rows.Count - 1
            處方_dgv.Rows(I).Cells("標記1").Value = "" : 處方_dgv.Rows(I).Cells("標記2").Value = "" : 處方_dgv.Rows(I).Cells("標記3").Value = ""
            處方_dgv.Rows(I).Cells("標記4").Value = "" : 處方_dgv.Rows(I).Cells("標記5").Value = ""
        Next
        set_grid1() : cal_cost1()
        處方_dgv.Columns("用量").DefaultCellStyle.Format = "#,##0.00"
        處方_dgv.Columns("用量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 計算(25.4)
    End Sub
    Private Sub 化工分类_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 化工分类_ch.Click
        If 化工分类_ch.Checked = False Then : 化工分类_ch.Checked = False : Else : 化工分类_ch.Checked = True : End If : set_grid1()
    End Sub
    Private Sub 系统代码_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 系统代码_ch.Click
        If 系统代码_ch.Checked = False Then : 系统代码_ch.Checked = False : Else : 系统代码_ch.Checked = True : End If : set_grid1()
    End Sub
    Private Sub 类别_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 类别_ch.Click
        If 类别_ch.Checked = False Then : 类别_ch.Checked = False : Else : 类别_ch.Checked = True : End If : set_grid1()
    End Sub
    Private Sub 进货单价_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 进货单价_ch.Click
        If 进货单价_ch.Checked = False Then : 进货单价_ch.Checked = False : Else : 进货单价_ch.Checked = True : End If : set_grid1()
    End Sub
    Private Sub zdhc_code_ch_CheckedChanged(sender As Object, e As EventArgs) Handles zdhc_code_ch.Click
        If zdhc_code_ch.Checked = False Then : zdhc_code_ch.Checked = False : Else : zdhc_code_ch.Checked = True : End If : set_grid1()
    End Sub
    Private Sub 系统分类_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 系统分类_ch.Click
        If 系统分类_ch.Checked = False Then : 系统分类_ch.Checked = False : Else : 系统分类_ch.Checked = True : End If : set_grid1()
    End Sub
    Private Sub 系统品名_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 系统品名_ch.Click
        If 系统品名_ch.Checked = False Then : 系统品名_ch.Checked = False : Else : 系统品名_ch.Checked = True : End If : set_grid1()
    End Sub
    Private Sub set_grid1()
        處方_dgv.Columns(0).FillWeight = 80 : 處方_dgv.Columns(1).FillWeight = 200 : 處方_dgv.Columns(2).FillWeight = 120
        處方_dgv.Columns(3).FillWeight = 80 : 處方_dgv.Columns(4).FillWeight = 80 : 處方_dgv.Columns(5).FillWeight = 80
        處方_dgv.Columns(6).FillWeight = 200 : 處方_dgv.Columns("系统品名").FillWeight = 300
        處方_dgv.Columns("系统代码").FillWeight = 100 : For x As Integer = 7 To 16 : 處方_dgv.Columns(x).Visible = False : Next
        處方_dgv.Columns("化工分类").Visible = 化工分类_ch.Checked : 處方_dgv.Columns("类别").Visible = 类别_ch.Checked
        處方_dgv.Columns("zdhc_code").Visible = zdhc_code_ch.Checked : 處方_dgv.Columns("系统品名").Visible = 系统品名_ch.Checked
        處方_dgv.Columns("系统代码").Visible = 系统代码_ch.Checked : 處方_dgv.Columns("进货单价").Visible = 进货单价_ch.Checked
        處方_dgv.Columns("系统分类").Visible = 系统分类_ch.Checked
        處方_dgv.Columns("標記1").Visible = False : 處方_dgv.Columns("標記2").Visible = False : 處方_dgv.Columns("標記3").Visible = False
        處方_dgv.Columns("標記4").Visible = False : 處方_dgv.Columns("標記5").Visible = False
    End Sub
    Private Sub cal_cost1()
        Dim selectedRowIndex As Integer = 處方清單_dgv.CurrentCell.RowIndex                                                   ' 获取 DataGridView1 中当前选中行的索引
        Dim weight As Double = Convert.ToDouble(處方清單_dgv.Rows(selectedRowIndex).Cells("重量").Value)                      ' 获取 DataGridView1 中选中行的 "重量"
        If Not 處方_dgv.DataSource Is Nothing Then                                                                            ' 在 DataGridView2 的 DataTable 中添加一列用于存储“金额小计”
            Dim dt2 As DataTable = CType(處方_dgv.DataSource, DataTable)
            If Not dt2.Columns.Contains("用量") Then : dt2.Columns.Add("用量", GetType(Double)) : End If                  ' 检查是否已添加过金额小计列
            For Each row As DataRow In dt2.Rows                                                                               ' 遍历 DataGridView2 中的每一行，计算金额小计
                Dim percentage As Double = Convert.ToDouble(row("百分比"))                                                    ' 获取 DataGridView2 中的百分比和进货单价
                Dim purchasePrice As Double = 0
                If Not IsDBNull(row("进货单价")) Then : purchasePrice = Convert.ToDouble(row("进货单价")) : End If            ' 检查进货单价是否为 DBNull
                If purchasePrice > 0 Then                                                                                     ' 如果进货单价有效，计算金额小计
                    Dim amount As Double = weight * purchasePrice * percentage / 100 : row("用量") = amount                 ' 将金额小计添加到该行
                Else : row("用量") = 0 : End If                                                                             ' 如果进货单价无效，则设置金额小计为 0
            Next
        End If
        Dim groupedData = From row In 處方_dgv.Rows.Cast(Of DataGridViewRow)()                                               ' 使用 LINQ 进行 Group By 操作，并按化工分类汇总百分比和金额小计
                          Group row By category = row.Cells("系统分类").Value.ToString() Into Group
                          Select category, TotalPercentage1 = Group.Sum(Function(r) Convert.ToDouble(r.Cells("百分比").Value)),
                                           TotalAmount1 = Group.Sum(Function(r) Convert.ToDouble(r.Cells("用量").Value))
        groupedData = groupedData.OrderBy(Function(item) item.category).ToList()
        Dim newDataTable As New DataTable()                                                                                   ' 创建一个新的 DataTable 来存储汇总结果
        newDataTable.Columns.Add("分类", GetType(String))                                                                     ' 分类
        newDataTable.Columns.Add("百分比", GetType(Double))                                                                   ' 汇总的百分比
        newDataTable.Columns.Add("小计", GetType(Double))                                                                     ' 汇总的金额小计
        For Each item In groupedData                                                                                          ' 将汇总数据添加到 DataTable
            Dim newRow As DataRow = newDataTable.NewRow() : newRow("分类") = item.category
            newRow("百分比") = Math.Round(item.TotalPercentage1, 1) : newRow("小计") = Math.Floor(item.TotalAmount1)          ' 保留整数  ' 保留1位小数
            newDataTable.Rows.Add(newRow)
        Next
        Dim totalPercentage As Double = groupedData.Where(Function(g) g.category <> "").Sum(Function(g) g.TotalPercentage1)   ' 计算总百分比和总金额，排除 "水" 分类
        Dim totalAmount As Double = groupedData.Where(Function(g) g.category <> "").Sum(Function(g) g.TotalAmount1)
        Dim totalRow As DataRow = newDataTable.NewRow()                                                                       ' 添加总汇总行
        totalRow("分类") = "Total"
        totalRow("百分比") = Math.Round(totalPercentage, 1)                                                                   ' 保留1位小数
        totalRow("小计") = Math.Floor(totalAmount) : newDataTable.Rows.Add(totalRow)                                          ' 保留整数
        合計_dgv.DataSource = newDataTable : 合計_dgv.ReadOnly = True                                                         ' 将结果绑定到 DataGridView3
        合計_dgv.Columns("小计").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 合計_dgv.Columns("小计").DefaultCellStyle.Format = "N0"
        合計_dgv.Columns("百分比").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 合計_dgv.Columns("百分比").DefaultCellStyle.Format = "N1"
        合計_dgv.Columns("分类").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dim 最後 As Integer = 合計_dgv.Rows.Count - 2 : 合計_dgv.Rows(最後).DefaultCellStyle.ForeColor = Color.Red            ' 设置最后一行的字体颜色为红色
    End Sub
    Private Sub 處方_dgv_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles 處方_dgv.RowPostPaint
        If e.RowIndex + 1 > 處方_dgv.Rows.Count - 1 Then Exit Sub
        If 處方_dgv.Rows(e.RowIndex).Cells("化料名称").Value.ToString = "PF" Then : Dim aa As String : aa = "" : End If
        If 處方_dgv.Rows(e.RowIndex + 1).Cells("化料名称").Value Is Nothing Then Exit Sub
        If Microsoft.VisualBasic.Trim(處方_dgv.Rows(e.RowIndex).Cells("zdhc_code").Value.ToString) = "" And
            處方_dgv.Rows(e.RowIndex).Cells("系统分类").Value.ToString <> "基础材料" And Not (處方_dgv.Rows(e.RowIndex).Cells("化料名称").Value.ToString Like "水*") Then
            處方_dgv.Rows(e.RowIndex).Cells("化工分类").Style.BackColor = Color.LightBlue
        End If
        If 處方_dgv.Rows(e.RowIndex).Cells("標記1").Value.ToString = "1" Then
            處方_dgv.Rows(e.RowIndex).Cells("项次").Style.BackColor = Color.OrangeRed
        Else : 處方_dgv.Rows(e.RowIndex).Cells("项次").Style.BackColor = Color.White : End If
        If 處方_dgv.Rows(e.RowIndex).Cells("標記2").Value.ToString = "1" Then
            處方_dgv.Rows(e.RowIndex).Cells("化料名称").Style.BackColor = Color.OrangeRed
        Else : 處方_dgv.Rows(e.RowIndex).Cells("化料名称").Style.BackColor = Color.White : End If
        If 處方_dgv.Rows(e.RowIndex).Cells("標記3").Value.ToString = "1" Then
            處方_dgv.Rows(e.RowIndex).Cells("百分比").Style.BackColor = Color.OrangeRed
        Else : 處方_dgv.Rows(e.RowIndex).Cells("百分比").Style.BackColor = Color.White : End If
        If 處方_dgv.Rows(e.RowIndex).Cells("標記4").Value.ToString = "1" Then
            處方_dgv.Rows(e.RowIndex).Cells("时间").Style.BackColor = Color.OrangeRed
        Else : 處方_dgv.Rows(e.RowIndex).Cells("时间").Style.BackColor = Color.White : End If
        If 處方_dgv.Rows(e.RowIndex).Cells("標記5").Value.ToString = "1" Then
            處方_dgv.Rows(e.RowIndex).Cells("备注").Style.BackColor = Color.OrangeRed
        Else : 處方_dgv.Rows(e.RowIndex).Cells("备注").Style.BackColor = Color.White : End If
        Dim linePen As New Pen(Color.Red, 2)
        If e.RowIndex = 處方_dgv.Rows.Count - 1 Then
            Dim startX As Integer = IIf(處方_dgv.RowHeadersVisible, 處方_dgv.RowHeadersWidth, 0)
            Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
            Dim endX As Integer = startX + 處方_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 處方_dgv.HorizontalScrollingOffset - 10
            e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
        End If
        If 處方_dgv.Rows(e.RowIndex).Cells("时间").Value.ToString <> "" Then
            Dim startX As Integer = IIf(處方_dgv.RowHeadersVisible, 處方_dgv.RowHeadersWidth, 0)
            Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
            Dim endX As Integer = startX + 處方_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 處方_dgv.HorizontalScrollingOffset - 10
            e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
        End If
    End Sub
    Private Sub 處方縮放_bt_Click(sender As Object, e As EventArgs) Handles 處方縮放_bt.Click
        Application.DoEvents()
        If 處方_dgv.DataSource Is Nothing Then : MsgBox("数据为空") : Exit Sub : End If
        If isMaximized = False Then
            處方_dgv.Location = originalLocation : 處方_dgv.Size = New Size(771, SplitContainer1.Height)           ' 恢复原始位置和大小  771, 897
            處方縮放_bt.Text = "放大" : isMaximized = True                                                         ' 更新状态标记为恢复
            查詢_bt.Enabled = True : 存檔_bt.Enabled = True : 刪除工藝_bt.Enabled = True : 另存工藝_bt.Enabled = True
            化工分类_ch.Checked = False : 类别_ch.Checked = False : zdhc_code_ch.Checked = False : 系统品名_ch.Checked = False
            系统代码_ch.Checked = False : 进货单价_ch.Checked = False : 系统分类_ch.Checked = False : set_grid1()
        Else
            處方_dgv.Location = New Point(2, 90)                                                                   ' 移动到左上角
            處方_dgv.Size = New Size(1669, SplitContainer1.Height)                                                 ' 设置为放大后的大小
            處方縮放_bt.Text = "恢复" : isMaximized = False                                                        ' 更新状态标记为放大
            查詢_bt.Enabled = False : 存檔_bt.Enabled = False : 刪除工藝_bt.Enabled = False : 另存工藝_bt.Enabled = False
            化工分类_ch.Checked = True : 类别_ch.Checked = True : zdhc_code_ch.Checked = True : 系统品名_ch.Checked = True
            系统代码_ch.Checked = True : 进货单价_ch.Checked = True : 系统分类_ch.Checked = True : set_grid1()
        End If : 處方_dgv.BringToFront()
    End Sub
    Private Sub 計算_bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 計算_bt.Click '计算成本
        計算(InputBox("请输入平均尺数", "输入平均尺数"))
    End Sub
    Private Sub 計算(userInput)
        Dim avgSize As Double
        平均尺数_tb.Text = userInput : Dim pieces As Integer
        If 處方清單_dgv.Rows(處方清單_dgv.CurrentCell.RowIndex).Cells("片数").Value.ToString = "" Then
            If 處方清單_dgv.Rows(處方清單_dgv.CurrentCell.RowIndex).Cells("重量").Value <> "0" Then
                pieces = CInt(處方清單_dgv.Rows(處方清單_dgv.CurrentCell.RowIndex).Cells("重量").Value) / 4.5
            ElseIf 處方清單_dgv.Rows(處方清單_dgv.CurrentCell.RowIndex).Cells("重量").Value = "0" Then
                pieces = 1
            End If
        Else : pieces = 處方清單_dgv.Rows(處方清單_dgv.CurrentCell.RowIndex).Cells("片数").Value : End If

        If Double.TryParse(userInput, avgSize) AndAlso avgSize > 0 Then                                                            ' 检查输入是否有效
            Dim dt3 As New DataTable : Dim dt4 As New DataTable                                                                    ' 创建一个新的 DataTable 来存储计算结果
            dt3 = DirectCast(合計_dgv.DataSource, DataTable)                                                                       ' 获取 DataGridView2 的数据源并创建副本
            dt4 = dt3.Copy()                                                                                                       ' 创建 dt3 的副本
            For x As Integer = 0 To dt4.Rows.Count - 1                                                                             ' 假设 pieces 和 userInput 已经赋值
                dt4.Rows(x).Item(2) = dt4.Rows(x).Item(2) / (pieces * userInput)                                                   ' 对副本 dt4 进行修改
            Next
            每尺合計_dgv.DataSource = dt4                                                                                                  ' 将修改后的结果绑定到 dgv3
            每尺合計_dgv.Columns("小计").DefaultCellStyle.Format = "N2" : 每尺合計_dgv.Columns("百分比").DefaultCellStyle.Format = "N1"
            每尺合計_dgv.Columns("分类").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            每尺合計_dgv.Columns("小计").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            每尺合計_dgv.Columns("百分比").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            Dim lastRowIndex As Integer = 每尺合計_dgv.Rows.Count - 2 : 每尺合計_dgv.Rows(lastRowIndex).DefaultCellStyle.ForeColor = Color.Red     ' 设置最后一行的字体颜色为红色
        Else : MessageBox.Show("请输入有效的数字", "无效输入", MessageBoxButtons.OK, MessageBoxIcon.Warning) : End If
    End Sub
    Private Sub 插入一行_bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 插入一行_bt.Click
        gMsg = MsgBox("要插入前方列請按--是" & vbCrLf & "要插入後方列請按--否" & vbCrLf & "或按取消離開", MsgBoxStyle.YesNoCancel)
        模式通知_lb.Text = "修改模式" : Timer1.Enabled = True
        If gMsg <> MsgBoxResult.Cancel Then : FrmEditChem_Choose.ShowDialog()
            set_grid1() : cal_cost1() : 修改存檔_bt.Visible = True
        End If
    End Sub
    Private Sub 修改指定_bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改指定_bt.Click
        'If 處方_dgv.SelectedRows.Count = 0 Then : MsgBox("請先選擇要修改的項目") : Exit Sub : End If
        模式通知_lb.Text = "修改模式" : Timer1.Enabled = True
        Dim f2 As New FrmEditChem_Choose : f2.Owner = Me : f2.ShowDialog()
        修改存檔_bt.Visible = True : cmdCancelEdit.Visible = True
        If my_chem = Nothing Then : Else : 處方_dgv.Rows(處方_dgv.CurrentRow.Index).Cells("化料名称").Value = my_chem : End If
        處方_dgv.Focus() : cal_cost1()
    End Sub
    Private Sub 刪除一行_bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 刪除一行_bt.Click
        If Not (處方_dgv.Rows(處方_dgv.CurrentRow.Index).DefaultCellStyle.Font Is Nothing) Then
            If 處方_dgv.Rows(處方_dgv.CurrentRow.Index).DefaultCellStyle.Font.Style = FontStyle.Strikeout Then
                處方_dgv.Rows(處方_dgv.CurrentRow.Index).DefaultCellStyle.Font = New Font(處方_dgv.DefaultCellStyle.Font, FontStyle.Regular)
            Else : 處方_dgv.Rows(處方_dgv.CurrentRow.Index).DefaultCellStyle.Font = New Font(處方_dgv.DefaultCellStyle.Font, FontStyle.Strikeout) : End If
        Else : 處方_dgv.Rows(處方_dgv.CurrentRow.Index).DefaultCellStyle.Font = New Font(處方_dgv.DefaultCellStyle.Font, FontStyle.Strikeout) : End If
        模式通知_lb.Text = "修改模式" : Timer1.Enabled = True : 模式通知_lb.ForeColor = Color.Red
        修改存檔_bt.Visible = True : cmdCancelEdit.Visible = True
    End Sub
    Private Sub 修改存檔_bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改存檔_bt.Click
        Dim result As DialogResult = MessageBox.Show("存档后将会覆盖之前的的染色工艺请确认是否进行存档?", "请选择", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If result = DialogResult.Yes Then
            '-------------先讀取必要條件----------------------------------------
            Dim no1, name1, date1, spec1, weight1, selection1, rcp_no1 As String : Dim 化料 As String : Dim 百分比 As String
            Dim 時間 As String : Dim 備註 As String : Dim 項次 As Integer = 1
            no1 = "" : name1 = "" : date1 = "" : spec1 = "" : weight1 = "" : selection1 = "" : rcp_no1 = ""
            Dim 品名 As String = 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("品名").Value.ToString
            Dim 日期 As String = Strings.Format(處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("日期").Value, "yyyy-MM-dd")
            Dim 选级 As String = 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("选级").Value.ToString
            Dim 表格编号 As String = 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("表格编号").Value.ToString
            SQL_染色處方條件讀取(品名, 日期, 选级, 表格编号)
            If dr.Read Then
                no1 = dr("no").ToString : name1 = dr("name").ToString : date1 = Convert.ToDateTime(dr("date")).ToString("yyyy-MM-dd")
                spec1 = dr("spec").ToString : weight1 = dr("weight").ToString : selection1 = dr("selection").ToString : rcp_no1 = dr("rcp_no").ToString
            End If
            '-------------刪除原本的處方----------------------------------------
            SQL_染色處方刪除(品名, 日期, 选级, 表格编号)
            '-------------將新的處方存檔----------------------------------------
            Dim sqlInsert As New Text.StringBuilder() : Dim hasData As Boolean = False ' 是否有要寫入的資料
            For i As Integer = 0 To 處方_dgv.Rows.Count - 1
                化料 = 處方_dgv.Rows(i).Cells("化料名称").Value.ToString()
                百分比 = 處方_dgv.Rows(i).Cells("百分比").Value.ToString()
                時間 = 處方_dgv.Rows(i).Cells("时间").Value.ToString()
                備註 = 處方_dgv.Rows(i).Cells("备注").Value.ToString()
                Dim cellFont As Font = 處方_dgv.Rows(i).DefaultCellStyle.Font
                If cellFont Is Nothing OrElse cellFont.Style <> FontStyle.Strikeout Then
                    If hasData Then sqlInsert.AppendLine(",") ' 不是第一筆則加上逗號
                    sqlInsert.AppendFormat("(N'{0}', N'{1}', N'{2}', N'{3}', N'{4}', N'{5}', N'{6}', N'{7}', N'{8}', N'{9}', N'{10}', N'{11}')",
                                no1, name1, date1, spec1, weight1, selection1, 化料, 百分比, 時間, 備註, rcp_no1, 項次)
                    項次 += 1 : hasData = True
                End If
            Next : If hasData Then : SQL_染色處方新增(sqlInsert.ToString()) : End If : MsgBox("存檔完成!!") : Set_處方明細()
        End If
    End Sub
    Private Sub 領料_bt_Click(sender As Object, e As EventArgs) Handles 領料_bt.Click '领料
        Dim processCardNo As String = InputBox("请输入流程卡号：",, 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("流程卡号").Value)
        SQL_染色處方領料判斷(processCardNo)
        If dr.Read Then : MsgBox("該流程卡已經領過料!!") : Exit Sub : Else
            Dim my_chem As String = "" : conn.Close()
            For Each row As DataGridViewRow In 處方_dgv.Rows
                If row.Cells("类别").Value = "不列印" Then : Continue For : End If
                Dim cellFont As Font = row.DefaultCellStyle.Font
                If cellFont IsNot Nothing Then : Dim aa As String = "" : Dim fontStyle As FontStyle = cellFont.Style
                    If fontStyle = FontStyle.Strikeout Then : aa = "" : End If
                Else
                    If row.Cells("类别").Value = "不列印" And Not (row.Cells("化料名称").Value Like "水*") Then
                        my_chem += "项次" & row.Cells("项次").Value & " " & row.Cells("化料名称").Value & vbNewLine
                    End If
                End If
            Next
            If Microsoft.VisualBasic.Len(my_chem) > 0 Then
                MsgBox("以下化工品名有误:" & vbNewLine & vbNewLine & my_chem) : Exit Sub
            End If
            Dim 片數 As String = InputBox("请输入片数：", "", 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("片数").Value.ToString())
            Dim inputDateString As String = InputBox("请输入日期：", "", 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("日期").Value.ToString())
            Dim inputDate As Date
            If Not Date.TryParse(inputDateString, inputDate) Then
                MessageBox.Show("输入的日期格式无效，请重新输入。", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub ' 退出子程序，避免后续报错
            End If

            Dim weightString As String = InputBox("请输入重量：", "", 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("重量").Value.ToString())
            Dim weight As Double
            If Not Double.TryParse(weightString, weight) Then
                MessageBox.Show("输入的重量格式无效，请重新输入。", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub ' 退出子程序，防止后续代码执行
            End If

            ConnOpen()
            For Each row As DataGridViewRow In 處方_dgv.Rows                ' 获取每一行的数据
                Dim no As String = row.Cells("项次").Value.ToString()
                Dim chem As String = row.Cells("系统品名").Value.ToString()
                Dim percents As String = row.Cells("百分比").Value.ToString()
                Dim time As String = If(IsDBNull(row.Cells("时间").Value), "", row.Cells("时间").Value.ToString())
                Dim comment As String = row.Cells("备注").Value.ToString()
                Dim cellFont As Font = row.DefaultCellStyle.Font            ' 获取字体样式
                If cellFont IsNot Nothing Then : Else                       ' 插入数据到数据库（使用参数化查询）
                    SQL1 = "INSERT INTO ht_retan_chem_out (item, rcp_name, chem_name,chem_code,chem_weight, outdate, weight, chem_percent, time, comment,card) 
                        VALUES (@item, @rcp_name, @chem_name,@chem_code,@chem_weight, @out_date, @weight,  @percents, @time, @comment,@card)"
                    cmd.CommandText = SQL1 : cmd.Parameters.Clear()
                    cmd.Parameters.AddWithValue("@item", no) ' 使用行号作为 item
                    cmd.Parameters.AddWithValue("@rcp_name", 處方清單_dgv.Rows(處方清單_dgv.CurrentCell.RowIndex).Cells("品名").Value)
                    cmd.Parameters.AddWithValue("@chem_name", chem)
                    cmd.Parameters.AddWithValue("@chem_code", row.Cells("系统代码").Value)
                    cmd.Parameters.AddWithValue("@chem_weight", weight * row.Cells("百分比").Value / 100)
                    cmd.Parameters.AddWithValue("@out_date", inputDate)
                    cmd.Parameters.AddWithValue("@weight", weight)
                    cmd.Parameters.AddWithValue("@percents", percents)
                    cmd.Parameters.AddWithValue("@time", If(time = "", DBNull.Value, time)) ' 如果 time 为空，插入 DBNull
                    cmd.Parameters.AddWithValue("@comment", comment)
                    cmd.Parameters.AddWithValue("@card", processCardNo & " " & 片數 & "P")
                    cmd.ExecuteNonQuery()  ' 执行插入操作
                End If
            Next : MessageBox.Show("数据已成功保存！", "成功", MessageBoxButtons.OK, MessageBoxIcon.Information) : conn.Close()
        End If
    End Sub
    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
        Set_清單1("")
    End Sub
    Private Sub 打印工藝_bt_Click_1(sender As Object, e As EventArgs) Handles 打印工藝_bt.Click
        Dim xlApp As Excel.Application : Dim xlBook As Excel.Workbook : Dim xlSheet As Excel.Worksheet
        Dim my_card As String = InputBox("请输入卡号", "询问", 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("流程卡号").Value)
        If my_card = "" Then Exit Sub
        Dim my_weight As String = InputBox("请输入重量", "询问", 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("重量").Value)
        Dim userInput As Double : If Double.TryParse(my_weight, userInput) Then : Else : MsgBox("请输入有效的数字!") : Exit Sub : End If
        Dim my_selection As String = InputBox("请输入选级", "询问", 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("选级").Value)
        my_card = my_card : Dim d_no As String = InputBox("请输入鼓号", "询问")

        xlApp = CreateObject("Excel.Application") : xlBook = xlApp.Workbooks.Add : xlApp.DisplayAlerts = False : xlBook.Activate()
        xlBook.Parent.Windows(1).Visible = True : xlSheet = xlBook.Worksheets.Add : xlSheet.Activate() : xlApp.Visible = True
        xlApp.Application.ScreenUpdating = False : editFormat(xlApp, xlSheet) : xlApp.Visible = False

        xlSheet.Cells(1, 1) = "流程卡号" : xlSheet.Cells(2, 1) = "打印日期" : xlSheet.Cells(3, 1) = "皮源" : xlSheet.Cells(1, 7) = "工艺名稱"
        xlSheet.Cells(2, 6) = "規格" : xlSheet.Cells(2, 10) = "鼓号" : xlSheet.Cells(1, 12) = "染色日期" : xlSheet.Cells(2, 12) = "重量"
        xlSheet.Cells(3, 7) = "备注" : xlSheet.Cells(2, 12) = "重量" : xlSheet.Cells(3, 4) = comment : xlSheet.Cells(2, 4) = String.Format("{0:d}", DateTime.Now)
        xlSheet.Cells(1, 10) = cust & " " & color1 & "--" & 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("品名").Value
        xlSheet.Cells(2, 7) = thickness : xlSheet.Cells(2, 11) = d_no : xlSheet.Cells(2, 14) = userInput & " 公斤" : xlSheet.Cells(1, 4) = my_card
        xlSheet.Cells(3, 4) = source : xlSheet.Cells(3, 10) = comment : xlSheet.Cells(5, 3) = "百分比" : xlSheet.Cells(5, 5) = "用量(Kgs)"
        xlSheet.Cells(5, 6) = "化    料    名    稱" : xlSheet.Cells(5, 9) = "时间" : xlSheet.Cells(5, 11) = "備註"

        xlSheet.Rows("5:5").Select() : xlApp.Selection.Font.Underline = xlUnderlineStyleSingle
        For i As Integer = 0 To 處方_dgv.Rows.Count - 1
            xlSheet.Cells(i + 6, 1) = Val(處方_dgv.Rows(i).Cells("项次").Value)
            xlSheet.Cells(i + 6, 3) = Math.Round(Val(處方_dgv.Rows(i).Cells("百分比").Value), 2)
            xlSheet.Cells(i + 6, 4) = "%"
            xlSheet.Cells(i + 6, 5) = Math.Round(處方_dgv.Rows(i).Cells("百分比").Value * userInput / 100, 2)
            xlSheet.Cells(i + 6, 6) = 處方_dgv.Rows(i).Cells("化料名称").Value
            xlSheet.Cells(i + 6, 9) = 處方_dgv.Rows(i).Cells("时间").Value
            xlSheet.Cells(i + 6, 11) = 處方_dgv.Rows(i).Cells("备注").Value
            xlSheet.Cells(i + 6, 10).Select()
            With xlApp.Selection : .Font.Bold = True : End With
            If 處方_dgv.Rows(i).Cells("化料名称").Value = "流水洗" Or 處方_dgv.Rows(i).Cells("化料名称").Value = "洗水" Or
                處方_dgv.Rows(i).Cells("化料名称").Value = "排水" Or 處方_dgv.Rows(i).Cells("化料名称").Value = "轉動" Or
                處方_dgv.Rows(i).Cells("化料名称").Value = "自動過夜" Or 處方_dgv.Rows(i).Cells("化料名称").Value = "停止" Then
                xlSheet.Rows(i + 5 & ":" & i + 5).Select() : With xlApp.Selection.Borders(xlEdgeBottom) : .LineStyle = xlNone : End With
                xlSheet.Rows(i + 6 & ":" & i + 6).Select() : With xlApp.Selection.Borders(xlEdgeBottom) : .LineStyle = xlDash : .Weight = xlHairline : End With
                xlSheet.Cells(i + 6, 3) = "" : xlSheet.Cells(i + 6, 4) = "" : xlSheet.Cells(i + 6, 5) = ""
            End If
            If 處方_dgv.Rows(i).Cells("时间").Value.ToString <> "" Then
                xlSheet.Rows(i + 6 & ":" & i + 6).Select() : With xlApp.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMaximum : End With
            End If
        Next i
        Dim a As Integer = xlApp.Workbooks(1).Worksheets(1).UsedRange.Rows.Count : Dim b As Integer = xlApp.Workbooks(1).Worksheets(1).UsedRange.Columns.Count
        Dim area As String = "A4" & ":" & Chr(b + 64) & a
        xlSheet.Range(area).Font.Size = 10 : xlSheet.Range(area).Font.Name = "Times New Roman" : xlApp.Selection.Font.Name = "Times New Roman"
        xlSheet.Columns("A:O").Select()
        With xlApp.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = XlReadingOrder.xlContext
        End With
        xlSheet.Cells(3, 4).Select() : With xlApp.Selection : .HorizontalAlignment = xlLeft : End With
        For x As Integer = 6 To a
            If xlSheet.Cells(x, 9).value Is Nothing And xlSheet.Cells(x, 6).value Is Nothing Then : xlSheet.Rows(x).RowHeight = 3 : Else : xlSheet.Rows(x).RowHeight = 18 : End If
        Next x
        xlSheet.Range("a:a").HorizontalAlignment = xlCenter : xlSheet.Range("c:c").HorizontalAlignment = xlRight
        xlSheet.Range("e:e ").HorizontalAlignment = xlCenter : xlSheet.Range("g:g").HorizontalAlignment = xlCenter
        xlSheet.Range("c:c").NumberFormatLocal = "G/通用格式" : With xlApp.ActiveSheet.PageSetup : .PrintTitleRows = "" : .PrintTitleColumns = "" : End With
        xlSheet.PageSetup.PrintArea = ""
        With xlApp.ActiveSheet.PageSetup : .TopMargin = xlApp.InchesToPoints(0.2) : .BottomMargin = xlApp.InchesToPoints(0) : .LeftMargin = xlApp.InchesToPoints(0)
            .RightMargin = xlApp.InchesToPoints(0) : .HeaderMargin = xlApp.InchesToPoints(0.511811023622047) : .FooterMargin = xlApp.InchesToPoints(0.511811023622047)
            .Zoom = False : .FitToPagesWide = 1 : .FitToPagesTall = 1 : .PrintErrors = xlPrintErrorsDisplayed
        End With
        xlApp.Cells.Select() : With xlApp.Selection.Font : .Name = "Times New Roman" : End With
        xlSheet.Range("f:f").HorizontalAlignment = xlLeft : xlSheet.Range("j:j").HorizontalAlignment = xlLeft
        xlSheet.Range("a1:o3").HorizontalAlignment = xlCenter : xlApp.Visible = True : xlApp.Application.ScreenUpdating = True
        MsgBox("打印完成!!")
    End Sub
    Private Sub editFormat(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
        xlSheet.Columns("A:A").ColumnWidth = 3 : xlSheet.Columns("B:B").ColumnWidth = 1 : xlSheet.Columns("C:C").ColumnWidth = 8
        xlSheet.Columns("D:D").ColumnWidth = 1.5 : xlSheet.Columns("e:e").ColumnWidth = 9.63 : xlSheet.Columns("f:f").ColumnWidth = 14.25
        xlSheet.Columns("g:g").ColumnWidth = 3 : xlSheet.Columns("h:h").ColumnWidth = 3 : xlSheet.Columns("i:i").ColumnWidth = 3
        xlSheet.Columns("j:j").ColumnWidth = 10 : xlSheet.Columns("k:k").ColumnWidth = 10 : xlSheet.Columns("l:l").ColumnWidth = 4.5
        xlSheet.Columns("m:m").ColumnWidth = 4.5 : xlSheet.Columns("n:n").ColumnWidth = 8.25 : xlSheet.Columns("o:o").ColumnWidth = 6
        xlSheet.Range("A1:C1").Merge()                                      '-------流程卡号-------
        xlSheet.Range("A1:C1").Borders(xlDiagonalDown).LineStyle = xlNone : xlSheet.Range("A1:C1").Borders(xlDiagonalUp).LineStyle = xlNone
        With xlSheet.Range("A1:C1").Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With xlSheet.Range("A1:C1").Borders(xlEdgeTop) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With xlSheet.Range("A1:C1").Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With xlSheet.Range("A1:C1").Borders(xlEdgeRight) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        xlSheet.Range("A2:C2").Select() : myExcel.Selection.Merge()         '-------打印日期-------
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        xlSheet.Range("A3:C3").Select() : myExcel.Selection.Merge()         '-------皮源-------
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        xlSheet.Range("d1:f1").Select() : myExcel.Selection.Merge()         '-------流程卡号1-------
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        xlSheet.Range("d2:e2").Select() : myExcel.Selection.Merge()         '-------打印日期1-------
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        xlSheet.Range("f2:f2").Select() : myExcel.Selection.Merge()         '-------规格1-------
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        xlSheet.Range("j2:j2").Select() : myExcel.Selection.Merge()         '--------鼓号1
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        xlSheet.Range("d3:f3").Select() : myExcel.Selection.Merge()         '-------皮源
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        xlSheet.Range("g3:i3").Select() : myExcel.Selection.Merge() '-------备注
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        xlSheet.Range("j3:o3").Select() : myExcel.Selection.Merge() '-------备注
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        xlSheet.Range("g1:i1").Select() : myExcel.Selection.Merge() '--------工艺名称
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        xlSheet.Range("g2:i2").Select() : myExcel.Selection.Merge() '-------规格1
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        xlSheet.Range("j1:o1").Select() : myExcel.Selection.Merge() '------工艺名称1
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        xlSheet.Range("J2:j2").Select() '------
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        xlSheet.Range("k2:K2").Select() '------
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        xlSheet.Range("l2:m2").Select() : myExcel.Selection.Merge() '----------重量
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        xlSheet.Range("n1:o1").Select() : myExcel.Selection.Merge() '--------
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        xlSheet.Range("n2:o2").Select() : myExcel.Selection.Merge() '-------重量
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .Weight = xlMedium : .ColorIndex = xlAutomatic : End With
    End Sub
    Private Sub 打印標籤_bt_Click_1(sender As Object, e As EventArgs) Handles 打印標籤_bt.Click
        Dim my_card As String : Dim my_weight As Double : Dim d_no As String
        Do
            my_card = InputBox("请输入卡号：", "查询", 處方清單_dgv.Rows(處方清單_dgv.CurrentCell.RowIndex).Cells(4).Value)
            If my_card = "" Then : MsgBox("操作已取消。", vbInformation, "退出") : Exit Sub                            ' 立即退出子程序
            ElseIf my_card = "" Then : MsgBox("请重新输入！", vbExclamation, "错误") : Else : Exit Do
            End If
        Loop
        Do                                                                                                             ' 验证重量输入
            Dim weightInput As String
            weightInput = InputBox("请输入重量：", "查询", 處方清單_dgv.Rows(處方清單_dgv.CurrentCell.RowIndex).Cells(3).Value)
            If weightInput = "" Then : MsgBox("操作已取消。", vbInformation, "退出") : Exit Sub
            ElseIf Not IsNumeric(weightInput) Then : MsgBox("重量必须是数字，请重新输入！", vbExclamation, "错误")
            ElseIf CDbl(weightInput) <= 0 Then : MsgBox("重量必须大于0，请重新输入！", vbExclamation, "错误")
            Else : my_weight = CDbl(weightInput) : Exit Do : End If
        Loop
        Do                                                                                                              ' 验证编号输入
            d_no = InputBox("请输入编号：", "查询", 10)
            If d_no = "" Then : MsgBox("操作已取消。", vbInformation, "退出") : Exit Sub
            ElseIf d_no Like "*-*" Then
            Else : Exit Do : End If
        Loop
        Dim imagePaths As Image() = {
              My.Resources._1, My.Resources._2, My.Resources._3,
              My.Resources._4, My.Resources._5, My.Resources._6,
              My.Resources._7, My.Resources._8, My.Resources._9
              }
        Dim dataTable As New DataTable() : dataTable = 處方_dgv.DataSource
        Dim workbook As IWorkbook = New XSSFWorkbook() : Dim sheet As ISheet = workbook.CreateSheet("Chemicals")        ' 创建 Excel 工作簿
        Dim imageSheet As ISheet = workbook.CreateSheet("ImageLibrary")                                                 ' 创建隐藏的图片库工作表
        Dim drawing As IDrawing = imageSheet.CreateDrawingPatriarch()                                                   ' 加载图片到图片库
        For i As Integer = 0 To imagePaths.Length - 1
            Dim image As Image = imagePaths(i) : Dim imageBytes As Byte()                                               ' 把 Image 轉成 Byte 陣列
            Using ms As New MemoryStream()
                image.Save(ms, Imaging.ImageFormat.Jpeg) : imageBytes = ms.ToArray()
            End Using
            Dim pictureIdx As Integer = workbook.AddPicture(imageBytes, PictureType.JPEG)
            Dim anchor As IClientAnchor = workbook.GetCreationHelper().CreateClientAnchor()                             ' 插入图片到隐藏工作表
            anchor.Col1 = i + 2                                                                                         ' 每张图片占一列
            anchor.Row1 = 0
            anchor.AnchorType = AnchorType.DontMoveAndResize
            Dim picture As IPicture = drawing.CreatePicture(anchor, pictureIdx)
            picture.Resize(1)
        Next
        For col As Integer = 0 To 5 : sheet.SetColumnWidth(col, 10 * 256) : Next                                        ' 图片列宽度
        Dim currentRow As Integer = 0                                                                                   ' 初始行位置
        dataTable.DefaultView.Sort = "类别 ASC, 项次 ASC"
        Dim sortedTable As DataTable = dataTable.DefaultView.ToTable()
        ProgressBar1.Visible = True : ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = sortedTable.Rows.Count                                                                   ' 假设 dt 是一个 DataTable
        ProgressBar1.Value = 0                                                                                          ' 初始进度为 0
        For Each row As DataRow In sortedTable.Rows                                                                     ' 遍历 DataTable 的每一行
            ProgressBar1.Value += 1 : Application.DoEvents()
            If row("类别") <> "不列印" Then                                                                             '生成二维码图片
                Dim qrCodeImage As Image = MakeQrCode("http://www.ruitaileather.com:10494/" & Uri.EscapeDataString(row("filename").ToString()))
                Dim imageBytes As Byte() = ImageToByteArray(qrCodeImage)                                                ' 插入二维码图片到第4列
                Dim drawingQrCode As IDrawing = sheet.CreateDrawingPatriarch()
                Dim anchorQrCode As IClientAnchor = workbook.GetCreationHelper().CreateClientAnchor()
                anchorQrCode.Col1 = 4                                                                                   ' 第4列
                anchorQrCode.Row1 = currentRow + 7                                                                      ' 当前行
                anchorQrCode.Col2 = 5                                                                                   ' 跨1列
                anchorQrCode.Row2 = currentRow + 11                                                                     ' 占用4行
                Dim qrPictureIdx As Integer = workbook.AddPicture(imageBytes, PictureType.PNG) : Dim qrPicture As IPicture = drawingQrCode.CreatePicture(anchorQrCode, qrPictureIdx)
                qrPicture.Resize(1)                                                                                     ' 缩放二维码
                Dim rowToInsert = sheet.CreateRow(currentRow)                                                           ' 创建行并插入数据-- 只创建一行
                rowToInsert.CreateCell(0).SetCellValue($"卡号：{my_card}")                                              ' 在第 4 列插入卡号
                rowToInsert.CreateCell(4).SetCellValue($"项次：{row("项次")}")                                          ' 在第 8 列插入项次
                Dim cellStyle As ICellStyle = workbook.CreateCellStyle() : Dim font As IFont = workbook.CreateFont()
                font.FontHeightInPoints = 18 : cellStyle.SetFont(font)                                                  ' 设置字体大小为 18 ' 将字体应用到样式
                Dim row1 = sheet.CreateRow(currentRow + 1) : row1.CreateCell(0).SetCellValue($"化料名称：{row("化料名称")}")
                row1.Cells(0).CellStyle = cellStyle : sheet.AddMergedRegion(New NPOI.SS.Util.CellRangeAddress(currentRow + 1, currentRow + 1, 0, 4))
                Dim row2 = sheet.CreateRow(currentRow + 2) : row2.CreateCell(0).SetCellValue($"重量：{row("百分比") * my_weight / 100}")
                row2.CreateCell(3).SetCellValue($"{row("化工分类")}") : row2.Cells(0).CellStyle = cellStyle : row2.Cells(1).CellStyle = cellStyle
                Dim row3 = sheet.CreateRow(currentRow + 3) : row3.CreateCell(4).SetCellValue($"鼓号")
                Dim row4 = sheet.CreateRow(currentRow + 4) : row4.CreateCell(4).SetCellValue($"{d_no}")
                Dim row5 = sheet.CreateRow(currentRow + 5) : row5.CreateCell(3).SetCellValue("百分比") : row5.CreateCell(4).SetCellValue("下鼓重")
                Dim row6 = sheet.CreateRow(currentRow + 6) : row6.CreateCell(3).SetCellValue($"{row("百分比")}") : row6.CreateCell(4).SetCellValue($"{my_weight}")
                Dim row7 = sheet.CreateRow(currentRow + 10) : row7.CreateCell(1).SetCellValue($"{處方清單_dgv.Rows(處方清單_dgv.CurrentCell.RowIndex).Cells(1).Value}")
                Dim row9 = sheet.CreateRow(currentRow + 12) : row9.CreateCell(1).SetCellValue($"打印时间：{DateTime.Now}")
                sheet.AddMergedRegion(New NPOI.SS.Util.CellRangeAddress(currentRow + 2, currentRow + 2, 0, 2))
                sheet.AddMergedRegion(New NPOI.SS.Util.CellRangeAddress(currentRow + 2, currentRow + 2, 3, 4))
                Dim cellStyle1 As ICellStyle = workbook.CreateCellStyle()                                              ' 创建一个字体和边框样式
                cellStyle.BorderTop = BorderStyle.Double : cellStyle.BorderRight = BorderStyle.Double                  ' 设置外边框为粗线
                cellStyle.BorderBottom = BorderStyle.Double : cellStyle.BorderLeft = BorderStyle.Double
                '                                                                                                        为 A2:E3 区域设置边框  ' 设置粗外框
                For rowX As Integer = currentRow + 1 To currentRow + 2                                                 ' 行索引从 1 开始
                    For col As Integer = 0 To 4                                                                        ' 列索引从 0 到 4 (A 到 E)
                        Dim cell As ICell = sheet.GetRow(rowX).GetCell(col)
                        If cell Is Nothing Then : cell = sheet.GetRow(rowX).CreateCell(col) : End If : cell.CellStyle = cellStyle
                    Next
                Next
                '                                                                                                         插入 d1-d9 对应的图片
                Dim rowStart As Integer = currentRow                                                                    ' 图片从当前行开始
                Dim colStart1 As Integer = 0
                Dim colStart As Integer = 0                                                                             ' d1-d9 的起始列
                Dim imgPerRow As Integer = 3                                                                            ' 每行放3张图片
                Dim row_start As Integer = 0
                For i As Integer = 1 To 9 : Dim colName As String = "d" & i
                    If row(colName).ToString() = "√" Then : row_start += 1
                        Dim imageRes As Image = Nothing                                                                 ' 取得內嵌圖片資源
                        Select Case i
                            Case 1 : imageRes = My.Resources._1 : Case 2 : imageRes = My.Resources._2 : Case 3 : imageRes = My.Resources._3
                            Case 4 : imageRes = My.Resources._4 : Case 5 : imageRes = My.Resources._5 : Case 6 : imageRes = My.Resources._6
                            Case 7 : imageRes = My.Resources._7 : Case 8 : imageRes = My.Resources._8 : Case 9 : imageRes = My.Resources._9
                        End Select
                        If imageRes IsNot Nothing Then
                            Dim imgStream As New MemoryStream() : imageRes.Save(imgStream, Imaging.ImageFormat.Jpeg)    ' 轉換圖片為 Byte 陣列
                            Dim bytes As Byte() = imgStream.ToArray()
                            Dim pictureIdx As Integer = workbook.AddPicture(bytes, PictureType.JPEG)
                            Dim drawingMain As IDrawing = sheet.CreateDrawingPatriarch()
                            Dim anchor As IClientAnchor = workbook.GetCreationHelper().CreateClientAnchor()
                            anchor.Col1 = colStart
                            anchor.Row1 = rowStart + 3                                                                  ' 图片放在二维码下方，开始于第5行
                            anchor.Col2 = colStart + 1                                                                  ' 图片跨2列
                            anchor.Row2 = rowStart + 8                                                                  ' 图片占用5行
                            '                                                                                             设置偏移量（像素）
                            anchor.Dx1 = 200                                                                            ' 左上角水平偏移（单位：EMU）
                            anchor.Dy1 = 20000                                                                          ' 左上角垂直偏移
                            anchor.Dx2 = 500                                                                            ' 右下角水平偏移
                            anchor.Dy2 = 0                                                                              ' 右下角垂直偏移
                            anchor.AnchorType = AnchorType.DontMoveAndResize                                            ' 设置锚点类型，图片不随单元格变化
                            Dim picture As IPicture = drawingMain.CreatePicture(anchor, pictureIdx)
                            picture.Resize(1)                                                                           ' 缩放比例
                            colStart += 1                                                                               ' 更新列位置
                            If colStart >= imgPerRow Then
                                colStart1 = 1
                                colStart = 0                                                                            ' 回到第一列
                                rowStart += 5                                                                           ' 换行后行数增加5
                            End If
                        End If
                    End If
                Next
                If colStart1 = 1 Then rowStart -= 5                                                                     ' 更新当前行位置，确保下一个化工占用新行
                currentRow = rowStart + 13                                                                              ' 增加行数以容纳二维码和图片
                sheet.SetRowBreak(currentRow - 1)                                                                       ' 插入换页符
            End If
        Next
        Dim filePath As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), $"卡号标签_{my_card}.xlsx")
        Using fs As New FileStream(filePath, FileMode.Create, FileAccess.Write)
            workbook.Write(fs)
        End Using
        If File.Exists(filePath) Then
            Process.Start(New ProcessStartInfo With {
                .FileName = filePath,
                .UseShellExecute = True
            })
        End If : 處方_dgv.Sort(處方_dgv.Columns("项次"), ListSortDirection.Ascending)
    End Sub
    Function ImageToByteArray(image As Image) As Byte()
        Using ms As New MemoryStream() : image.Save(ms, ImageFormat.Png) : Return ms.ToArray() : End Using
    End Function
    Private Sub 刪除工藝_bt_Click_1(sender As Object, e As EventArgs) Handles 刪除工藝_bt.Click  '删除’
        Dim msg As MsgBoxResult = MsgBox("确定要删除工艺 '" & 處方清單_dgv.Rows(處方清單_dgv.CurrentCell.RowIndex).Cells("品名").Value & "' ? ", MsgBoxStyle.YesNoCancel)
        If msg = MsgBoxResult.Yes Then
            Dim 確認 As String = InputBox("请输入 [YES] 来完成删除!!")
            If 確認 = "YES" Then
                SQL_染色處方刪除(處方清單_dgv.Rows(處方清單_dgv.CurrentCell.RowIndex).Cells("品名").Value, 處方清單_dgv.Rows(處方清單_dgv.CurrentCell.RowIndex).Cells("表格编号").Value,
                 處方清單_dgv.Rows(處方清單_dgv.CurrentCell.RowIndex).Cells("日期").Value) : MsgBox("工艺已删除")
            End If
        End If : Set_清單1("") : conn.Close()
    End Sub
    Private Sub 另存工藝_bt_Click(sender As Object, e As EventArgs) Handles 另存工藝_bt.Click  '另存工艺
        '                                                                                                   获取用户输入的日期、流程卡号、片数、批号、重量
        Dim inputDate As Date = Date.Now : Dim processCardNo As String = InputBox("请输入流程卡号：")
        SQL_染色處方流程卡號判斷(processCardNo) : If dr.Read Then : MsgBox("该流程卡已经有对应的染色工艺!!") : Exit Sub : End If
        Dim inputQuantity As String = InputBox("请输入片数：") : Dim quantity As Integer
        If Integer.TryParse(inputQuantity, quantity) Then                                                 ' 尝试将用户输入的值转换为整数
            '                                                                                               转换成功，quantity 已被赋值
        Else                                                                                              ' 如果转换失败，设置默认值或者根据需要进行处理
            quantity = 0                                                                                  ' 设置为默认值
        End If
        Dim spec As String = InputBox("请输入厚度：") : Dim batchNo As String = InputBox("请输入蓝皮批号：")
        Dim inputweight As String = InputBox("请输入重量：") : Dim weight As Double
        If Integer.TryParse(inputweight, weight) Then                                                     ' 尝试将用户输入的值转换为整数
            '                                                                                               转换成功，weight 已被赋值
        Else                                                                                              ' 如果转换失败，设置默认值或者根据需要进行处理
            weight = 0                                                                                    ' 设置为默认值
        End If
        Dim name As String = InputBox("请输入工艺名：",, 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("品名").Value)
        Dim rcp_no As String : SQL_染色處方流水號查詢(Strings.Format(inputDate, "yyyyMMdd"))
        If dr.Read Then
            Dim input As String = dr("rcp_no").ToString : Dim pattern As String = "(.*_)(\d+)$"           ' 匹配最後的 "_" 及其後的數字
            Dim result As String = input : Dim match As Match = Regex.Match(input, pattern)
            If match.Success Then
                Dim prefix As String = match.Groups(1).Value                                              ' "_前面的部分"
                Dim number As Integer = Integer.Parse(match.Groups(2).Value)                              ' "_後面的數字"
                result = prefix & (number + 1).ToString()                                                 ' 數字 +1
            End If : rcp_no = result
        Else : rcp_no = Strings.Format(inputDate, "yyyyMMdd") & "_1" : End If      ' 生成 rcp_no：根据日期和流水号生成唯一的 rcp_no
        ConnOpen()
        For Each row As DataGridViewRow In 處方_dgv.Rows                                                  ' 获取每一行的数据
            Dim no As String = row.Cells("项次").Value.ToString() : Dim chem As String = row.Cells("化料名称").Value.ToString()
            Dim percents As String = row.Cells("百分比").Value.ToString() : Dim comment As String = row.Cells("备注").Value.ToString()
            Dim time As String = If(IsDBNull(row.Cells("时间").Value), "", row.Cells("时间").Value.ToString())
            SQL1 = "INSERT INTO ht_retanrcp (item, rcp_no, no, name, date, spec, weight, selection, chem, percents, time, comment) 
                             VALUES (@item, @rcp_no, @no, @name, @retan_date, @spec, @weight, @selection, @chem, @percents, @time, @comment)"
            cmd.CommandText = SQL1 : cmd.Parameters.Clear()
            cmd.Parameters.AddWithValue("@item", row.Index + 1) : cmd.Parameters.AddWithValue("@rcp_no", rcp_no)
            cmd.Parameters.AddWithValue("@no", processCardNo & "  " & quantity & "P") : cmd.Parameters.AddWithValue("@name", name)
            cmd.Parameters.AddWithValue("@retan_date", inputDate) : cmd.Parameters.AddWithValue("@spec", spec)
            cmd.Parameters.AddWithValue("@weight", weight) : cmd.Parameters.AddWithValue("@selection", batchNo)
            cmd.Parameters.AddWithValue("@chem", chem) : cmd.Parameters.AddWithValue("@percents", percents)
            cmd.Parameters.AddWithValue("@time", If(time = "", DBNull.Value, time)) : cmd.Parameters.AddWithValue("@comment", comment)
            cmd.Parameters.AddWithValue("@process_card_no", processCardNo) : cmd.ExecuteNonQuery()
        Next : MessageBox.Show("数据已成功保存！", "成功", MessageBoxButtons.OK, MessageBoxIcon.Information) : Set_清單1("")
    End Sub
    Private Sub 存檔_bt_Click_2(sender As Object, e As EventArgs) Handles 存檔_bt.Click '修改
        Dim inputDate As Date = InputBox("请输入日期：",, 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("日期").Value)
        Dim processCardNo As String = InputBox("请输入流程卡号：",, 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("流程卡号").Value)
        Dim inputQuantity As Integer = InputBox("请输入片数：",, 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("片数").Value)
        Dim spec As String = InputBox("请输入开削厚度：",, 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("开削").Value)
        Dim batchNo As String = InputBox("请输入蓝皮批号：",, 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("选级").Value)
        Dim weight As Double = CDbl(InputBox("请输入重量：",, 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("重量").Value))
        Dim name As String = InputBox("请输入工艺名：",, 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells("品名").Value)
        Dim 品名 As String = 處方清單_dgv.Rows(處方清單_dgv.CurrentCell.RowIndex).Cells("品名").Value
        Dim 表格编号 As String = 處方清單_dgv.Rows(處方清單_dgv.CurrentCell.RowIndex).Cells("表格编号").Value
        Dim 日期 As String = 處方清單_dgv.Rows(處方清單_dgv.CurrentCell.RowIndex).Cells("日期").Value
        SQL_染色處方基本資料修改(name, inputDate, spec, weight, batchNo, processCardNo & "  " & inputQuantity & "P", 品名, 表格编号, 日期)
        MsgBox("更新完成") : Set_清單1("")
    End Sub
    Private Sub 查詢_bt_Click_1(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        Dim rcp1 As String = InputBox("请输入要查询的处方名称") : rcp1 = "WHERE HT_RetanRcp.name LIKE '%" & rcp1 & "%'" : Set_清單1(rcp1)
    End Sub
    Private Sub 選客戶_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButtonHD.CheckedChanged, RadioButtonYT.CheckedChanged, RadioButtonDB.CheckedChanged,
                RadioButtonHS.CheckedChanged, RadioButtonZY.CheckedChanged, RadioButtonXJM.CheckedChanged, RadioButtonSM.CheckedChanged, RadioButtonCW.CheckedChanged, RadioButtonJD.
                CheckedChanged, RadioButtonDCS.CheckedChanged  '------------选取客户
        Dim 篩選條件 As String = CType(sender, RadioButton).Text
        If 篩選條件 <> "HD" Then
            If 篩選條件 = "ALL" Then : 篩選條件 = "" : Else : 篩選條件 = " WHERE HT_RetanRcp.name LIKE '%" & 篩選條件 & "%'" : End If
        Else
            篩選條件 = "WHERE ((no Like '%20240224035%') OR (no Like '%20240508135%') OR (no Like '%20240703035%') OR (no Like '%20240725055%') OR
                               (no Like '%20240731065%') OR (no Like '%20241006235%') OR (no Like '%20241010185%') OR (no Like '%20241010195%') OR
                               (no Like '%20241012115%') OR (no Like '%20241024015%') OR (no Like '%20241024025%') OR (no Like '%20241024045%') OR
                               (no Like '%20241024055%') OR (no Like '%20241024065%') OR (no Like '%20241029105%') OR (no Like '%20241030035%') OR
                               (no Like '%202411001085%') OR (no Like '%20241107015%') OR (no Like '%20241107025%') OR (no Like '%20241107035%') OR
                               (no Like '%20241113055%') OR (no Like '%20241113065%') OR (no Like '%20241113117%') OR (no Like '%20241118025%') OR
                               (no Like '%20241119075%') OR (no Like '%20241119085%') OR (no Like '%20241125035%') OR (no Like '%20241210117%') OR
                               (no Like '%20241217117%') OR (no Like '%20241217127%') OR (no Like '%WGSTR20241107%'))"
        End If
        Set_清單1(篩選條件)
    End Sub































    '------------------------以下未整理-----------------------------------------------------------------------------------------------------------------------------------------------------
    Sub ExportToExcel()
        ' 获取输入信息
        Dim my_card As String = InputBox("请输入卡号：", "查询")
        If my_card = "" Then : MsgBox("操作已取消。", vbInformation, "退出") : Exit Sub : End If
        Dim my_weight As Double = 0
        Dim weightInput As String = InputBox("请输入重量：", "查询")
        If weightInput = "" OrElse Not IsNumeric(weightInput) OrElse CDbl(weightInput) <= 0 Then : MsgBox("请输入有效的重量！", vbExclamation, "错误") : Exit Sub
        Else : my_weight = CDbl(weightInput) : End If
        Dim d_no As String = InputBox("请输入编号：", "查询")
        If d_no = "" Then : MsgBox("操作已取消。", vbInformation, "退出") : Exit Sub : End If
        ' 创建一个新的工作簿
        Dim workbook As New XSSFWorkbook() : Dim sheet As ISheet = workbook.CreateSheet("Sheet1")
        ' 数据示例（例如 DataGridView1 的行数据）
        Dim rowIndex As Integer = 0
        For x As Integer = 0 To 處方_dgv.Rows.Count - 2
            If 處方_dgv.Rows(x).Cells("类别").Value <> "不列印" Then
                Dim row As IRow = sheet.CreateRow(rowIndex)
                row.CreateCell(0).SetCellValue("卡号: " & my_card) : row.CreateCell(1).SetCellValue("编号: " & d_no)
                row.CreateCell(2).SetCellValue("重量: " & my_weight) : rowIndex += 1
                ' 插入图片（假设图片路径在 p 数组中）
                Dim pictureData As Byte() = File.ReadAllBytes("c:\GHS\1.jpg") : Dim pictureIndex As Integer = workbook.AddPicture(pictureData, PictureType.JPEG)
                ' 创建 DrawingPatriarch
                Dim drawing As XSSFDrawing = CType(sheet.CreateDrawingPatriarch(), XSSFDrawing)
                Dim anchor As IClientAnchor = workbook.GetCreationHelper().CreateClientAnchor()
                anchor.Col1 = 3                                            ' 图片插入列
                anchor.Row1 = rowIndex                                     ' 图片插入行
                drawing.CreatePicture(anchor, pictureIndex)                ' 插入图片
                rowIndex += 1
            End If
        Next
        ' 设置输出文件路径
        Dim outputPath As String = "C:\path\to\your\output.xlsx"
        Using fs As New FileStream(outputPath, FileMode.Create, FileAccess.Write) : workbook.Write(fs) : End Using : MsgBox("输出完成")
    End Sub
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim con As New SqlConnection : Dim sql As String : Dim dr As SqlDataReader
        con.ConnectionString = connstring : con.Open() : cmd.Connection = con
        dgv2.Visible = False : ListBox2.Visible = True : ListBox3.Visible = True : ListBox4.Visible = True : TextBox2.Visible = True : TextBox3.Visible = True
        TextBox4.Visible = True : Button11.Visible = True : Button12.Visible = True : Button13.Visible = True : Button14.Visible = True : Button15.Visible = True
        sql = "select cust_name from customer order by cust_name"
        cmd.CommandText = sql : dr = cmd.ExecuteReader : While dr.Read : ListBox2.Items.Add(dr("cust_name")) : End While : dr.Close()
        sql = "select prod_name from tblproduct order by prod_name"
        cmd.CommandText = sql : dr = cmd.ExecuteReader
        While dr.Read : ListBox3.Items.Add(dr("prod_name")) : End While : dr.Close()
        sql = "select color_name from color order by color_name"
        cmd.CommandText = sql : dr = cmd.ExecuteReader : While dr.Read : ListBox4.Items.Add(dr("color_name")) : End While : dr.Close() : Timer1.Enabled = True
    End Sub
    Private Sub TextBox2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyUp
        Dim con As New SqlConnection : Dim sql As String : Dim dr As SqlDataReader
        con.ConnectionString = connstring : con.Open() : cmd.Connection = con
        ListBox2.Items.Clear()
        sql = "select cust_name from customer where cust_name like '%" & TextBox2.Text & "%'"
        cmd.CommandText = sql : dr = cmd.ExecuteReader : While dr.Read : ListBox2.Items.Add(dr("cust_name")) : End While : dr.Close()
        If e.KeyCode = Keys.Enter Then
            If ListBox2.Items.Count = 0 Then Exit Sub : ListBox2.Focus() : ListBox2.SelectedIndex = 1
        End If
    End Sub
    Private Sub TextBox3_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyUp
        Dim con As New SqlConnection : Dim sql As String : Dim dr As SqlDataReader
        con.ConnectionString = connstring : con.Open() : cmd.Connection = con
        ListBox3.Items.Clear()
        sql = "select prod_name from tblproduct where prod_name like '%" & TextBox3.Text & "%'"
        cmd.CommandText = sql : dr = cmd.ExecuteReader : While dr.Read : ListBox3.Items.Add(dr("prod_name")) : End While : dr.Close()
        If e.KeyCode = Keys.Enter Then
            If ListBox3.Items.Count = 0 Then Exit Sub : ListBox3.Focus() : ListBox3.SelectedIndex = 1
        End If
    End Sub
    Private Sub TextBox4_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyUp
        Dim con As New SqlConnection : Dim sql As String : Dim dr As SqlDataReader
        con.ConnectionString = connstring : con.Open() : cmd.Connection = con
        ListBox4.Items.Clear()
        sql = "select color_name from color where color_name like '%" & TextBox4.Text & "%'"
        cmd.CommandText = sql : dr = cmd.ExecuteReader : While dr.Read : ListBox4.Items.Add(dr("color_name")) : End While : dr.Close()
        If e.KeyCode = Keys.Enter Then
            If ListBox3.Items.Count = 0 Then Exit Sub : ListBox4.Focus() : ListBox4.SelectedIndex = 1
        End If
    End Sub
    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        If ListBox2.SelectedIndex = -1 Or ListBox2.SelectedIndex = -1 Or ListBox2.SelectedIndex = -1 Then : MsgBox("請先選擇客戶產品顏色", , "錯誤") : Exit Sub : End If
        Dim con As New SqlConnection
        Dim sql As String = "" : Dim rcp_no As String = "" : Dim cust_no As String = "" : Dim prod_id As String = "" : Dim color_no As String = ""
        con.ConnectionString = connstring : con.Open() : cmd.Connection = con
        sql = "select id from customer where cust_name='" & ListBox2.SelectedItem & "'"
        cmd.CommandText = sql : cust_no = cmd.ExecuteScalar
        sql = "select prod_id from tblproduct where prod_name='" & ListBox3.SelectedItem & "'"
        cmd.CommandText = sql : prod_id = cmd.ExecuteScalar
        sql = "select color_no from color where color_name='" & ListBox4.SelectedItem & "'"
        cmd.CommandText = sql : color_no = cmd.ExecuteScalar
        sql = "select count(*) from " & rcp & " where substring(rcp_no,4,3)='" & cust_no & "' and substring(rcp_no,1,1)='" & prod_id & "' and substring(rcp_no,7,2)='" & color_no & "'"
        cmd.CommandText = sql : Dim c As Integer = cmd.ExecuteScalar
        If c = 0 Then : rr = prod_id & String.Format("{0:D2}", c) & String.Format("{0:D3}", cust_no) & color_no
        Else : rr = prod_id & String.Format("{0:D2}", c + 1) & String.Format("{0:D3}", cust_no) & color_no : End If
        sql = "select count(*) from " & rcp & " where rcp_no='" & rr & "'"
        cmd.CommandText = sql : c = cmd.ExecuteScalar : rcp_name = ListBox2.SelectedItem & ListBox4.SelectedItem & ListBox3.SelectedItem
        rcp_name = InputBox("處方名稱", "詢問", rcp_name)
        sql = "select count(*) from " & rcp & " where rcp_no='" & rr & "'"
        cmd.CommandText = sql : Dim a As Integer = cmd.ExecuteScalar
        If a = 0 Then : Else : MsgBox("處方編號重覆") : gAddfromOther = False : Exit Sub : End If
        Dim msg As MsgBoxResult : msg = MsgBox("是否要由其他處方修改?", vbYesNoCancel, "詢問")
        gAddfromOther = True
        Dim my_rcp As String = "" : my_rcp = InputBox("請輸入處方編號")
        If my_rcp = "" Then Exit Sub
        sql_rcp = "select RCP_NO as 處方編號, RCP_NAME as 品名, CREAT_D, LAST_EDITED, LAST_USED from " & rcp & " where rcp_no like '%" & my_rcp & "%' or rcp_name like '%" & my_rcp & "%'"
        cmd.CommandText = sql_rcp : da.SelectCommand = cmd
        Dim ds As New DataSet : da.Fill(ds) : 處方清單_dgv.DataSource = ds.Tables(0) : Timer1.Enabled = True : con.Close()
    End Sub
    Private Sub cmdAddrcp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAddrcp.Click
        If conn.State = ConnectionState.Closed Then : conn.Open() : End If
        Dim sql As String = "insert into " & rcp & " (rcp_no,rcp_name,creat_d) values ( '" & rr & "','" & rcp_name & "','" & String.Format("{0:d}", DateTime.Now) & "')"
        cmd.CommandText = sql : cmd.Connection = conn : Dim b As Integer = cmd.ExecuteNonQuery
        If b <> 0 Then : MsgBox("已新增處方編號：" & rr & vbCrLf & "      處方名稱：" & rcp_name) : Else : MsgBox("新增處方失敗") : End If
        Dim dt As DataTable : dt = dgv2.DataSource
        For x As Integer = 0 To dt.Rows.Count - 1
            cmd.CommandText = "insert into rcp_content (item,matl_no,percents,rcp_no,time,comment) 
                               values ('" & dt.Rows(x).Item("項目").ToString & "','" & dt.Rows(x).Item("化料編號").ToString & "',
                                       '" & dt.Rows(x).Item("百分比").ToString & "','" & rr & "','" & dt.Rows(x).Item("时间").ToString & "',
                                       '" & dt.Rows(x).Item("備註").ToString & "')"
            cmd.ExecuteNonQuery()
        Next : cmdAddrcp.Visible = False : cmdcanceladd.Visible = False : Timer1.Enabled = False : 模式通知_lb.Visible = False : conn.Close()
    End Sub
    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        dgv2.Visible = True : ListBox2.Visible = False : ListBox3.Visible = False : ListBox4.Visible = False : TextBox2.Visible = False : TextBox3.Visible = False
        TextBox4.Visible = False : Button11.Visible = False : Button12.Visible = False : Button13.Visible = False : Button14.Visible = False : Button15.Visible = False
        Button17.Visible = False : cmdAddrcp.Visible = False : cmdcanceladd.Visible = False : Timer1.Enabled = False : 模式通知_lb.Visible = False
    End Sub
    Private Sub cmdCancelEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancelEdit.Click
        修改存檔_bt.Visible = False : cmdCancelEdit.Visible = False : Timer1.Enabled = False : 模式通知_lb.Visible = False
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If dgv_record.Visible = False Then : dgv_record.BringToFront() : dgv_record.Visible = True : Else : dgv_record.Visible = False : End If
    End Sub
    Private Sub dgv_record_RowPostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles dgv_record.RowPostPaint
        Dim linePen As New Pen(Color.SkyBlue, 2)
        If e.RowIndex = dgv_record.Rows.Count - 1 Then
            dgv_record.Rows(e.RowIndex).Cells("百分比").Style.ForeColor = Color.White
            Dim startX As Integer = IIf(dgv_record.RowHeadersVisible, dgv_record.RowHeadersWidth, 0)
            Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
            Dim endX As Integer = startX + dgv2.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - dgv_record.HorizontalScrollingOffset
            e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
            Exit Sub
        End If
        If dgv_record.Rows(e.RowIndex).Cells("時间").Value.ToString <> "" And (dgv_record.Rows(e.RowIndex + 1).Cells("化料名称").Value.ToString = "流水洗" Or
            dgv_record.Rows(e.RowIndex + 1).Cells("化料名称").Value.ToString = "洗水" Or dgv_record.Rows(e.RowIndex + 1).Cells("化料名称").Value = "排水") Then
        ElseIf dgv_record.Rows(e.RowIndex).Cells("時间").Value.ToString <> "" Then
            Dim startX As Integer = IIf(dgv2.RowHeadersVisible, dgv_record.RowHeadersWidth, 0)
            Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
            Dim endX As Integer = startX + dgv_record.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - dgv_record.HorizontalScrollingOffset
            e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
        End If
        If (dgv_record.Rows(e.RowIndex).Cells("化料名称").Value.ToString = "流水洗" Or dgv_record.Rows(e.RowIndex).Cells("化料名称").Value.ToString = "洗水" Or
            dgv_record.Rows(e.RowIndex).Cells("化料名称").Value = "排水") Then
            dgv_record.Rows(e.RowIndex).Cells("百分比").Style.ForeColor = Color.White
            Dim startX As Integer = IIf(dgv_record.RowHeadersVisible, dgv_record.RowHeadersWidth, 0)
            Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
            Dim endX As Integer = startX + dgv_record.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - dgv_record.HorizontalScrollingOffset
            e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
        End If
    End Sub
    Private Function chem_balance(ByVal matl_no As String, ByVal quantity As Double, ByVal x As Integer, ByVal id As Integer)
        Dim conn5 As New SqlConnection : Dim dt1 As New DataTable : Dim sql As String = ""
        sql = "select top (1) lot_no,coin,price,quantity, w from tblchem_lot where matl_no='" & matl_no & "' and quantity-w<>0"
        cmd.CommandText = sql : da.Fill(dt1)
        If dt1.Rows.Count = 0 Then
            Dim dt2 As New DataTable : sql = "select top (1) lot_no,coin,price,quantity, w from tblchem_lot where matl_no='" & matl_no & "'"
            cmd.CommandText = sql : da.Fill(dt2)
            If dt2.Rows.Count = 0 Then
                sql = "insert into tblchem_lot (matl_no,lot_no,quantity,coin,price) values ('" & matl_no & "','120229','" & 0 & "','" & "NTD" & "','" & 0 & "')"
                cmd.CommandText = sql : cmd.ExecuteScalar()
                sql = "insert into tblchem_lot_io (lot_no,matl_no,quantity,io_type,coin,price,id) 
                       values ('" & dt2.Rows(0).Item("lot_no") & "','" & matl_no & "','" & quantity & "','" & "領料" & "','" & dt2.Rows(0).Item("coin") & "',
                               '" & dt2.Rows(0).Item("price") & "','" & id & "')"
                cmd.CommandText = sql : dr = cmd.ExecuteScalar
                sql = "update tblchem_lot set w=w+'" & quantity & "' 
                       where lot_no='" & dt2.Rows(0).Item("lot_no") & "' and quantity ='" & dt2.Rows(0).Item("quantity") & "' and matl_no='" & matl_no & "'"
                cmd.CommandText = sql : dr = cmd.ExecuteScalar
            Else
                sql = "insert into tblchem_lot_io (lot_no,matl_no,quantity,io_type,coin,price,id) 
                       values ('" & dt2.Rows(0).Item("lot_no") & "','" & matl_no & "','" & quantity & "','" & "領料" & "','" & dt2.Rows(0).Item("coin") & "',
                               '" & dt2.Rows(0).Item("price") & "','" & id & "')"
                cmd.CommandText = sql : dr = cmd.ExecuteScalar
                sql = "update tblchem_lot set w=w+'" & quantity & "' 
                       where lot_no='" & dt2.Rows(0).Item("lot_no") & "' and quantity ='" & dt2.Rows(0).Item("quantity") & "' and matl_no='" & matl_no & "'"
                cmd.CommandText = sql : dr = cmd.ExecuteScalar
            End If
        End If
        If dt1.Rows(0).Item("quantity") - dt1.Rows(0).Item("w") - quantity > 0 Then
            sql = "insert into tblchem_lot_io (lot_no,matl_no,quantity,io_type,coin,price,id) 
                   values ('" & dt1.Rows(0).Item("lot_no") & "','" & matl_no & "','" & quantity & "','" & "領料" & "','" & dt1.Rows(0).Item("coin") & "', 
                           '" & dt1.Rows(0).Item("price") & "','" & id & "')"
            cmd.CommandText = sql : dr = cmd.ExecuteScalar
            sql = "update tblchem_lot set w=w+'" & quantity & "' 
                   where lot_no='" & dt1.Rows(0).Item("lot_no") & "' and quantity ='" & dt1.Rows(0).Item("quantity") & "' and matl_no='" & matl_no & "'"
            cmd.CommandText = sql : dr = cmd.ExecuteScalar
        Else
            If dt1.Rows(0).Item("quantity") - dt1.Rows(0).Item("w") > 0 Then
                sql = "insert into tblchem_lot_io (lot_no,matl_no,quantity,io_type,coin,price,id) 
                       values ('" & dt1.Rows(0).Item("lot_no") & "','" & matl_no & "','" & dt1.Rows(0).Item("quantity") - dt1.Rows(0).Item("w") & "',
                               '" & "領料" & "','" & dt1.Rows(0).Item("coin") & "','" & dt1.Rows(0).Item("price") & "','" & id & "')"
                cmd.CommandText = sql : dr = cmd.ExecuteScalar
                sql = "update tblchem_lot set w=w+'" & dt1.Rows(0).Item("quantity") - dt1.Rows(0).Item("w") & "' 
                       where lot_no='" & dt1.Rows(0).Item("lot_no") & "' and quantity ='" & dt1.Rows(0).Item("quantity") & "'"
                cmd.CommandText = sql : dr = cmd.ExecuteScalar : chem_balance(matl_no, quantity - (dt1.Rows(0).Item("quantity") - dt1.Rows(0).Item("w")), x + 1, id)
            Else
                sql = "insert into tblchem_lot_io (lot_no,matl_no,quantity,io_type,coin,price,id) 
                       values ('" & dt1.Rows(0).Item("lot_no") & "','" & matl_no & "','" & dt1.Rows(0).Item("quantity") - dt1.Rows(0).Item("w") & "',
                               '" & "領料" & "','" & dt1.Rows(0).Item("coin") & "','" & dt1.Rows(0).Item("price") & "','" & id & "')"
                cmd.CommandText = sql : dr = cmd.ExecuteScalar
                sql = "update tblchem_lot set w=w+'" & dt1.Rows(0).Item("quantity") - dt1.Rows(0).Item("w") & "' 
                       where lot_no='" & dt1.Rows(0).Item("lot_no") & "' and quantity ='" & dt1.Rows(0).Item("quantity") & "'"
                cmd.CommandText = sql : dr = cmd.ExecuteScalar
            End If
        End If
    End Function
    Private Sub TXT_PID_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TXT_PID.KeyUp
        Dim sql As String = "" : Dim dr2 As SqlDataReader
        sql = "select article from leather_io where production_id='" & TXT_PID.Text & "'"
        cmd.CommandText = sql : cmd.Connection = conn
        If conn.State = ConnectionState.Closed Then : conn.Open() : End If
        dr2 = cmd.ExecuteReader : If dr2.Read Then : txtsum.Text = dr2("article") : End If
        dr2.Close() : conn.Close()
        sql = "select weight/piece as my_avg from production where production_id='" & TXT_PID.Text & "'"
        cmd.CommandText = sql : cmd.Connection = conn
        If conn.State = ConnectionState.Closed Then : conn.Open() : End If
        dr2 = cmd.ExecuteReader : If dr2.Read Then : txtwb_weight.Text = dr2("my_avg") : End If
        dr2.Close() : conn.Close()
    End Sub
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Dim sql As String = "" : cmd.Connection = conn : If conn.State = ConnectionState.Closed Then : conn.Open() : End If
        ListBox2.Visible = True : ListBox3.Visible = True : ListBox4.Visible = True : TextBox2.Visible = True
        TextBox3.Visible = True : TextBox4.Visible = True : Button15.Visible = True
        sql = "select cust_name from customer order by cust_name"
        cmd.CommandText = sql : dr = cmd.ExecuteReader : While dr.Read : ListBox2.Items.Add(dr("cust_name")) : End While : dr.Close()
        sql = "select prod_name from tblproduct order by prod_name"
        cmd.CommandText = sql : dr = cmd.ExecuteReader : While dr.Read : ListBox3.Items.Add(dr("prod_name")) : End While : dr.Close()
        sql = "select color_name from color order by color_name"
        cmd.CommandText = sql : dr = cmd.ExecuteReader : While dr.Read : ListBox4.Items.Add(dr("color_name")) : End While : dr.Close()
        Button17.Visible = True : conn.Close()
    End Sub
    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Dim sql As String = "" : Dim cust_no As String = "" : Dim prod_id As String = "" : Dim color_no As String = ""
        If cmd.Connection.State = ConnectionState.Closed Then : conn.Open() : End If
        sql = "select id from customer where cust_name='" & ListBox2.SelectedItem & "'"
        cmd.CommandText = sql : cust_no = cmd.ExecuteScalar
        sql = "select prod_id from tblproduct where prod_name='" & ListBox3.SelectedItem & "'"
        cmd.CommandText = sql : prod_id = cmd.ExecuteScalar
        sql = "select color_no from color where color_name='" & ListBox4.SelectedItem & "'"
        cmd.CommandText = sql : color_no = cmd.ExecuteScalar
        sql = "select count(*) from " & rcp & " where substring(rcp_no,4,3)='" & cust_no & "' and substring(rcp_no,1,1)='" & prod_id & "' and substring(rcp_no,7,2)='" & color_no & "'"
        cmd.CommandText = sql
        Dim c As Integer = cmd.ExecuteScalar : If c = 0 Then : rr = prod_id & String.Format("{0:D2}", c) & String.Format("{0:D3}", cust_no) & color_no
        Else : rr = prod_id & String.Format("{0:D2}", c + 1) & String.Format("{0:D3}", cust_no) & color_no : End If
        sql = "select count(*) from " & rcp & " where rcp_no='" & rr & "'"
        cmd.CommandText = sql : c = cmd.ExecuteScalar : If c <> 0 Then : MsgBox("重覆") : Exit Sub : End If
        rcp_name = ListBox2.SelectedItem & ListBox4.SelectedItem & ListBox3.SelectedItem : rcp_name = InputBox("處方名稱", "詢問", rcp_name)
        sql = "insert into " & rcp & " (rcp_no,rcp_name,creat_d) values ( '" & rr & "',N'" & rcp_name & "','" & String.Format("{0:d}", DateTime.Now) & "')"
        cmd.CommandText = sql : cmd.ExecuteNonQuery()
        For x As Integer = 0 To dgv2.RowCount - 1
            If (dgv2.Rows(x).DefaultCellStyle.Font Is Nothing) Then
                Dim item As String = "" : If x <= 8 Then : item = "0" & x + 1 : Else : item = x + 1 : End If
                sql = "insert into rcp_content (item,matl_no,percents,time,comment,rcp_no) 
                       values ('" & item & "','" & dgv2.Rows(x).Cells(2).Value & "','" & dgv2.Rows(x).Cells(1).Value & "','" & dgv2.Rows(x).Cells(4).Value & "',
                               N'" & dgv2.Rows(x).Cells(5).Value & "','" & rr & "')"
                cmd.CommandText = sql : cmd.ExecuteNonQuery()
            Else
                If dgv2.Rows(x).DefaultCellStyle.Font.Style <> FontStyle.Strikeout Then
                    Dim item As String = "" : If Microsoft.VisualBasic.Len(x) = 1 Then : item = "0" & x + 1 : Else : item = x + 1 : End If
                    sql = "insert into rcp_content (item,matl_no,percents,time,comment,rcp_no) 
                           values ('" & item & "','" & dgv2.Rows(x).Cells(2).Value & "','" & dgv2.Rows(x).Cells(1).Value & "','" & dgv2.Rows(x).Cells(4).Value & "',
                                   N'" & dgv2.Rows(x).Cells(5).Value & "','" & rr & "')"
                    cmd.CommandText = sql : cmd.ExecuteNonQuery()
                End If
            End If
        Next : MsgBox("處方" & rr & rcp_name & "新增完成") : conn.Close()
        Button17.Visible = False : ListBox2.Visible = False : ListBox3.Visible = False : ListBox4.Visible = False
        TextBox2.Visible = False : TextBox3.Visible = False : TextBox4.Visible = False
    End Sub
    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        Dim rcp_name As String = "" : Dim sql As String = "" : If conn.State = ConnectionState.Closed Then : conn.Open() : End If
        rcp_name = InputBox("輸入新的處方名", 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells(1).Value)
        sql = "update " & rcp & " set rcp_name=N'" & rcp_name & "' where rcp_no='" & 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells(0).Value & "'"
        cmd.Connection = conn : cmd.CommandText = sql : cmd.ExecuteScalar() : conn.Close()
    End Sub
    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        Dim rcp_name As String = "" : Dim sql As String = "" : If conn.State = ConnectionState.Closed Then : conn.Open() : End If
        sql = "delete from " & rcp & "  where rcp_no='" & 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells(0).Value & "'"
        cmd.Connection = conn : cmd.CommandText = sql : cmd.ExecuteScalar() : conn.Close()
    End Sub
    Private Sub Button14_Click_1(sender As Object, e As EventArgs) Handles Button14.Click
        If ListBox2.SelectedIndex = -1 Or ListBox2.SelectedIndex = -1 Or ListBox2.SelectedIndex = -1 Then : MsgBox("請先選擇客戶產品顏色", , "錯誤") : Exit Sub : End If
        Dim sql As String = "" : Dim con As New SqlConnection : Dim rcp_no As String = "" : Dim cust_no As String = "" : Dim prod_id As String = "" : Dim color_no As String = ""
        con.ConnectionString = connstring : con.Open() : cmd.Connection = con
        sql = "select id from customer where cust_name='" & ListBox2.SelectedItem & "'"
        cmd.CommandText = sql : cust_no = cmd.ExecuteScalar
        sql = "select prod_id from tblproduct where prod_name='" & ListBox3.SelectedItem & "'"
        cmd.CommandText = sql : prod_id = cmd.ExecuteScalar
        sql = "select color_no from color where color_name='" & ListBox4.SelectedItem & "'"
        cmd.CommandText = sql : color_no = cmd.ExecuteScalar
        sql = "select count(*) from prescription_main where substring(rcp_no,4,3)='" & cust_no & "' and substring(rcp_no,1,1)='" & prod_id & "' and substring(rcp_no,7,2)='" & color_no & "'"
        cmd.CommandText = sql : Dim c As Integer = cmd.ExecuteScalar
        If c = 0 Then : rr = prod_id & String.Format("{0:D2}", c) & String.Format("{0:D3}", cust_no) & color_no
        Else : rr = prod_id & String.Format("{0:D2}", c + 1) & String.Format("{0:D3}", cust_no) & color_no : End If
        sql = "select count(*) from prescription_main where rcp_no='" & rr & "'"
        cmd.CommandText = sql : c = cmd.ExecuteScalar
        rcp_name = ListBox2.SelectedItem & ListBox4.SelectedItem & ListBox3.SelectedItem : rcp_name = InputBox("處方名稱", "詢問", rcp_name)
        sql = "select count(*) from prescription_main where rcp_no='" & rr & "'"
        cmd.CommandText = sql : Dim a As Integer = cmd.ExecuteScalar
        If a = 0 Then : Else : MsgBox("處方編號重覆") : gAddfromOther = False : Exit Sub : End If
        Dim msg As MsgBoxResult : msg = MsgBox("是否要由其他處方修改?", vbYesNoCancel, "詢問") : gAddfromOther = True
        Dim my_rcp As String = "" : my_rcp = InputBox("請輸入處方編號") : If my_rcp = "" Then Exit Sub
        sql_rcp = "select RCP_NO as 處方編號, RCP_NAME as 品名, CREAT_D, LAST_EDITED, LAST_USED from prescription_main 
                   where rcp_no like '%" & my_rcp & "%' or rcp_name like '%" & my_rcp & "%'"
        cmd.CommandText = sql_rcp : da.SelectCommand = cmd : Dim ds As New DataSet : da.Fill(ds)
        處方清單_dgv.DataSource = ds.Tables(0) : Timer1.Enabled = True : con.Close()
    End Sub
    Private Sub dgv_cost_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_cost.CellEnter
        Dim ds1 As New DataSet : Dim ds2 As New DataSet : Dim cn As New SqlConnection
        cn.ConnectionString = connstring : cn.Open() : cmd.Connection = cn
        sql_rcp = "select rcp_content.ITEM AS 項目,rcp_content.MATL_NO AS 編號,tblMaterial.MATL_NAME AS 品名,rcp_content.percents AS 比例 
                   FROM " & rcp & " INNER JOIN rcp_content ON " & rcp & ".RCP_NO = rcp_content.RCP_NO INNER JOIN tblMaterial ON rcp_content.MATL_NO = tblMaterial.MATL_NO 
                   WHERE rcp_content.RCP_NO='" & 處方清單_dgv.Rows(處方清單_dgv.CurrentRow.Index).Cells(0).Value & "' and 
                         tblMaterial.MATL_ID='" & dgv_cost.Rows(dgv_cost.CurrentRow.Index).Cells(1).Value & "' order by rcp_content.item"
        cmd.CommandText = sql_rcp : da.SelectCommand = cmd : da.Fill(ds2) : dgv_chem_detail.DataSource = ds2.Tables(0)
        dgv_chem_detail.Columns(0).Width = 38 : dgv_chem_detail.Columns(1).Width = 50 : dgv_chem_detail.Columns(2).Width = 80 : dgv_chem_detail.Columns(3).Width = 50
    End Sub
    Private Sub cal_cost()
        ' 使用 LINQ 进行 Group By 操作，并取每个分组中的进货单价
        Dim groupedData = From row In DT2.AsEnumerable()
                          Group row By category = row.Field(Of String)("化工分类") Into Group
                          Select category,
                         TotalAmount = Group.Sum(Function(r) If(IsNumeric(r.Field(Of Object)("百分比")), Convert.ToDouble(r.Field(Of Object)("百分比")), 0)),
                         PurchasePrice = If(Group.Any(Function(r) IsNumeric(r.Field(Of Object)("进货单价"))),
                                            Convert.ToDouble(Group.Select(Function(r) r.Field(Of Object)("进货单价")).FirstOrDefault()),
                                            0)
        ' 创建新的 DataTable 来存储分组后的数据
        Dim newDataTable As New DataTable()
        newDataTable.Columns.Add("Category", GetType(String)) : newDataTable.Columns.Add("TotalAmount", GetType(Double)) : newDataTable.Columns.Add("PurchasePrice", GetType(Double))
        ' 将 groupedData 中的数据插入到新的 DataTable 中
        For Each item In groupedData
            Dim newRow As DataRow = newDataTable.NewRow() : newRow("Category") = item.category : newRow("TotalAmount") = item.TotalAmount
            newRow("PurchasePrice") = item.PurchasePrice : newDataTable.Rows.Add(newRow)
        Next : 處方_dgv.DataSource = newDataTable : 處方_dgv.ReadOnly = True
    End Sub
    Private Sub dgv2_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles dgv2.RowPostPaint
        Dim linePen As New Pen(Color.Aquamarine, 2)
        If e.RowIndex = dgv2.Rows.Count - 1 Then
            dgv2.Rows(e.RowIndex).Cells("百分比").Style.ForeColor = Color.White
            Dim startX As Integer = IIf(dgv2.RowHeadersVisible, dgv2.RowHeadersWidth, 0)
            Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
            Dim endX As Integer = startX + dgv2.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - dgv2.HorizontalScrollingOffset - 100
            e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
        End If
        If dgv2.Rows(e.RowIndex).Cells("时间").Value.ToString <> "" And (dgv2.Rows(e.RowIndex + 1).Cells("化料名称").Value.ToString = "流水洗" Or
            dgv2.Rows(e.RowIndex + 1).Cells("化料名称").Value.ToString = "洗水" Or dgv2.Rows(e.RowIndex + 1).Cells("化料名称").Value = "排水") Then
        ElseIf dgv2.Rows(e.RowIndex).Cells("时间").Value.ToString <> "" Then
            Dim startX As Integer = IIf(dgv2.RowHeadersVisible, dgv2.RowHeadersWidth, 0)
            Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
            Dim endX As Integer = startX + dgv2.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - dgv2.HorizontalScrollingOffset - 100
            e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
        End If
        If (dgv2.Rows(e.RowIndex).Cells("化料名称").Value.ToString = "流水洗" Or dgv2.Rows(e.RowIndex).Cells("化料名称").Value.ToString = "洗水" Or
            dgv2.Rows(e.RowIndex).Cells("化料名称").Value = "排水") Then
            dgv2.Rows(e.RowIndex).Cells("百分比").Style.ForeColor = Color.White
            Dim startX As Integer = IIf(dgv2.RowHeadersVisible, dgv2.RowHeadersWidth, 0)
            Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
            Dim endX As Integer = startX + dgv2.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - dgv2.HorizontalScrollingOffset - 100
            e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
        End If
    End Sub
    Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click  'msds
        cmd.Connection = conn : If conn.State = ConnectionState.Closed Then : conn.Open() : End If
        Dim sql As String : Dim folderPath As String = "\\DS920plus\华峰业务\AA化料文件资料\2024年整理MSDS和ZDHC\MSDS\MSDS总表"        ' 检查文件夹是否存在
        If Directory.Exists(folderPath) Then                                                                                           ' 获取文件夹内所有文件的路径
            Dim files As String() = Directory.GetFiles(folderPath)                                                                     ' 遍历文件数组并输出文件名
            For Each file As String In files                                                                                           ' 输出文件名
                Console.WriteLine(Path.GetFileName(file))
                sql = "insert into ht_msds_file (filename) values  (N'" & Path.GetFileName(file) & "')" : cmd.CommandText = sql : cmd.ExecuteScalar()
            Next
        Else : Console.WriteLine("目录不存在！") : End If : MsgBox("")
    End Sub
    Sub InsertImageWithNPOI(start_row As Integer, start_column As Integer)
        Dim workbook As New XSSFWorkbook()                                                     ' 创建 NPOI 工作簿和工作表
        Dim sheet As XSSFSheet = workbook.CreateSheet("Sheet1")
        Dim pictureData As Byte() = Nothing                                                    ' 图片数据
        Using ms As New MemoryStream()
            PictureBox1.Image.Save(ms, Imaging.ImageFormat.Png)                                ' 从 PictureBox1 中获取图片
            pictureData = ms.ToArray()
        End Using
        Dim pictureIndex As Integer = workbook.AddPicture(pictureData, PictureType.PNG)        ' 将图片添加到工作簿中
        Dim drawing As XSSFDrawing = sheet.CreateDrawingPatriarch()                            ' 创建绘图对象
        Dim anchor As IClientAnchor = workbook.GetCreationHelper().CreateClientAnchor()        ' 创建图片锚点
        anchor.Col1 = start_column ' 起始列（从 0 开始计数）
        anchor.Row1 = start_row ' 起始行（从 0 开始计数）
        anchor.Col2 = start_column ' 结束列
        anchor.Row2 = start_row ' 结束行
        Dim picture As IPicture = drawing.CreatePicture(anchor, pictureIndex)                  ' 插入图片
        picture.Resize(0.29)                                                                   ' 调整图片大小' 设置缩放比例，例如 0.29 表示缩放为原大小的 29%
        Dim saveFilePath As String = "c:\GHS\output.xlsx"                                      ' 保存文件
        Using fs As New FileStream(saveFilePath, FileMode.Create, FileAccess.Write)
            workbook.Write(fs)
        End Using
    End Sub
End Class