HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/05、現場報表/Frm_process.vb

Imports System.Data.SqlClient
Imports System.Reflection
Imports System.Runtime.InteropServices
Public Class Frm_process
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim dt As New DataTable
    Dim sql As String
    Private Sub AddData(ByVal name As String, ByVal listX As ListBox, ByVal mph As Integer, ByVal hp As Integer, ByVal price As Decimal)
        ' Build a tab-delimited string.
        Dim txt As String = name & vbTab & mph.ToString() & " mph" & vbTab & hp.ToString() & " hp" & vbTab & price.ToString("C")

        ' Display in the ListBox and first TextBox.
        'lstCars.Items.Add(txt)
        'txtCars.Text &= txt & vbCrLf




        ' Display formatted.
        'txtFormattedCars.Text &= String.Format("{0,-30}{1,7} mph{2,7} hp{3,15:C}" & vbCrLf, name, mph, hp, price)
    End Sub

    ' Set tab stops inside a ListBox.
    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 offsets As ListBox.IntegerCollection = ListBox12.CustomTabOffsets

        ' Define the tabs.
        For Each tab As Integer In tabs
            offsets.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 Frm_retan_record_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        DGV1.ReadOnly = True


        SetListBoxTabs(ListBox12, New Integer() {20, 45, 70})



        ' Me.MdiParent = FrmMDI

        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 conn As New SqlConnection
        Dim DR As SqlDataReader


        'connstring = "Data Source=127.0.0.1;Persist Security Info=True;User ID=sa;Password=Lafayette11;Initial Catalog=maindb_hy2014"
        conn.ConnectionString = connstring
        conn.Open()



        cmd.Connection = conn








        sql = "Select Top(300) card As 卡号, Date As 日期, cust As 客户, article As 品名, source As 皮源, selection As 选级, qty As 数量, sammy_qty As 挤水片数, sammy_qty1 AS 挤水尺数, chem, no, no1, date1, no2 From HT_WB where not(cust like N'%N/A%') order by date desc "

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


        DGV1.DataSource = dt

        ' DGV1.SelectionMode = DataGridViewSelectionMode.FullRowSelect


        'Dim DT1 As New DataTable

        'sql = "SELECT MONTH AS 时间, SUM(Expr1) AS 重量, CLASS AS 类别, TYPE AS 染色, 颜色 FROM (SELECT MONTH, SUM(TOTAL) / 2 AS Expr1, CLASS, TYPE, CASE WHEN COLOR LIKE '%黑%' THEN '黑色' WHEN COLOR LIKE '%白%' THEN '白色' ELSE '彩色' END AS 颜色 FROM RT_RETAN_RECORD_D GROUP BY    MONTH, CLASS, TYPE, COLOR) AS derivedtbl_1 GROUP BY   MONTH, CLASS, TYPE, 颜色 ORDER BY   时间, 染色, 颜色"

        'cmd.CommandText = sql
        'da.SelectCommand = cmd
        'da.Fill(DT1)


        'DGV2.DataSource = DT1



        set_grid()





    End Sub

    Function RemoveRightNonDigits(input As String) As String
        For i As Integer = input.Length To 1 Step -1
            ' 检查当前字符是否为数字或非中文字符
            If Char.IsDigit(input(i - 1)) Then
                ' 保留到最后一个数字为止的部分
                Return input.Substring(0, i)
            ElseIf IsChinese(input(i - 1)) Then
                ' 如果是中文字符，继续查找
                Return input.Substring(0, i - 1) ' 只去掉最后一个中文字符
            End If
        Next
        ' 如果没有数字，返回空字符串
        Return ""
    End Function

    Function IsChinese(ch As Char) As Boolean
        Return Char.GetUnicodeCategory(ch) = Globalization.UnicodeCategory.OtherLetter AndAlso
           ch >= ChrW(&H4E00) AndAlso ch <= ChrW(&H9FFF)
    End Function

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



        lb1.Items.Clear()
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        ListBox3.Items.Clear()
        ListBox4.Items.Clear()
        ListBox5.Items.Clear()
        ListBox6.Items.Clear()
        ListBox7.Items.Clear()
        ListBox8.Items.Clear()
        ListBox9.Items.Clear()
        ListBox10.Items.Clear()
        ListBox11.Items.Clear()
        ListBox12.Items.Clear()
        ListBox13.Items.Clear()
        ListBox14.Items.Clear()
        ListBox15.Items.Clear()
        ListBox16.Items.Clear()


        ListBox17.Items.Clear()
        ListBox18.Items.Clear()
        ListBox19.Items.Clear()
        ListBox20.Items.Clear()
        ListBox21.Items.Clear()


        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""

        Label10.Text = ""
        Label12.Text = ""
        Label9.Text = ""

        sql = “select CASE WHEN CHARINDEX(',', comment) > 0 AND CHARINDEX(',', 
    comment, CHARINDEX(',', comment) + 1) > 0 THEN CASE WHEN PATINDEX('%[a-zA-Z]%', 
    REVERSE(SUBSTRING(comment, CHARINDEX(',', comment) + 1, CHARINDEX(',', comment, 
    CHARINDEX(',', comment) + 1) - CHARINDEX(',', comment) - 1))) 
    > 0 THEN LEFT(SUBSTRING(comment, CHARINDEX(',', comment) + 1, CHARINDEX(',', comment, 
    CHARINDEX(',', comment) + 1) - CHARINDEX(',', comment) - 1), LEN(SUBSTRING(comment, 
    CHARINDEX(',', comment) + 1, CHARINDEX(',', comment, CHARINDEX(',', comment) + 1) 
    - CHARINDEX(',', comment) - 1)) - PATINDEX('%[a-zA-Z]%', REVERSE(SUBSTRING(comment, 
    CHARINDEX(',', comment) + 1, CHARINDEX(',', comment, CHARINDEX(',', comment) + 1) 
    - CHARINDEX(',', comment) - 1))) + 1) ELSE SUBSTRING(comment, CHARINDEX(',', comment) + 1, 
    CHARINDEX(',', comment, CHARINDEX(',', comment) + 1) - CHARINDEX(',', comment) - 1) 
    END ELSE '' END AS 尺数,CASE WHEN CHARINDEX(',', 
    comment) > 0 THEN SUBSTRING(comment, 1, CHARINDEX(',', comment) - 1) 
    ELSE comment END AS 皮源, CASE WHEN CHARINDEX(',', comment) > 0 AND CHARINDEX(',', 
    comment, CHARINDEX(',', comment) + 1) > 0 THEN SUBSTRING(comment, CHARINDEX(',', 
    comment, CHARINDEX(',', comment) + 1) + 1, LEN(comment)) ELSE '' END AS 片数, work_name, 
    work_id, unit, qty, piece
