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

Imports System.Data.SqlClient

Public Class Frm_CHEM_OUT
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim dt As New DataTable
    Dim sql As String
    Private Sub Frm_CHEM_OUT_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim conn As New SqlConnection

        ' 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()

        Dim DT1 As New DataTable

        cmd.Connection = conn


        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 MONTH(DATE)=5 and order_a<>0 GROUP BY   YEAR(DATE), MONTH(DATE), NAME "



        cmd.CommandText = Sql

        da.SelectCommand = cmd
        da.Fill(dt)
        DGV1.DataSource = dt



        sql = "SELECT          RT_SYS_CHEM_OUT.DATE AS 日期, RT_SYS_CHEM_OUT.NO AS 领料单号, RT_SYS_CHEM_OUT.CARD AS 卡号,           " &
"                             RT_RETAN_RECORD.S_CARD AS 简约卡号, RT_RETAN_RECORD_D.CUST AS 客户,                                    " &
"                             RT_RETAN_RECORD_D.COLOR AS 颜色, RT_RETAN_RECORD.THICKNESS AS 厚度,                                   " &
"                             AVG(RT_SYS_CHEM_OUT.ORDER_A) AS 蓝皮重量, CAST(SUM(RT_SYS_CHEM_OUT.WEIGHT) AS numeric(10, 0))         " &
"                             AS 化料用量, CAST(SUM(RT_SYS_CHEM_OUT.WEIGHT) / AVG(RT_SYS_CHEM_OUT.ORDER_A) * 100 AS numeric(10,     " &
"                             1)) AS 用量百分比, RT_RETAN_RECORD.TECH AS 技衔员, RT_RETAN_RECORD.SOURCE AS 皮源,                     " &
"                             RT_RETAN_RECORD_D.TYPE AS 染色类别, RT_RETAN_RECORD_D.CLASS AS 分类                                    " &
" FROM              RT_RETAN_RECORD INNER JOIN                                                                                      " &
"                             RT_RETAN_RECORD_D ON RT_RETAN_RECORD.S_CARD = RT_RETAN_RECORD_D.s_card RIGHT OUTER JOIN               " &
"                             RT_SYS_CHEM_OUT ON RT_RETAN_RECORD.CARD = RT_SYS_CHEM_OUT.CARD                                        " &
" WHERE          (RT_SYS_CHEM_OUT.CARD <> '')                                                                                       " &
" GROUP BY   RT_SYS_CHEM_OUT.CARD, RT_SYS_CHEM_OUT.NO, RT_RETAN_RECORD.SOURCE,                                                      " &
"                             RT_RETAN_RECORD.WB_WEIGHT, RT_RETAN_RECORD.S_CARD, RT_RETAN_RECORD_D.TYPE,                            " &
"                             RT_RETAN_RECORD_D.CLASS, RT_RETAN_RECORD.THICKNESS, RT_RETAN_RECORD_D.CUST,                           " &
"                             RT_RETAN_RECORD_D.COLOR, RT_SYS_CHEM_OUT.DATE, RT_RETAN_RECORD.TECH                                   " &
" ORDER BY   卡号"

        'sql = "SELECT  name, SUM(weight) AS Expr1, COUNT(*) AS Expr2, price FROM RT_CHEM_STOCK_MONTH GROUP BY name, price order by name"

        cmd.CommandText = sql

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


        set_grid()


        DGV1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        DGV2.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        DGV3.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        DGV4.SelectionMode = DataGridViewSelectionMode.FullRowSelect



    End Sub
    Private Sub set_grid()



        DGV2.Columns(0).Width = 100
        DGV2.Columns(1).Width = 100
        DGV2.Columns(2).Width = 120
        DGV2.Columns(3).Width = 90
        'DGV2.Columns(4).Width = 68
        'DGV2.Columns(5).Width = 80
        'DGV2.Columns(6).Width = 65
        'DGV2.Columns(7).Width = 65
        'DGV2.Columns(8).Width = 65
        'DGV2.Columns(9).Width = 65
        'DGV2.Columns(10).Width = 53
        'DGV2.Columns(11).Width = 100
        'DGV2.Columns(12).Width = 80
        'DGV2.Columns(13).Width = 80



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

        Dim DT As New DataTable
        sql = "SELECT name as 品名,weight as 重量, order_a as 蓝皮重, cast(weight/order_a*100 as numeric(10,1)) as 比例 FROM RT_SYS_CHEM_OUT WHERE NO='" & DGV2.Rows(DGV2.CurrentRow.Index).Cells("领料单号").Value & "'"
        cmd.CommandText = sql

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


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

        Dim dr As SqlDataReader

        Dim DT As New DataTable
        sql = "select * from rt_sys_chem_main"
        cmd.CommandText = sql
        dr = cmd.ExecuteReader


        Dim conn1 As New SqlConnection

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

        Dim cmd1 As New SqlCommand With {
            .Connection = conn1
        }



        While dr.Read

            '   sql = "select * from rt_chem_stock_month where name like '%"  dr.item("name").value & "'"




        End While
        dr.Close()



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



    End Sub


    Private Sub DGV1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV1.CellClick



    End Sub

    Private Sub DGV4_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV4.CellContentClick

    End Sub

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

        Dim dt As New DataTable
        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'%" & TextBox1.Text & "%' GROUP BY   YEAR(DATE), MONTH(DATE), NAME "



        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(dt)
        DGV1.DataSource = dt

    End Sub

    Private Sub DGV1_CellMouseUp(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DGV1.CellMouseUp


        Dim p() As String


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


        Dim DT As New DataTable
        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'%" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("化料品名").Value & "%' Group By YEAR(Date), MONTH(Date), Name Order By 化料品名, 年, 月"
        cmd.CommandText = sql

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


        Dim DT1 As New DataTable

        sql = "SELECT  DATE AS 日期, NAME AS 品名, QTY AS 數量, PRICE AS 單價, CAST(PRICE / 6.7 AS NUMERIC(10, 2)) AS 折美金 FROM RT_CHEM_IN_PRICE WHERE   (NAME LIKE N'%" & DGV1.Rows(DGV1.CurrentRow.Index).Cells("化料品名").Value & "%') ORDER BY DATE DESC"

        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(DT1)
        dgv5.DataSource = DT1
        da.Update(DT1)

        dgv5.EditMode = DataGridViewEditMode.EditOnEnter


    End Sub
End Class