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

Imports System.Data.SqlClient
Imports System.Reflection
Public Class FrmPROCESS_DEP
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim dt As New DataTable
    Dim sql As String
    Dim gDep As String

    Private Sub FrmPROCESS_DEP_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        gDep = ""


        dgv_DRUM_IO.RowHeadersWidth = 10
        dgv_buff.RowHeadersWidth = 10
        dgv_mill_spray.RowHeadersWidth = 10
        dgv_detail.RowHeadersWidth = 10
        dgv_hang.RowHeadersWidth = 10
        dgv_pasting.RowHeadersWidth = 10
        dgv_small.RowHeadersWidth = 10
        dgv_spray.RowHeadersWidth = 10
        dgv_vacumn.RowHeadersWidth = 10
        dgv_vibration.RowHeadersWidth = 10
        DGV_FILL.RowHeadersWidth = 10
        DGV_MEASURE.RowHeadersWidth = 10
        DGV_TOGGLE.RowHeadersWidth = 10
        dgv_clean.RowHeadersWidth = 10




        Dim conn As New SqlConnection
        conn.ConnectionString = connstring
        conn.Open()
        cmd.Connection = conn
        ' Me.MdiParent = FrmMDI
        Dim dt As New DataTable

        sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE) AS 月,SUM(TOTAL) AS 合计,count(*) as 鼓数 FROM RT_RETAN_RECORD_D where area is not null GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) desc,MONTH(DATE) DESC"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt)
        dgv_DRUM_IO.DataSource = dt  '----出鼓叠皮
        dgv_DRUM_IO.Columns(0).Width = 60
        dgv_DRUM_IO.Columns(1).Width = 40
        dgv_DRUM_IO.Columns(2).Width = 90
        dgv_DRUM_IO.Columns(3).Width = 60
        'dgv_DRUM_IO.Columns(4).Width = 100
        'dgv_DRUM_IO.Columns(5).Width = 100


        sql = "INSERT INTO RT_RETAN_RECORD_D
                   (DATE, CARD, CUST, COLOR, WEIGHT, class, type, COMMENT, dd, Dep)