FROM HT_workshop3
WHERE (CARD=N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "') and (comment IS NOT NULL) AND (work_name LIKE N'蓝皮%')
ORDER BY date DESC”
        cmd.CommandText = sql

        If cmd.ExecuteScalar Is Nothing Then


            Else
            TextBox1.Text = cmd.ExecuteScalar

        End If


        sql = "SELECT CASE WHEN CHARINDEX(',', comment)     > 0 THEN SUBSTRING(comment, CHARINDEX(',', comment) + 1, LEN(comment))     ELSE '' END AS 尺数, CASE WHEN CHARINDEX(',', comment) > 0 THEN SUBSTRING(comment, 1, CHARINDEX(',',     comment) - 1) ELSE comment END AS 片数,  card, name, product, code1, spec, work_name, work_id, unit, qty,     piece FROM HT_workshop3 WHERE (CARD=N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "')  AND (work_name LIKE N'%打%')  AND     (dep = N'二车间') ORDER BY date DESC"

        cmd.CommandText = sql

        If cmd.ExecuteScalar Is Nothing Then


        Else
            TextBox2.Text = cmd.ExecuteScalar

        End If


        sql = "SELECT CASE WHEN CHARINDEX(' ', comment)     > 0 THEN SUBSTRING(comment, CHARINDEX(' ', comment) + 1, LEN(comment))     ELSE '' END AS 尺数, CASE WHEN CHARINDEX('', comment) > 0 THEN SUBSTRING(comment, 1, CHARINDEX(' ',     comment) - 1) ELSE comment END AS 片数,  card, name, product, code1, spec, work_name, work_id, unit, qty,     piece FROM HT_workshop3 WHERE (CARD=N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "')  AND (work_name LIKE N'%打尺%')  AND     (dep = N'三车间') ORDER BY date DESC"

        cmd.CommandText = sql

        If cmd.ExecuteScalar Is Nothing Then


        Else
            TextBox3.Text = Microsoft.VisualBasic.Trim(cmd.ExecuteScalar)

        End If

        Dim wb As Double = 0
        Dim crust As Double = 0
        Dim finish As Double = 0

        If (TextBox1.Text <> "") Then wb = RemoveRightNonDigits(TextBox1.Text)

        If (TextBox2.Text <> "") Then
            If IsNumeric(RemoveRightNonDigits(TextBox2.Text)) Then
                crust = RemoveRightNonDigits(TextBox2.Text)

            End If
        End If




        Label10.Text = (crust / wb * 100).ToString("f2") & "%"

        If IsNumeric(TextBox3.Text) Then Label12.Text = (TextBox3.Text / wb * 100).ToString("f2") & "%"

        '----染色
        sql = "SELECT year(in_date) as year,MONTH(in_DATE) AS MONTH, DAY(in_DATE) AS DAY,in_date,out_date,out_qty,piece FROM ht_retan WHERE CARD=N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "' ORDER BY in_DATE"
        cmd.CommandText = sql
        Dim DR As SqlDataReader
        DR = cmd.ExecuteReader

        While DR.Read
            'Label1.Text = Label1.Text & vbCrLf & DR("MONTH") & "/" & DR("DAY")
            'Label46.Text = Label46.Text & DR("TYPE")

            ' lb1.Items.Add(DR("year") & "/" & DR("MONTH") & "/" & DR("DAY") & "  " & DR("out_qty") & "片")

            lb1.Items.Add("进鼓" & DR("in_date") & "  " & DR("piece") & "片")
            lb1.Items.Add("出鼓" & DR("out_date") & "  " & DR("out_qty") & "片")

        End While
        DR.Close()


        '--蓝皮
        sql = "SELECT date,source,selection,sammy_qty,sammy_qty1 FROM ht_wb WHERE CARD='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "' ORDER BY DATE"
        cmd.CommandText = sql

        DR = cmd.ExecuteReader

        While DR.Read
            ListBox21.Items.Add((DR("date") & "-" & DR("source")) & "/" & DR("selection"))
            ListBox21.Items.Add((DR("date") & "-" & DR("sammy_qty")) & "/" & DR("sammy_qty1"))
        End While
        DR.Close()



        '--打软
        sql = "SELECT date,p1,sf FROM ht_vibration WHERE CARD='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "' ORDER BY DATE"
        cmd.CommandText = sql

        DR = cmd.ExecuteReader

        While DR.Read
            ListBox5.Items.Add((DR("date") & "-" & DR("p1")) & "片" & DR("sf") & "尺")
        End While
        DR.Close()

        '--真空
        sql = "SELECT date,machine,piece FROM ht_vacumn WHERE CARD=N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "' ORDER BY DATE"
        cmd.CommandText = sql

        DR = cmd.ExecuteReader

        While DR.Read

            ListBox3.Items.Add(DR("machine") & DR("date") & "  " & DR("piece"))

        End While
        DR.Close()


        '--磨皮
        sql = "SELECT date,work_name,piece FROM ht_workshop3 WHERE CARD=N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "' and work_name like N'%磨%' ORDER BY DATE"
        cmd.CommandText = sql

        DR = cmd.ExecuteReader

        While DR.Read
            ListBox6.Items.Add((DR("date") & DR("work_name")) & " " & DR("piece"))
        End While
        DR.Close()

        '--3打软
        sql = "SELECT date,work_name,piece,comment FROM ht_workshop3 WHERE CARD=N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "' and work_name like N'%打软%' ORDER BY DATE"
        cmd.CommandText = sql

        DR = cmd.ExecuteReader

        While DR.Read
            ListBox19.Items.Add((DR("date") & DR("work_name")) & " " & DR("piece"))
        End While
        DR.Close()

        '--真空
        sql = "SELECT date,work_name,piece FROM ht_workshop3 WHERE CARD=N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "' and work_name like N'%真空%' ORDER BY DATE"
        cmd.CommandText = sql

        DR = cmd.ExecuteReader

        While DR.Read
            ListBox14.Items.Add((DR("date") & DR("work_name")) & " " & DR("piece"))
        End While
        DR.Close()






        '--拉网
        sql = "SELECT date,work_name,piece FROM ht_workshop3 WHERE CARD=N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "' and work_name like N'%绷%' ORDER BY DATE"
        cmd.CommandText = sql

        DR = cmd.ExecuteReader

        While DR.Read
            ListBox8.Items.Add((DR("date") & DR("work_name")) & " " & DR("piece"))
        End While
        DR.Close()

        '--压板
        sql = "SELECT date,work_name,piece FROM ht_workshop3 WHERE CARD=N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "' and work_name like N'%压%' ORDER BY DATE"
        cmd.CommandText = sql

        DR = cmd.ExecuteReader

        While DR.Read
            ListBox9.Items.Add((DR("date") & DR("work_name")) & " " & DR("piece"))
        End While
        DR.Close()


        '--喷台
        sql = "SELECT date,work_name,qty FROM ht_workshop3 WHERE CARD=N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "' and work_name like N'%喷%' ORDER BY DATE"
        cmd.CommandText = sql

        DR = cmd.ExecuteReader

        While DR.Read
            ListBox10.Items.Add((DR("date") & DR("work_name") & " -- " & DR("qty")))
        End While
        DR.Close()

        '--摔软
        sql = "SELECT date,work_name,qty FROM ht_workshop3 WHERE CARD=N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "' and work_name like N'%摔%' ORDER BY DATE"
        cmd.CommandText = sql

        DR = cmd.ExecuteReader

        While DR.Read
            ListBox16.Items.Add((DR("date") & DR("work_name") & " -- " & DR("qty")))
        End While
        DR.Close()

        '--滚光
        sql = "SELECT date,work_name,qty FROM ht_workshop3 WHERE CARD=N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "' and work_name like N'%滚%' and work_name not like N'%油%' and work_name not like N'%浆%' ORDER BY DATE"
        cmd.CommandText = sql

        DR = cmd.ExecuteReader

        While DR.Read
            ListBox15.Items.Add((DR("date") & DR("work_name") & " -- " & DR("qty")))
        End While
        DR.Close()





        '--刷浆
        sql = "SELECT date,work_name,piece FROM ht_workshop3 WHERE CARD=N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "' and work_name like N'%刷浆%' ORDER BY DATE"
        cmd.CommandText = sql

        DR = cmd.ExecuteReader

        While DR.Read
            ListBox17.Items.Add((DR("date") & DR("work_name")) & " " & DR("piece"))
        End While
        DR.Close()

        '--修边
        sql = "SELECT date,work_name,piece FROM ht_workshop3 WHERE CARD=N'" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "' and work_name like N'%修%' ORDER BY DATE"
        cmd.CommandText = sql

        DR = cmd.ExecuteReader

        While DR.Read
            ListBox18.Items.Add((DR("date") & DR("work_name")) & " " & DR("piece"))
        End While
        DR.Close()





        '--量尺
        sql = "SELECT date,COMMENT FROM ht_workshop3 WHERE card='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "' and work_name like N'%打尺%' ORDER BY DATE"

        sql = " SELECT date, p, dep, card, name, product, code1, spec, work_name, CASE WHEN CHARINDEX(' ', 
    comment) > 0 THEN SUBSTRING(comment, 1, CHARINDEX(' ', comment) - 1) 
    ELSE comment END AS 片数, CASE WHEN CHARINDEX(' ', comment) 
    > 0 THEN trim(SUBSTRING(comment, CHARINDEX(' ', comment) + 1, LEN(comment) 
    - CHARINDEX(' ', comment))) ELSE '' END AS 尺数, work_id, unit, qty, piece, comment
