HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/03、化料管理/Frm_PU.vb

Imports System.Data.SqlClient
Imports System.Reflection
Imports System.Runtime.InteropServices

Public Class Frm_PU
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim sql As String
    Dim colorArray(10) As Color
    Dim conn As New SqlConnection
    Private Sub FrmPU_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        SetListBoxTabs(ListBox1, New Integer() {60, 80, 110})

        SetListBoxTabs(ListBox2, New Integer() {60, 80, 110})




        Me.MdiParent = FrmMDI


        Dim DT1 As New DataTable
        Dim DT2 As New DataTable
        Dim DT3 As New DataTable

        conn.ConnectionString = connstring
        conn.Open()

        cmd.Connection = conn

        Dim dr As SqlDataReader

        'dgv_CHEM.RowTemplate.Height = 30
        dgv_CHEM.AllowUserToAddRows = False

        sql = "SELECT NAME as 品名,PRICE_USD as 美金,PRICE as 人民幣 FROM RT_SYS_CHEM_MAIN WHERE CLASS2='pu' or class2=N'pu树脂' or class2=N'皮革促进剂' order by name"
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(DT1)
        dgv_CHEM.DataSource = DT1

        dgv_CHEM.Columns(0).Width = 150
        dgv_CHEM.Columns(1).Width = 70
        dgv_CHEM.Columns(2).Width = 70



        sql = "SELECT  base, cust, color, pattern, thick, [8080], scc, [6010], [6069], [6560], [95t], [75ny], [75w], [136], [5035], [5080],[5081], [5137], [1609], [2318], [2699], [6609], 丁酮, 甲酯 FROM RT_PU_CHEM order by cust,color,pattern,base"

        sql = "select rtrim(cust) as 客户,rtrim(color) as 颜色,rtrim(pattern) as 纹路 from rt_pu_chem group by cust,color,pattern order by cust,color,pattern"


        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(DT2)

        dgv_order.DataSource = DT2

        dgv_order.SelectionMode = DataGridViewSelectionMode.FullRowSelect

        dgv1.SelectionMode = DataGridViewSelectionMode.FullRowSelect


        sql = "SELECT year(date) as 年, month(date) as 月 from rt_pu_measure2 group by year(date),month(date) order by year(date) desc,month(date) desc"
        cmd.CommandText = sql
        dr = cmd.ExecuteReader

        While dr.Read

            ListBox4.Items.Add(dr("年") & "/" & dr("月"))

        End While
        dr.Close()




    End Sub






    Private Sub ListBox4_Click(sender As Object, e As EventArgs) Handles ListBox4.Click
        Dim dt1 As New DataTable
        Dim dt_MEASURE As New DataTable
        Dim p() As String

        ListBox2.Items.Clear()
        ListBox3.Items.Clear()



        p = Split(ListBox4.Items(ListBox4.SelectedIndex).ToString, "/")



        Dim dr As SqlDataReader



        sql = "SELECT day(date) as day from rt_pu_measure2 where year(date)='" & p(0) & "' and month(date)='" & p(1) & "'group by day(date) order by day(date)"
        cmd.CommandText = sql
        dr = cmd.ExecuteReader

        While dr.Read

            ListBox3.Items.Add(dr("day"))

        End While
        dr.Close()


    End Sub

    Private Sub ListBox3_Click(sender As Object, e As EventArgs) Handles ListBox3.Click



        Dim dt As New DataTable


        Dim p() As String


        p = Split(ListBox4.Items(ListBox4.SelectedIndex).ToString, "/")



        sql = "SELECT date as 日期,cust as 客户,color as 颜色,pattern as 纹路,sf as 尺数,comment1 as 皮源,serial,unit_price as 成本 from rt_pu_measure2 where year(rt_pu_measure2.date)='" & p(0) & "' And month(rt_pu_measure2.date)='" & p(1) & "'" &
