HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/02、皮料管理/FrmTienMei.vb

Imports System.Data.SqlClient
Imports System.Net

Public Class FrmTienMei
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim dt As New DataTable
    Dim sql As String
    Dim conn As New SqlConnection
    Private dateTimePicker1 As DateTimePicker
    Dim p() As String
    Dim my_cust As String = ""
    Dim colorArray(10) As Color
    Private Sub FrmTienMei_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        conn.ConnectionString = connstring
        conn.Open()

        cmd.Connection = conn

        colorArray(0) = Color.FromName("beige")
        colorArray(1) = Color.FromName("azure")
        colorArray(2) = Color.FromName("Aquamarine")
        colorArray(3) = Color.FromName("gainsboro")
        colorArray(4) = Color.FromName("LightBlue")
        colorArray(5) = Color.FromName("LightSalmon")


        dt = New DataTable
        sql = "SELECT  dep as 交货单位, wh as 收货仓库, cast(SUM(qty) as numeric(10,1)) AS 数量 FROM rt_TienMei_In GROUP BY dep, wh"
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt)

        dgv1.DataSource = dt


        dgv1.Columns(0).Width = 100
        dgv1.Columns(1).Width = 100
        dgv1.Columns(2).Width = 100


        sql = "SELECT  date as 日期,dep as 交货单位, wh as 收货仓库, cast(SUM(qty) as numeric(10,1)) AS 数量 FROM      rt_TienMei_In GROUP BY date,dep, wh order by date desc"
        cmd.CommandText = sql

        dt = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt)

        dgv2.DataSource = dt


        dgv2.Columns(0).Width = 100
        dgv2.Columns(1).Width = 100
        dgv2.Columns(2).Width = 100
        With dgv2.Columns("数量").DefaultCellStyle
            .Format = "n1"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With




        sql = "SELECT  p.日期, p.交货单位, p.收货仓库, p.数量, CAST(SUM(Rt_measure_daily.sf) AS numeric(10, 1)) AS 打尺, 
                   CAST(p.数量 - SUM(Rt_measure_daily.sf) AS numeric(10, 1)) AS 差异
FROM      (SELECT  TOP (100) PERCENT date AS 日期, dep AS 交货单位, wh AS 收货仓库, CAST(SUM(qty) AS numeric(10, 1)) 
                                      AS 数量
                   FROM       rt_TienMei_In
                   WHERE    (date BETWEEN '2024/6/1' AND '2024/6/30') AND (dep = N'修剪、成检、量尺、包装-R') AND 
                                      (name NOT LIKE N'%贴膜%') AND (name NOT LIKE '%加工%')
                   GROUP BY date, dep, wh
                   ORDER BY 日期 DESC) AS p LEFT OUTER JOIN
                   Rt_measure_daily ON p.日期 = Rt_measure_daily.date
WHERE   (Rt_measure_daily.cust <> N'白总加工') AND (Rt_measure_daily.cust <> N'老白') AND (Rt_measure_daily.cust <> N'白彦其') 
                   AND (Rt_measure_daily.cust <> N'本厂皮')
GROUP BY p.日期, p.交货单位, p.收货仓库, p.数量
ORDER BY p.日期 DESC"

        cmd.CommandText = sql

        dt = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt)

        dgv3.DataSource = dt


        dgv3.Columns(0).Width = 100
        dgv3.Columns(1).Width = 100
        dgv3.Columns(2).Width = 100
        With dgv3.Columns("数量").DefaultCellStyle
            .Format = "n1"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With



        sql = "select case when area=N'漳浦' then N'大鼓' else N'中小鼓' end as 转鼓, sum(weight) from rt_retan_record_d where date between '2024/6/1' and '2024/6/30' group by area"

        cmd.CommandText = sql

        dt = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt)

        dgv_retan.DataSource = dt


        sql = "SELECT  p.CARD, p.CUST, p.COLOR, RT_RETAN_RECORD_D_1.DATE, RT_RETAN_RECORD_D_1.class, 
                   RT_RETAN_RECORD_D_1.type, RT_RETAN_RECORD_D_1.dd