FROM HT_workshop3
WHERE card='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "' and work_name like N'%打尺%'
ORDER BY date DESC"


        cmd.CommandText = sql

        DR = cmd.ExecuteReader

        While DR.Read
            ListBox12.Items.Add(DR("date") & "-" & DR("片数") & "片-" & DR("尺数") & "尺")
        End While
        DR.Close()

        '--滚油蜡
        sql = "SELECT date,COMMENT,work_name FROM ht_workshop3 WHERE card='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "' and work_name like N'%滚油%' ORDER BY DATE"
        cmd.CommandText = sql

        DR = cmd.ExecuteReader

        While DR.Read
            ListBox20.Items.Add(DR("date") & vbTab & DR("work_name"))
        End While
        DR.Close()



        '--销售
        sql = "SELECT date,cust,coin,price,qty FROM ht_sale_k3 WHERE lot='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "'  ORDER BY DATE"
        cmd.CommandText = sql

        DR = cmd.ExecuteReader

        While DR.Read
            '    ListBox13.Items.Add(DR("date") & DR("cust") & DR("qty") & "尺" & DR("coin") & DR("price"))
            ListBox13.Items.Add(DR("date") & DR("cust") & DR("qty") & "尺")
        End While
        DR.Close()



        sql = "SELECT  HT_ChemOut.date as 日期, HT_ChemOut.name as 品名,cast(SUM(HT_ChemOut.qty) as numeric(10,1)) AS 数量, cast(AVG(HT_Chem_In.price) as numeric(10,1)) AS 单价 FROM     HT_ChemOut LEFT OUTER JOIN               HT_Chem_In ON HT_ChemOut.name = HT_Chem_In.name WHERE   (HT_ChemOut.dep = N'三车间') AND (HT_ChemOut.card2='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "') GROUP BY HT_ChemOut.date, HT_ChemOut.name, HT_ChemOut.no"
        cmd.CommandText = sql
        dt = New DataTable
        da.Fill(dt)

        DGV_finish.DataSource = dt




        sql = "SELECT  HT_ChemOut.date AS 日期, HT_ChemOut.name AS 品名, HT_Chem_Main.type1, CAST(SUM(HT_ChemOut.qty) AS numeric(10, 1)) AS 数量,                CAST(AVG(HT_Chem_In_1.price) AS numeric(10, 1)) AS 单价 FROM     HT_ChemOut LEFT OUTER JOIN               HT_Chem_Main ON HT_ChemOut.name = HT_Chem_Main.sys_name LEFT OUTER JOIN               (SELECT  name, AVG(price) AS price
                   FROM     HT_Chem_In                   GROUP BY name) AS ht_chem_in_1 ON HT_ChemOut.name = ht_chem_in_1.name WHERE   (HT_ChemOut.card1='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "') GROUP BY HT_ChemOut.date, HT_ChemOut.name, HT_ChemOut.no, HT_Chem_Main.type1"
        sql = "SELECT HT_ChemOut.date AS 日期, HT_ChemOut.name AS 品名, HT_Chem_Main.type1, 
    CAST(SUM(HT_ChemOut.qty) AS numeric(10, 1)) AS 数量, CAST(AVG(ht_chem_in_1.price) 
    AS numeric(10, 1)) AS 单价, ht_retanrcp_1.weight, HT_ChemOut.card1, 
    CAST(SUM(HT_ChemOut.qty) / ht_retanrcp_1.weight AS numeric(10, 1)) AS 比例
