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

'Imports System.Data.SqlClient
'Imports Microsoft.Office.Interop.Excel
'Imports Microsoft.Office.Interop.Excel.XlBordersIndex
'Imports Microsoft.Office.Interop.Excel.Constants.xlConstants
'Imports Microsoft.Office.Interop.Excel.XlLineStyle
'Imports Microsoft.Office.Core.XlBorderWeight
'Imports Microsoft.Office.Core.XlUnderlineStyle
'Imports Microsoft.Office.Interop.Excel.XlPageOrientation
Imports NPOI.XSSF.UserModel
Imports NPOI.SS.UserModel
Imports NPOI.POIFS.FileSystem
Imports System.IO
Imports System.Data.SqlClient
'Imports Microsoft.Office.Core.XlConstants
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.XlPaperSize
Imports Microsoft.Office.Interop.Excel.XlOrder
Imports Microsoft.Office.Interop.Excel.XlPrintErrors
'Imports Excel = Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Core
Imports System.Reflection
Imports System.ComponentModel
Imports Microsoft.Office.Interop
Imports ThoughtWorks.QRCode.Codec.Data
Imports System.Drawing.Imaging
Imports NPOI.SS.Formula.Functions
Imports System.Windows.Forms.VisualStyles.VisualStyleElement





Public Class Frm_01HF_RetanRcp
    Dim dt1 As New DataTable
    Dim gWeight() As Double
    Dim gCoin() As String
    Dim gPrice() As Double
    Dim rr As String = ""
    Dim rcp_name As String = ""
    Dim gAddfromOther As Boolean = False
    Dim da As New SqlDataAdapter()
    Dim dr As SqlDataReader
    Dim conn As New SqlConnection
    Dim dt As New System.Data.DataTable
    Dim ds As New DataSet()
    Dim cmd As New SqlCommand
    Dim sql_rcp As String
    Dim sql_print As String
    Dim con As New SqlConnection
    'Dim msg As String = ""
    Dim colorArray(10) As Color
    Dim card As String = ""
    Dim cust As String = ""
    Dim wb_weight As Double = 0
    Dim thickness As String = ""
    Dim r_type As String = ""
    Dim source As String = ""
    Dim comment As String = ""
    Dim dt_print As DataTable
    Dim color1 As String = ""
    Dim DT2 As New DataTable

    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 DataGridView1.Rows.Count - 2
            If DataGridView1.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 IDrawingPatriarch = sheet.CreateDrawingPatriarch()
                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 frm_01hf_RetanRcp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



        Dim type1 As Type = dgv2.GetType()
        Dim pi1 As PropertyInfo = type1.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        pi1.SetValue(dgv2, True, Nothing)


        dgv2.CausesValidation = False


        DGV1.ReadOnly = True

        'Me.MdiParent = mdiForm


        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")

        Button17.Visible = False

        dgv2.RowTemplate.Height = 30
        conn.ConnectionString = connstring
        con.ConnectionString = connstring
        con.Open()
        DGV1.RowTemplate.Height = 30
        DataGridView1.RowTemplate.Height = 30

        DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        DataGridView1.AutoResizeRows(DataGridViewAutoSizeRowsMode.AllCells)
        ' DataGridView1.RowTemplate.Height = 30


        cmd.Connection = conn



        sql_rcp = "select top(200) date as 日期,name as 品名,selection as 选级,avg(weight) as 重量,no as 流程卡号,rcp_no as 表格编号 from ht_retanrcp group by name,date,selection,rcp_no,no order by date desc"
        cmd.Connection = conn
        cmd.CommandText = sql_rcp
        da.SelectCommand = cmd

        da.Fill(ds)
        DGV1.DataSource = ds.Tables(0)

        set_grid()
        dgv2.GridColor = Color.White
        dgv2.AllowUserToAddRows = False
        dgv2.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        con.Close()



        dgv_record.GridColor = Color.White
        dgv_record.AllowUserToAddRows = False
        dgv_record.SelectionMode = DataGridViewSelectionMode.FullRowSelect

        ' dgv2.Columns(2).Visible = False
        ' dgv2.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight



        Dim c As Integer = 1
        Dim p(250) As Integer

        Dim x As Integer

        p(1) = 0

        For x = 1 To DGV1.Rows.Count - 2
            If DGV1.Rows(x).Cells(0).Value.ToString <> DGV1.Rows(x - 1).Cells(0).Value.ToString Then
                p(c + 1) = x
                c = c + 1
            End If
        Next
        p(c + 1) = x
        ReDim Preserve p(x)
        If c = 1 Then
            For z As Integer = 0 To x - 1
                DGV1.Rows(z).DefaultCellStyle.BackColor = colorArray(1)
            Next
        Else
            For cc As Integer = 1 To c
                For z As Integer = p(cc) To p(cc + 1) - 1
                    DGV1.Rows(z).DefaultCellStyle.BackColor = colorArray(cc Mod 5)
                Next
            Next
        End If
        DGV1.Columns(0).Width = 150
        DGV1.Columns(1).Width = 220
        DGV1.Columns(2).Width = 160

        DGV1.Columns(3).Width = 100
        DGV1.Columns(4).Width = 190
        DGV1.Columns(5).Width = 200
        DGV1.RowHeadersWidth = 30
        DataGridView1.RowHeadersWidth = 30
        DataGridView1.RowTemplate.Height = 35

    End Sub
    Private Sub ini_content()


        'card = FrmWB_OUT.DGV1.Rows(FrmWB_OUT.DGV1.CurrentRow.Index).Cells("卡号").Value
        'cust = FrmWB_OUT.DGV1.Rows(FrmWB_OUT.DGV1.CurrentRow.Index).Cells("客户").Value
        'wb_weight = FrmWB_OUT.DGV1.Rows(FrmWB_OUT.DGV1.CurrentRow.Index).Cells("皮重").Value
        'thickness = FrmWB_OUT.DGV1.Rows(FrmWB_OUT.DGV1.CurrentRow.Index).Cells("厚度").Value
        'source = FrmWB_OUT.DGV1.Rows(FrmWB_OUT.DGV1.CurrentRow.Index).Cells("皮源").Value
        'comment = FrmWB_OUT.DGV1.Rows(FrmWB_OUT.DGV1.CurrentRow.Index).Cells("备注").Value.ToString
        'color1 = FrmWB_OUT.DGV1.Rows(FrmWB_OUT.DGV1.CurrentRow.Index).Cells("颜色").Value

    End Sub

    Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click



        ini_content()



        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet


        Dim my_card As String = InputBox("请输入卡号", "询问")
        Dim my_weight As Double = InputBox("请输入重量", "询问")

        my_card = my_card


        'frm_01hf_RetanRcp_WB.ShowDialog()



        Dim d_no As Double = InputBox("请输入鼓号", "询问")

        'frm_01hf_RetanRcp_WB.ShowDialog()

        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(1, 4) = DGV1.Rows(DGV1.CurrentRow.Index).Cells("處方編號").Value
        xlSheet.Cells(2, 4) = String.Format("{0:d}", DateTime.Now)



        xlSheet.Cells(1, 10) = cust & " " & color1 & "--" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("品名").Value
        'xlSheet.Cells(2, 10) = frm_01hf_RetanRcp_WB.ListBox6.SelectedItem
        'xlSheet.Cells(2, 11) = frm_01hf_RetanRcp_WB.ListBox5.SelectedItem
        xlSheet.Cells(2, 7) = thickness
        xlSheet.Cells(2, 11) = d_no
        xlSheet.Cells(2, 14) = my_weight & " 公斤"
        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, 10) = "備註"
        xlSheet.Rows("5:5").Select()
        xlApp.Selection.Font.Underline = xlUnderlineStyleSingle


        For i As Integer = 0 To DataGridView1.Rows.Count - 1


            xlSheet.Cells(i + 6, 3) = Math.Round(Val(DataGridView1.Rows(i).Cells("百分比").Value), 2)
            xlSheet.Cells(i + 6, 4) = "%"
            xlSheet.Cells(i + 6, 5) = Math.Round(DataGridView1.Rows(i).Cells("百分比").Value * my_weight / 2 / 100, 2)

            xlSheet.Cells(i + 6, 6) = DataGridView1.Rows(i).Cells("化料名称").Value

            xlSheet.Cells(i + 6, 9) = DataGridView1.Rows(i).Cells("时间").Value

            xlSheet.Cells(i + 6, 10) = DataGridView1.Rows(i).Cells("备注").Value

            xlSheet.Cells(i + 6, 10).Select()
            With xlApp.Selection
                .Font.Bold = True
            End With

            'xlSheet.Cells(i + 6, 11) = datagridview1.Rows(i).Cells("幣別").Value
            'xlSheet.Cells(i + 6, 12) = datagridview1.Rows(i).Cells("單價").Value


            If DataGridView1.Rows(i).Cells("化料名称").Value = "流水洗" Or DataGridView1.Rows(i).Cells("化料名称").Value = "洗水" Or DataGridView1.Rows(i).Cells("化料名称").Value = "排水" Or DataGridView1.Rows(i).Cells("化料名称").Value = "轉動" Or DataGridView1.Rows(i).Cells("化料名称").Value = "自動過夜" Or DataGridView1.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 DataGridView1.Rows(i).Cells("时间").Value <> "" 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 = Microsoft.Office.Interop.Excel.Constants.xlCenter
        '    .VerticalAlignment = Microsoft.Office.Interop.Excel.Constants.xlCenter
        '    .WrapText = False
        '    .Orientation = 0
        '    .AddIndent = False
        '    .IndentLevel = 0
        '    .ShrinkToFit = False
        '    .ReadingOrder = Microsoft.Office.Core.XlReadingOrder.xlContext
        'End With

        xlSheet.Cells(3, 4).Select()
        With xlApp.Selection
            .HorizontalAlignment = Microsoft.Office.Interop.Excel.Constants.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
                ' aa = aa + 1
            Else
                xlSheet.Rows(x).RowHeight = 18

            End If

        Next x




        xlSheet.Range("a:a").HorizontalAlignment = Microsoft.Office.Interop.Excel.Constants.xlCenter
        xlSheet.Range("c:c").HorizontalAlignment = Microsoft.Office.Interop.Excel.Constants.xlRight
        xlSheet.Range("e:e ").HorizontalAlignment = Microsoft.Office.Interop.Excel.Constants.xlCenter

        xlSheet.Range("g:g").HorizontalAlignment = Microsoft.Office.Interop.Excel.Constants.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)
            '.PaperSize = Microsoft.Office.Interop.Excel.XlPaperSize.xlPaperA4
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1
            .PrintErrors = Microsoft.Office.Interop.Excel.XlPrintErrors.xlPrintErrorsDisplayed
        End With
        xlApp.Cells.Select()
        With xlApp.Selection.Font
            .Name = "Times New Roman"
        End With





        xlSheet.Range("f:f").HorizontalAlignment = Microsoft.Office.Interop.Excel.Constants.xlLeft
        xlSheet.Range("j:j").HorizontalAlignment = Microsoft.Office.Interop.Excel.Constants.xlLeft

        xlSheet.Range("a1:o3").HorizontalAlignment = Microsoft.Office.Interop.Excel.Constants.xlCenter
        xlApp.Visible = True

        xlApp.Application.ScreenUpdating = True
        MsgBox("打印完成")


    End Sub
    Private Sub DGV1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV1.CellClick



        Label1.Text = ""
        Timer1.Enabled = False

        cmdSaveEdit.Visible = False
        cmdCancelEdit.Visible = False



        If gAddfromOther = True Then

            Dim msg As MsgBoxResult = MsgBox("確定要從處方 '" & DGV1.Rows(e.RowIndex).Cells("品名").Value & "' 新增? ", MsgBoxStyle.YesNoCancel)

            If msg = MsgBoxResult.Yes Then


                gAddfromOther = False


                Dim ds As New DataSet

                con.Open()

                sql_rcp = "select RCP_NO as 處方編號, RCP_NAME as 品名, CREAT_D, LAST_EDITED, LAST_USED from " & rcp & " where rcp_no like '%" & rr & "%' or rcp_name like '%" & rcp_name & "%'"
                cmd.Connection = con
                cmd.CommandText = sql_rcp
                da.SelectCommand = cmd
                da.Fill(ds)
                DGV1.DataSource = ds.Tables(0)
                con.Close()


                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

                cmdAddrcp.Visible = True
                cmdcanceladd.Visible = True


            ElseIf msg = MsgBoxResult.No Then
                Exit Sub
            Else
                gAddfromOther = False

            End If

        End If



    End Sub




    'Private Sub dgv2_RowPostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs)

    '    Dim linePen As New Pen(Color.SkyBlue, 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 - 50
    '        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 - 50
    '        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 - 50

    '        e.Graphics.DrawLine(linePen, startX, startY, endX, startY)

    '    End If


    'End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        gMsg = MsgBox("要插入前方列請按--是" & vbCrLf & "要插入後方列請按--否" & vbCrLf & "或按取消離開", MsgBoxStyle.YesNoCancel)


        If gMsg <> MsgBoxResult.Cancel Then
            FrmEditChem_Choose.ShowDialog()
        End If


    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click


        If Not (DataGridView1.Rows(DataGridView1.CurrentRow.Index).DefaultCellStyle.Font Is Nothing) Then

            If DataGridView1.Rows(DataGridView1.CurrentRow.Index).DefaultCellStyle.Font.Style = FontStyle.Strikeout Then
                DataGridView1.Rows(DataGridView1.CurrentRow.Index).DefaultCellStyle.Font = New Font(DataGridView1.DefaultCellStyle.Font, FontStyle.Regular)
            Else
                DataGridView1.Rows(DataGridView1.CurrentRow.Index).DefaultCellStyle.Font = New Font(DataGridView1.DefaultCellStyle.Font, FontStyle.Strikeout)
            End If
        Else
            DataGridView1.Rows(DataGridView1.CurrentRow.Index).DefaultCellStyle.Font = New Font(DataGridView1.DefaultCellStyle.Font, FontStyle.Strikeout)
        End If



        Label1.Text = "修改模式"
        Timer1.Enabled = True

        cmdSaveEdit.Visible = True
        cmdCancelEdit.Visible = True




    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If DataGridView1.SelectedRows.Count = 0 Then
            MsgBox("請先選擇要修改的項目")
            Exit Sub
        End If

        Label1.Text = "修改模式"
        Timer1.Enabled = True

        Dim f2 As New FrmEditChem_Choose

        f2.Owner = Me
        f2.ShowDialog()
        ' FrmEditChem_Choose.ShowDialog()
        cmdSaveEdit.Visible = True
        cmdCancelEdit.Visible = True


        DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells("化料名称").Value = my_chem

        DataGridView1.Focus()




    End Sub

    Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp

        Dim rmb As Double = 0
        Dim usd As Double = 0
        Dim euro As Double = 0
        Dim hkd As Double = 0
        Dim dye As Double = 0
        Dim oil As Double = 0
        Dim tan As Double = 0
        Dim x As Double = 0
        Dim kj As Double = 0
        Dim xx As Double = 0

        If con.State = ConnectionState.Closed Then
            con.Open()
        End If



        If e.KeyCode <> Keys.Enter Then
            Exit Sub
        End If

        Dim sql As String = ""

        sql = "select  * from tblcurrency where year='" & Year(DateTime.Now) & "' and month='" & Month(DateTime.Now) & "'"
        cmd.CommandText = sql
        cmd.Connection = con
        dr = cmd.ExecuteReader

        If dr.Read Then
            rmb = dr("rmb")
            usd = dr("usd")
            hkd = dr("hkd")
            euro = dr("euro")
            dr.Close()
        Else
            dr.Close()
            sql = "select  * from tblcurrency order by year desc,month desc"
            cmd.CommandText = sql
            '    dr.Read()
            dr = cmd.ExecuteReader
            dr.Read()
            rmb = dr("rmb")
            usd = dr("usd")
            hkd = dr("hkd")
            euro = dr("euro")
            dr.Close()
        End If



        sql = " SELECT MATLKIND.MATLKIND,SUM(rcp_content.percents / 100 * " & TextBox1.Text & ") as retan,tblMaterial.COIN,SUM(tblMaterial.PUR_UNIT * rcp_content.percents / 100 * " & TextBox1.Text & ") AS retan_cost FROM rcp_content INNER JOIN tblMaterial ON rcp_content.MATL_NO = tblMaterial.MATL_NO INNER JOIN MATLKIND ON tblMaterial.MATL_ID = MATLKIND.MATL_ID WHERE (rcp_content.RCP_NO = '" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("處方編號").Value & "') AND (tblMaterial.COIN IS NOT NULL) GROUP BY tblMaterial.MATL_ID, tblMaterial.COIN, tblMaterial.MATL_ID, MATLKIND.MATLKIND ORDER BY tblMaterial.MATL_ID"
        cmd.CommandText = sql
        dr = cmd.ExecuteReader
        While dr.Read

            Select Case dr("matlkind")
                Case "染料"
                    Select Case dr("coin")
                        Case "RMB"
                            dye += dr("retan_cost") * rmb
                        Case "USD"
                            dye += dr("retan_cost") * usd
                        Case "歐元"
                            dye += dr("retan_cost") * euro
                        Case "港幣"
                            dye += dr("retan_cost") * hkd
                        Case "台幣"
                            dye += dr("retan_cost")
                    End Select

                Case "植物鞣剂"
                    Select Case dr("coin")
                        Case "RMB"
                            kj += dr("retan_cost") * rmb
                        Case "USD"
                            kj += dr("retan_cost") * usd
                        Case "歐元"
                            kj += dr("retan_cost") * euro
                        Case "港幣"
                            kj += dr("retan_cost") * hkd
                        Case "台幣"
                            kj += dr("retan_cost")
                    End Select
                Case "油脂"
                    Select Case dr("coin")
                        Case "RMB"
                            oil += dr("retan_cost") * rmb
                        Case "USD"
                            oil += dr("retan_cost") * usd
                        Case "歐元"
                            oil += dr("retan_cost") * euro
                        Case "港幣"
                            oil += dr("retan_cost") * hkd
                        Case "台幣"
                            oil += dr("retan_cost")
                    End Select
                Case "單寧", "樹脂", "铬粉"
                    Select Case dr("coin")
                        Case "RMB"
                            tan += dr("retan_cost") * rmb
                        Case "USD"
                            tan += dr("retan_cost") * usd
                        Case "歐元"
                            tan += dr("retan_cost") * euro
                        Case "港幣"
                            tan += dr("retan_cost") * hkd
                        Case "台幣"
                            tan += dr("retan_cost")
                    End Select
                Case "中和剂", "一般化料"
                    Select Case dr("coin")
                        Case "RMB"
                            x += dr("retan_cost") * rmb
                        Case "USD"
                            x += dr("retan_cost") * usd
                        Case "歐元"
                            x += dr("retan_cost") * euro
                        Case "港幣"
                            x += dr("retan_cost") * hkd
                        Case "台幣"
                            x += dr("retan_cost")
                    End Select
                Case Else
                    Select Case dr("coin")
                        Case "RMB"
                            xx += dr("retan_cost") * rmb
                        Case "USD"
                            xx += dr("retan_cost") * usd
                        Case "歐元"
                            xx += dr("retan_cost") * euro
                        Case "港幣"
                            xx += dr("retan_cost") * hkd
                        Case "台幣"
                            xx += dr("retan_cost")
                    End Select

            End Select
        End While


        txttan.Text = Math.Round(tan, 3)
        txtKJ.Text = Math.Round(kj, 3)
        txtoil.Text = Math.Round(oil, 3)
        txtdye.Text = Math.Round(dye, 3)
        txtx.Text = Math.Round(x, 3)
        txtxx.Text = Math.Round(xx, 3)
        txtsum.Text = Math.Round(tan + oil + kj + dye + x + xx, 3)

        txtsize.Focus()


        con.Close()




    End Sub

    Private Sub txtsize_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtsize.KeyUp

        If e.KeyCode <> Keys.Enter Then
            Exit Sub
        End If


        txttan.Text = Math.Round(txttan.Text / txtsize.Text, 3)
        txtoil.Text = Math.Round(txtoil.Text / txtsize.Text, 3)
        txtdye.Text = Math.Round(txtdye.Text / txtsize.Text, 3)
        txtx.Text = Math.Round(txtx.Text / txtsize.Text, 3)
        txtxx.Text = Math.Round(txtxx.Text / txtsize.Text, 3)
        txtKJ.Text = Math.Round(txtKJ.Text / txtsize.Text, 3)
        txtsum.Text = Math.Round(txtsum.Text / txtsize.Text, 3)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If

        Dim rcp1 As String = ""

        rcp1 = TextBox18.Text


        ' rcp1 = InputBox("請輸入要查詢的處方編號或處方名稱")
        If rcp1 = "" Then Exit Sub
        sql_rcp = "select NAME as 品名, date as 日期,selection,no from ht_retanrcp where name like N'%" & rcp1 & "%' group by name,date,selection,no order by name,date desc"

        sql_rcp = "select top(200) name as 品名,date as 日期,selection as 选级,avg(weight) as 重量,no as 流程卡号,rcp_no as 表格编号 from ht_retanrcp where name like N'%" & rcp1 & "%' group by name,date,selection,rcp_no,no order by date desc"
        cmd.Connection = con
        cmd.CommandText = sql_rcp
        da.SelectCommand = cmd

        Dim dt As New DataTable
        da.Fill(dt)
        DGV1.DataSource = dt
        con.Close()

        'DGV1.Columns(0).Width = 280
        'DGV1.Columns(1).Width = 140

        Dim c As Integer = 1
        Dim p(200) As Integer

        Dim x As Integer

        p(1) = 0

        For x = 1 To DGV1.Rows.Count - 2
            If DGV1.Rows(x).Cells(0).Value.ToString <> DGV1.Rows(x - 1).Cells(0).Value.ToString Then
                p(c + 1) = x
                c = c + 1
            End If
        Next
        p(c + 1) = x
        ReDim Preserve p(x)
        If c = 1 Then
            For z As Integer = 0 To x - 1
                DGV1.Rows(z).DefaultCellStyle.BackColor = colorArray(1)
            Next
        Else
            For cc As Integer = 1 To c
                For z As Integer = p(cc) To p(cc + 1) - 1
                    DGV1.Rows(z).DefaultCellStyle.BackColor = colorArray(cc Mod 5)
                Next
            Next
        End If

        DGV1.Columns(0).Width = 170
        DGV1.Columns(1).Width = 100
        DGV1.Columns(3).Width = 70
        DGV1.Columns(4).Width = 150
        DGV1.RowHeadersWidth = 30
        DataGridView1.RowHeadersWidth = 30
        DataGridView1.RowTemplate.Height = 26




    End Sub

    Private Sub DGV1_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV1.CellEnter



        'Dim ds1 As New DataSet
        'Dim ds2 As New DataSet
        'Dim cn As New SqlConnection
        'cn.ConnectionString = connstring
        'cn.Open()
        'cmd.Connection = cn



        'txttan.Text = ""
        'txtKJ.Text = ""
        'txtoil.Text = ""
        'txtdye.Text = ""
        'txtx.Text = ""
        'txtxx.Text = ""
        'txtsum.Text = ""


        'Dim dt As New DataTable

        'sql_rcp = "SELECT serial AS 项目, CHEM AS 化料名称, PERCENTAGE AS 百分比, time AS 时间, WEIGHT AS 重量,comment AS 备注 from rt_retan_rcp_detail where rcp_name =N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("处方编号").Value & "' order by serial"



        'cmd.CommandText = sql_rcp
        'da.SelectCommand = cmd
        'da.Fill(dt)
        'dgv2.DataSource = dt

        'set_grid1()

        'rcp = "rt_retan_rcp"
        'sql_rcp = "select creat_d from  " & rcp & " where RCP_NO='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells(0).Value & "'"
        'cmd.CommandText = sql_rcp
        'If cmd.ExecuteScalar Is Nothing Then
        'Else
        '    txtcreate.Text = cmd.ExecuteScalar.ToString
        'End If
        'sql_rcp = "select last_used from  " & rcp & " where RCP_NO='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells(0).Value & "'"
        'cmd.CommandText = sql_rcp
        'If cmd.ExecuteScalar Is Nothing Then
        'Else
        '    txtuse.Text = cmd.ExecuteScalar.ToString
        'End If

        'sql_rcp = "select last_edited from  " & rcp & " where RCP_NO='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells(0).Value & "'"
        'cmd.CommandText = sql_rcp
        'If cmd.ExecuteScalar Is Nothing Then
        'Else
        '    txtedit.Text = cmd.ExecuteScalar.ToString
        'End If

        'sql_rcp = "select editor from  " & rcp & " where RCP_NO='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells(0).Value & "'"
        'cmd.CommandText = sql_rcp
        'If cmd.ExecuteScalar Is Nothing Then
        'Else
        '    '    txteditor.Text = cmd.ExecuteScalar.ToString
        '    'End If

        '    txteditor.Text = cmd.ExecuteScalar.ToString
        'End If
        '        sql_rcp = "SELECT rcp_content.ITEM AS 項目, rcp_content.MATL_NO AS 化料編號, tblMaterial.MATL_NAME AS 化料名称, rcp_content.percents AS 百分比, " &
        '"                      rcp_content.time AS 时间, rcp_content.comment AS 備註, tblMaterial.COIN AS 幣別, tblMaterial.PUR_UNIT 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='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells(0).Value & "edit' ORDER BY 項目"


        '        sql_rcp = "SELECT     rcp_content.ITEM AS 項目, rcp_content.MATL_NO AS 化料編號, tblMaterial.MATL_NAME AS 化料名称, rcp_content.percents AS 百分比, " &
        '                   "   rcp_content.time AS 时间, rcp_content.comment AS 備註, tblMaterial.COIN AS 幣別, tblMaterial.PUR_UNIT AS 單價 " &
        '"FROM         rcp_content INNER JOIN " &
        ' "                     tblMaterial ON rcp_content.MATL_NO = tblMaterial.MATL_NO " &
        '"WHERE     (rcp_content.RCP_NO='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells(0).Value & "edit') " &
        '" ORDER BY 項目"








        '        cmd.CommandText = sql_rcp
        '        da.SelectCommand = cmd
        '        da.Fill(ds2)
        '        dgv_record.DataSource = ds2.Tables(0)

        '        set_grid2()






        '        sql_rcp = "SELECT MATLKIND.MATLKIND as 類別, tblMaterial.MATL_id as 代號,round(SUM(rcp_content.percents),1) AS 比例 FROM rcp_content INNER JOIN" &
        '                        "    tblMaterial ON rcp_content.MATL_NO = tblMaterial.MATL_NO INNER JOIN " &
        '                        " MATLKIND ON tblMaterial.MATL_ID = MATLKIND.MATL_ID" &
        '" WHERE          (rcp_content.RCP_NO='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells(0).Value & "') AND (tblMaterial.COIN IS NOT NULL)" &
        '" GROUP BY   tblMaterial.MATL_ID, MATLKIND.MATLKIND" &
        '" ORDER BY   tblMaterial.MATL_ID"
        '        Dim ds3 As New DataSet
        '        cmd.CommandText = sql_rcp
        '        da.SelectCommand = cmd
        '        da.Fill(ds3)
        '        dgv_cost.DataSource = ds3.Tables(0)




        '        set_grid3()



        '        cn.Close()

    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)

        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)


        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)


        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)

        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 " & 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

            'sql = "insert into " & rcp & " (rcp_no,rcp_name,creat_d) values ( '" & rcp_no & "','" & rcp_name & "','" & Now & "')"
            'cmd.CommandText = sql
            'Dim b As Integer = cmd.ExecuteScalar()
            'If b <> 0 Then
            '    MsgBox("新增處方完成")
            '    Exit Sub

            'End If
        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)
        DGV1.DataSource = ds.Tables(0)

        Timer1.Enabled = True

        con.Close()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Label1.Visible = True Then
            Label1.Visible = False
        Else
            Label1.Visible = True
        End If
    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 = ""

        sql = "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


        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()


            'cmd.CommandText = "insert into rcp_content (item,matl_no,percents,rcp_no,time,comment) values ('03','X613','1','E00250WD','20','停40轉20停40')"
            'cmd.ExecuteNonQuery()
        Next


        cmdAddrcp.Visible = False
        cmdcanceladd.Visible = False

        Timer1.Enabled = False
        Label1.Visible = False

        conn.Close()


    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


        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
        Label1.Visible = False




    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click '打印标签



        ' ini_content()     '取得卡号等相关资讯



        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet


        Dim folderPath As String = "\\DS920plus\华峰业务\AA化料文件资料\2024年整理MSDS和ZDHC\MSDS\MSDS总表"


        Dim my_card As String
        Dim my_weight As Double
        Dim d_no As String
        Do
            my_card = InputBox("请输入卡号：", "查询")
            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("请输入重量：", "查询")
            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("请输入编号：", "查询")
            If d_no = "" Then
                MsgBox("操作已取消。", vbInformation, "退出")
                Exit Sub
            ElseIf d_no Like "*-*" Then
                '  MsgBox("编号格式不正确，请输入类似 'P241129-4' 的编号！", vbExclamation, "错误")
            Else
                Exit Do
            End If
        Loop





        'frm_01hf_RetanRcp_WB.ShowDialog()

        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

        '   DT2.DefaultView.Sort = "分类 "
        'dt = dt.DefaultView.ToTable()

        Dim xx As Integer = 0
        Dim y As Integer = 0

        Dim p(10) As String


        p(1) = "c:\GHS\1.jpg"
        p(2) = "c:\GHS\2.jpg"
        p(3) = "c:\GHS\3.jpg"
        p(4) = "c:\GHS\4.jpg"
        p(5) = "c:\GHS\5.jpg"
        p(6) = "c:\GHS\6.jpg"
        p(7) = "c:\GHS\7.jpg"
        p(8) = "c:\GHS\8.jpg"
        p(9) = "c:\GHS\9.jpg"



        Dim FILE_NAME As String
        Dim FILE_NAME1 As String


        'Dim obj As New FolderBrowserDialog
        Dim sPath As String

        sPath = "c:\GHS\"


        Dim dt As DataTable = CType(DataGridView1.DataSource, DataTable)

        Dim dv As DataView = dt.DefaultView
        dv.Sort = "类别 ASC, 项次 ASC"

        ' 重新绑定排序后的 DataView
        DataGridView1.DataSource = dv

        ' DataGridView1.Sort(DataGridView1.Columns("类别"), ListSortDirection.Ascending)

        Dim zzz As Integer = 0


        For x As Integer = 0 To DataGridView1.Rows.Count - 2    '---迴圈

            If (DataGridView1.Rows(x).Cells("类别").Value <> "不列印") Then


                If Not (DataGridView1.Rows(x).DefaultCellStyle.Font Is Nothing) Then

                    GoTo ok11

                End If

                ' PictureBox1.Image = MakeQrCode(DGV1.Rows(DGV1.CurrentCell.RowIndex).Cells("品名").Value & vbCrLf & my_card & vbCrLf & color1 & vbCrLf & DataGridView1.Rows(x).Cells("化料名称").Value & vbCrLf & Math.Round(DataGridView1.Rows(x).Cells("百分比").Value * my_weight， 1)）

                PictureBox1.Image = MakeQrCode("http://192.168.110.164:8888/" & DataGridView1.Rows(x).Cells("filename").Value）

                System.Windows.Forms.Clipboard.SetDataObject(PictureBox1.Image, True)  '---------------------------------------复制到剪贴板  二维码

                If System.Windows.Forms.Clipboard.ContainsImage() Then
                    Console.WriteLine("剪贴板包含有效的图片数据")
                Else
                    Console.WriteLine("剪贴板中没有图片数据")
                End If

                System.Threading.Thread.Sleep(200)

                Dim range2 As Excel.Range = xlSheet.Range(xlApp.Cells(y * 13 + 9, 4), xlApp.Cells(y * 13 + 9, 4))  '粘贴图片的位置   二维码


                xlSheet.Paste(range2, PictureBox1.Image)





                Dim shape As Excel.Shape = xlApp.Selection.ShapeRange.Item(1)
                shape.ScaleWidth(0.29, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoScaleFrom.msoScaleFromTopLeft)
                shape.IncrementLeft(45)
                shape.IncrementTop(-14)

                'PictureBox1.Select()

                'xlApp.Selection.ShapeRange.ScaleWidth(0.29, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoScaleFrom.msoScaleFromTopLeft)
                'xlApp.Selection.ShapeRange.Incrementleft(45)
                'xlApp.Selection.ShapeRange.Incrementtop(-14)
                ' zzz = zzz + 1



                Dim z1 As Integer = 0
                For z As Integer = 1 To 9

                    If DataGridView1.Rows(x).Cells("d" & z).Value.ToString <> "" Then

                        System.Windows.Forms.Clipboard.SetDataObject(p(z), True)  '复制到剪贴板
                        If z1 < 3 Then
                            Dim range1 As Excel.Range = xlSheet.Range(xlApp.Cells(y * 13 + 4, z1 + 1), xlApp.Cells(y * 13 + 4, z1 + 1))  '粘贴图片的位置

                            range1.Select()

                            '  xlApp.ActiveSheet.Pictures.Insert(p(z))

                            '   xlSheet.Paste(range1, p(z))

                            With xlApp.ActiveSheet.Pictures.Insert(p(z))
                                With .ShapeRange
                                    .LockAspectRatio = Microsoft.Office.Core.MsoTriState.msoTrue
                                    '.Width = 75
                                    '.Height = 100
                                    .ScaleWidth(0.09, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoScaleFrom.msoScaleFromTopLeft)
                                End With
                                '.Left = xlApp.ActiveSheet.Cells(i, 20).Left
                                '.Top = xlApp.ActiveSheet.Cells(i, 20).Top
                                '.Placement = 1
                                '.PrintObject = True
                            End With


                        Else
                            Dim range1 As Excel.Range = xlSheet.Range(xlApp.Cells(y * 13 + 9, (z1 Mod 3) + 1), xlApp.Cells(y * 13 + 9, (z1 Mod 3) + 1))  '粘贴图片的位置

                            range1.Select()

                            ' xlApp.ActiveSheet.Pictures.Insert(p(z))
                            'xlSheet.Paste(range1, p(z))
                            With xlApp.ActiveSheet.Pictures.Insert(p(z))
                                With .ShapeRange
                                    .LockAspectRatio = Microsoft.Office.Core.MsoTriState.msoTrue
                                    ' .Width = 75
                                    '.Height = 100
                                    .ScaleWidth(0.09, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoScaleFrom.msoScaleFromTopLeft)
                                End With
                                '.Left = xlApp.ActiveSheet.Cells(i, 20).Left
                                '.Top = xlApp.ActiveSheet.Cells(i, 20).Top
                                '.Placement = 1
                                '.PrintObject = True
                            End With
                        End If
                        'Dim pic1 As String
                        'pic1 = "圖片 " & zzz + 3

                        'xlApp.ActiveSheet.Shapes.Range(pic1).Select
                        'xlApp.Selection.ShapeRange.ScaleWidth(0.09, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoScaleFrom.msoScaleFromTopLeft)
                        ' xlApp.Selection.ShapeRange.Incrementtop(-1)
                        ' y = y + 1

                        zzz = zzz + 1
                        z1 = z1 + 1
                    End If


                Next



                xlSheet.Cells(y * 13 + 1, 5).select
                xlSheet.Cells(y * 13 + 1, 5) = "序号:" & DataGridView1.Rows(x).Cells("项次").Value
                xlSheet.Cells(y * 13 + 1, 4).font.bold = True
                xlSheet.Cells(y * 13 + 1, 1) = "卡号:" & my_card
                xlSheet.Cells(y * 13 + 1, 1).font.bold = True
                xlSheet.Cells(y * 13 + 1, 1).font.bold = True
                xlSheet.Cells(y * 13 + 4, 5) = "鼓号"
                xlSheet.Cells(y * 13 + 5, 5) = d_no
                xlSheet.Cells(y * 13 + 4, 5).font.bold = True
                xlSheet.Cells(y * 13 + 5, 5).font.bold = True
                xlSheet.Cells(y * 13 + 6, 5) = "下鼓重"
                xlSheet.Cells(y * 13 + 7, 5) = my_weight
                xlSheet.Cells(y * 13 + 6, 5).font.bold = True
                xlSheet.Cells(y * 13 + 7, 5).font.bold = True
                xlSheet.Cells(y * 13 + 6, 4) = "百分比"
                xlSheet.Cells(y * 13 + 7, 4) = DataGridView1.Rows(x).Cells("百分比").Value
                xlSheet.Cells(y * 13 + 6, 4).font.bold = True
                xlSheet.Cells(y * 13 + 7, 4).font.bold = True



                ' xlSheet.Cells(y * 13 + 3, 3) = "客户： " & cust
                'xlSheet.Cells(y * 13 + 4, 3) = "颜色： " & color1
                'xlSheet.Cells(y * 13 + 5, 3) = "皮源： " & source
                'xlSheet.Cells(y * 13 + 6, 3) = "皮重： " & wb_weight & "斤"
                ' xlSheet.Cells(y * 12 + 6, 3) = "备注： " & comment



                xlSheet.Cells(y * 13 + 2, 1) = "名称: " & DataGridView1.Rows(x).Cells("化料名称").Value
                xlSheet.Cells(y * 13 + 2, 1).Font.bold = True
                xlSheet.Cells(y * 13 + 2, 1).Font.SIZE = 18
                xlSheet.Cells(y * 13 + 3, 1) = "重量: " & Math.Round(DataGridView1.Rows(x).Cells("百分比").Value * my_weight / 100, 2) & " 公斤"
                xlSheet.Cells(y * 13 + 3, 1).font.bold = True
                xlSheet.Cells(y * 13 + 3, 1).font.SIZE = 18

                xlSheet.Cells(y * 13 + 3, 4) = DataGridView1.Rows(x).Cells("化工分类").Value.ToString
                xlSheet.Cells(y * 13 + 3, 4).font.bold = True
                xlSheet.Cells(y * 13 + 3, 4).font.SIZE = 18



                With xlSheet.Range(xlApp.Cells(y * 13 + 2, 1), xlApp.Cells(y * 13 + 3, 5)).Borders(xlEdgeLeft)
                    .LineStyle = xlContinuous
                    '.ColorIndex = 0
                    '.TintAndShade = 0
                    .Weight = xlMedium
                End With

                With xlSheet.Range(xlApp.Cells(y * 13 + 2, 1), xlApp.Cells(y * 13 + 3, 5)).Borders(xlEdgeRight)
                    .LineStyle = xlContinuous
                    '.ColorIndex = 0
                    '.TintAndShade = 0
                    .Weight = xlMedium
                End With
                With xlSheet.Range(xlApp.Cells(y * 13 + 2, 1), xlApp.Cells(y * 13 + 3, 5)).Borders(xlEdgeTop)
                    .LineStyle = xlContinuous
                    '.ColorIndex = 0
                    '.TintAndShade = 0
                    .Weight = xlMedium
                End With
                With xlSheet.Range(xlApp.Cells(y * 13 + 2, 1), xlApp.Cells(y * 13 + 3, 5)).Borders(xlEdgeBottom)
                    .LineStyle = xlContinuous
                    '.ColorIndex = 0
                    '.TintAndShade = 0
                    .Weight = xlMedium
                End With

                xlApp.Range(xlSheet.Cells(y * 13 + 2, 1), xlSheet.Cells(y * 13 + 2, 5)).Select()
                '  xlApp.Range("E2").Activate()
                xlApp.Selection.Merge

                'xlApp.Range(xlSheet.Cells(y * 13 + 13, 2), xlSheet.Cells(y * 13 + 13, 3)).Select()
                ''  xlApp.Range("E2").Activate()
                'xlApp.Selection.Merge


                'With xlApp.Selection
                '    .HorizontalAlignment = xlLeft
                '    .VerticalAlignment = xlCenter
                '    .WrapText = False
                '    .Orientation = 0
                '    .AddIndent = False
                '    .IndentLevel = 0
                '    .ShrinkToFit = True
                '    .ReadingOrder = xlContext
                '    .MergeCells = True
                'End With

                'With xlApp.Selection
                '    .HorizontalAlignment = xlLeft
                '    .VerticalAlignment = xlCenter
                '    .WrapText = False
                '    .Orientation = 0
                '    .AddIndent = False
                '    .IndentLevel = 0
                '    .ShrinkToFit = False
                '    .ReadingOrder = xlContext
                '    .MergeCells = True
                'End With
                'With xlApp.Selection
                '    .HorizontalAlignment = xlLeft
                '    .VerticalAlignment = xlCenter
                '    .WrapText = False
                '    .Orientation = 0
                '    .AddIndent = False
                '    .IndentLevel = 0
                '    .ShrinkToFit = True
                '    .ReadingOrder = xlContext
                '    .MergeCells = True
                'End With

                'xlSheet.Range(xlApp.Cells(y * 13 + 10, 1), xlApp.Cells(y * 13 + 10, 4)).Borders(xlInsideVertical).LineStyle = xlNone
                'xlSheet.Range(xlApp.Cells(y * 13 + 10, 1), xlApp.Cells(y * 13 + 10, 4)).Borders(xlInsideHorizontal).LineStyle = xlNone


                xlSheet.Cells(y * 13 + 11, 2) = DGV1.Rows(DGV1.CurrentCell.RowIndex).Cells("品名").Value
                xlSheet.Cells(y * 13 + 13, 2) = "打印时间： " & DateTime.Now
                xlSheet.Cells(y * 13 + 12, 2) = "打印人员： " & "小甘"
                'Dim range As Excel.Range = xlSheet.Range(xlApp.Cells(y * 13 + 2, 1), xlApp.Cells(y * 13 + 2, 1))  '粘贴图片的位置

                'xlSheet.Paste(range, PictureBox1.Image)

                'Dim pic As String
                'pic = "picture " & y + 1

                'xlApp.ActiveSheet.Shapes.Range(pic).Select
                'xlApp.Selection.ShapeRange.ScaleWidth(0.5, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoScaleFrom.msoScaleFromTopLeft)
                'xlApp.Selection.ShapeRange.IncrementTop(2.2553543307)

                y = y + 1
            Else
ok11:
            End If

        Next

        'xlApp.ActiveSheet.PageSetup.PrintArea = "$A$1:$E$660"

        xlApp.ActiveSheet.PageSetup.PrintArea = "$a$1:$E$" & y * 13
        ' xlSheet.Columns("C:C").ColumnWidth = 10.75



        Dim yy As Integer = 0
        xlApp.ActiveWindow.View = Microsoft.Office.Interop.Excel.XlWindowView.xlPageBreakPreview

        For x As Integer = 0 To DataGridView1.Rows.Count - 2

            If DataGridView1.Rows(x).Cells("化料名称").Value <> "水" And DataGridView1.Rows(x).Cells("化料名称").Value <> "甲酸  1200kg/桶" And DataGridView1.Rows(x).Cells("化料名称").Value <> "Eusapon OC liq  1000kg/桶" Then
                If yy <> 0 Then
                    Dim r As String
                    r = "A" & yy * 13 + 1

                    xlApp.ActiveSheet.HPageBreaks.Add(xlApp.Range(r))

                    'xlApp.ActiveSheet.HPageBreaks(yy).Location = xlSheet.Range(r)

                    'xlApp.ActiveSheet.HPageBreaks.Add.Range(r)

                End If

                yy = yy + 1
            End If

        Next x

        'For Each shp In xlApp.ActiveSheet.shapes
        '    shp.select

        '    xlApp.Selection.ShapeRange.ScaleWidth(0.1, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoScaleFrom.msoScaleFromTopLeft)
        'Next

        With xlApp.ActiveSheet.PageSetup
            '.LeftHeader = ""
            '.CenterHeader = ""
            '.RightHeader = ""
            '.LeftFooter = ""
            '.CenterFooter = ""
            '.RightFooter = ""
            .LeftMargin = xlApp.Application.InchesToPoints(0.4)
            .RightMargin = xlApp.Application.InchesToPoints(0.4)
            .TopMargin = xlApp.Application.InchesToPoints(0.5)
            .BottomMargin = xlApp.Application.InchesToPoints(0.5)
            .HeaderMargin = xlApp.Application.InchesToPoints(0)
            .FooterMargin = xlApp.Application.InchesToPoints(0)
            .PrintHeadings = False
            .PrintGridlines = False
            .PrintComments = xlPrintNoComments
            .CenterHorizontally = False
            .CenterVertically = False
            .Orientation = xlLandscape
            .Draft = False
            ' .PaperSize = xlPaperA4
            .FirstPageNumber = xlAutomatic
            .Order = xlDownThenOver
            .BlackAndWhite = False
            .Zoom = 85
            .PrintErrors = xlPrintErrorsDisplayed
            .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False
            .ScaleWithDocHeaderFooter = True
            .AlignMarginsHeaderFooter = True

        End With


        DataGridView1.Sort(DataGridView1.Columns("项次"), ListSortDirection.Ascending)

        ' DT2.DefaultView.Sort = "项次 "

        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 = 1
        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() '-------流程卡号1
        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("d2:e2").Select() '--------打印日期1
        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("f2:f2").Select() '--------规格1
        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("j2:j2").Select() '--------鼓号1
        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("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() '-------规格1
        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("j1:o1").Select() '------工艺名称1
        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("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 cmdCancelEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancelEdit.Click

        'For x As Integer = 0 To dgv2.Rows.Count - 1
        '    dgv2.Rows(x).DefaultCellStyle.Font = New Font(dgv2.DefaultCellStyle.Font, FontStyle.Regular)
        '    dgv2.Rows(x).Cells("百分比").Style.BackColor = Color.White
        '    dgv2.Rows(x).Cells("化料編號").Style.BackColor = Color.White
        '    dgv2.Rows(x).Cells("化料名称").Style.BackColor = Color.White
        '    dgv2.Rows(x).Cells("时间").Style.BackColor = Color.White
        '    dgv2.Rows(x).Cells("備註").Style.BackColor = Color.White
        'Next

        cmdSaveEdit.Visible = False
        cmdCancelEdit.Visible = False
        Timer1.Enabled = False
        Label1.Visible = False

    End Sub


    Private Sub cmdSaveEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSaveEdit.Click


        ' dgv2.Rows(dgv2.SelectedRows(0).Index).Selected = False



        Dim edited As Boolean = False


        Dim cmd1 As New SqlCommand
        cmd1.Connection = con
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If

        '----------判斷是否修改
        For x As Integer = 0 To dgv2.Rows.Count - 1
            If DataGridView1.Rows(x).Cells("项次").Style.BackColor.Name <> "0" Or Not (DataGridView1.Rows(x).DefaultCellStyle.Font Is Nothing) Then
                edited = True
                Exit For
            End If
            If DataGridView1.Rows(x).Cells("百分比").Style.BackColor.Name <> "0" Or Not (DataGridView1.Rows(x).DefaultCellStyle.Font Is Nothing) Then
                edited = True
                Exit For
            End If

            If DataGridView1.Rows(x).Cells("化料名称").Style.BackColor.Name <> "0" Or Not (DataGridView1.Rows(x).DefaultCellStyle.Font Is Nothing) Then
                edited = True
                Exit For
            End If
            If DataGridView1.Rows(x).Cells("时间").Style.BackColor.Name <> "0" Or Not (DataGridView1.Rows(x).DefaultCellStyle.Font Is Nothing) Then
                edited = True
                Exit For
            End If
            If DataGridView1.Rows(x).Cells("备注").Style.BackColor.Name <> "0" Or Not (DataGridView1.Rows(x).DefaultCellStyle.Font Is Nothing) Then
                edited = True
                Exit For
            End If
        Next
        '-------------------------------------------------

        If edited = True Then

            'sql_rcp = "delete from rt_retan_rcp where tech=N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells(0).Value & "' and rcp_name='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells(1).Value & "'"
            'cmd.CommandText = sql_rcp
            'cmd.Connection = conn
            'If conn.State = ConnectionState.Closed Then
            '    conn.Open()
            'End If
            'cmd.ExecuteNonQuery()

            '''sql_rcp = "delete from ht_retanrcp where rcp_no=N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells(5).Value & "'"
            '''cmd.CommandText = sql_rcp
            '''cmd.Connection = conn

            '''If conn.State = ConnectionState.Closed Then
            '''    conn.Open()
            '''End If
            '''dr = cmd.ExecuteReader


            ''-----------舊記錄存檔
            'While dr.Read()
            '    sql_rcp = "insert into rcp_content (item,matl_no,percents,rcp_no,time,comment) values('" & dr("item") & "','" & dr("matl_no") & "','" & dr("percents") & "','" & dr("rcp_no") & "edit','" & dr("time") & "',N'" & dr("comment") & "')"
            '    cmd1.CommandText = sql_rcp
            '    cmd1.ExecuteNonQuery()
            'End While


            'Dim gUserName As String = "matchy"

            'sql_rcp = "update " & rcp & " set last_edited ='" & Now.ToString & "',editor='" & gUserName & "' where rcp_no='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells(0).Value & "'"
            'cmd1.CommandText = sql_rcp
            'cmd1.ExecuteNonQuery()


        End If



        '-----------將現有處方明細先刪除
        'sql_rcp = "delete from rcp_content where rcp_no='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells(0).Value & "'"
        'cmd1.CommandText = sql_rcp
        'cmd1.ExecuteNonQuery()




        '-----------加入新修改之處方明細
        Dim y As Integer = 1
        For x As Integer = 0 To DataGridView1.Rows.Count - 1


            If (DataGridView1.Rows(x).DefaultCellStyle.Font Is Nothing) Then
                sql_rcp = "insert into ht_retanrcp1 (item,name,chem,percents,time,comment) values('" & y & "',N'" & DGV1.Rows(DGV1.CurrentCell.RowIndex).Cells("品名").Value & "',N'" & DataGridView1.Rows(x).Cells("化料名称").Value & "','" & DataGridView1.Rows(x).Cells("百分比").Value & "','" & DataGridView1.Rows(x).Cells("时间").Value & "',N'" & DataGridView1.Rows(x).Cells("备注").Value & "')"
                cmd1.CommandText = sql_rcp
                cmd1.ExecuteNonQuery()

                y = y + 1
            End If


        Next


        MsgBox("修改完成")

        cmdSaveEdit.Visible = False
        cmdCancelEdit.Visible = False
        Timer1.Enabled = False
        Label1.Visible = False
        conn.Close()
        con.Close()
    End Sub

    Private Sub cmdcanceladd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcanceladd.Click

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        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 Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox9.Text = ""
        TextBox6.Text = ""
        TextBox8.Text = ""
        TextBox7.Text = ""
        TextBox10.Text = ""
        TextBox5.Text = ""
        If conn.State = ConnectionState.Closed Then
            conn.ConnectionString = connstring
            conn.Open()
        End If
        cmd.Connection = conn
        Dim sql As String

        sql = "select * from retan_cost where pid='" & TXT_PID.Text & "'"
        cmd.CommandText = sql
        dr = cmd.ExecuteReader()

        If dr.Read Then
            Dim my_msg As MsgBoxResult
            my_msg = MsgBox("資料已存在，是否繼續?", MsgBoxStyle.YesNo)
            If my_msg = MsgBoxResult.No Then
                dr.Close()
                Exit Sub
            End If
        Else
        End If
        dr.Close()


        Dim io_no As String = ""
        Dim io_count As Integer = 0
        Dim my_weight As Integer = 0
        Dim my_piece As Integer = 0
        Dim matl_id As String

        sql = "select weight,piece from production where production_id='" & TXT_PID.Text & "'"
        cmd.CommandText = sql
        dr = cmd.ExecuteReader

        dr.Read()
        my_piece = dr("piece")
        dr.Close()

        sql = "select count(*) as my_count from material_io where left(io_no,1)='w' and substring(io_no,2,6)='" & String.Format("{0:yyMMdd}", DateTimePicker1.Value) & "'"
        cmd.CommandText = sql
        io_count = cmd.ExecuteScalar

        io_no = "W" & String.Format("{0:yyMMdd}", DateTimePicker1.Value) & Chr(io_count + 65)

        sql = "insert into material_io (io_no,rcp_no,weight,pieces,department) values ('" & io_no & "','" & DGV1.Rows(DGV1.CurrentRow.Index).Cells(0).Value & "','" & Math.Round(Double.Parse(TextBox1.Text) * my_piece, 0) & "','" & my_piece & "','染色')"
        cmd.CommandText = sql
        cmd.ExecuteNonQuery()

        For x As Integer = 0 To dgv2.RowCount - 1
            sql = "select matl_id from tblmaterial where matl_no='" & dgv2.Rows(x).Cells(2).Value & "'"
            cmd.CommandText = sql
            dr = cmd.ExecuteReader
            dr.Read()
            matl_id = dr("matl_id").ToString
            dr.Close()
            If (dgv2.Rows(x).DefaultCellStyle.Font Is Nothing) Then
                sql = "insert into retan_cost (pid,item,matl_no,percents,time,comment,coin,price,weight,tannie,oil,dye,aux,other,date,rcp_no,w_no) values ('" & TXT_PID.Text & "','" & x + 1 & "','" & dgv2.Rows(x).Cells(2).Value & "','" & dgv2.Rows(x).Cells(1).Value & "','" & dgv2.Rows(x).Cells(4).Value & "','" & dgv2.Rows(x).Cells(5).Value & "','" & dgv2.Rows(x).Cells(6).Value & "','" & dgv2.Rows(x).Cells(7).Value & "','" & TextBox1.Text & "','" & txttan.Text & "','" & txtoil.Text & "','" & txtdye.Text & "','" & txtx.Text & "','" & txtxx.Text & "','" & String.Format("{0:d}", DateTimePicker1.Value) & "','" & DGV1.Rows(DGV1.CurrentRow.Index).Cells(0).Value & "','" & io_no & "')"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()
                If matl_id <> "" Then
                    Dim id As Integer = 0
                    sql = "select top (1) id from retan_cost order by id desc "
                    cmd.CommandText = sql
                    id = cmd.ExecuteScalar
                    sql = "insert into matl_io_detail (io_no,matl_no,quantity,id1) values ('" & io_no & "','" & dgv2.Rows(x).Cells(2).Value & "','" & Double.Parse(TextBox1.Text) * my_piece * dgv2.Rows(x).Cells(1).Value / 100 & "','" & id & "')"
                    cmd.CommandText = sql
                    cmd.ExecuteNonQuery()

                    chem_balance(dgv2.Rows(x).Cells(2).Value, Double.Parse(TextBox1.Text) * my_piece * dgv2.Rows(x).Cells(1).Value / 100, x, id)

                End If

            Else
                If dgv2.Rows(x).DefaultCellStyle.Font.Style <> FontStyle.Strikeout Then
                    sql = "insert into retan_cost (pid,item,matl_no,percents,time,comment,coin,price,weight,tannie,oil,dye,aux,other,date,rcp_no,w_no) values ('" & TXT_PID.Text & "','" & x + 1 & "','" & dgv2.Rows(x).Cells(2).Value & "','" & dgv2.Rows(x).Cells(1).Value & "','" & dgv2.Rows(x).Cells(4).Value & "','" & dgv2.Rows(x).Cells(5).Value & "','" & dgv2.Rows(x).Cells(6).Value & "','" & dgv2.Rows(x).Cells(7).Value & "','" & TextBox1.Text & "','" & txttan.Text & "','" & txtoil.Text & "','" & txtdye.Text & "','" & txtx.Text & "','" & txtxx.Text & "','" & String.Format("{0:d}", DateTimePicker1.Value) & "','" & DGV1.Rows(DGV1.CurrentRow.Index).Cells(0).Value & "','" & io_no & "')"
                    cmd.CommandText = sql
                    cmd.ExecuteNonQuery()
                    If matl_id <> "" Then
                        Dim id As Integer = 0
                        sql = "select top (1) id from retan_cost "
                        cmd.CommandText = sql
                        id = cmd.ExecuteScalar
                        sql = "insert into matl_io_detail (io_no,matl_no,quantity,id1) values ('" & io_no & "','" & dgv2.Rows(x).Cells(2).Value & "','" & Double.Parse(TextBox1.Text) * my_piece * dgv2.Rows(x).Cells(1).Value / 100 & "','" & id & "')"
                        cmd.CommandText = sql
                        cmd.ExecuteNonQuery()

                        chem_balance(dgv2.Rows(x).Cells(2).Value, Double.Parse(TextBox1.Text) * my_piece * dgv2.Rows(x).Cells(1).Value / 100, x, id)

                    End If
                End If
            End If

        Next
        conn.Close()

        save_cost()

        MsgBox("作業完成")


    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 save_cost()


        If conn.State = ConnectionState.Closed Then
            conn.ConnectionString = connstring
            conn.Open()

        End If

        cmd.Connection = conn

        Dim sql As String
        sql = "SELECT SUM(cost) AS cost, MATL_ID FROM (SELECT TOP (100) PERCENT tblMaterial.MATL_ID, CASE WHEN retan_cost.coin = '台幣' THEN SUM(tblMaterial.PUR_UNIT * retan_cost.percents / 100 * " & TextBox1.Text & ") WHEN retan_cost.coin = '美金' THEN SUM(tblMaterial.PUR_UNIT * retan_cost.percents / 100 * " & TextBox1.Text & ") * 29.15 WHEN retan_cost.coin = '人民幣' THEN SUM(tblMaterial.PUR_UNIT * retan_cost.percents / 100 *  " & TextBox1.Text & ") * 4.4 WHEN retan_cost.coin = '歐元' THEN SUM(tblMaterial.PUR_UNIT * retan_cost.percents / 100 *  " & TextBox1.Text & ") * 38.97 END AS cost FROM RETAN_COST INNER JOIN tblMaterial ON RETAN_COST.MATL_NO = tblMaterial.MATL_NO WHERE (RETAN_COST.PID = '" & TXT_PID.Text & "') AND (tblMaterial.MATL_ID IS NOT NULL) GROUP BY tblMaterial.MATL_ID, RETAN_COST.COIN ORDER BY tblMaterial.MATL_ID) AS derivedtbl_1 GROUP BY MATL_ID"

        cmd.CommandText = sql
        dr = cmd.ExecuteReader

        Dim t As Double = 0
        Dim x As Double = 0
        Dim f As Double = 0
        Dim d As Double = 0
        Dim xx As Double = 0

        While dr.Read()
            Select Case dr("matl_id")
                Case "T"
                    t = dr("cost")
                Case "X"
                    x = dr("cost")
                Case "D"
                    d = dr("cost")
                Case "F"
                    f = dr("cost")
                Case Else
                    xx = dr("cost")
            End Select

        End While
        dr.Close()


        Dim total As Double = t + x + f + d + xx



        TextBox9.Text = t
        TextBox6.Text = f
        TextBox8.Text = d
        TextBox7.Text = x
        TextBox10.Text = xx
        TextBox5.Text = total



    End Sub


    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
            TextBox11.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
            TextBox1.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

        '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()


        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("輸入新的處方名", DGV1.Rows(DGV1.CurrentRow.Index).Cells(1).Value)


        sql = "update " & rcp & " set rcp_name=N'" & rcp_name & "' where rcp_no='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells(0).Value & "'"

        cmd.Connection = conn
        cmd.CommandText = sql
        cmd.ExecuteScalar()
        conn.Close()






    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        'If RadioButton2.Checked = True Then
        '    rcp = "rcp_main"
        '    rcp1 = "rcp_content"
        'Else
        '    rcp = "prescription_main"
        '    rcp1 = "prescription_content"

        'End If

    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        TextBox9.Text = ""
        TextBox6.Text = ""
        TextBox8.Text = ""
        TextBox7.Text = ""
        TextBox10.Text = ""
        TextBox5.Text = ""
        save_cost()
        ' ''Dim conn5 As New SqlConnection
        ' ''Dim dt1 As New DataTable

        ' ''If matl_no = "G300" Then
        ' ''    Dim aa As String = ""
        ' ''    aa = "asdfasf"

        ' ''End If
        ' ''Sql = "select top (1) lot_no,coin,price,quantity, w from tblchem_lot where matl_no='" & matl_no & "' and quantity-w>0 order by lot_no"
        ' ''cmd.CommandText = Sql
        ' ''da.Fill(dt1)
        ' ''If dt1.Rows.Count = 0 Then
        ' ''    ListBox1.Items.Add(matl_no)
        ' ''    Dim dt2 As New DataTable
        ' ''    Sql = "select top (1) lot_no,coin,price,quantity, w from tblchem_lot where matl_no='" & matl_no & "' order by lot_no desc"
        ' ''    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 ('120229'" & ",'" & matl_no & "','" & quantity & "','" & "領料" & "','ntd','0','" & id & "')"
        ' ''        cmd.CommandText = Sql
        ' ''        dr = cmd.ExecuteScalar
        ' ''        Sql = "update tblchem_lot set w=w+'" & quantity & "' where lot_no='120229' 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
        ' ''    Exit Sub
        ' ''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 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='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells(0).Value & "'"
        cmd.Connection = conn
        cmd.CommandText = sql
        cmd.ExecuteScalar()


        'sql = "delete from " & rcp1 & "  where rcp_no='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells(0).Value & "'"
        'cmd.Connection = conn
        'cmd.CommandText = sql
        'cmd.ExecuteScalar()


        conn.Close()


    End Sub



    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    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

            'sql = "insert into prescription_main (rcp_no,rcp_name,creat_d) values ( '" & rcp_no & "','" & rcp_name & "','" & Now & "')"
            'cmd.CommandText = sql
            'Dim b As Integer = cmd.ExecuteScalar()
            'If b <> 0 Then
            '    MsgBox("新增處方完成")
            '    Exit Sub

            'End If
        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)
        DGV1.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='" & DGV1.Rows(DGV1.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 set_grid()

        DGV1.Columns(0).Width = 280
        DGV1.Columns(1).Width = 140
        'DGV1.Columns(2).Visible = False
        'DGV1.Columns(3).Visible = False
        'DGV1.Columns(4).Visible = False
        'DGV1.RowHeadersVisible = False

        'If gUserName <> "matchy" Then
        '    dgv2.Columns(6).Visible = False
        '    dgv2.Columns(7).Visible = False
        'End If





    End Sub

    Private Sub set_grid1()

        'dgv2.Columns(0).Width = 70
        'dgv2.Columns(1).Width = 350
        'dgv2.Columns(2).Width = 80
        'dgv2.Columns(3).Width = 80
        'dgv2.Columns(4).Width = 300
        ' dgv2.Columns(5).Visible = False
        'dgv2.Columns(5).Width = 150
        'dgv2.Columns(6).Width = 59
        'dgv2.Columns(7).Width = 60
        'dgv2.Columns(8).Width = 50
        'dgv2.Columns(9).Width = 200

        'If gUserName <> "matchy" Then

        '    dgv2.Columns(5).Width = 207
        '    dgv2.Columns(6).Visible = False
        '    dgv2.Columns(7).Visible = False

        'End If
        DataGridView1.Columns(0).Width = 70
        DataGridView1.Columns(1).Width = 150
        DataGridView1.Columns(2).Width = 150
        DataGridView1.Columns(3).Width = 80
        DataGridView1.Columns(4).Width = 100
        DataGridView1.Columns(5).Width = 100
        DataGridView1.Columns(6).Width = 240



    End Sub
    Private Sub set_grid2()

        dgv_record.Columns(0).Width = 38
        dgv_record.Columns(1).Width = 58
        dgv_record.Columns(2).Width = 150
        dgv_record.Columns(3).Width = 50
        dgv_record.Columns(4).Width = 44
        dgv_record.Columns(5).Width = 87
        dgv_record.Columns(6).Width = 59
        dgv_record.Columns(7).Width = 60



        'If gUserName <> "matchy" Then
        '    dgv_record.Columns(6).Visible = False
        '    dgv_record.Columns(7).Visible = False
        'End If

    End Sub
    Private Sub set_grid3()

        dgv_cost.Columns(0).Width = 60
        dgv_cost.Columns(1).Width = 60
        'dgv_cost.Columns(2).Width = 60
        'dgv_cost.Columns(3).Width = 60





    End Sub



    Private Sub DGV1_CellMouseUp(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DGV1.CellMouseUp

        Dim ds1 As New DataSet
        Dim ds2 As New DataSet
        Dim cn As New SqlConnection

        DT2.Clear()

        cn.ConnectionString = connstring
        cn.Open()
        cmd.Connection = cn



        txttan.Text = ""
        txtKJ.Text = ""
        txtoil.Text = ""
        txtdye.Text = ""
        txtx.Text = ""
        txtxx.Text = ""
        txtsum.Text = ""






        sql_rcp = "SELECT  HT_RetanRcp.item AS 项次, HT_RetanRcp.chem AS 化料名称, CASE WHEN type1 IS NULL THEN '' ELSE HT_Chem_Main.type1 END AS 化工分类, CASE WHEN type2 IS NULL THEN N'不列印' ELSE HT_Chem_Main.type2 END AS 类别, HT_RetanRcp.percents AS 百分比, HT_RetanRcp.time AS 时间, HT_RetanRcp.comment AS 备注 FROM     HT_Chem_Main RIGHT OUTER JOIN               HT_Rcp_ChemName_table ON HT_Chem_Main.sys_name = HT_Rcp_ChemName_table.sys_chem_name RIGHT OUTER JOIN               HT_RetanRcp ON HT_Rcp_ChemName_table.rcp_chem_name = HT_RetanRcp.chem where HT_RetanRcp.name =N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("品名").Value & "' and  HT_RetanRcp.date =N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("日期").Value & "'and HT_RetanRcp.selection =N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("选级").Value & "'and HT_RetanRcp.no =N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("流程卡号").Value & "' and  HT_RetanRcp.chem<>'' ORDER BY HT_RetanRcp.rcp_no DESC, 项次"

        sql_rcp = "SELECT HT_RetanRcp.item AS 项次, HT_RetanRcp.chem AS 化料名称, CASE WHEN type1 IS NULL THEN '' ELSE HT_Chem_Main.type1 END AS 化工分类, CASE WHEN type2 IS NULL           THEN N'不列印' ELSE HT_Chem_Main.type2 END AS 类别, HT_RetanRcp.percents AS 百分比, HT_RetanRcp.time AS 时间, HT_RetanRcp.comment AS 备注, HT_Chem_Main.d1, HT_Chem_Main.d2, 
          HT_Chem_Main.d3, HT_Chem_Main.d4, HT_Chem_Main.d5, HT_Chem_Main.d6, HT_Chem_Main.d7, HT_Chem_Main.d8, HT_Chem_Main.d9 FROM   HT_Chem_Main RIGHT OUTER JOIN          HT_Rcp_ChemName_table ON HT_Chem_Main.sys_name = HT_Rcp_ChemName_table.sys_chem_name RIGHT OUTER JOIN
          HT_RetanRcp ON HT_Rcp_ChemName_table.rcp_chem_name = HT_RetanRcp.chem WHERE HT_RetanRcp.name =N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("品名").Value & "' and  HT_RetanRcp.date =N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("日期").Value & "'and HT_RetanRcp.selection =N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("选级").Value & "'and HT_RetanRcp.no =N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("流程卡号").Value & "' and           (HT_RetanRcp.chem <> '')
ORDER BY HT_RetanRcp.rcp_no DESC, 项次"


        'sql_rcp = "SELECT   TOP (200) RT_RETAN_RCP_DETAIL.serial AS 项次, RT_RETAN_RCP_DETAIL.CHEM AS 化料名称,                 RT_RETAN_RCP_DETAIL.PERCENTAGE AS 百分比, RT_RETAN_RCP_DETAIL.time AS 时间,                 RT_RETAN_RCP_DETAIL.comment AS 备注, RT_RETAN_RCP_DETAIL.CLASS AS 分类, RT_CHEM_MSDS.D1,                 RT_CHEM_MSDS.D2, RT_CHEM_MSDS.D3, RT_CHEM_MSDS.D4, RT_CHEM_MSDS.D5, RT_CHEM_MSDS.D6,                 RT_CHEM_MSDS.D7, RT_CHEM_MSDS.D8, RT_CHEM_MSDS.D9,RT_CHEM_MSDS.type as class FROM      RT_RETAN_RCP_DETAIL LEFT OUTER JOIN                RT_CHEM_MSDS ON RT_RETAN_RCP_DETAIL.CHEM = RT_CHEM_MSDS.SYS_NAME where rcp_name =N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("处方名称").Value & "' ORDER BY 项次"



        'sql_print = "SELECT   TOP (200) RT_RETAN_RCP_DETAIL.serial AS 项次, RT_RETAN_RCP_DETAIL.CHEM AS 化料名称,                 RT_RETAN_RCP_DETAIL.PERCENTAGE AS 百分比, RT_RETAN_RCP_DETAIL.time AS 时间,                 RT_RETAN_RCP_DETAIL.comment AS 备注, RT_RETAN_RCP_DETAIL.CLASS AS 分类, RT_CHEM_MSDS.D1,                 RT_CHEM_MSDS.D2, RT_CHEM_MSDS.D3, RT_CHEM_MSDS.D4, RT_CHEM_MSDS.D5, RT_CHEM_MSDS.D6,                 RT_CHEM_MSDS.D7, RT_CHEM_MSDS.D8, RT_CHEM_MSDS.D9,RT_CHEM_MSDS.type as class FROM      RT_RETAN_RCP_DETAIL LEFT OUTER JOIN  RT_CHEM_MSDS ON RT_RETAN_RCP_DETAIL.CHEM = RT_CHEM_MSDS.SYS_NAME where rcp_name =N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("处方名称").Value & "' and comment<>'' and comment<>N'自打' ORDER BY 备注,项次,化料名称"
        'cmd.CommandText = sql_print
        'dt_print = New DataTable
        'da.SelectCommand = cmd
        'da.Fill(dt_print)


        sql_rcp = "SELECT  HT_RetanRcp.item AS 项次, HT_RetanRcp.chem AS 化料名称, CASE WHEN type1 IS NULL THEN '' ELSE HT_Chem_Main.type1 END AS 化工分类, CASE WHEN type2 IS NULL THEN N'不列印' ELSE HT_Chem_Main.type2 END AS 类别, 
          HT_RetanRcp.percents AS 百分比, HT_RetanRcp.time AS 时间, HT_RetanRcp.comment AS 备注, HT_Chem_Main.d1, HT_Chem_Main.d2, HT_Chem_Main.d3, HT_Chem_Main.d4, HT_Chem_Main.d5, HT_Chem_Main.d6, HT_Chem_Main.d7, 
          HT_Chem_Main.d8, HT_Chem_Main.d9, HT_MSDS_File_1.filename
FROM    HT_Chem_Main LEFT OUTER JOIN
              (SELECT  filename, SUBSTRING(filename, 1, CHARINDEX('_', filename) - 1) AS no
            FROM     HT_MSDS_File) AS HT_MSDS_File_1 ON HT_Chem_Main.no = HT_MSDS_File_1.no RIGHT OUTER JOIN
          HT_Rcp_ChemName_table ON HT_Chem_Main.sys_name = HT_Rcp_ChemName_table.sys_chem_name RIGHT OUTER JOIN
          HT_RetanRcp ON HT_Rcp_ChemName_table.rcp_chem_name = HT_RetanRcp.chem
WHERE  HT_RetanRcp.name =N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("品名").Value & "' and  HT_RetanRcp.date =N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("日期").Value & "'and HT_RetanRcp.selection =N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("选级").Value & "'and HT_RetanRcp.no =N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("流程卡号").Value & "' and           (HT_RetanRcp.chem <> '')
ORDER BY HT_RetanRcp.rcp_no DESC, 项次"


        Label20.Text = DGV1.Rows(DGV1.CurrentRow.Index).Cells("品名").Value.ToString

        cmd.CommandText = sql_rcp
        da.SelectCommand = cmd
        da.Fill(DT2)
        '  dgv2.DataSource = dt_print
        DataGridView1.DataSource = DT2
        DataGridView1.RowTemplate.Height = 24
        set_grid1()

    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 DataGridView1_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint


        If e.RowIndex + 1 > DataGridView1.Rows.Count - 1 Then Exit Sub



        If DataGridView1.Rows(e.RowIndex + 1).Cells("化料名称").Value Is Nothing Then Exit Sub

        Dim linePen As New Pen(Color.Red, 2)

        If e.RowIndex = DataGridView1.Rows.Count - 1 Then
            DataGridView1.Rows(e.RowIndex).Cells("百分比").Style.ForeColor = Color.White
            Dim startX As Integer = IIf(DataGridView1.RowHeadersVisible, DataGridView1.RowHeadersWidth, 0)
            Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
            Dim endX As Integer = startX + DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView1.HorizontalScrollingOffset - 10
            e.Graphics.DrawLine(linePen, startX, startY, endX, startY)

            Exit Sub
        End If

        If DataGridView1.Rows(e.RowIndex).Cells("时间").Value.ToString <> "" Then

            Dim startX As Integer = IIf(DataGridView1.RowHeadersVisible, DataGridView1.RowHeadersWidth, 0)
            Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
            Dim endX As Integer = startX + DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView1.HorizontalScrollingOffset - 10
            e.Graphics.DrawLine(linePen, startX, startY, endX, startY)

        End If

        'If (DataGridView1.Rows(e.RowIndex).Cells("化料名称").Value.ToString = "流水洗" Or DataGridView1.Rows(e.RowIndex).Cells("化料名称").Value.ToString = "洗水" Or DataGridView1.Rows(e.RowIndex).Cells("化料名称").Value = "排水") Then
        '    DataGridView1.Rows(e.RowIndex).Cells("百分比").Style.ForeColor = Color.White
        '    Dim startX As Integer = IIf(DataGridView1.RowHeadersVisible, DataGridView1.RowHeadersWidth, 0)
        '    Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
        '    Dim endX As Integer = startX + DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView1.HorizontalScrollingOffset - 10

        '    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

    Private Sub DGV1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV1.CellContentClick

    End Sub
    Sub InsertImageWithNPOI(start_row As Integer, start_column As Integer)
        ' 创建 NPOI 工作簿和工作表
        Dim workbook As New XSSFWorkbook()
        Dim sheet As XSSFSheet = workbook.CreateSheet("Sheet1")

        ' 图片数据
        Dim pictureData As Byte() = Nothing
        Using ms As New MemoryStream()
            ' 从 PictureBox1 中获取图片
            PictureBox1.Image.Save(ms, Imaging.ImageFormat.Png)
            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

        ' MsgBox("图片插入完成！")
    End Sub
    Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click


    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 Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click

        Dim my_card As String
        Dim my_weight As Double
        Dim d_no As String
        Do
            my_card = InputBox("请输入卡号：", "查询", DGV1.Rows(DGV1.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("请输入重量：", "查询", DGV1.Rows(DGV1.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
                '  MsgBox("编号格式不正确，请输入类似 'P241129-4' 的编号！", vbExclamation, "错误")
            Else
                Exit Do
            End If
        Loop





        ' 图片路径（假设图片名为 1.jpg 到 9.jpg）
        Dim imagePaths As String() = {
            "C:\GHS\1.jpg", "C:\GHS\2.jpg", "C:\GHS\3.jpg",
            "C:\GHS\4.jpg", "C:\GHS\5.jpg", "C:\GHS\6.jpg",
            "C:\GHS\7.jpg", "C:\GHS\8.jpg", "C:\GHS\9.jpg"
        }
        Dim dataTable As New DataTable()
        dataTable = DataGridView1.DataSource
        ' 创建 Excel 工作簿
        Dim workbook As IWorkbook = New XSSFWorkbook()
        Dim sheet As ISheet = workbook.CreateSheet("Chemicals")

        ' 创建隐藏的图片库工作表
        Dim imageSheet As ISheet = workbook.CreateSheet("ImageLibrary")
        '' workbook.SetSheetHidden(workbook.GetSheetIndex("ImageLibrary"), SheetState.Hidden)

        ' 加载图片到图片库
        Dim drawing As IDrawing = imageSheet.CreateDrawingPatriarch()
        For i As Integer = 0 To imagePaths.Length - 1
            Dim imagePath As String = imagePaths(i)
            If File.Exists(imagePath) Then
                Dim bytes As Byte() = File.ReadAllBytes(imagePath)
                Dim pictureIdx As Integer = workbook.AddPicture(bytes, 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)
            End If
        Next




        For col As Integer = 0 To 5
            sheet.SetColumnWidth(col, 10 * 256) ' 图片列宽度
        Next

        ' 初始行位置
        Dim currentRow As Integer = 0

        Dim my_item As Integer




        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


        ' 遍历 DataTable 的每一行
        For Each row As DataRow In sortedTable.Rows

            ProgressBar1.Value += 1
            Application.DoEvents()

            If row("类别") <> "不列印" Then
                '生成二维码图片
                Dim qrCodeImage As Image = MakeQrCode("http://192.168.110.164:8888/" & row("filename"))
                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) ' 缩放二维码

                ' 写入化工信息


                'sheet.CreateRow(currentRow).CreateCell(3).SetCellValue($"卡号：{my_card}")
                'sheet.CreateRow(currentRow).CreateCell(7).SetCellValue($"项次：{row("项次")}")

                ' 创建行并插入数据
                Dim rowToInsert = sheet.CreateRow(currentRow) ' 只创建一行

                ' 在第 4 列插入卡号
                rowToInsert.CreateCell(0).SetCellValue($"卡号：{my_card}")

                ' 在第 8 列插入项次
                rowToInsert.CreateCell(4).SetCellValue($"项次：{row("项次")}")


                Dim cellStyle As ICellStyle = workbook.CreateCellStyle()
                Dim font As IFont = workbook.CreateFont()
                font.FontHeightInPoints = 18  ' 设置字体大小为 18
                cellStyle.SetFont(font)  ' 将字体应用到样式

                'sheet.CreateRow(currentRow + 1).CreateCell(0).SetCellValue($"化料名称：{row("化料名称")}")
                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($"{DGV1.Rows(DGV1.CurrentCell.RowIndex).Cells(1).Value}")

                'Dim row8 = sheet.CreateRow(currentRow + 11)
                'row8.CreateCell(3).SetCellValue($"{row("百分比")}")

                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 imagePath As String = $"C:\GHS\{i}.jpg" ' 假设图片路径为 C:\GHS\1.jpg 到 C:\GHS\9.jpg
                        If File.Exists(imagePath) Then
                            Dim bytes As Byte() = File.ReadAllBytes(imagePath)
                            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 = 0 ' 左上角垂直偏移
                            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 = $"卡号标签_{DateTime.Now.ToString("yyyyMMdd_HHmmss")}.xlsx"
        Dim filePath As String = $"卡号标签_{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


        ProgressBar1.Visible = False


    End Sub

    Private Sub DGV1_SelectionChanged(sender As Object, e As EventArgs) Handles DGV1.SelectionChanged

    End Sub
End Class