FROM      (SELECT  CARD, CUST, COLOR
                   FROM       RT_RETAN_RECORD_D
                   WHERE    (DATE BETWEEN '2024/6/1' AND '2024/6/30')
                   GROUP BY CARD, CUST, COLOR
                   HAVING   (COUNT(*) > 1)) AS p INNER JOIN
                   RT_RETAN_RECORD_D AS RT_RETAN_RECORD_D_1 ON p.CARD = RT_RETAN_RECORD_D_1.CARD
ORDER BY p.CARD, RT_RETAN_RECORD_D_1.DATE"
        cmd.CommandText = sql

        dt = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt)

        dgv_retan1.DataSource = dt












        sql = "SELECT  TOP (100) PERCENT rt_TienMei_In.date AS 日期, rt_TienMei_In.dep AS 交货单位, rt_TienMei_In.wh AS 收货仓库, 
                   CAST(SUM(rt_TienMei_In.qty) AS numeric(10, 1)) AS 数量, rt_TienMei_In.code, rt_TienMei_In.name, rt_TienMei_In.lot, 
                   Rt_measure_daily.card, Rt_measure_daily.source, Rt_measure_daily.sf, 
                   CAST(SUM(rt_TienMei_In.qty - Rt_measure_daily.sf) AS numeric(10, 1)) AS Expr1, Rt_measure_daily.sys_source
FROM      rt_TienMei_In FULL OUTER JOIN
                   Rt_measure_daily ON rt_TienMei_In.qty = Rt_measure_daily.sf AND rt_TienMei_In.date = Rt_measure_daily.date
WHERE   (rt_TienMei_In.date BETWEEN '2024/6/1' AND '2024/6/30') AND (rt_TienMei_In.dep = N'修剪、成检、量尺、包装-R') AND 
                   (rt_TienMei_In.name NOT LIKE N'%贴膜%')
GROUP BY rt_TienMei_In.date, rt_TienMei_In.dep, rt_TienMei_In.wh, rt_TienMei_In.code, rt_TienMei_In.name, rt_TienMei_In.lot, 
                   Rt_measure_daily.card, Rt_measure_daily.source, Rt_measure_daily.sf, Rt_measure_daily.sys_source