FROM HT_ChemOut LEFT OUTER JOIN
        (SELECT CASE WHEN CHARINDEX(' ', no) > 0 THEN SUBSTRING(no, 1, CHARINDEX(' ', no) - 1) 
           ELSE no END AS result, weight
      FROM HT_RetanRcp) AS ht_retanrcp_1 ON 
    HT_ChemOut.card1 = ht_retanrcp_1.result LEFT OUTER JOIN
    HT_Chem_Main ON HT_ChemOut.name = HT_Chem_Main.sys_name LEFT OUTER JOIN
        (SELECT name, AVG(price) AS price
      FROM HT_Chem_In
      GROUP BY name) AS ht_chem_in_1 ON HT_ChemOut.name = ht_chem_in_1.name
WHERE    (HT_ChemOut.card1 like '" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "%')
GROUP BY HT_ChemOut.date, HT_ChemOut.name, HT_Chem_Main.type1, ht_retanrcp_1.weight, 
    HT_ChemOut.card1
ORDER BY HT_Chem_Main.type1"

        cmd.CommandText = sql
        dt = New DataTable
        da.Fill(dt)

        DGV_Chem.DataSource = dt

        sql = "SELECT  rcp_no + '--' + no FROM HT_RetanRcp WHERE (no like  '%" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "%')"
        cmd.CommandText = sql

        If cmd.ExecuteScalar Is Nothing Then

            TextBox5.Text = ""
        Else
            TextBox5.Text = cmd.ExecuteScalar.ToString

        End If










        sql = "select type1 as 类型,SUM(比例) AS 比例,SUM(数量 * 单价) AS 金额 from ( SELECT HT_ChemOut.date AS 日期, HT_ChemOut.name AS 品名, HT_Chem_Main.type1, 
    CAST(SUM(HT_ChemOut.qty) AS numeric(10, 1)) AS 数量, CAST(AVG(ht_chem_in_1.price) 
    AS numeric(10, 1)) AS 单价, ht_retanrcp_1.weight, HT_ChemOut.card1, 
    CAST(SUM(HT_ChemOut.qty) / ht_retanrcp_1.weight AS numeric(10, 1)) AS 比例
