HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/99、未分類/FrmEditChem_Choose.vb

Imports System.Data.SqlClient
Imports System.Web.UI.WebControls
Public Class FrmEditChem_Choose
    'Dim cmd As New SqlCommand : Dim da As New SqlDataAdapter : Dim dt As New DataTable : Dim sql As String
    Private Sub FrmEditChem_Choose_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        清單_lb.BringToFront()
        百分比_tb.Text = Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("百分比").Value.ToString
        化料名稱_tb.Text = Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("化料名称").Value.ToString
        時間_tb.Text = Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("时间").Value.ToString
        備註_tb.Text = Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("备注").Value.ToString
    End Sub
    Private Sub 化料名稱_tb_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles 化料名稱_tb.GotFocus
        化料名稱_tb.SelectionStart = 0 : 化料名稱_tb.SelectionLength = Len(化料名稱_tb.Text)
    End Sub
    Private Sub t化料名稱_tb_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 化料名稱_tb.KeyDown
        If e.KeyCode = Keys.Enter Then
            If 清單_lb.Items.Count > 0 Then : 清單_lb.Focus() : 清單_lb.SelectedIndex = 0 : Else : 時間_tb.Focus() : End If : Exit Sub
        End If : 清單_lb.Items.Clear() : 清單_lb.Visible = True
        Using con As New SqlConnection(connstring),                                                                     ' 使用 Using 语句自动管理连接
          cmd As New SqlCommand("SELECT name FROM ht_chem_main WHERE name LIKE @searchText", con)
            cmd.Parameters.AddWithValue("@searchText", "%" & 化料名稱_tb.Text & "%")                                    ' 添加参数，防止 SQL 注入
            Try
                con.Open()                                                                                              ' 打开数据库连接
                Using my_dr As SqlDataReader = cmd.ExecuteReader()                                                      ' 执行查询
                    While my_dr.Read() : 清單_lb.Items.Add(my_dr("name")) : End While
                End Using
            Catch ex As Exception : MessageBox.Show("查询出错：" & ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error) : End Try
        End Using
    End Sub
    Private Sub 清單_lb_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 清單_lb.KeyDown
        If e.KeyCode = Keys.Enter Then : 化料名稱_tb.Text = 清單_lb.SelectedItem : 時間_tb.Focus() : End If
    End Sub
    Private Sub 清單_lb_Click(sender As Object, e As EventArgs) Handles 清單_lb.Click
        If 清單_lb.SelectedIndex <> -1 Then : 化料名稱_tb.Text = 清單_lb.SelectedItem : 時間_tb.Focus() : End If
    End Sub
    Private Sub 時間_tb_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles 時間_tb.GotFocus
        時間_tb.SelectionStart = 0 : 時間_tb.SelectionLength = Len(時間_tb.Text)
    End Sub
    Private Sub 時間_tb_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 時間_tb.KeyDown
        If e.KeyCode = Keys.Enter Then : 備註_tb.Focus() : End If
    End Sub
    Private Sub 備註_tb_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles 備註_tb.GotFocus
        備註_tb.SelectionStart = 0 : 備註_tb.SelectionLength = Len(備註_tb.Text)
    End Sub
    Private Sub 備註_tb_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 備註_tb.KeyDown
        If e.KeyCode = Keys.Enter Then : 完成_bt.Focus() : End If
    End Sub
    Private Sub 百分比_tb_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles 百分比_tb.GotFocus
        百分比_tb.SelectionStart = 0 : 百分比_tb.SelectionLength = Len(百分比_tb.Text)
    End Sub
    Private Sub 百分比_tb_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 百分比_tb.KeyDown
        If e.KeyCode = Keys.Enter Then : 化料名稱_tb.Focus() : End If
    End Sub
    Private Sub 百分比_tb_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles 百分比_tb.LostFocus
        If IsNumeric(百分比_tb.Text) Then : Else : MsgBox("請輸入數字") : 百分比_tb.Focus() : End If
    End Sub
    Private Sub 完成_bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 完成_bt.Click '完成
        Dim 位置 As Integer = Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index : Dim 位置1 As Integer = Frm_00_Retan_rcp.處方清單_dgv.CurrentRow.Index
        Dim my_no As String = "" : Dim my_coin As String = "" : Dim 進貨單價 As String = ""
        Dim d1 As String = "", d2 As String = "", d3 As String = "", d4 As String = "" : Dim d5 As String = "", d6 As String = "", d7 As String = "", d8 As String = "" : Dim d9 As String = ""
        Dim 類別 As String = "" : Dim 化工分類 As String = "" : Dim 系統代碼 As String = "" : Dim 系統名稱 As String = "" : Dim 系統分類 As String = "" : Dim 檔案名稱 As String = ""
        Dim ZDHCCode As String = ""
        '----------讀取進貨單價---------------------------------------------------------------------------------------------
        SQL_讀取進貨單價(化料名稱_tb.Text) : If dr.Read() Then : 進貨單價 = dr("price") : Else : 進貨單價 = "0" : End If
        '----------讀取化料資料---------------------------------------------------------------------------------------------
        SQL_讀取化料資料(化料名稱_tb.Text)
        If dr.Read() Then
            my_no = dr("sys_name").ToString : 類別 = dr("type2").ToString : 化工分類 = dr("type1").ToString : 系統代碼 = dr("code").ToString
            系統名稱 = dr("name").ToString : 系統分類 = dr("type").ToString : ZDHCCode = dr("zdhc_code").ToString
            d1 = dr("d1").ToString : d2 = dr("d2").ToString : d3 = dr("d3").ToString : d4 = dr("d4").ToString : d5 = dr("d5").ToString
            d6 = dr("d6").ToString : d7 = dr("d7").ToString : d8 = dr("d8").ToString : d9 = dr("d9").ToString : 檔案名稱 = dr("filename").ToString
        End If : dr.Close()
        '----------指定到對應位置---------------------------------------------------------------------------------------------
        Dim dt1 As New DataTable : dt1 = Frm_00_Retan_rcp.處方_dgv.DataSource
        If gMsg = vbYes Then                         '-----向前插入一行-------------------------------------------------------
            Dim dr1111 As DataRow : dr1111 = dt1.NewRow
            dr1111(0) = Math.Round(Frm_00_Retan_rcp.處方_dgv.Rows(位置 - 1).Cells(0).Value + 0.1, 1)
            dr1111(1) = 化料名稱_tb.Text : dr1111(4) = 百分比_tb.Text : dr1111(3) = 類別 : dr1111(2) = 化工分類 : dr1111(5) = 時間_tb.Text : dr1111(6) = 備註_tb.Text
            dr1111(7) = d1 : dr1111(8) = d2 : dr1111(9) = d3 : dr1111(10) = d4 : dr1111(11) = d5 : dr1111(12) = d6 : dr1111(13) = d7 : dr1111(14) = d8 : dr1111(15) = d9
            dr1111(16) = 檔案名稱 : dr1111(17) = ZDHCCode : dr1111(18) = 系統名稱 : dr1111(19) = 系統代碼 : dr1111(20) = 進貨單價 : dr1111(21) = 系統分類
            dr1111(22) = "1"
            dt1.Rows.InsertAt(dr1111, 位置)
            Frm_00_Retan_rcp.處方_dgv.DataSource = Nothing : Frm_00_Retan_rcp.處方_dgv.DataSource = dt1
            Frm_00_Retan_rcp.處方_dgv.Rows(位置 - 1).Cells("项次").Style.BackColor = Color.OrangeRed
            gMsg = Nothing
            Frm_00_Retan_rcp.修改存檔_bt.Visible = True : Frm_00_Retan_rcp.cmdCancelEdit.Visible = True
            Frm_00_Retan_rcp.模式通知_lb.Text = "修改模式" : Frm_00_Retan_rcp.模式通知_lb.ForeColor = Color.Red
            Frm_00_Retan_rcp.Timer1.Enabled = True
            Me.Close() : Me.Dispose()
        ElseIf gMsg = vbNo Then                       '-----向前插入一行-------------------------------------------------------
            Dim dr1111 As DataRow : dr1111 = dt1.NewRow
            dr1111(0) = 位置 + 1
            dr1111(1) = 化料名稱_tb.Text : dr1111(4) = 百分比_tb.Text : dr1111(3) = 類別 : dr1111(2) = 化工分類 : dr1111(5) = 時間_tb.Text : dr1111(6) = 備註_tb.Text
            dr1111(7) = d1 : dr1111(8) = d2 : dr1111(9) = d3 : dr1111(10) = d4 : dr1111(11) = d5 : dr1111(12) = d6 : dr1111(13) = d7 : dr1111(14) = d8 : dr1111(15) = d9
            dr1111(16) = 檔案名稱 : dr1111(17) = ZDHCCode : dr1111(18) = 系統名稱 : dr1111(19) = 系統代碼 : dr1111(20) = 進貨單價 : dr1111(21) = 系統分類
            dr1111(22) = "1"
            dt1.Rows.InsertAt(dr1111, 位置 + 1)
            Frm_00_Retan_rcp.處方_dgv.DataSource = dt1
            Frm_00_Retan_rcp.處方_dgv.Rows(位置 + 1).Cells("项次").Style.BackColor = Color.OrangeRed
            gMsg = Nothing
            Frm_00_Retan_rcp.修改存檔_bt.Visible = True : Frm_00_Retan_rcp.cmdCancelEdit.Visible = True : Frm_00_Retan_rcp.模式通知_lb.Text = "修改模式"
            Frm_00_Retan_rcp.模式通知_lb.ForeColor = Color.Red : Frm_00_Retan_rcp.Timer1.Enabled = True
            Me.Close() : Me.Dispose()
        ElseIf gMsg = 0 Then                 '-----修改指定那一行-------------------------------------------------------
            gMsg = Nothing
            'For Each col As DataGridViewColumn In Frm_00_Retan_rcp.處方清單_sgv.Columns : Debug.Print(col.Name) : Next ' 打印所有列名
            SQL_讀取處方上的選擇項(Frm_00_Retan_rcp.處方清單_dgv.Rows(位置1).Cells("表格编号").Value, Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("项次").Value)
            If dr.Read() Then
                If dr("percents").ToString <> 百分比_tb.Text Then
                    Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("百分比").Style.BackColor = Color.Red
                    Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("標記3").Value = "1"
                Else : Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("百分比").Style.BackColor = Color.White : End If
                If dr("chem") <> 化料名稱_tb.Text Then
                    Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("化料名称").Style.BackColor = Color.Red
                    Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("標記2").Value = "1"
                Else : Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("化料名称").Style.BackColor = Color.White : End If
                If dr("time").ToString <> 時間_tb.Text Then
                    Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("时间").Style.BackColor = Color.Red
                    Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("標記4").Value = "1"
                Else : Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("时间").Style.BackColor = Color.White : End If
                If dr("comment").ToString <> 備註_tb.Text Then
                    Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("备注").Style.BackColor = Color.Red
                    Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("標記5").Value = "1"
                Else : Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("备注").Style.BackColor = Color.White : End If
            End If : dr.Close()
            my_percent = 百分比_tb.Text
            Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("化料名称").Value = 化料名稱_tb.Text : Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("化工分类").Value = 化工分類
            Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("类别").Value = 類別 : Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("百分比").Value = 百分比_tb.Text
            Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("时间").Value = 時間_tb.Text : Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("备注").Value = 備註_tb.Text
            Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("d1").Value = d1 : Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("d2").Value = d2
            Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("d3").Value = d3 : Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("d4").Value = d4
            Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("d5").Value = d5 : Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("d6").Value = d6
            Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("d7").Value = d7 : Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("d8").Value = d8
            Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("d9").Value = d9
            Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("filename").Value = 檔案名稱 : Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("zdhc_code").Value = ZDHCCode
            Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("系统品名").Value = 系統名稱 : Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("系统代码").Value = 系統代碼
            Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("进货单价").Value = 進貨單價 : Frm_00_Retan_rcp.處方_dgv.Rows(位置).Cells("系统分类").Value = 系統分類
            Me.Close() : Me.Dispose()
        End If
    End Sub
    Private Sub 取消_bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 取消_bt.Click
        gMsg = Nothing : Me.Close() : Me.Dispose()
    End Sub
    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        Dim cmd As New SqlCommand : Dim sql As String : Dim my_dr As SqlDataReader : Dim conn As New SqlConnection
        conn.ConnectionString = connstring : conn.Open() : cmd.Connection = conn
        sql = "SELECT name FROM rt_sys_chem_main WHERE name LIKE N'%" & 化料名稱_tb.Text & "%'"
        cmd.CommandText = sql : my_dr = cmd.ExecuteReader
        While my_dr.Read : 清單_lb.Items.Add(my_dr("name")) : End While
        my_dr.Close() : my_dr = Nothing : conn.Close() : conn = Nothing
    End Sub







    '------------------------以下未整理-----------------------------------------------------------------------------------------------------------------------------------------------------
    'Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    '    Dim con As New SqlConnection
    '    Dim cmd As New SqlCommand
    '    Dim my_dr As SqlDataReader
    '    Dim sql As String = ""
    '    Dim my_no As String = ""
    '    Dim my_coin As String = ""
    '    Dim 進貨單價 As String = ""
    '    con.ConnectionString = connstring
    '    con.Open()
    '    cmd.Connection = con
    '    sql = "select matl_no,coin,pur_unit from tblmaterial where matl_name='TRUPON OSL'"
    '    cmd.CommandText = sql
    '    my_dr = cmd.ExecuteReader
    '    ' my_no = cmd.ExecuteScalar.ToString
    '    If my_dr.Read Then
    '        my_no = my_dr("matl_no").ToString
    '        my_coin = my_dr("coin").ToString
    '        進貨單價 = my_dr("pur_unit").ToString
    '    End If
    '    my_dr.Close()
    '    If my_no = "" Then
    '        MsgBox("錯誤發生，請重新輸入")
    '        化料名稱_tb.Focus()
    '        Exit Sub
    '    End If
    '    Dim dt1 As New DataTable
    '    dt1 = Frm_00_Retan_rcp.處方_dgv.DataSource
    '    If gMsg = vbYes Then
    '        Dim dr1111 As DataRow
    '        dr1111 = dt1.NewRow
    '        dr1111(0) = "新增"
    '        dr1111(1) = my_no
    '        dr1111(2) = 化料名稱_tb.Text
    '        dr1111(3) = 百分比_tb.Text
    '        dr1111(4) = 時間_tb.Text
    '        dr1111(5) = 備註_tb.Text
    '        dr1111(6) = my_coin
    '        dr1111(7) = 進貨單價
    '        dt1.Rows.InsertAt(dr1111, Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index)
    '        Frm_00_Retan_rcp.處方_dgv.DataSource = dt1
    '        Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index - 1).Cells("項次").Style.BackColor = Color.OrangeRed
    '        gMsg = Nothing
    '        Me.Close()
    '        Me.Dispose()
    '        Exit Sub
    '    ElseIf gMsg = vbNo Then
    '        Dim dr1111 As DataRow
    '        dr1111 = dt1.NewRow
    '        dr1111(0) = "新增"
    '        dr1111(1) = my_no
    '        dr1111(2) = 化料名稱_tb.Text
    '        dr1111(3) = 百分比_tb.Text
    '        dr1111(4) = 時間_tb.Text
    '        dr1111(5) = 備註_tb.Text
    '        dr1111(6) = my_coin
    '        dr1111(7) = 進貨單價
    '        dt1.Rows.InsertAt(dr1111, Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index + 1)
    '        Frm_00_Retan_rcp.處方_dgv.DataSource = dt1
    '        Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index + 1).Cells("項次").Style.BackColor = Color.OrangeRed
    '        gMsg = Nothing
    '        Me.Close()
    '        Me.Dispose()
    '        Exit Sub
    '    ElseIf gMsg = vbCancel Then
    '        gMsg = Nothing
    '        Exit Sub
    '    End If
    '    cmd.CommandText = "SELECT rcp_content.ITEM, rcp_content.MATL_NO, rcp_content.percents, rcp_content.RCP_NO, rcp_content.time, rcp_content.comment, tblMaterial.MATL_NAME FROM rcp_content INNER JOIN tblMaterial ON rcp_content.MATL_NO = tblMaterial.MATL_NO WHERE rcp_content.RCP_NO ='" & Frm_00_Retan_rcp.處方清單_sgv.Rows(Frm_00_Retan_rcp.處方清單_sgv.CurrentRow.Index).Cells("處方編號").Value & "' AND rcp_content.ITEM ='" & Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("項次").Value & "'"
    '    Dim dr As SqlDataReader
    '    dr = cmd.ExecuteReader
    '    dr.Read()
    'If dr("percents") <> txtpercent.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("百分比").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("百分比").Style.BackColor = Color.White
    'End If
    'If dr("matl_name") <> txtchem.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("化料名稱").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("化料名稱").Style.BackColor = Color.White
    'End If
    'If dr("time").ToString <> txttime.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("時間").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("時間").Style.BackColor = Color.White
    'End If
    'If dr("comment").ToString <> txtcomment.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("備註").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("備註").Style.BackColor = Color.White
    'End If
    'If my_no <> txtcomment.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("化料編號").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("化料編號").Style.BackColor = Color.White
    '    'End If
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("化料編號").Value = my_no
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("百分比").Value = 百分比_tb.Text
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("化料名稱").Value = "TRUPON OSL"
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("時間").Value = 時間_tb.Text
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("備註").Value = "原sqs"
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("幣別").Value = my_coin
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("單價").Value = 進貨單價
    '    dr.Close()
    '    con.Close()
    '    Me.Close()
    '    Me.Dispose()
    'End Sub
    'Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    '    Dim con As New SqlConnection
    '    Dim cmd As New SqlCommand
    '    Dim my_dr As SqlDataReader
    '    Dim sql As String = ""
    '    Dim my_no As String = ""
    '    Dim my_coin As String = ""
    '    Dim 進貨單價 As String = ""
    '    con.ConnectionString = connstring
    '    con.Open()
    '    cmd.Connection = con
    '    sql = "select matl_no,coin,pur_unit from tblmaterial where matl_name='LR 785'"
    '    cmd.CommandText = sql
    '    my_dr = cmd.ExecuteReader
    '    ' my_no = cmd.ExecuteScalar.ToString
    '    If my_dr.Read Then
    '        my_no = my_dr("matl_no").ToString
    '        my_coin = my_dr("coin").ToString
    '        進貨單價 = my_dr("pur_unit").ToString
    '    End If
    '    my_dr.Close()
    '    If my_no = "" Then
    '        MsgBox("錯誤發生，請重新輸入")
    '        化料名稱_tb.Focus()
    '        Exit Sub
    '    End If
    '    Dim dt1 As New DataTable
    '    dt1 = Frm_00_Retan_rcp.處方_dgv.DataSource
    '    If gMsg = vbYes Then
    '        Dim dr1111 As DataRow
    '        dr1111 = dt1.NewRow
    '        dr1111(0) = "新增"
    '        dr1111(1) = my_no
    '        dr1111(2) = 化料名稱_tb.Text
    '        dr1111(3) = 百分比_tb.Text
    '        dr1111(4) = 時間_tb.Text
    '        dr1111(5) = 備註_tb.Text
    '        dr1111(6) = my_coin
    '        dr1111(7) = 進貨單價
    '        dt1.Rows.InsertAt(dr1111, Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index)
    '        Frm_00_Retan_rcp.處方_dgv.DataSource = dt1
    '        Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index - 1).Cells("項次").Style.BackColor = Color.OrangeRed
    '        gMsg = Nothing
    '        Me.Close()
    '        Me.Dispose()
    '        Exit Sub
    '    ElseIf gMsg = vbNo Then
    '        Dim dr1111 As DataRow
    '        dr1111 = dt1.NewRow
    '        dr1111(0) = "新增"
    '        dr1111(1) = my_no
    '        dr1111(2) = 化料名稱_tb.Text
    '        dr1111(3) = 百分比_tb.Text
    '        dr1111(4) = 時間_tb.Text
    '        dr1111(5) = 備註_tb.Text
    '        dr1111(6) = my_coin
    '        dr1111(7) = 進貨單價
    '        dt1.Rows.InsertAt(dr1111, Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index + 1)
    '        Frm_00_Retan_rcp.處方_dgv.DataSource = dt1
    '        Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index + 1).Cells("項次").Style.BackColor = Color.OrangeRed
    '        gMsg = Nothing
    '        Me.Close()
    '        Me.Dispose()
    '        Exit Sub
    '    ElseIf gMsg = vbCancel Then
    '        gMsg = Nothing
    '        Exit Sub
    '    End If
    '    cmd.CommandText = "SELECT rcp_content.ITEM, rcp_content.MATL_NO, rcp_content.percents, rcp_content.RCP_NO, rcp_content.time, rcp_content.comment, tblMaterial.MATL_NAME FROM rcp_content INNER JOIN tblMaterial ON rcp_content.MATL_NO = tblMaterial.MATL_NO WHERE rcp_content.RCP_NO ='" & Frm_00_Retan_rcp.處方清單_sgv.Rows(Frm_00_Retan_rcp.處方清單_sgv.CurrentRow.Index).Cells("處方編號").Value & "' AND rcp_content.ITEM ='" & Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("項次").Value & "'"
    '    Dim dr As SqlDataReader
    '    dr = cmd.ExecuteReader
    '    dr.Read()
    'If dr("percents") <> txtpercent.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("百分比").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("百分比").Style.BackColor = Color.White
    'End If
    'If dr("matl_name") <> txtchem.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("化料名稱").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("化料名稱").Style.BackColor = Color.White
    'End If
    'If dr("time").ToString <> txttime.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("時間").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("時間").Style.BackColor = Color.White
    'End If
    'If dr("comment").ToString <> txtcomment.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("備註").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("備註").Style.BackColor = Color.White
    'End If
    'If my_no <> txtcomment.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("化料編號").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("化料編號").Style.BackColor = Color.White
    '    'End If
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("化料編號").Value = my_no
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("百分比").Value = 百分比_tb.Text
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("化料名稱").Value = "LR 785"
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("時間").Value = 時間_tb.Text
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("備註").Value = "原ff"
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("幣別").Value = my_coin
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("單價").Value = 進貨單價
    '    dr.Close()
    '    con.Close()
    '    Me.Close()
    '    Me.Dispose()
    'End Sub
    'Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    '    Dim con As New SqlConnection
    '    Dim cmd As New SqlCommand
    '    Dim my_dr As SqlDataReader
    '    Dim sql As String = ""
    '    Dim my_no As String = ""
    '    Dim my_coin As String = ""
    '    Dim 進貨單價 As String = ""
    '    con.ConnectionString = connstring
    '    con.Open()
    '    cmd.Connection = con
    '    sql = "select matl_no,coin,pur_unit from tblmaterial where matl_name='ODINOIL M66'"
    '    cmd.CommandText = sql
    '    my_dr = cmd.ExecuteReader
    '    ' my_no = cmd.ExecuteScalar.ToString
    '    If my_dr.Read Then
    '        my_no = my_dr("matl_no").ToString
    '        my_coin = my_dr("coin").ToString
    '        進貨單價 = my_dr("pur_unit").ToString
    '    End If
    '    my_dr.Close()
    '    If my_no = "" Then
    '        MsgBox("錯誤發生，請重新輸入")
    '        化料名稱_tb.Focus()
    '        Exit Sub
    '    End If
    '    Dim dt1 As New DataTable
    '    dt1 = Frm_00_Retan_rcp.處方_dgv.DataSource
    '    If gMsg = vbYes Then
    '        Dim dr1111 As DataRow
    '        dr1111 = dt1.NewRow
    '        dr1111(0) = "新增"
    '        dr1111(1) = my_no
    '        dr1111(2) = 化料名稱_tb.Text
    '        dr1111(3) = 百分比_tb.Text
    '        dr1111(4) = 時間_tb.Text
    '        dr1111(5) = 備註_tb.Text
    '        dr1111(6) = my_coin
    '        dr1111(7) = 進貨單價
    '        dt1.Rows.InsertAt(dr1111, Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index)
    '        Frm_00_Retan_rcp.處方_dgv.DataSource = dt1
    '        Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index - 1).Cells("項次").Style.BackColor = Color.OrangeRed
    '        gMsg = Nothing
    '        Me.Close()
    '        Me.Dispose()
    '        Exit Sub
    '    ElseIf gMsg = vbNo Then
    '        Dim dr1111 As DataRow
    '        dr1111 = dt1.NewRow
    '        dr1111(0) = "新增"
    '        dr1111(1) = my_no
    '        dr1111(2) = 化料名稱_tb.Text
    '        dr1111(3) = 百分比_tb.Text
    '        dr1111(4) = 時間_tb.Text
    '        dr1111(5) = 備註_tb.Text
    '        dr1111(6) = my_coin
    '        dr1111(7) = 進貨單價
    '        dt1.Rows.InsertAt(dr1111, Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index + 1)
    '        Frm_00_Retan_rcp.處方_dgv.DataSource = dt1
    '        Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index + 1).Cells("項次").Style.BackColor = Color.OrangeRed
    '        gMsg = Nothing
    '        Me.Close()
    '        Me.Dispose()
    '        Exit Sub
    '    ElseIf gMsg = vbCancel Then
    '        gMsg = Nothing
    '        Exit Sub
    '    End If
    '    cmd.CommandText = "SELECT rcp_content.ITEM, rcp_content.MATL_NO, rcp_content.percents, rcp_content.RCP_NO, rcp_content.time, rcp_content.comment, tblMaterial.MATL_NAME FROM rcp_content INNER JOIN tblMaterial ON rcp_content.MATL_NO = tblMaterial.MATL_NO WHERE rcp_content.RCP_NO ='" & Frm_00_Retan_rcp.處方清單_sgv.Rows(Frm_00_Retan_rcp.處方清單_sgv.CurrentRow.Index).Cells("處方編號").Value & "' AND rcp_content.ITEM ='" & Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("項次").Value & "'"
    '    Dim dr As SqlDataReader
    '    dr = cmd.ExecuteReader
    '    dr.Read()
    'If dr("percents") <> txtpercent.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("百分比").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("百分比").Style.BackColor = Color.White
    'End If
    'If dr("matl_name") <> txtchem.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("化料名稱").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("化料名稱").Style.BackColor = Color.White
    'End If
    'If dr("time").ToString <> txttime.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("時間").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("時間").Style.BackColor = Color.White
    'End If
    'If dr("comment").ToString <> txtcomment.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("備註").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("備註").Style.BackColor = Color.White
    'End If
    'If my_no <> txtcomment.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("化料編號").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("化料編號").Style.BackColor = Color.White
    'End If
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("化料編號").Value = my_no
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("百分比").Value = 百分比_tb.Text
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("化料名稱").Value = "ODINOIL M66"
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("時間").Value = 時間_tb.Text
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("備註").Value = "原ucm"
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("幣別").Value = my_coin
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("單價").Value = 進貨單價
    '    dr.Close()
    '    con.Close()
    '    Me.Close()
    '    Me.Dispose()
    'End Sub
    'Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    '    Dim con As New SqlConnection
    '    Dim cmd As New SqlCommand
    '    Dim my_dr As SqlDataReader
    '    Dim sql As String = ""
    '    Dim my_no As String = ""
    '    Dim my_coin As String = ""
    '    Dim 進貨單價 As String = ""
    '    con.ConnectionString = connstring
    '    con.Open()
    '    cmd.Connection = con
    '    sql = "select matl_no,coin,pur_unit from tblmaterial where matl_name='LECOSIN RD 2'"
    '    cmd.CommandText = sql
    '    my_dr = cmd.ExecuteReader
    '    ' my_no = cmd.ExecuteScalar.ToString
    '    If my_dr.Read Then
    '        my_no = my_dr("matl_no").ToString
    '        my_coin = my_dr("coin").ToString
    '        進貨單價 = my_dr("pur_unit").ToString
    '    End If
    '    my_dr.Close()
    '    If my_no = "" Then
    '        MsgBox("錯誤發生，請重新輸入")
    '        化料名稱_tb.Focus()
    '        Exit Sub
    '    End If
    '    Dim dt1 As New DataTable
    '    dt1 = Frm_00_Retan_rcp.處方_dgv.DataSource
    '    If gMsg = vbYes Then
    '        Dim dr1111 As DataRow
    '        dr1111 = dt1.NewRow
    '        dr1111(0) = "新增"
    '        dr1111(1) = my_no
    '        dr1111(2) = 化料名稱_tb.Text
    '        dr1111(3) = 百分比_tb.Text
    '        dr1111(4) = 時間_tb.Text
    '        dr1111(5) = 備註_tb.Text
    '        dr1111(6) = my_coin
    '        dr1111(7) = 進貨單價
    '        dt1.Rows.InsertAt(dr1111, Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index)
    '        Frm_00_Retan_rcp.處方_dgv.DataSource = dt1
    '        Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index - 1).Cells("項次").Style.BackColor = Color.OrangeRed
    '        gMsg = Nothing
    '        Me.Close()
    '        Me.Dispose()
    '        Exit Sub
    '    ElseIf gMsg = vbNo Then
    '        Dim dr1111 As DataRow
    '        dr1111 = dt1.NewRow
    '        dr1111(0) = "新增"
    '        dr1111(1) = my_no
    '        dr1111(2) = 化料名稱_tb.Text
    '        dr1111(3) = 百分比_tb.Text
    '        dr1111(4) = 時間_tb.Text
    '        dr1111(5) = 備註_tb.Text
    '        dr1111(6) = my_coin
    '        dr1111(7) = 進貨單價
    '        dt1.Rows.InsertAt(dr1111, Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index + 1)
    '        Frm_00_Retan_rcp.處方_dgv.DataSource = dt1
    '        Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index + 1).Cells("項次").Style.BackColor = Color.OrangeRed
    '        gMsg = Nothing
    '        Me.Close()
    '        Me.Dispose()
    '        Exit Sub
    '    ElseIf gMsg = vbCancel Then
    '        gMsg = Nothing
    '        Exit Sub
    '    End If
    '    cmd.CommandText = "SELECT rcp_content.ITEM, rcp_content.MATL_NO, rcp_content.percents, rcp_content.RCP_NO, rcp_content.time, rcp_content.comment, tblMaterial.MATL_NAME FROM rcp_content INNER JOIN tblMaterial ON rcp_content.MATL_NO = tblMaterial.MATL_NO WHERE rcp_content.RCP_NO ='" & Frm_00_Retan_rcp.處方清單_sgv.Rows(Frm_00_Retan_rcp.處方清單_sgv.CurrentRow.Index).Cells("處方編號").Value & "' AND rcp_content.ITEM ='" & Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("項次").Value & "'"
    '    Dim dr As SqlDataReader
    '    dr = cmd.ExecuteReader
    '    dr.Read()
    'If dr("percents") <> txtpercent.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("百分比").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("百分比").Style.BackColor = Color.White
    'End If
    'If dr("matl_name") <> txtchem.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("化料名稱").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("化料名稱").Style.BackColor = Color.White
    'End If
    'If dr("time").ToString <> txttime.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("時間").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("時間").Style.BackColor = Color.White
    'End If
    'If dr("comment").ToString <> txtcomment.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("備註").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("備註").Style.BackColor = Color.White
    'End If
    'If my_no <> txtcomment.Text Then
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("化料編號").Style.BackColor = Color.Red
    'Else
    '    Frm_00_Retan_rcp.datagridview1.Rows(Frm_00_Retan_rcp.datagridview1.CurrentRow.Index).Cells("化料編號").Style.BackColor = Color.White
    'End If
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("化料編號").Value = my_no
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("百分比").Value = 百分比_tb.Text
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("化料名稱").Value = "LECOSIN RD 2"
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("時間").Value = 時間_tb.Text
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("備註").Value = "原dc"
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("幣別").Value = my_coin
    '    Frm_00_Retan_rcp.處方_dgv.Rows(Frm_00_Retan_rcp.處方_dgv.CurrentRow.Index).Cells("單價").Value = 進貨單價
    '    dr.Close()
    '    con.Close()
    '    Me.Close()
    '    Me.Dispose()
    'End Sub
    'Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    '    備註_tb.Text = "操作加" & 備註_tb.Text
    'End Sub
End Class