HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/08、關務管理/Frm_BG_IN_SUM.vb

Imports System.Data.SqlClient
Imports System.Net
Imports Microsoft.Office.Interop
Public Class Frm_BG_IN_SUM

    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim my_year111 As Integer
    Dim my_month111 As Integer
    Dim sql As String
    Dim conn As New SqlConnection
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click


        cmd.Connection = conn


        If rb1.Checked = True Then
            sql = "SELECT  DATE1 AS 报关日期,date2 as 进厂日期,XNO AS 手册号, NO AS 报关单号, NAME AS 料件, QTY AS 数量, PRICE AS 单价, ORIGIN AS 产地,  matl_name AS 品名 FROM  RT_BG_IN_DETAIL where date1 between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "' order by date1 desc"

        Else

            sql = "SELECT DATE1 AS 报关日期,date2 as 进厂日期,XNO AS 手册号, NO AS 报关单号, NAME AS 料件, QTY AS 数量, PRICE AS 单价, ORIGIN AS 产地,  matl_name AS 品名 FROM  RT_BG_IN_DETAIL where date2 between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "' order by date1 desc"

        End If

        cmd.CommandText = sql
        Dim da As New SqlDataAdapter
        Dim dt As New DataTable
        da.SelectCommand = cmd

        da.Fill(dt)

        dgv1.DataSource = dt



        If rb1.Checked = True Then
            sql = "SELECT NAME AS 料件, cast(sum(QTY) as numeric(10,1)) AS 数量, cast(sum(qty*PRICE) as numeric(10,2)) AS 总价 FROM  RT_BG_IN_DETAIL where date1 between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "' group by name"
        Else
            sql = "SELECT NAME AS 料件, cast(sum(QTY) as numeric(10,1)) AS 数量, cast(sum(qty*PRICE) as numeric(10,2)) AS 总价 FROM  RT_BG_IN_DETAIL where date2 between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "' group by name"

        End If

        cmd.CommandText = sql
        dt = New DataTable

        da.Fill(dt)

        dgv_matl.DataSource = dt


        If rb1.Checked = True Then
            sql = "SELECT xno as 手册号, name AS 料件, cast(sum(QTY) as numeric(10,1)) AS 数量, cast(sum(qty*PRICE) as numeric(10,2)) AS 总价 FROM  RT_BG_IN_DETAIL where date1 between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "' group by xno,name"
        Else
            sql = "SELECT xno as 手册号, name AS 料件, cast(sum(QTY) as numeric(10,1)) AS 数量, cast(sum(qty*PRICE) as numeric(10,2)) AS 总价 FROM  RT_BG_IN_DETAIL where date2 between '" & String.Format("{0:d}", dtp1.Value) & "' and '" & String.Format("{0:d}", dtp2.Value) & "' group by xno,name"
        End If

        cmd.CommandText = sql
        dt = New DataTable

        da.Fill(dt)

        dgv_XNO.DataSource = dt



    End Sub

    Private Sub Frm_BG_IN_SUM_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        conn.ConnectionString = connstring
        conn.Open()
    End Sub

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

    End Sub
End Class