FROM HT_ChemOut LEFT OUTER JOIN
        (SELECT CASE WHEN CHARINDEX(' ', no) > 0 THEN SUBSTRING(no, 1, CHARINDEX(' ', no) - 1) 
           ELSE no END AS result, weight
      FROM HT_RetanRcp) AS ht_retanrcp_1 ON 
    HT_ChemOut.card1 = ht_retanrcp_1.result LEFT OUTER JOIN
    HT_Chem_Main ON HT_ChemOut.name = HT_Chem_Main.sys_name LEFT OUTER JOIN
        (SELECT name, AVG(price) AS price
      FROM HT_Chem_In
      GROUP BY name) AS ht_chem_in_1 ON HT_ChemOut.name = ht_chem_in_1.name
WHERE    (HT_ChemOut.card1='" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "')
GROUP BY HT_ChemOut.date, HT_ChemOut.name, HT_Chem_Main.type1, ht_retanrcp_1.weight, 
    HT_ChemOut.card1
) as z GROUP BY type1
ORDER BY 金额 DESC"

        sql = "SELECT type1 AS 类型, SUM(百分比) AS 比例, SUM(数量 * 单价) AS 金额,cast(SUM(数量 * 单价) * 100 / SUM(SUM(数量 * 单价)) OVER () as numeric(10,2)) AS 金额比例