" and day(rt_pu_measure2.date)='" & ListBox3.Items(ListBox3.SelectedIndex).ToString & "' ORDER BY date DESC"

        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt)

        dgv1.DataSource = dt

        dgv1.Columns(0).Width = 120
        dgv1.Columns(1).Width = 100
        dgv1.Columns(2).Width = 180
        dgv1.Columns(3).Width = 100
        dgv1.Columns(4).Width = 100
        dgv1.Columns(5).Width = 200

        dgv1.Columns(6).Visible = False


    End Sub

    Private Sub SetListBoxTabs(ByVal lst As ListBox, ByVal tabs As IList(Of Integer))
        ' Make sure the control will use them.
        lst.UseTabStops = True
        lst.UseCustomTabOffsets = True

        ' Get the control's tab offset collection.
        Dim offsets1 As ListBox.IntegerCollection = ListBox1.CustomTabOffsets
        Dim offsets2 As ListBox.IntegerCollection = ListBox2.CustomTabOffsets


        ' Define the tabs.
        For Each tab As Integer In tabs
            offsets1.Add(tab)
            offsets2.Add(tab)

        Next tab
    End Sub


    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As Integer, ByVal lParam As Integer()) As IntPtr
    End Function

    Private Const EM_SETTABSTOPS As Integer = &HCB

    ' Set tab stops inside a TextBox.
    Private Sub SetTextBoxTabs(ByVal txt As TextBox, ByVal tabs As Integer())
        SendMessage(txt.Handle, EM_SETTABSTOPS, tabs.Length, tabs)
    End Sub



    Private Sub TXT1_KeyUp(sender As Object, e As KeyEventArgs) Handles TXT1.KeyUp


        If e.KeyCode = Keys.Enter Then


            Dim total_percent As Integer = 0

            For X As Integer = 0 To ListBox1.Items.Count - 1
                Dim P() As String
                P = Split(ListBox1.Items(X), vbTab)

                total_percent += P(1)

            Next






            Dim price1 As Double = 0
            For X As Integer = 0 To ListBox1.Items.Count - 1

                Dim P() As String



                P = Split(ListBox1.Items(X), vbTab)


                For y As Integer = 0 To dgv_CHEM.Rows.Count - 1

                    If P(0) = dgv_CHEM.Rows(y).Cells(0).Value Then

                        price1 = price1 + Val(TXT1.Text * P(1) * P(2) / total_percent)


                    End If



                Next






            Next

            TXT11.Text = price1


















        Else





        End If




    End Sub

    Private Sub TXT2_KeyUp(sender As Object, e As KeyEventArgs) Handles TXT2.KeyUp


        If e.KeyCode = Keys.Enter Then


            Dim total_percent As Integer = 0

            For X As Integer = 0 To ListBox2.Items.Count - 1
                Dim P() As String
                P = Split(ListBox2.Items(X), vbTab)

                total_percent += P(1)

            Next



            Dim price1 As Double = 0
            For X As Integer = 0 To ListBox2.Items.Count - 1

                Dim P() As String



                P = Split(ListBox2.Items(X), vbTab)


                For y As Integer = 0 To dgv_CHEM.Rows.Count - 1

                    If P(0) = dgv_CHEM.Rows(y).Cells(0).Value Then

                        price1 = price1 + Val(TXT2.Text * P(1) * dgv_CHEM.Rows(y).Cells(2).Value / total_percent)


                    End If



                Next






            Next

            TXT22.Text = price1






        Else





        End If


    End Sub

    Private Sub dgv_order_MouseUp(sender As Object, e As MouseEventArgs) Handles dgv_order.MouseUp


        ListBox1.Items.Clear()
        ListBox2.Items.Clear()

        TXT1.Text = ""
        TXT11.Text = ""
        TXT2.Text = ""
        TXT22.Text = ""




        sql = "SELECT  base, cust, color, pattern, thick,  [JF-S-8080], scc, [SA-6010P], [SA-6069P], [SA-6560HR], [SA-95T 环保], [SC-75NY], [SC-75W],[SS-136HR], [SS-5035NHR], [SS-5080], [5081], [SS-5137HR], [TL-1609], [TR-2318], [TL-2699], [TL-6609], 丁酮, 甲酯 FROM RT_PU_CHEM where cust=N'" & dgv_order.Rows(dgv_order.CurrentRow.Index).Cells("客户").Value & "' and  color=N'" & dgv_order.Rows(dgv_order.CurrentRow.Index).Cells("颜色").Value & "' and  pattern=N'" & dgv_order.Rows(dgv_order.CurrentRow.Index).Cells("纹路").Value & "' and rtrim(base)=N'底'"
        cmd.CommandText = sql

        Dim dr As SqlDataReader

        dr = cmd.ExecuteReader
        While dr.Read()


            If Not (IsDBNull(dr.Item("JF-S-8080"))) Then
                ListBox1.Items.Add("JF-S-8080" & vbTab & dr.Item("JF-S-8080"))
            End If

            If Not (IsDBNull(dr.Item("SA-6010P"))) Then
                ListBox1.Items.Add("SA-6010P" & vbTab & dr.Item("SA-6010P"))
            End If
            If Not (IsDBNull(dr.Item("SA-6069P"))) Then
                ListBox1.Items.Add("SA-6069P" & vbTab & dr.Item("SA-6069P"))
            End If
            If Not (IsDBNull(dr.Item("SA-6560HR"))) Then
                ListBox1.Items.Add("SA-6560HR" & vbTab & dr.Item("SA-6560HR"))
            End If

            If Not (IsDBNull(dr.Item("SA-95T 环保"))) Then
                ListBox1.Items.Add("SA-95T 环保" & vbTab & dr.Item("SA-95T 环保"))
            End If

            If Not (IsDBNull(dr.Item("SC-75NY"))) Then
                ListBox1.Items.Add("SC-75NY" & vbTab & dr.Item("SC-75NY"))
            End If
            If Not (IsDBNull(dr.Item("SC-75W"))) Then
                ListBox1.Items.Add("SC-75W" & vbTab & dr.Item("SC-75W"))
            End If
            If Not (IsDBNull(dr.Item("SS-136HR"))) Then
                ListBox1.Items.Add("SS-136HR" & vbTab & dr.Item("SS-136HR"))
            End If

            If Not (IsDBNull(dr.Item("SS-5035NHR"))) Then
                ListBox1.Items.Add("SS-5035NHR" & vbTab & dr.Item("SS-5035NHR"))
            End If

            If Not (IsDBNull(dr.Item("SS-5080"))) Then
                ListBox1.Items.Add("SS-5080" & vbTab & dr.Item("SS-5080"))
            End If
            If Not (IsDBNull(dr.Item("5081"))) Then
                ListBox1.Items.Add("SS-5081" & vbTab & dr.Item("5081"))
            End If
            If Not (IsDBNull(dr.Item("SS-5137HR"))) Then
                ListBox1.Items.Add("SS-5137HR" & vbTab & dr.Item("SS-5137HR"))
            End If

            If Not (IsDBNull(dr.Item("TL-1609"))) Then
                ListBox1.Items.Add("TL-1609" & vbTab & dr.Item("TL-1609"))
            End If

            If Not (IsDBNull(dr.Item("TR-2318"))) Then
                ListBox1.Items.Add("TR-2318" & vbTab & dr.Item("TR-2318"))
            End If
            If Not (IsDBNull(dr.Item("TL-2699"))) Then
                ListBox1.Items.Add("TL-2699" & vbTab & dr.Item("TL-2699"))
            End If
            If Not (IsDBNull(dr.Item("TL-6609"))) Then
                ListBox1.Items.Add("TL-6609" & vbTab & dr.Item("TL-6609"))
            End If

            If Not (IsDBNull(dr.Item("丁酮"))) Then
                ListBox1.Items.Add("丁酮" & vbTab & dr.Item("丁酮"))
            End If

            If Not (IsDBNull(dr.Item("甲酯"))) Then
                ListBox1.Items.Add("甲酯" & vbTab & dr.Item("甲酯"))
            End If


        End While
        dr.Close()


        sql = "SELECT  base, cust, color, pattern, thick,  [JF-S-8080], scc, [SA-6010P], [SA-6069P], [SA-6560HR], [SA-95T 环保], [SC-75NY], [SC-75W],[SS-136HR], [SS-5035NHR], [SS-5080], [5081], [SS-5137HR], [TL-1609], [TR-2318], [TL-2699], [TL-6609], 丁酮, 甲酯 FROM RT_PU_CHEM where cust=N'" & dgv_order.Rows(dgv_order.CurrentRow.Index).Cells("客户").Value & "' and  color=N'" & dgv_order.Rows(dgv_order.CurrentRow.Index).Cells("颜色").Value & "' and  pattern=N'" & dgv_order.Rows(dgv_order.CurrentRow.Index).Cells("纹路").Value & "' and rtrim(base)=N'面'"
        cmd.CommandText = sql



        dr = cmd.ExecuteReader
        While dr.Read()


            If Not (IsDBNull(dr.Item("JF-S-8080"))) Then
                ListBox2.Items.Add("JF-S-8080" & vbTab & dr.Item("JF-S-8080"))
            End If

            If Not (IsDBNull(dr.Item("SA-6010P"))) Then
                ListBox2.Items.Add("SA-6010P" & vbTab & dr.Item("SA-6010P"))
            End If
            If Not (IsDBNull(dr.Item("SA-6069P"))) Then
                ListBox2.Items.Add("SA-6069P" & vbTab & dr.Item("SA-6069P"))
            End If
            If Not (IsDBNull(dr.Item("SA-6560HR"))) Then
                ListBox2.Items.Add("SA-6560HR" & vbTab & dr.Item("SA-6560HR"))
            End If

            If Not (IsDBNull(dr.Item("SA-95T 环保"))) Then
                ListBox2.Items.Add("SA-95T 环保" & vbTab & dr.Item("SA-95T 环保"))
            End If

            If Not (IsDBNull(dr.Item("SC-75NY"))) Then
                ListBox2.Items.Add("SC-75NY" & vbTab & dr.Item("SC-75NY"))
            End If
            If Not (IsDBNull(dr.Item("SC-75W"))) Then
                ListBox2.Items.Add("SC-75W" & vbTab & dr.Item("SC-75W"))
            End If
            If Not (IsDBNull(dr.Item("SS-136HR"))) Then
                ListBox2.Items.Add("SS-136HR" & vbTab & dr.Item("SS-136HR"))
            End If

            If Not (IsDBNull(dr.Item("SS-5035NHR"))) Then
                ListBox2.Items.Add("SS-5035NHR" & vbTab & dr.Item("SS-5035NHR"))
            End If

            If Not (IsDBNull(dr.Item("SS-5080"))) Then
                ListBox2.Items.Add("SS-5080" & vbTab & dr.Item("SS-5080"))
            End If
            If Not (IsDBNull(dr.Item("5081"))) Then
                ListBox2.Items.Add("SS-5081" & vbTab & dr.Item("5081"))
            End If
            If Not (IsDBNull(dr.Item("SS-5137HR"))) Then
                ListBox2.Items.Add("SS-5137HR" & vbTab & dr.Item("SS-5137HR"))
            End If

            If Not (IsDBNull(dr.Item("TL-1609"))) Then
                ListBox2.Items.Add("TL-1609" & vbTab & dr.Item("TL-1609"))
            End If

            If Not (IsDBNull(dr.Item("TR-2318"))) Then
                ListBox2.Items.Add("TR-2318" & vbTab & dr.Item("TR-2318"))
            End If
            If Not (IsDBNull(dr.Item("TL-2699"))) Then
                ListBox2.Items.Add("TL-2699" & vbTab & dr.Item("TL-2699"))
            End If
            If Not (IsDBNull(dr.Item("TL-6609"))) Then
                ListBox2.Items.Add("TL-6609" & vbTab & dr.Item("TL-6609"))
            End If

            If Not (IsDBNull(dr.Item("丁酮"))) Then
                ListBox2.Items.Add("丁酮" & vbTab & dr.Item("丁酮"))
            End If

            If Not (IsDBNull(dr.Item("甲酯"))) Then
                ListBox2.Items.Add("甲酯" & vbTab & dr.Item("甲酯"))
            End If


        End While
        dr.Close()


    End Sub

    Private Sub dgv_order_Click(sender As Object, e As EventArgs) Handles dgv_order.Click

    End Sub

    Private Sub txt3_KeyUp(sender As Object, e As KeyEventArgs)




        If e.KeyCode = Keys.Enter Then

            'txt33.Text = Math.Round((Val(TXT11.Text) + Val(TXT22.Text)) / Val(txt3.Text), 2)
        Else



        End If




    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click


        Dim my_chem1 As String = ""
        Dim my_chem2 As String = ""
        Dim my_chem1_p As String = ""
        Dim my_chem2_p As String = ""
        Dim my_price1 As String = ""
        Dim my_price2 As String = ""


        Dim total_percent As Integer = 0

        For X As Integer = 0 To ListBox1.Items.Count - 1
            Dim P1() As String
            P1 = Split(ListBox1.Items(X), vbTab)
            my_chem1 = my_chem1 & "_" & P1(0)
            my_chem1_p = my_chem1_p & "_" & P1(1)

        Next

        my_chem1_p += "_" & TXT1.Text


        For X As Integer = 0 To ListBox2.Items.Count - 1
            Dim P1() As String
            P1 = Split(ListBox2.Items(X), vbTab)
            my_chem2 = my_chem2 & "_" & P1(0)
            my_chem2_p = my_chem2_p & "_" & P1(1)

        Next

        my_chem2_p += "_" & TXT2.Text



        For X As Integer = 0 To ListBox1.Items.Count - 1

            Dim P() As String

            P = Split(ListBox1.Items(X), vbTab)

            For y As Integer = 0 To dgv_CHEM.Rows.Count - 1

                If P(0) = dgv_CHEM.Rows(y).Cells(0).Value Then

                    my_price1 = my_price1 & "_" & dgv_CHEM.Rows(y).Cells(2).Value
                    Exit For
                End If

            Next
        Next


        Dim price1 As Double = 0
        For X As Integer = 0 To ListBox2.Items.Count - 1

            Dim P() As String

            P = Split(ListBox2.Items(X), vbTab)

            For y As Integer = 0 To dgv_CHEM.Rows.Count - 1

                If P(0) = dgv_CHEM.Rows(y).Cells(0).Value Then

                    my_price2 = my_price2 & "_" & dgv_CHEM.Rows(y).Cells(2).Value
                    Exit For

                End If

            Next
        Next


        Dim unt_price As Double = Math.Round((Val(TXT11.Text) + Val(TXT22.Text)) / dgv1.Rows(dgv1.CurrentCell.RowIndex).Cells("尺数").Value, 3)


        sql = "select * from rt_pu_measure2 where serial='" & dgv1.Rows(dgv1.CurrentCell.RowIndex).Cells("serial").Value & "'"
        cmd.CommandText = sql
        If Not (IsDBNull(cmd.ExecuteScalar)) Then

            Dim msg As MsgBoxResult

            msg = MsgBox("记录已存在，是否覆盖?", vbYesNoCancel, "詢問")

            If msg = vbYes Then

                sql = "update rt_pu_measure2 set unit_price='" & unt_price & "',chem1=N'" & my_chem1 & "(" & my_chem1_p & ")',chem2=N'" & my_chem2 & "(" & my_chem2_p & ")',price1='" & my_price1 & "',price2='" & my_price2 & "' where serial='" & dgv1.Rows(dgv1.CurrentCell.RowIndex).Cells("serial").Value & "'"

                cmd.CommandText = sql

                If cmd.ExecuteNonQuery() = 1 Then

                    MsgBox("存档成功")

                Else

                    MsgBox("存档出错")

                End If


            End If


        End If










    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ListBox1.Items.Remove(ListBox1.SelectedItem)
    End Sub

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

        Dim x As Double

        x = InputBox("请输入比例")

        ListBox1.Items.Add(dgv_CHEM.Rows(dgv_CHEM.CurrentCell.RowIndex).Cells(0).Value & vbTab & x)

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim x As Double

        x = InputBox("请输入比例")

        ListBox2.Items.Add(dgv_CHEM.Rows(dgv_CHEM.CurrentCell.RowIndex).Cells(0).Value & vbTab & x)
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        ListBox2.Items.Remove(ListBox2.SelectedItem)
    End Sub

    Private Sub dgv1_DoubleClick(sender As Object, e As EventArgs) Handles dgv1.DoubleClick



        ListBox1.Items.Clear()
        ListBox2.Items.Clear()


        Dim dt1 As New DataTable

        sql = " Select * from rt_pu_measure2 where serial='" & dgv1.Rows(dgv1.CurrentCell.RowIndex).Cells("serial").Value & "' and price1 is not null"
        cmd.CommandText = sql
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(DT1)

        Dim chem1() As String
        Dim price1() As String
        Dim percent1() As String
        Dim percent11() As String



        Dim chem2() As String
        Dim price2() As String
        Dim percent2() As String


        If dt1.Rows.Count = 1 Then

            chem1 = Split(dt1.Rows(0).Item("chem1"), "_")
            chem1(UBound(chem1)) = Microsoft.VisualBasic.Left(chem1(UBound(chem1)), Len(chem1(UBound(chem1))) - 1)
            price1 = Split(dt1.Rows(0).Item("price1"), "_")


            chem2 = Split(dt1.Rows(0).Item("chem2"), "_")
            chem2(UBound(chem2)) = Microsoft.VisualBasic.Left(chem2(UBound(chem2)), Len(chem2(UBound(chem2))) - 1)
            price2 = Split(dt1.Rows(0).Item("price2"), "_")


            Dim lb1 As Boolean = False
            Dim se As Integer = 0
            For x = 1 To UBound(chem1) - 1

                If Microsoft.VisualBasic.Right(chem1(x), 1) <> "(" And lb1 = False Then

                    ListBox1.Items.Add(chem1(x))

                ElseIf Microsoft.VisualBasic.Right(chem1(x), 1) = "(" And lb1 = False Then

                    chem1(x) = Microsoft.VisualBasic.Left(chem1(x), Len(chem1(x)) - 1)
                    ListBox1.Items.Add(chem1(x))
                    lb1 = True


                Else

                    ListBox1.Items(se) = ListBox1.Items(se) & vbTab & chem1(x) & vbTab & price1(se + 1)
                    se = se + 1

                End If

                TXT1.Text = chem1(UBound(chem1))
            Next x

            lb1 = False
            se = 0

            For x = 1 To UBound(chem2) - 1

                If Microsoft.VisualBasic.Right(chem2(x), 1) <> "(" And lb1 = False Then

                    ListBox2.Items.Add(chem2(x))

                ElseIf Microsoft.VisualBasic.Right(chem2(x), 1) = "(" And lb1 = False Then

                    chem2(x) = Microsoft.VisualBasic.Left(chem2(x), Len(chem2(x)) - 1)
                    ListBox2.Items.Add(chem2(x))
                    lb1 = True


                Else

                    ListBox2.Items(se) = ListBox2.Items(se) & vbTab & chem2(x) & vbTab & price2(se + 1)
                    se = se + 1

                End If

                TXT2.Text = chem2(UBound(chem2))
            Next x





















        End If

    End Sub

    Private Sub ListBox4_MouseClick(sender As Object, e As MouseEventArgs) Handles ListBox4.MouseClick

    End Sub

    Private Sub TXT1_TextChanged(sender As Object, e As EventArgs) Handles TXT1.TextChanged

    End Sub
End Class