SELECT  date, card, cust, color, weight, N'反绒' AS Expr1, N'打底' AS Expr2, source, tech, N'水场' AS Expr3
FROM      rt_retan_record_d1"






        dt = New DataTable
        sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE) AS 月,SUM(weight) AS 合计,count(*) as 鼓数 FROM RT_RETAN_RECORD_D1 where date is not null GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) DESC,MONTH(DATE) DESC"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt)
        dgv_small.DataSource = dt  '----出鼓叠皮
        dgv_small.Columns(0).Width = 60
        dgv_small.Columns(1).Width = 40
        dgv_small.Columns(2).Width = 90
        dgv_small.Columns(3).Width = 60
        'dgv_DRUM_IO.Columns(4).Width = 100
        'dgv_DRUM_IO.Columns(5).Width = 100



        dt = New DataTable
        sql = "SELECT YEAR(DATE1) AS 年,MONTH(DATE1) AS 月,SUM(CAST(weight AS NUMERIC(10,0))) AS 重量,count(*) as 鼓数 FROM RT_pasting_DAily WHERE loca LIKE N'%漳浦%' GROUP BY YEAR(DATE1),MONTH(DATE1) ORDER BY YEAR(DATE1) DESC,MONTH(DATE1) DESC"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt)

        dgv_pasting.DataSource = dt     '---------煎板


        dgv_pasting.Columns(0).Width = 60
        dgv_pasting.Columns(1).Width = 40
        dgv_pasting.Columns(2).Width = 90
        dgv_pasting.Columns(3).Width = 60


        Dim dt1 As New DataTable
        sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE) AS 月,SUM(WEIGHT1) AS 重量,count(*) as 鼓数 FROM RT_HANG_DAILY WHERE LOCAL LIKE N'%漳浦%' GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) DESC,MONTH(DATE) DESC"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt1)

        dgv_hang.DataSource = dt1   '-------挂晾
        dgv_hang.Columns(0).Width = 60
        dgv_hang.Columns(1).Width = 40
        dgv_hang.Columns(2).Width = 90
        dgv_hang.Columns(3).Width = 60


        Dim dt2 As New DataTable
        sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE)AS 月,SUM(WEIGHT1) AS 重量,count(*) as 鼓数 FROM RT_vibration_DAILY WHERE LOCAL LIKE N'%漳浦%' GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) DESC,MONTH(DATE) DESC"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt2)

        dgv_vibration.DataSource = dt2  '------打软
        dgv_vibration.Columns(0).Width = 60
        dgv_vibration.Columns(1).Width = 40
        dgv_vibration.Columns(2).Width = 90
        dgv_vibration.Columns(3).Width = 60



        Dim dt3 As New DataTable
        sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE) AS 月 ,CAST(sum(weight1) AS NUMERIC(10,0)) AS 磨皮重量,count(*) as 鼓数 FROM RT_buff_DAILY WHERE LOCA LIKE N'%漳浦%' GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) DESC,MONTH(DATE) DESC"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt3)

        dgv_buff.DataSource = dt3  '------磨皮
        dgv_buff.Columns(0).Width = 60
        dgv_buff.Columns(1).Width = 40
        dgv_buff.Columns(2).Width = 90
        dgv_buff.Columns(3).Width = 60


        dt3 = New DataTable
        sql = "SELECT YEAR(date) AS 年,MONTH(date) AS 月 ,CAST(sum(weight1) AS NUMERIC(10,0)) AS 磨皮重量,count(*) as 鼓数 FROM RT_clean_DAILY WHERE LOCAl LIKE N'%漳浦%' GROUP BY YEAR(date),MONTH(date) ORDER BY YEAR(date) DESC,MONTH(date) DESC"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt3)

        dgv_clean.DataSource = dt3  '------扫灰
        dgv_clean.Columns(0).Width = 60
        dgv_clean.Columns(1).Width = 40
        dgv_clean.Columns(2).Width = 90
        dgv_clean.Columns(3).Width = 60






        Dim dt_TOGGLE As New DataTable
        sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE) AS 月,sum(weight1) AS 干皮重量,count(*) as 鼓数 FROM RT_TOGGLE_DAILY WHERE LOCA LIKE N'%漳浦%' GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) DESC,MONTH(DATE) DESC"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt_TOGGLE)

        DGV_TOGGLE.DataSource = dt_TOGGLE  '------绷板
        DGV_TOGGLE.Columns(0).Width = 60
        DGV_TOGGLE.Columns(1).Width = 40
        DGV_TOGGLE.Columns(2).Width = 90
        DGV_TOGGLE.Columns(3).Width = 60



        Dim dt_MEASURE As New DataTable
        sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE) AS 月,cast(sum(sf) as numeric(10,1)) AS 尺数 FROM RT_measure_DAILY GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) DESC,MONTH(DATE) DESC"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt_MEASURE)

        DGV_MEASURE.DataSource = dt_MEASURE  '------打尺
        DGV_MEASURE.Columns(0).Width = 70
        DGV_MEASURE.Columns(1).Width = 50
        DGV_MEASURE.Columns(2).Width = 90
        '   dgv_buff.Columns(3).Width = 100



        Dim dt_spray As New DataTable
        sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE) AS 月,cast(sum(weight1) as numeric(10,0)) AS 重量,count(*) as 鼓数 FROM rt_spray_daily GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) DESC,MONTH(DATE) DESC"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt_spray)

        dgv_spray.DataSource = dt_spray  '------喷台
        dgv_spray.Columns(0).Width = 60
        dgv_spray.Columns(1).Width = 40
        dgv_spray.Columns(2).Width = 90
        dgv_spray.Columns(3).Width = 60



        Dim dt_vacumn As New DataTable
        sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE) AS 月,cast(sum(weight) as numeric(10,0)) AS 重量,count(*) as 鼓数 FROM RT_vacumn_DAILY GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) DESC,MONTH(DATE) DESC"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt_vacumn)

        dgv_vacumn.DataSource = dt_vacumn  '------真空
        dgv_vacumn.Columns(0).Width = 60
        dgv_vacumn.Columns(1).Width = 40
        dgv_vacumn.Columns(2).Width = 90
        dgv_vacumn.Columns(3).Width = 60


        Dim dt_burn As New DataTable
        sql = "SELECT YEAR(DATE1) AS 年,MONTH(DATE1) AS 月,cast(sum(weight1) as numeric(10,0)) AS 重量,count(*) as 鼓数 FROM RT_mill_spray_DAILY GROUP BY YEAR(DATE1),MONTH(DATE1) ORDER BY YEAR(DATE1) desc,MONTH(DATE1) DESC"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt_burn)

        dgv_mill_spray.DataSource = dt_burn  '------喷台摔鼓
        dgv_mill_spray.Columns(0).Width = 60
        dgv_mill_spray.Columns(1).Width = 40
        dgv_mill_spray.Columns(2).Width = 90
        dgv_mill_spray.Columns(3).Width = 60


        Dim dt_FILL As New DataTable
        sql = "SELECT YEAR(DATE) AS 年,MONTH(DATE) AS 月,cast(sum(weight1) as numeric(10,0)) AS 重量,count(*) as 鼓数 FROM RT_FILL_DAILY GROUP BY YEAR(DATE),MONTH(DATE) ORDER BY YEAR(DATE) desc,MONTH(DATE) DESC"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt_FILL)

        DGV_FILL.DataSource = dt_FILL  '------填充
        DGV_FILL.Columns(0).Width = 60
        DGV_FILL.Columns(1).Width = 40
        DGV_FILL.Columns(2).Width = 90
        DGV_FILL.Columns(3).Width = 60






        ini_dgv()


        sql = "select top(1) date from RT_RETAN_RECORD_D order by date desc"
        cmd.CommandText = sql

        txt_out.Text = cmd.ExecuteScalar


        sql = "select top(1) date from RT_RETAN_RECORD_D1 order by date desc"
        cmd.CommandText = sql

        txt_out1.Text = cmd.ExecuteScalar

        sql = "select top(1) date1 from RT_pasting_DAily order by date1 desc"
        cmd.CommandText = sql

        txt_paste.Text = cmd.ExecuteScalar

        sql = "select top(1) date from RT_HANG_DAILY order by date desc"
        cmd.CommandText = sql

        txt_hang.Text = cmd.ExecuteScalar

        sql = "select top(1) date from RT_vibration_DAILY order by date desc"
        cmd.CommandText = sql

        txt_vibration.Text = cmd.ExecuteScalar

        sql = "select top(1) date from RT_buff_DAILY order by date desc"
        cmd.CommandText = sql

        txt_buff.Text = cmd.ExecuteScalar

        sql = "select top(1) date from RT_clean_DAILY order by date desc"
        cmd.CommandText = sql

        txt_clean.Text = cmd.ExecuteScalar

        sql = "select top(1) date from RT_measure_DAILY order by date desc"
        cmd.CommandText = sql

        txt_measure.Text = cmd.ExecuteScalar

        sql = "select top(1) date from rt_spray_daily order by date desc"
        cmd.CommandText = sql

        txt_spray.Text = cmd.ExecuteScalar

        sql = "select top(1) date from RT_vacumn_DAILY order by date desc"
        cmd.CommandText = sql

        txt_vacumn.Text = cmd.ExecuteScalar

        sql = "select top(1) date1 from RT_mill_spray_DAILY order by date1 desc"
        cmd.CommandText = sql

        txt_spray_mill.Text = cmd.ExecuteScalar


        sql = "select top(1) date from RT_FILL_DAILY order by date desc"
        cmd.CommandText = sql

        txt_fill.Text = cmd.ExecuteScalar




        With dgv_buff.Columns(2).DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With


        With dgv_clean.Columns(2).DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_hang.Columns(2).DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_DRUM_IO.Columns(2).DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_mill_spray.Columns(2).DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_pasting.Columns(2).DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_small.Columns(2).DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_spray.Columns(2).DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_vacumn.Columns(2).DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With dgv_vibration.Columns(2).DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With DGV_FILL.Columns(2).DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With

        With DGV_MEASURE.Columns(2).DefaultCellStyle
            .Format = "n0"
            .Alignment = DataGridViewContentAlignment.MiddleRight

        End With











    End Sub



    Private Sub ini_dgv()


        Dim ctrl As Control
        For Each ctrl In Me.Controls
            If TypeOf ctrl Is DataGridView Then   '是否为文本框TextBox

                Dim a As DataGridView = ctrl

                a.AllowUserToAddRows = False


                For Each column In a.Columns
                    column.defaultcellstyle.alignment = DataGridViewContentAlignment.MiddleRight

                Next


            End If
        Next



    End Sub

    Private Sub Dgv_DRUM_IO_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_DRUM_IO.CellContentClick


    End Sub

    Private Sub dgv_DRUM_IO_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_DRUM_IO.CellClick


        ListBox1.Items.Clear()
        sql = "select day(date) as day from rt_retan_record_d where year(date)='" & dgv_DRUM_IO.Rows(dgv_DRUM_IO.CurrentCell.RowIndex).Cells("年").Value & "' and month(date)='" & dgv_DRUM_IO.Rows(dgv_DRUM_IO.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date)"

        cmd.CommandText = sql

        Dim dt As New DataTable

        da.Fill(dt)


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

            ListBox1.Items.Add(dt.Rows(x).Item("day"))


        Next

        gDep = "Drum_io"






    End Sub

    Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click




        Select Case gDep
            Case "Drum_io"
                sql = "SELECT DATE AS 日期,card as 卡号,cust as 客户, color as 颜色, total as 合计, T_WEIGHT AS [桶装1.5分],B_WEIGHT AS [板装2分],T2_WEIGHT AS [桶装3分],B2_WEIGHT AS [板装4分],comment as 备注 FROM RT_RETAN_RECORD_D where year(date)='" & dgv_DRUM_IO.Rows(dgv_DRUM_IO.CurrentCell.RowIndex).Cells(0).Value & "' and month(date)='" & dgv_DRUM_IO.Rows(dgv_DRUM_IO.CurrentCell.RowIndex).Cells(1).Value & "' and day(date)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'"
                cmd.CommandText = sql
                da.SelectCommand = cmd
                Dim dt1 As New DataTable

                da.Fill(dt1)

                dgv_detail.DataSource = dt1


                dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
                dgv_detail.Columns(0).Width = 100
                dgv_detail.Columns(1).Width = 130
                dgv_detail.Columns(2).Width = 100
                dgv_detail.Columns(3).Width = 120
                dgv_detail.Columns(4).Width = 80
                dgv_detail.Columns(5).Width = 80
                dgv_detail.Columns(6).Width = 80
                dgv_detail.Columns(7).Width = 80
                dgv_detail.Columns(8).Width = 80


            Case "Spray"
                sql = "SELECT DATE AS 日期,card as 卡号,cust as 客户, color as 颜色, weight as 蓝皮重, times as 次数,comment as 备注 FROM rt_spray_daily where year(date)='" & dgv_spray.Rows(dgv_spray.CurrentCell.RowIndex).Cells(0).Value & "' and month(date)='" & dgv_spray.Rows(dgv_spray.CurrentCell.RowIndex).Cells(1).Value & "' and day(date)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'"
                cmd.CommandText = sql

                Dim dt1 As New DataTable

                da.SelectCommand = cmd
                da.Fill(dt1)

                dgv_detail.DataSource = dt1

                dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
                dgv_detail.Columns(0).Width = 100
                dgv_detail.Columns(1).Width = 130
                dgv_detail.Columns(2).Width = 100
                dgv_detail.Columns(3).Width = 120
                dgv_detail.Columns(4).Width = 80
                dgv_detail.Columns(5).Width = 80
            Case "pasting"

                sql = "SELECT DATE1 AS 日期,card as 卡号,cust as 客户, color as 颜色, weight as 蓝皮重,PEOPLE as组别,type as 类型,comment as 备注 FROM rt_pasting_daily where year(date1)='" & dgv_pasting.Rows(dgv_pasting.CurrentCell.RowIndex).Cells(0).Value & "' and month(date1)='" & dgv_pasting.Rows(dgv_pasting.CurrentCell.RowIndex).Cells(1).Value & "' and day(date1)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'"
                cmd.CommandText = sql

                Dim dt1 As New DataTable

                da.SelectCommand = cmd
                da.Fill(dt1)

                dgv_detail.DataSource = dt1

                dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
                dgv_detail.Columns(0).Width = 100
                dgv_detail.Columns(1).Width = 130
                dgv_detail.Columns(2).Width = 100
                dgv_detail.Columns(3).Width = 120
                dgv_detail.Columns(4).Width = 80
                dgv_detail.Columns(5).Width = 80
            Case "hang"
                sql = "SELECT DATE4 AS 日期,card as 卡号,cust as 客户, color as 颜色, weight1 as 蓝皮重,group1 as组别,type as 类型,comment1 as 备注 FROM rt_pasting_daily where year(date4)='" & dgv_pasting.Rows(dgv_pasting.CurrentCell.RowIndex).Cells(0).Value & "' and month(date4)='" & dgv_pasting.Rows(dgv_pasting.CurrentCell.RowIndex).Cells(1).Value & "' and day(date4)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'"
                cmd.CommandText = sql

                Dim dt1 As New DataTable

                da.SelectCommand = cmd
                da.Fill(dt1)

                dgv_detail.DataSource = dt1

                dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
                dgv_detail.Columns(0).Width = 100
                dgv_detail.Columns(1).Width = 130
                dgv_detail.Columns(2).Width = 100
                dgv_detail.Columns(3).Width = 120
                dgv_detail.Columns(4).Width = 80
                dgv_detail.Columns(5).Width = 80


            Case "toggle"

                sql = "SELECT DATE AS 日期,card as 卡号,cust as 客户, color as 颜色, weight1 as 干皮重,type as 类型,comment1 as 备注 FROM rt_pasting_daily where year(date)='" & DGV_TOGGLE.Rows(DGV_TOGGLE.CurrentCell.RowIndex).Cells(0).Value & "' and month(date)='" & DGV_TOGGLE.Rows(DGV_TOGGLE.CurrentCell.RowIndex).Cells(1).Value & "' and day(date)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'"
                cmd.CommandText = sql

                Dim dt1 As New DataTable

                da.SelectCommand = cmd
                da.Fill(dt1)

                dgv_detail.DataSource = dt1

                dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
                dgv_detail.Columns(0).Width = 100
                dgv_detail.Columns(1).Width = 130
                dgv_detail.Columns(2).Width = 100
                dgv_detail.Columns(3).Width = 120
                dgv_detail.Columns(4).Width = 80
                dgv_detail.Columns(5).Width = 80

            Case "vibration"

                sql = "SELECT DATE1 AS 日期,card as 卡号,cust as 客户, color as 颜色, weight1 as 蓝皮重,group1 as组别,type as 类型,comment1 as 备注 FROM rt_vibration_daily where year(date1)='" & dgv_vibration.Rows(dgv_vibration.CurrentCell.RowIndex).Cells(0).Value & "' and month(date1)='" & dgv_vibration.Rows(dgv_pasting.CurrentCell.RowIndex).Cells(1).Value & "' and day(date1)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'"
                cmd.CommandText = sql

                Dim dt1 As New DataTable

                da.SelectCommand = cmd
                da.Fill(dt1)

                dgv_detail.DataSource = dt1

                dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
                dgv_detail.Columns(0).Width = 100
                dgv_detail.Columns(1).Width = 130
                dgv_detail.Columns(2).Width = 100
                dgv_detail.Columns(3).Width = 120
                dgv_detail.Columns(4).Width = 80
                dgv_detail.Columns(5).Width = 80
            Case "buff"

                sql = "SELECT DATE1 AS 日期,card as 卡号,cust as 客户, color as 颜色, weight1 as 干皮重,group1 as组别,type as 类型,comment1 as 备注 FROM rt_buff_daily where year(date1)='" & dgv_buff.Rows(dgv_buff.CurrentCell.RowIndex).Cells(0).Value & "' and month(date1)='" & dgv_buff.Rows(dgv_buff.CurrentCell.RowIndex).Cells(1).Value & "' and day(date1)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'"
                cmd.CommandText = sql

                Dim dt1 As New DataTable

                da.SelectCommand = cmd
                da.Fill(dt1)

                dgv_detail.DataSource = dt1

                dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
                dgv_detail.Columns(0).Width = 100
                dgv_detail.Columns(1).Width = 130
                dgv_detail.Columns(2).Width = 100
                dgv_detail.Columns(3).Width = 120
                dgv_detail.Columns(4).Width = 80
                dgv_detail.Columns(5).Width = 80
            Case "measure"

                sql = "SELECT DATE AS 日期,card as 卡号, color as 颜色, source as 皮源,weight as 蓝皮重,sf as 尺数,comment1 as 备注 FROM rt_measure_daily where year(date)='" & DGV_MEASURE.Rows(DGV_MEASURE.CurrentCell.RowIndex).Cells(0).Value & "' and month(date)='" & DGV_MEASURE.Rows(DGV_MEASURE.CurrentCell.RowIndex).Cells(1).Value & "' and day(date)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'"
                cmd.CommandText = sql

                Dim dt1 As New DataTable

                da.SelectCommand = cmd
                da.Fill(dt1)

                dgv_detail.DataSource = dt1

                dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
                dgv_detail.Columns(0).Width = 100
                dgv_detail.Columns(1).Width = 130
                dgv_detail.Columns(2).Width = 100
                dgv_detail.Columns(3).Width = 120
                dgv_detail.Columns(4).Width = 80
                dgv_detail.Columns(5).Width = 80
            Case "vacumn"
                sql = "SELECT DATE AS 日期,card as 卡号,cust as 客户, color as 颜色, thickness as 皮源,worc as 蓝干皮,weight as 重量,comment2 as 人员,comment as 备注 FROM rt_vacumn_daily where year(date)='" & dgv_vacumn.Rows(dgv_vacumn.CurrentCell.RowIndex).Cells(0).Value & "' and month(date)='" & dgv_vacumn.Rows(dgv_vacumn.CurrentCell.RowIndex).Cells(1).Value & "' and day(date)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'"
                cmd.CommandText = sql

                Dim dt1 As New DataTable

                da.SelectCommand = cmd
                da.Fill(dt1)

                dgv_detail.DataSource = dt1

                dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
                dgv_detail.Columns(0).Width = 100
                dgv_detail.Columns(1).Width = 130
                dgv_detail.Columns(2).Width = 100
                dgv_detail.Columns(3).Width = 120
                dgv_detail.Columns(4).Width = 80
                dgv_detail.Columns(5).Width = 80
            Case "mill_spray"

                sql = "SELECT DATE1 AS 日期,card as 卡号,cust as 客户, color as 颜色, weight1 as 重量,commentc as 备注 FROM rt_mill_spray_daily where year(date1)='" & dgv_mill_spray.Rows(dgv_mill_spray.CurrentCell.RowIndex).Cells(0).Value & "' and month(date1)='" & dgv_mill_spray.Rows(dgv_mill_spray.CurrentCell.RowIndex).Cells(1).Value & "' and day(date1)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'"
                cmd.CommandText = sql

                Dim dt1 As New DataTable

                da.SelectCommand = cmd
                da.Fill(dt1)

                dgv_detail.DataSource = dt1

                dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
                dgv_detail.Columns(0).Width = 100
                dgv_detail.Columns(1).Width = 130
                dgv_detail.Columns(2).Width = 100
                dgv_detail.Columns(3).Width = 120
                dgv_detail.Columns(4).Width = 80
                dgv_detail.Columns(5).Width = 80
            Case "fill"
                sql = "SELECT DATE AS 日期,card as 卡号,cust as 客户, color as 颜色,weight1 as 重量, p2 as 组别 FROM rt_fill_daily where year(date)='" & DGV_FILL.Rows(DGV_FILL.CurrentCell.RowIndex).Cells(0).Value & "' and month(date)='" & DGV_FILL.Rows(DGV_FILL.CurrentCell.RowIndex).Cells(1).Value & "' and day(date)='" & ListBox1.Items(ListBox1.SelectedIndex).ToString & "'"
                cmd.CommandText = sql

                Dim dt1 As New DataTable

                da.SelectCommand = cmd
                da.Fill(dt1)

                dgv_detail.DataSource = dt1

                dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
                dgv_detail.Columns(0).Width = 100
                dgv_detail.Columns(1).Width = 130
                dgv_detail.Columns(2).Width = 100
                dgv_detail.Columns(3).Width = 120
                dgv_detail.Columns(4).Width = 80
                dgv_detail.Columns(5).Width = 80








        End Select








    End Sub

    Private Sub dgv_spray_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_spray.CellClick

        Dim dt As New DataTable
        ListBox1.Items.Clear()
        sql = "select day(date) as day from rt_spray_daily where year(date)='" & dgv_spray.Rows(dgv_spray.CurrentCell.RowIndex).Cells("年").Value & "' and month(date)='" & dgv_spray.Rows(dgv_spray.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date)"

        cmd.CommandText = sql



        da.Fill(dt)


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

            ListBox1.Items.Add(dt.Rows(x).Item("day"))


        Next

        gDep = "Spray"

    End Sub

    Private Sub dgv_pasting_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_pasting.CellClick

        Dim dt As New DataTable
        ListBox1.Items.Clear()
        sql = "select day(date1) as day from rt_pasting_daily where year(date1)='" & dgv_pasting.Rows(dgv_pasting.CurrentCell.RowIndex).Cells("年").Value & "' and month(date1)='" & dgv_pasting.Rows(dgv_pasting.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date1)"

        cmd.CommandText = sql



        da.Fill(dt)


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

            ListBox1.Items.Add(dt.Rows(x).Item("day"))


        Next

        gDep = "pasting"
    End Sub

    Private Sub dgv_hang_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_hang.CellClick

        Dim dt As New DataTable
        ListBox1.Items.Clear()
        sql = "select day(date4) as day from rt_hang_daily where year(date4)='" & dgv_hang.Rows(dgv_hang.CurrentCell.RowIndex).Cells("年").Value & "' and month(date4)='" & dgv_hang.Rows(dgv_hang.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date4)"

        cmd.CommandText = sql



        da.Fill(dt)


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

            ListBox1.Items.Add(dt.Rows(x).Item("day"))


        Next

        gDep = "pasting"


    End Sub

    Private Sub DGV_TOGGLE_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV_TOGGLE.CellClick


        Dim dt As New DataTable
        ListBox1.Items.Clear()
        sql = "select day(date) as day from rt_toggle_daily where year(date)='" & DGV_TOGGLE.Rows(DGV_TOGGLE.CurrentCell.RowIndex).Cells("年").Value & "' and month(date)='" & DGV_TOGGLE.Rows(DGV_TOGGLE.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date)"

        cmd.CommandText = sql



        da.Fill(dt)


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

            ListBox1.Items.Add(dt.Rows(x).Item("day"))


        Next

        gDep = "toggle"


    End Sub

    Private Sub dgv_vibration_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_vibration.CellClick


        Dim dt As New DataTable
        ListBox1.Items.Clear()
        sql = "select day(date1) as day from rt_vibration_daily where year(date1)='" & dgv_vibration.Rows(dgv_vibration.CurrentCell.RowIndex).Cells("年").Value & "' and month(date1)='" & dgv_vibration.Rows(dgv_vibration.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date1)"

        cmd.CommandText = sql

        da.Fill(dt)

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

            ListBox1.Items.Add(dt.Rows(x).Item("day"))

        Next

        gDep = "vibration"
    End Sub

    Private Sub dgv_buff_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_buff.CellClick


        Dim dt As New DataTable
        ListBox1.Items.Clear()
        sql = "select day(date) as day from rt_buff_daily where year(date)='" & dgv_buff.Rows(dgv_buff.CurrentCell.RowIndex).Cells("年").Value & "' and month(date)='" & dgv_buff.Rows(dgv_buff.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date)"

        cmd.CommandText = sql

        da.Fill(dt)

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

            ListBox1.Items.Add(dt.Rows(x).Item("day"))

        Next

        gDep = "buff"
    End Sub

    Private Sub DGV_MEASURE_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV_MEASURE.CellClick

        Dim dt As New DataTable
        ListBox1.Items.Clear()
        sql = "select day(date) as day from rt_measure_daily where year(date)='" & DGV_MEASURE.Rows(DGV_MEASURE.CurrentCell.RowIndex).Cells("年").Value & "' and month(date)='" & DGV_MEASURE.Rows(DGV_MEASURE.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date)"

        cmd.CommandText = sql

        da.Fill(dt)

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

            ListBox1.Items.Add(dt.Rows(x).Item("day"))

        Next

        gDep = "measure"


    End Sub

    Private Sub dgv_vacumn_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_vacumn.CellClick



        Dim dt As New DataTable
        ListBox1.Items.Clear()
        sql = "select day(date) as day from rt_vacumn_daily where year(date)='" & dgv_vacumn.Rows(dgv_vacumn.CurrentCell.RowIndex).Cells("年").Value & "' and month(date)='" & dgv_vacumn.Rows(dgv_vacumn.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date)"

        cmd.CommandText = sql

        da.Fill(dt)

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

            ListBox1.Items.Add(dt.Rows(x).Item("day"))

        Next

        gDep = "vacumn"



    End Sub

    Private Sub dgv_burn_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_mill_spray.CellClick

        Dim dt As New DataTable
        ListBox1.Items.Clear()
        sql = "select day(date1) as day from rt_mill_spray_daily where year(date1)='" & dgv_mill_spray.Rows(dgv_mill_spray.CurrentCell.RowIndex).Cells("年").Value & "' and month(date1)='" & dgv_mill_spray.Rows(dgv_mill_spray.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date1)"

        cmd.CommandText = sql

        da.Fill(dt)

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

            ListBox1.Items.Add(dt.Rows(x).Item("day"))

        Next

        gDep = "mill_spray"


    End Sub

    Private Sub DGV_FILL_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV_FILL.CellClick

        Dim dt As New DataTable
        ListBox1.Items.Clear()
        sql = "select day(date) as day from rt_fill_daily where year(date)='" & DGV_FILL.Rows(DGV_FILL.CurrentCell.RowIndex).Cells("年").Value & "' and month(date)='" & DGV_FILL.Rows(DGV_FILL.CurrentCell.RowIndex).Cells("月").Value & "' group by day(date)"

        cmd.CommandText = sql

        da.Fill(dt)

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

            ListBox1.Items.Add(dt.Rows(x).Item("day"))

        Next

        gDep = "fill"


    End Sub

    Private Sub Label27_Click(sender As Object, e As EventArgs) Handles Label27.Click

    End Sub
End Class