FROM (SELECT HT_ChemOut.date AS 日期, HT_ChemOut.name AS 品名, HT_Chem_Main.type1, 
           CAST(SUM(HT_ChemOut.qty) AS numeric(10, 1)) AS 数量, CAST(SUM(HT_ChemOut.qty) 
           / ht_retanrcp_1.weight * 100 AS numeric(10, 2)) AS 百分比, 
           CAST(AVG(ht_chem_in_1.price) AS numeric(10, 1)) AS 单价, HT_ChemOut.card1, 
           ht_retanrcp_1.weight
       FROM HT_ChemOut LEFT OUTER JOIN
               (SELECT result AS no, AVG(weight) AS weight
             FROM (SELECT CASE WHEN CHARINDEX(' ', no) > 0 THEN SUBSTRING(no, 1, 
                        CHARINDEX(' ', no) - 1) ELSE no END AS result, weight
                    FROM HT_RetanRcp) AS z_1
             GROUP BY result) AS ht_retanrcp_1 ON 
           HT_ChemOut.card1 = ht_retanrcp_1.no LEFT OUTER JOIN
           HT_Chem_Main ON HT_ChemOut.name = HT_Chem_Main.sys_name LEFT OUTER JOIN
               (SELECT name, AVG(price) AS price
             FROM HT_Chem_In
             GROUP BY name) AS ht_chem_in_1 ON 
           HT_ChemOut.name = ht_chem_in_1.name
       WHERE (HT_ChemOut.card1 like '" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("卡号").Value & "%')
       GROUP BY HT_ChemOut.date, HT_ChemOut.name, HT_Chem_Main.type1, 
           HT_ChemOut.card1, ht_retanrcp_1.weight) AS z
