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

Imports System.Data.SqlClient

Public Class Frm_BUFF
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim dt As New DataTable
    Dim sql As String
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click






        sql = "SELECT  date, card, cust, color, word, weight AS 下鼓重, weight1 AS 扫灰重, weight4 AS 生产数量, comment, comment1, comment3, 
                   comment4, type, weight2, g2, comment5, comment6, comment7, dep
FROM      Rt_buff_daily
WHERE   date BETWEEN '" & String.Format("{0:d}", dtp_begin.Value) & "' and '" & String.Format("{0:d}", dtp_end.Value) & "' ORDER BY date "

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

        dgv1.DataSource = dt

        sql = "select sum(weight4) from Rt_buff_daily WHERE date BETWEEN '" & String.Format("{0:d}", dtp_begin.Value) & "' and '" & String.Format("{0:d}", dtp_end.Value) & "'"
        cmd.CommandText = sql

        Label5.Text = cmd.ExecuteScalar


        sql = "select sum(weight4) from Rt_buff_daily WHERE card like N'%加工%' and date BETWEEN '" & String.Format("{0:d}", dtp_begin.Value) & "' and '" & String.Format("{0:d}", dtp_end.Value) & "'"
        cmd.CommandText = sql

        TextBox2.Text = cmd.ExecuteScalar


        sql = "select sum(weight4) from Rt_buff_daily WHERE card like N'%样品%' and date BETWEEN '" & String.Format("{0:d}", dtp_begin.Value) & "' and '" & String.Format("{0:d}", dtp_end.Value) & "'"
        cmd.CommandText = sql

        TextBox3.Text = cmd.ExecuteScalar



        sql = "select sum(weight4) from Rt_buff_daily WHERE card like N'%退货%' and date BETWEEN '" & String.Format("{0:d}", dtp_begin.Value) & "' and '" & String.Format("{0:d}", dtp_end.Value) & "'"
        cmd.CommandText = sql

        TextBox4.Text = cmd.ExecuteScalar



        sql = "select sum(weight4) from Rt_buff_daily WHERE comment=N'反绒' and not(card like N'%加工%' or card like N'%样品%' or card like N'%退货%' or card like N'%FRF%') and date BETWEEN '" & String.Format("{0:d}", dtp_begin.Value) & "' and '" & String.Format("{0:d}", dtp_end.Value) & "'"
        cmd.CommandText = sql

        TextBox1.Text = cmd.ExecuteScalar

        sql = "select sum(weight4) from Rt_buff_daily WHERE card like N'%frf%' and date BETWEEN '" & String.Format("{0:d}", dtp_begin.Value) & "' and '" & String.Format("{0:d}", dtp_end.Value) & "'"
        cmd.CommandText = sql

        TextBox5.Text = cmd.ExecuteScalar

        sql = "select sum(weight4) from Rt_buff_daily WHERE comment=N'pu' and date BETWEEN '" & String.Format("{0:d}", dtp_begin.Value) & "' and '" & String.Format("{0:d}", dtp_end.Value) & "'"
        cmd.CommandText = sql

        TextBox6.Text = cmd.ExecuteScalar








    End Sub

    Private Sub Frm_BUFF_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim conn As New SqlConnection


        conn.ConnectionString = connstring
        conn.Open()
        cmd.Connection = conn

        sql = "SELECT TOP(1) DATE FROM RT_BUFF_DAILY  ORDER BY DATE DESC"
        cmd.CommandText = sql

        Label11.Text = cmd.ExecuteScalar



        Dim a As String

        a = "CASE WHEN a.皮源 LIKE N'%无铬鞣%' THEN N'无铬鞣 二层' WHEN a.皮源 LIKE N'%阿根廷%' THEN N'阿根廷 二层' WHEN a.皮源 LIKE N'%澳%' THEN N'澳大利亚 二层'
                WHEN (a.皮源 LIKE N'%巴西%' OR
               a.皮源 LIKE N'%bx%' OR
               a.皮源 LIKE N'%南美%') 
               THEN N'巴西 二层' WHEN a.皮源 LIKE N'%智利%' THEN N'智利 二层' WHEN a.皮源 LIKE N'%德国%' THEN N'德国 二层' WHEN a.皮源 LIKE N'%西班牙%' THEN N'西班牙 二层'
                WHEN a.皮源 LIKE N'%欧洲%' THEN N'欧洲 二层' WHEN a.皮源 LIKE N'%法国%' THEN N'法国 二层' WHEN a.皮源 LIKE N'%爱尔兰%' THEN N'爱尔兰 二层' WHEN a.皮源
                LIKE N'%APP%' THEN N'美国 二层' WHEN a.皮源 LIKE N'%日本%' THEN N'日本 二层' WHEN a.皮源 LIKE N'%美国%' THEN N'美国 二层' WHEN a.皮源 LIKE N'%新西兰%'
                THEN N'新西兰 二层' WHEN a.皮源 LIKE N'%小皮%' THEN N'小皮 二层' WHEN a.皮源 LIKE N'%英国%' THEN N'英国 二层' WHEN a.皮源 LIKE N'%墨西哥%' THEN N'墨西哥 二层'
                WHEN a.皮源 LIKE N'%乌拉圭%' THEN N'乌拉圭 二层' WHEN a.皮源 LIKE N'%南非%' THEN N'南非 二层' WHEN a.皮源 LIKE N'%孟加拉%' THEN N'孟加拉 二层' WHEN
                a.皮源 LIKE N'%泰国%' THEN N'泰国 二层' ELSE N'杂皮 二层' END AS 批号"




    End Sub

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

    End Sub

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

    End Sub
End Class