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

Imports System.Data.SqlClient
Imports System.Reflection
Imports Microsoft.Office.Interop.Excel.XlPaperSize
Imports Microsoft.Office.Interop.Excel.XlPageOrientation
Imports Microsoft.Office.Interop.Excel.XlOrder
Imports Microsoft.Office.Interop.Excel.XlPrintErrors
Imports Microsoft.Office.Core.XlHAlign
Public Class Frm_M_retan
    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 Frm_M_retan_Load(sender As Object, e As EventArgs) Handles MyBase.Load


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



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

        conn.ConnectionString = connstring
        conn.Open()

        cmd.Connection = conn

        Dim dr As SqlDataReader

        dgv_measure.RowTemplate.Height = 30
        dgv_measure.AllowUserToAddRows = False

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

        While dr.Read

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

        End While
        dr.Close()
    End Sub

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




        Dim dt_measure As New DataTable


        Dim p() As String


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



        sql = "SELECT          RT_MEASURE_DAILY.DATE AS 量尺日期, RT_MEASURE_DAILY.CARD AS 卡号, RT_RETAN_RECORD.CUST AS 客户,    " &
"                             RT_RETAN_RECORD.TECH AS 技术员, RT_MEASURE_DAILY.COLOR AS 颜色,                                   " &
"                             RT_RETAN_RECORD.THICKNESS AS 厚度, RT_MEASURE_DAILY.SF AS 尺数,                                   " &
"                             RT_MEASURE_DAILY.WEIGHT AS 蓝皮重, RT_MEASURE_DAILY.SOURCE AS 皮源,                               " &
"                             RT_MEASURE_DAILY.COMMENT1 AS 备注, cast(RT_RETAN_RECORD.PRICE/RT_MEASURE_DAILY.WEIGHT as numeric(10,1)) AS 蓝皮单价                                " &
" FROM              RT_MEASURE_DAILY LEFT OUTER JOIN                                                                           " &
"                             RT_RETAN_RECORD ON RIGHT(RT_MEASURE_DAILY.CARD,10) = RIGHT(RT_RETAN_RECORD.CARD,10)  where year(rt_measure_daily.date)='" & p(0) & "' And month(rt_measure_daily.date)='" & p(1) & "' ORDER BY   日期 DESC"

        sql = "SELECT   TOP (100) PERCENT RT_MEASURE_DAILY.DATE AS 量尺日期, RT_MEASURE_DAILY.CARD AS 卡号, 
                RT_RETAN_RECORD.CUST AS 客户, RT_RETAN_RECORD.TECH AS 技术员, RT_MEASURE_DAILY.COLOR AS 颜色, 
                RT_RETAN_RECORD.THICKNESS AS 厚度, RT_MEASURE_DAILY.SF AS 尺数, RT_MEASURE_DAILY.WEIGHT AS 蓝皮重, 
                RT_MEASURE_DAILY.SOURCE AS 皮源, RT_MEASURE_DAILY.COMMENT1 AS 备注, 
                RT_SYS_CHEM_OUT.NO AS 领料单号, COUNT(*) AS 笔数
FROM      RT_MEASURE_DAILY LEFT OUTER JOIN
                RT_SYS_CHEM_OUT ON RT_MEASURE_DAILY.CARD = RT_SYS_CHEM_OUT.CARD LEFT OUTER JOIN
                RT_RETAN_RECORD ON RIGHT(RT_MEASURE_DAILY.CARD, 10) = RIGHT(RT_RETAN_RECORD.CARD, 10)
WHERE   year(rt_measure_daily.date)='" & p(0) & "' And month(rt_measure_daily.date)='" & p(1) & "'
GROUP BY RT_MEASURE_DAILY.DATE, RT_MEASURE_DAILY.CARD, RT_RETAN_RECORD.CUST, RT_RETAN_RECORD.TECH, 
                RT_MEASURE_DAILY.COLOR, RT_RETAN_RECORD.THICKNESS, RT_MEASURE_DAILY.SF, 
                RT_MEASURE_DAILY.WEIGHT, RT_MEASURE_DAILY.SOURCE, RT_MEASURE_DAILY.COMMENT1, 
                RT_SYS_CHEM_OUT.NO
ORDER BY 量尺日期 DESC, 卡号,领料单号"



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








        DGV_MEASURE.DataSource = dt_measure  '------打尺
        DGV_MEASURE.Columns(0).Width = 100
        DGV_MEASURE.Columns(1).Width = 130
        DGV_MEASURE.Columns(2).Width = 80
        DGV_MEASURE.Columns(3).Width = 70
        DGV_MEASURE.Columns(4).Width = 120
        DGV_MEASURE.Columns(5).Width = 60
        DGV_MEASURE.Columns(6).Width = 80
        DGV_MEASURE.Columns(7).Width = 80
        DGV_MEASURE.Columns(8).Width = 80
        DGV_MEASURE.Columns(9).Width = 60








        Set_grid_color()




    End Sub

    Private Sub ListBox2_Click(sender As Object, e As EventArgs)









    End Sub

    Private Sub Set_grid_color()

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

        Dim x As Integer

        p(1) = 0

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

            If DGV_MEASURE.Rows(x).Cells(1).Value.ToString <> DGV_MEASURE.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

                DGV_MEASURE.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
                    DGV_MEASURE.Rows(z).DefaultCellStyle.BackColor = colorArray(cc Mod 6)
                Next
            Next
        End If









    End Sub

End Class