GROUP BY type1 order by SUM(数量 * 单价) * 100 / SUM(SUM(数量 * 单价)) OVER () desc"


        cmd.CommandText = sql
        dt = New DataTable







        da.Fill(dt)

        Dim myRow As DataRow
        myRow = dt.NewRow
        If IsDBNull(dt.Compute("sum(金额)", "")) Then
            myRow(2) = 0
        Else
            myRow(2) = Math.Round(dt.Compute("sum(金额)", ""), 1)
        End If


        If IsDBNull(dt.Compute("sum(比例)", "")) Then
            myRow(1) = 0
        Else
            myRow(1) = Math.Round(dt.Compute("sum(比例)", ""), 1)
        End If


        myRow(0) = "合计"

        dt.Rows.InsertAt(myRow, 0)


        dgv_retan_sum.DataSource = dt





    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click  '-----顏色查詢






        sql = "Select Case Top(200) card As 卡号, Date As 日期, cust As 客户, article As 品名, source As 皮源, selection As 选级, qty As 数量, sammy_qty As 片数,  sammy_qty1 AS 尺数, chem, no, no1, date1, no2 From HT_WB WHERE   (card like N'%" & txtColor.Text & "%') and not(cust like N'%N/A%') "
        sql = "Select Date As 下单日,duedate As 交期, cust As 客户,article As 品名, thick As 厚度, qty As 订单数量, order_no As 订单号,work_no As 型体号,card As 卡号 FROM     HT_orders WHERE article Like N'%" & txtcard.Text & "%' ORDER BY date DESC, card"


        sql = "Select Top(300) card As 卡号, Date As 日期, cust As 客户, article As 品名, source As 皮源, selection As 选级, qty As 数量, sammy_qty As 挤水片数, sammy_qty1 AS 挤水尺数, chem, no, no1, date1, no2 From HT_WB where not(cust like N'%N/A%') and (article Like N'%" & txtColor.Text & "%' )  order by date desc "



        Dim DT As New DataTable

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


        DGV1.DataSource = DT
        set_grid()


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '-----卡号查询




        sql = "select date as 下单日,duedate as 交期, cust as 客户,article AS 品名, thick as 厚度, qty as 订单数量, order_no as 订单号,work_no as 型体号,card as 卡号 FROM     ht_k3_orders WHERE  card like N'%" & txtcard.Text & "%' ORDER BY date DESC, card"

        Dim DT As New DataTable

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


        DGV1.DataSource = DT
        set_grid()

    End Sub
    Private Sub set_grid()


        DGV1.Columns(0).Width = 120
        DGV1.Columns(1).Width = 120
        DGV1.Columns(2).Width = 120
        DGV1.Columns(3).Width = 250
        DGV1.Columns(4).Width = 150
        DGV1.Columns(5).Width = 80
        DGV1.Columns(6).Width = 80
        DGV1.Columns(7).Width = 80
        DGV1.Columns(8).Width = 80
        'DGV1.Columns(9).Width = 80
        'DGV1.Columns(10).Width = 80
        'DGV1.Columns(11).Width = 80
        'DGV1.Columns(12).Width = 80
        'DGV1.Columns(13).Width = 80
        'DGV1.Columns(14).Width = 80
        'DGV1.Columns(15).Width = 80








    End Sub



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


        sql = "SELECT          derivedtbl_1.DATE AS 日期, derivedtbl_1.CUST AS 客户, derivedtbl_1.CARD AS 卡号,                          " &