ORDER BY expr1"

        'cmd.CommandText = sql

        'dt = New DataTable
        'da.SelectCommand = cmd
        'da.Fill(dt)

        'dgv3.DataSource = dt


        'dgv3.Columns(0).Width = 100
        'dgv3.Columns(1).Width = 100
        'dgv3.Columns(2).Width = 100
        'With dgv3.Columns("数量").DefaultCellStyle
        '    .Format = "n1"
        '    .Alignment = DataGridViewContentAlignment.MiddleRight

        'End With






        Set_grid_color()

    End Sub
    Private Sub Set_grid_color()

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

        Dim x As Integer

        p(1) = 0

        For x = 1 To dgv2.Rows.Count - 2

            If dgv2.Rows(x).Cells(1).Value.ToString <> dgv2.Rows(x - 1).Cells(1).Value.ToString Then

                p(c + 1) = x
                c = c + 1


            End If
        Next
        p(c + 1) = x

        ReDim Preserve p(x)

        If c = 1 Then
            For z As Integer = 0 To x - 1

                dgv2.Rows(z).DefaultCellStyle.BackColor = colorArray(1)

            Next
        Else

            For cc As Integer = 1 To c

                For z As Integer = p(cc) To p(cc + 1) - 1
                    dgv2.Rows(z).DefaultCellStyle.BackColor = colorArray(cc Mod 5)
                Next
            Next
        End If









    End Sub

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

        Dim dt As New DataTable
        Dim file_name As String = ""

        Dim a As Integer = 0
        Dim my_count As Integer = 0
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

            file_name = OpenFileDialog1.FileName

        End If






        Dim filepath As String = "k3/在制品"

        Dim sourceFileName As String = file_name


        Dim address2 As String = "ftp://" & my_ip & ":7788/" & filepath & "/" & OpenFileDialog1.SafeFileName

        Dim address3() As String

        address3 = Split(address2, "ftp://" & my_ip & ":7788/")
        Dim add4 As String

        add4 = "d:\k3\在制品\" & OpenFileDialog1.SafeFileName


        Dim userName As String = "matchy3c"
        Dim password As String = "Lafayette11"
        Dim showUI As Boolean = True
        Dim connectionTimeout As Integer = 500


        Dim client As WebClient = New WebClient
        client.Credentials = New NetworkCredential(userName, password)
        client.Proxy = GlobalProxySelection.GetEmptyWebProxy()
        client.UploadFile(address2, sourceFileName)


















        sql = "delete from rt_TienMei_In"  '-------
        cmd.CommandText = sql
        cmd.ExecuteNonQuery()

        sql = "Select * FROM OPENDATASOURCE ('Microsoft.ACE.OLEDB.12.0','Excel 12.0;HDR=Yes;IMEX=1;Database=" & add4 & "')...[产品入库序时簿$]"

        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt)
        ' dgv1.DataSource = dt


        'dt.Columns.Add("filename")

        'For x As Integer = 0 To dt.Rows.Count - 1
        '    dt.Rows(x).Item("filename") = file_name
        'Next


        Dim my_sqlbulk As New SqlBulkCopy(conn)

        my_sqlbulk.DestinationTableName = "dbo.rt_TienMei_In"
        my_sqlbulk.WriteToServer(dt)

        MsgBox("导入完成!")


        dt = New DataTable
        sql = "SELECT  dep as 交货单位, wh as 收货仓库, cast(SUM(qty) as numeric(10,1)) AS 数量 FROM      rt_TienMei_In GROUP BY dep, wh"
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt)

        dgv1.DataSource = dt


        dgv1.Columns(0).Width = 100
        dgv1.Columns(1).Width = 100
        dgv1.Columns(2).Width = 100


        sql = "SELECT  date as 日期,dep as 交货单位, wh as 收货仓库, cast(SUM(qty) as numeric(10,1)) AS 数量 FROM      rt_TienMei_In GROUP BY date,dep, wh order by date desc"
        cmd.CommandText = sql

        dt = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt)

        dgv2.DataSource = dt


        dgv2.Columns(0).Width = 100
        dgv2.Columns(1).Width = 100
        dgv2.Columns(2).Width = 100
        With dgv2.Columns("数量").DefaultCellStyle
            .Format = "n1"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With




        sql = "SELECT  p.日期, p.交货单位, p.收货仓库, p.数量, CAST(SUM(Rt_measure_daily.sf) AS numeric(10, 1)) AS 打尺, 
                   CAST(p.数量 - SUM(Rt_measure_daily.sf) AS numeric(10, 1)) AS 差异
FROM      (SELECT  TOP (100) PERCENT date AS 日期, dep AS 交货单位, wh AS 收货仓库, CAST(SUM(qty) AS numeric(10, 1)) 
                                      AS 数量
                   FROM       rt_TienMei_In
                   WHERE    (date BETWEEN '2024/6/1' AND '2024/6/30') AND (dep = N'修剪、成检、量尺、包装-R') AND 
                                      (name NOT LIKE N'%贴膜%') AND (name NOT LIKE '%加工%')
                   GROUP BY date, dep, wh
                   ORDER BY 日期 DESC) AS p LEFT OUTER JOIN
                   Rt_measure_daily ON p.日期 = Rt_measure_daily.date
WHERE   (Rt_measure_daily.cust <> N'白总加工') AND (Rt_measure_daily.cust <> N'老白') AND (Rt_measure_daily.cust <> N'白彦其') 
                   AND (Rt_measure_daily.cust <> N'本厂皮')
GROUP BY p.日期, p.交货单位, p.收货仓库, p.数量
ORDER BY p.日期 DESC"

        cmd.CommandText = sql

        dt = New DataTable
        da.SelectCommand = cmd
        da.Fill(dt)

        dgv3.DataSource = dt


        dgv3.Columns(0).Width = 100
        dgv3.Columns(1).Width = 100
        dgv3.Columns(2).Width = 100
        With dgv3.Columns("数量").DefaultCellStyle
            .Format = "n1"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With





        Set_grid_color()



    End Sub

    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_retan.CellContentClick, dgv_retan1.CellContentClick

    End Sub
End Class