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

Imports System.Data.SqlClient
Imports System.Reflection

'Imports Excel = Microsoft.Office.Interop.Excel
Public Class Frm_RETAN_Evaluation
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim dt As New DataTable

    Dim sql As String
    'Dim xlApp As Excel.Application
    'Dim xlBook As Excel.Workbook
    'Dim xlSheet As Excel.Worksheet

    Private Sub Frm_RETAN_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        ListBox1.Items.Add("客户：076")
        ListBox1.Items.Add("颜色：黑色")
        ListBox1.Items.Add("卡号：XXXXXXXXXX")
        ListBox1.Items.Add("鼓号：10")
        ListBox1.Items.Add("蓝皮重：1500 KG")
        ListBox1.Items.Add("化工品名：2400")
        ListBox1.Items.Add("化工重量：60 kg")
        ListBox1.Items.Add("化工比例：4%")
        ListBox1.Items.Add("打印时间：2019/7/12 12:00 AM")
        ListBox1.Items.Add("技术员：XXX")
        ListBox1.Items.Add("打印人员：XXX")




        Dim type As Type = DGV1.GetType()
        Dim pi As PropertyInfo = type.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        pi.SetValue(DGV1, True, Nothing)


        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)

        Dim conn As New SqlConnection
        conn.ConnectionString = connstring
        conn.Open()
        cmd.Connection = conn



        DGV1.EnableHeadersVisualStyles = False
        DGV1.ColumnHeadersDefaultCellStyle.ForeColor = Color.Blue

        DGV2.EnableHeadersVisualStyles = False
        DGV2.ColumnHeadersDefaultCellStyle.ForeColor = Color.Blue

        DGV1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        DGV2.SelectionMode = DataGridViewSelectionMode.FullRowSelect










    End Sub

    Private Sub set_grid()

        DGV1.Columns(0).Width = 100
        DGV1.Columns(1).Width = 100
        DGV1.Columns(2).Width = 150
        DGV1.Columns(3).Width = 80
        DGV1.Columns(4).Width = 65

        DGV2.Columns(0).Width = 150
        DGV2.Columns(1).Width = 80
        DGV2.Columns(2).Width = 65






    End Sub

    Private Sub btn_cal_Click(sender As Object, e As EventArgs) Handles btn_cal.Click

        sql = "UPDATE RT_RETAN_RCP SET WEIGHT = '" & TextBox1.Text & "' WHERE (RCP_NAME = N'苏_黑色打底')"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "UPDATE RT_RETAN_RCP SET WEIGHT = '" & TextBox2.Text & "' WHERE (RCP_NAME = N'苏_黑色套染')"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "UPDATE RT_RETAN_RCP SET WEIGHT = '" & TextBox3.Text & "' WHERE (RCP_NAME = N'苏_黑PU')"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "UPDATE RT_RETAN_RCP SET WEIGHT = '" & TextBox4.Text & "' WHERE (RCP_NAME = N'苏_白PU')"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "UPDATE RT_RETAN_RCP SET WEIGHT = '" & TextBox5.Text & "' WHERE (RCP_NAME = N'刘_彩色浅色')"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "UPDATE RT_RETAN_RCP SET WEIGHT = '" & TextBox6.Text & "' WHERE (RCP_NAME = N'刘_彩色深色')"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "UPDATE RT_RETAN_RCP SET WEIGHT = '" & TextBox7.Text & "' WHERE (RCP_NAME = N'宁_彩色浅色')"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "UPDATE RT_RETAN_RCP SET WEIGHT = '" & TextBox8.Text & "' WHERE (RCP_NAME = N'宁_彩色深色')"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "UPDATE RT_RETAN_RCP SET WEIGHT = '" & TextBox9.Text & "' WHERE (RCP_NAME = N'郑_彩色')"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        sql = "UPDATE RT_RETAN_RCP SET WEIGHT = '" & TextBox10.Text & "' WHERE (RCP_NAME = N'郑_高丝光')"
        cmd.CommandText = sql
        cmd.ExecuteScalar()

        txt_total_drum.Text = Val(TextBox1.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text) + Val(TextBox8.Text) + Val(TextBox9.Text) + Val(TextBox10.Text) + +Val(TextBox11.Text) + Val(TextBox15.Text) + Val(TextBox16.Text)
        txt_total_W.Text = Val(txt_total_drum.Text) * Val(txt_weight.Text) * Val(txt_day.Text)





        Dim dt As New DataTable

        sql = "Select tech As 技术员,rcp_name As 工艺名称, chem As 化料品名, percentage As 百分比, weight As 鼓数 FROM RT_RETAN_RCP"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt)


        dt.Columns.Add("单价")
        dt.Columns.Add("供应商")
        dt.Columns.Add("产地")




        Dim DR As SqlDataReader

        For X As Integer = 0 To dt.Rows.Count - 1


            sql = "Select case when new_price is null then cast(RT_SYS_CHEM_MAIN.price as numeric(10,2)) else cast(new_price as numeric(10,2)) end As 单价,supplier as 供应商,origin as 产地 From RT_SYS_CHEM_main Where Name  = N'" & dt.Rows(X).Item("化料品名") & "'"
            cmd.CommandText = sql
            DR = cmd.ExecuteReader

            If DR.Read() Then


                dt.Rows(X).Item("单价") = DR("单价").ToString
                dt.Rows(X).Item("供应商") = DR("供应商").ToString
                dt.Rows(X).Item("产地") = DR("产地").ToString


            End If

            DR.Close()

        Next




        DGV1.DataSource = dt


        Dim dt2 As New DataTable


        sql = "SELECT CHEM as 化料品名,CAST(SUM(PERCENTAGE*WEIGHT)/ " & txt_total_drum.Text & " AS NUMERIC(10,2)) AS 百分比,CAST(SUM(PERCENTAGE*WEIGHT)/" & txt_total_drum.Text & "/100* " & txt_total_W.Text & "  AS NUMERIC(10,0)) as 用量 FROM RT_RETAN_RCP GROUP BY CHEM"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt2)

        DGV2.DataSource = dt2

        'dt2.Columns.Add("年")
        'dt2.Columns.Add("3月")
        'dt2.Columns.Add("4月")
        'dt2.Columns.Add("5月")

        dt2.Columns.Add("單價")
        dt2.Columns.Add("3月用量")
        dt2.Columns.Add("4月用量")
        dt2.Columns.Add("5月用量")
        dt2.Columns.Add("6月用量")
        'dt2.Columns.Add("月笔数")
        'dt2.Columns.Add("月百分比")
        dt2.Columns.Add("分类")
        dt2.Columns.Add("日期")
        dt2.Columns.Add("库存1")
        dt2.Columns.Add("库存2")
        dt2.Columns.Add("库存3")
        dt2.Columns.Add("合计库存")



        sql = "SELECT SUM(Expr1) AS Expr1 FROM(SELECT RCP_NAME, AVG(WEIGHT) AS Expr1 From RT_RETAN_RCP Group By RCP_NAME) AS derivedtbl_1 Where (Not (RCP_NAME Like '%套染%'))"
        cmd.CommandText = sql

        txt_total_SF.Text = Math.Round(cmd.ExecuteScalar * Val(txt_day.Text) * Val(txt_weight.Text) * 5.4, 0)
        txt_wb.Text = Math.Round(Val(txt_total_W.Text) / 0.37, 0)


        set_grid()





        'Dim DR As SqlDataReader

        For X As Integer = 0 To DGV2.Rows.Count - 2


            sql = "Select class1 From RT_SYS_CHEM_main Where Name  = N'" & DGV2.Rows(X).Cells("化料品名").Value & "'"
            cmd.CommandText = sql
            DR = cmd.ExecuteReader

            If DR.Read() Then


                dt2.Rows(X).Item("分类") = DR("class1").ToString

            End If

            DR.Close()



            sql = "Select Year(Date) As 年, MONTH(Date) As 月, NAME As 化料品名, CAST(SUM(WEIGHT) As NUMERIC(10, 0)) As 用量kg,COUNT(*) As 笔数, CAST(SUM(WEIGHT) / SUM(ORDER_A) * 100 As NUMERIC(10, 1)) As 百分比 From RT_SYS_CHEM_OUT Where Name  = N'" & DGV2.Rows(X).Cells("化料品名").Value & "' AND MONTH(DATE)=3 Group By YEAR(Date), MONTH(Date), Name Order By 化料品名, 年, 月"
            cmd.CommandText = sql
            DR = cmd.ExecuteReader

            If DR.Read() Then


                dt2.Rows(X).Item("3月用量") = DR("用量KG").ToString

            End If

            DR.Close()

            sql = "Select Year(Date) As 年, MONTH(Date) As 月, NAME As 化料品名, CAST(SUM(WEIGHT) As NUMERIC(10, 0)) As 用量kg,COUNT(*) As 笔数, CAST(SUM(WEIGHT) / SUM(ORDER_A) * 100 As NUMERIC(10, 1)) As 百分比 From RT_SYS_CHEM_OUT Where Name  = N'" & DGV2.Rows(X).Cells("化料品名").Value & "' AND MONTH(DATE)=4 Group By YEAR(Date), MONTH(Date), Name Order By 化料品名, 年, 月"
            cmd.CommandText = sql
            DR = cmd.ExecuteReader

            If DR.Read() Then


                dt2.Rows(X).Item("4月用量") = DR("用量KG").ToString

            End If

            DR.Close()

            sql = "Select Year(Date) As 年, MONTH(Date) As 月, NAME As 化料品名, CAST(SUM(WEIGHT) As NUMERIC(10, 0)) As 用量kg,COUNT(*) As 笔数, CAST(SUM(WEIGHT) / SUM(ORDER_A) * 100 As NUMERIC(10, 1)) As 百分比 From RT_SYS_CHEM_OUT Where Name  = N'" & DGV2.Rows(X).Cells("化料品名").Value & "' AND MONTH(DATE)=5 Group By YEAR(Date), MONTH(Date), Name Order By 化料品名, 年, 月"
            cmd.CommandText = sql
            DR = cmd.ExecuteReader

            If DR.Read() Then

                dt2.Rows(X).Item("5月用量") = DR("用量KG").ToString

            End If

            DR.Close()


            sql = "Select Year(Date) As 年, MONTH(Date) As 月, NAME As 化料品名, CAST(SUM(WEIGHT) As NUMERIC(10, 0)) As 用量kg,COUNT(*) As 笔数, CAST(SUM(WEIGHT) / SUM(ORDER_A) * 100 As NUMERIC(10, 1)) As 百分比 From RT_SYS_CHEM_OUT Where Name  = N'" & DGV2.Rows(X).Cells("化料品名").Value & "' AND MONTH(DATE)=6 Group By YEAR(Date), MONTH(Date), Name Order By 化料品名, 年, 月"
            cmd.CommandText = sql
            DR = cmd.ExecuteReader

            If DR.Read() Then

                dt2.Rows(X).Item("6月用量") = DR("用量KG").ToString

            End If

            DR.Close()




            sql = "SELECT NAME AS 品名, SUM(QTY1) AS 库存1,SUM(QTY2) AS 库存2, SUM(QTY3) AS 库存3, SUM(QTY1+QTY2+QTY3) AS 合计 FROM RT_CHEM_STOCK Where Name  = N'" & DGV2.Rows(X).Cells("化料品名").Value & "' GROUP BY NAME"


            sql = "SELECT date,NAME AS 品名, SUM(STOCK1) AS 库存1,SUM(STOCK2) AS 库存2, SUM(STOCK3) AS 库存3, SUM(STOCK1+STOCK2+STOCK3) AS 合计 FROM RT_SYS_CHEM_MAIN Where Name  = N'" & DGV2.Rows(X).Cells("化料品名").Value & "' GROUP BY NAME,date"

            cmd.CommandText = sql
            DR = cmd.ExecuteReader

            If DR.Read() Then
                dt2.Rows(X).Item("日期") = DR("date").ToString
                dt2.Rows(X).Item("库存1") = DR("库存1").ToString
                dt2.Rows(X).Item("库存2") = DR("库存2").ToString
                dt2.Rows(X).Item("库存3") = DR("库存3").ToString
                dt2.Rows(X).Item("合计库存") = DR("合计").ToString
            End If

            DR.Close()

        Next



        For X As Integer = 0 To DGV2.Rows.Count - 2
            sql = "update rt_sys_chem_main set rcp=1 where name= N'" & DGV2.Rows(X).Cells("化料品名").Value & "'"
            cmd.CommandText = sql
            cmd.ExecuteScalar()
        Next









    End Sub

    Private Sub DGV2_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV2.CellClick



        Dim DT As New DataTable

        Dim p() As String


        p = Split(DGV2.Rows(DGV2.CurrentRow.Index).Cells("化料品名").Value, " ")


        sql = "Select Year(Date) As 年, MONTH(Date) As 月, NAME As 化料品名, CAST(SUM(WEIGHT) As NUMERIC(10, 0)) As 用量kg,COUNT(*) As 笔数, CAST(SUM(WEIGHT) / SUM(ORDER_A) * 100 As NUMERIC(10, 1)) As 百分比 From RT_SYS_CHEM_OUT Where Name  like N'%" & p(0) & "%' Group By YEAR(Date), MONTH(Date), Name Order By 化料品名, 年, 月"
        cmd.CommandText = sql


        sql = "Select Year(Date) As 年, MONTH(Date) As 月, NAME As 化料品名, CAST(SUM(WEIGHT) As NUMERIC(10, 0)) As 用量kg, COUNT(*) As 笔数, CAST(SUM(WEIGHT) / SUM(ORDER_A) * 100 As NUMERIC(10, 1)) As 百分比 From RT_SYS_CHEM_OUT Where Name  = N'" & DGV2.Rows(DGV2.CurrentRow.Index).Cells("化料品名").Value & "' Group By YEAR(Date), MONTH(Date), Name Order By 年, 月 desc"
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(DT)
        DGV4.DataSource = DT

        Dim dt_tech As New DataTable
        sql = "Select Year(Date) As 年, MONTH(Date) As 月, NAME As 化料品名, CAST(SUM(WEIGHT) As NUMERIC(10, 0)) As 用量kg,p as 技术员, COUNT(*) As 笔数, CAST(SUM(WEIGHT) / SUM(ORDER_A) * 100 As NUMERIC(10, 1)) As 百分比 From RT_SYS_CHEM_OUT Where Name  = N'" & DGV2.Rows(DGV2.CurrentRow.Index).Cells("化料品名").Value & "' Group By YEAR(Date), MONTH(Date), Name,p Order By 年, 月 desc"
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt_tech)
        dgv_tech.DataSource = dt_tech

        Dim DT1 As New DataTable

        sql = "SELECT NAME AS 品名, QTY1 AS 库存1,QTY2 AS 库存2, QTY3 AS 库存3, QTY1+QTY2+QTY3 AS 合计 FROM RT_CHEM_STOCK Where Name  = N'" & DGV2.Rows(DGV2.CurrentRow.Index).Cells("化料品名").Value & "'"

        sql = "SELECT date as 日期,NAME AS 品名, SUM(STOCK1) AS 库存1,SUM(STOCK2) AS 库存2, SUM(STOCK3) AS 库存3, SUM(STOCK1+STOCK2+STOCK3) AS 合计 FROM RT_SYS_CHEM_MAIN Where Name  = N'" & DGV2.Rows(DGV2.CurrentRow.Index).Cells("化料品名").Value & "' GROUP BY NAME,date"

        cmd.CommandText = sql

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

        Dim dt2 As New DataTable


        sql = "SELECT date as 日期,NAME AS 品名, SUM(STOCK1) AS 库存1,SUM(STOCK2) AS 库存2, SUM(STOCK3) AS 库存3, SUM(STOCK1+STOCK2+STOCK3) AS 合计 FROM RT_CHEM_stock_month1 Where Name  = N'" & DGV2.Rows(DGV2.CurrentRow.Index).Cells("化料品名").Value & "' GROUP BY NAME,date"

        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt2)
        DataGridView1.DataSource = dt2




        DGV4.Columns(0).Width = 60
        DGV4.Columns(1).Width = 40
        DGV4.Columns(2).Width = 150
        DGV4.Columns(3).Width = 70
        DGV4.Columns(4).Width = 65



        dgv_tech.Columns(0).Width = 60
        dgv_tech.Columns(1).Width = 40
        dgv_tech.Columns(2).Width = 130
        dgv_tech.Columns(3).Width = 70
        dgv_tech.Columns(4).Width = 60
        dgv_tech.Columns(5).Width = 65
        dgv_tech.Columns(6).Width = 65


        DGV3.Columns(0).Width = 100
        DGV3.Columns(1).Width = 100
        DGV3.Columns(2).Width = 65
        DGV3.Columns(3).Width = 65
        DGV3.Columns(4).Width = 65

        DataGridView1.Columns(0).Width = 100
        DataGridView1.Columns(1).Width = 100
        DataGridView1.Columns(2).Width = 65
        DataGridView1.Columns(3).Width = 65
        DataGridView1.Columns(4).Width = 65



    End Sub

    Private Sub DGV2_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV2.CellContentClick

    End Sub

    Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles TextBox7.TextChanged

    End Sub

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

        Dim mytxt As String = ""


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

            mytxt = mytxt & vbCrLf & ListBox1.Items(x).ToString


        Next



        If Trim(mytxt) <> "" Then
            PictureBox1.Image = MakeQrCode(mytxt)

        End If




        System.Windows.Forms.Clipboard.SetDataObject(PictureBox1.Image, True)  '复制到剪贴板
        'Dim xlApp As Excel.Application = New Excel.Application()
        'Dim xlBook As Excel.Workbook

        'Dim xlSheet As Excel.Worksheet

        '   xlApp.Visible = True
        '   xlBook = xlApp.Workbooks().Add

        '   xlSheet = xlBook.Worksheets("工作表1")


        '   Dim range As Excel.Range = xlSheet.Range(xlApp.Cells(4, 1), xlApp.Cells(4, 1))  '粘贴图片的位置
        'xlSheet.Paste(range, PictureBox1.Image)  '将图片插入Excel


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs)
        Dim p As String


        p = InputBox("请输入字串")


        ListBox1.Items.Add(p)


    End Sub

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






    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click


        sql = "delete from rt_retan_rcp_eva"
        cmd.CommandText = sql
        cmd.ExecuteNonQuery()

        For X As Integer = 0 To DGV2.Rows.Count - 2


            sql = "insert into rt_retan_rcp_eva (name,percents,qty) values ( N'" & DGV2.Rows(X).Cells("化料品名").Value & "','" & DGV2.Rows(X).Cells("百分比").Value & "','" & DGV2.Rows(X).Cells("用量").Value & "')"
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()



        Next x


    End Sub
End Class