"                             derivedtbl_1.S_CARD As 简短卡号, derivedtbl_1.THICKNESS As 厚度, derivedtbl_1.COLOR As 颜色,                 " &
"                             derivedtbl_1.SOURCE AS 皮源, derivedtbl_1.ORDER_QTY AS 订单数量, derivedtbl_1.WB_WEIGHT AS 蓝皮重,            " &
"                             derivedtbl_1.SPEC As 规格, derivedtbl_1.PRICE As 蓝皮价, derivedtbl_1.PRICE1 As 单价,                        " &
"                             derivedtbl_1.TECH AS 技衔员, derivedtbl_1.CLASS AS 类别, derivedtbl_1.TYPE AS 染色,                          " &
"                             RT_PACKAGE.SF As 包装尺数, RT_PACKAGE.B As 是否取完                                                          " &
" FROM              (SELECT          TOP (100) PERCENT RT_RETAN_RECORD.DATE, RT_RETAN_RECORD.CUST,                                        " &
"                                                         RT_RETAN_RECORD.CARD, RT_RETAN_RECORD.S_CARD, RT_RETAN_RECORD.THICKNESS,        " &
"                                                         RT_RETAN_RECORD.COLOR, RT_RETAN_RECORD.SOURCE, RT_RETAN_RECORD.ORDER_QTY,       " &
"                                                         RT_RETAN_RECORD.WB_WEIGHT, RT_RETAN_RECORD.SPEC, RT_RETAN_RECORD.PRICE,         " &
"                                                         CASE WHEN WB_WEIGHT = 0 THEN 0 WHEN WB_WEIGHT Is NULL                           " &
"                                                         Then 0 Else CAST(PRICE / (WB_WEIGHT) As NUMERIC(10, 2)) End As PRICE1,          " &
"                                                         RT_RETAN_RECORD.TECH, RT_RETAN_RECORD_D.DATE AS Expr1, RT_RETAN_RECORD_D.CLASS, " &
"                                                         RT_RETAN_RECORD_D.TYPE                                                          " &
"                             FROM               RT_RETAN_RECORD LEFT OUTER JOIN                                                          " &
"                                                         RT_RETAN_RECORD_D On RT_RETAN_RECORD.S_CARD = RT_RETAN_RECORD_D.CARD            " &
"                             ORDER BY    RT_RETAN_RECORD.DATE DESC) AS derivedtbl_1 LEFT OUTER JOIN                                      " &
"                             RT_PACKAGE On derivedtbl_1.CARD = RT_PACKAGE.CARD                                                           " &
" WHERE          (derivedtbl_1.Expr1 Is Not NULL) And (YEAR(derivedtbl_1.DATE) > 2018)                                                    " &
" ORDER BY   日期 DESC "

        sql = "SELECT  RT_RETAN_RECORD.DATE AS 日期, RT_RETAN_RECORD.CUST AS 客户,                             " &
"                    RT_RETAN_RECORD.CARD AS 卡号, RT_RETAN_RECORD.S_CARD AS 短卡号,                                             " &
"                    RT_RETAN_RECORD.THICKNESS AS 厚度, RT_RETAN_RECORD.COLOR AS 颜色,                                           " &
"                    RT_RETAN_RECORD.SOURCE AS 皮源, RT_RETAN_RECORD.ORDER_QTY AS 订单数,                                        " &
"                    RT_RETAN_RECORD.WB_WEIGHT AS 蓝皮重, RT_RETAN_RECORD.SPEC AS 规格, RT_RETAN_RECORD.PRICE AS 总价,           " &
"                    CASE WHEN WB_WEIGHT = 0 THEN 0 WHEN WB_WEIGHT IS NULL THEN 0 ELSE CAST(PRICE / (WB_WEIGHT)                 " &
"                    AS NUMERIC(10, 2)) END AS 单价, RT_RETAN_RECORD.TECH AS 技术员, RT_RETAN_RECORD_D.DATE AS 日期1,            " &
"                    RT_RETAN_RECORD_D.CLASS AS 类别, RT_RETAN_RECORD_D.TYPE AS 类别1                                            " &
" FROM      RT_RETAN_RECORD LEFT OUTER JOIN                                                                                     " &
"                    RT_RETAN_RECORD_D ON RT_RETAN_RECORD.CARD = RT_RETAN_RECORD_D.CARD                                         " &
" WHERE  RT_RETAN_RECORD.cust like N'%" & txtCust.Text & "%' ORDER BY 日期 DESC, 卡号"



        sql = "Select Top(300) card As 卡号, Date As 日期, cust As 客户, article As 品名, source As 皮源, selection As 选级, qty As 数量, sammy_qty As 挤水片数, sammy_qty1 AS 挤水尺数, chem, no, no1, date1, no2 From HT_WB where not(cust like N'%N/A%') and (article Like N'%" & txtCust.Text & "%' )  order by date desc "






        Dim DT As New DataTable

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


        DGV1.DataSource = DT
        set_grid()


    End Sub

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

    End Sub
End Class