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

Imports System.Data.SqlClient
Imports System.Reflection
Public Class Frm_BG_Record
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim dt As New DataTable
    Dim sql As String
    Dim conn As New SqlConnection
    Private dateTimePicker1 As DateTimePicker
    Dim p() As String
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click   '-----报关单号查询



        Dim DT1 As New DataTable
        sql = "SELECT date1 AS 报关日期, NO AS 报关单号,  NAME AS 品名, QTY AS 重量, cast(TOTAL/qty as numeric(10,1)) AS 单价,FEE AS 加工费,  DES AS 目地的,COMMENT AS 客户 FROM RT_BG_OUT WHERE no like '%" & TextBox1.Text & "%' ORDER BY   date1 DESC "
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(DT1)


        If DT1.Rows.Count = 0 Then


            DT1 = New DataTable

            sql = "SELECT date1 AS 报关日期, NO AS 报关单号, NAME AS 品名, QTY AS 重量, PRICE AS 单价, ORIGIN AS 产地, matl_name as 材料名,id FROM  RT_BG_IN_DETAIL WHERE  date like '%" & TextBox1.Text & "%' ORDER BY   date1 DESC "
            cmd.CommandText = sql


            da.SelectCommand = cmd
            da.Fill(DT1)



        End If

        dgv_in.DataSource = DT1


    End Sub

    Private Sub Frm_BG_Record_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        conn.ConnectionString = connstring
        conn.Open()

        cmd.Connection = conn
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '----重量查询



        Dim DT1 As New DataTable
        sql = "SELECT date1 AS 报关日期, NO AS 报关单号,  NAME AS 品名, QTY AS 重量, cast(TOTAL/qty as numeric(10,1)) AS 单价,FEE AS 加工费,  DES AS 目地的,COMMENT AS 客户 FROM RT_BG_OUT WHERE qty= '" & TextBox1.Text & "' ORDER BY   date1 DESC "
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(DT1)


        If DT1.Rows.Count = 0 Then


            DT1 = New DataTable

            sql = "SELECT date1 AS 报关日期, NO AS 报关单号, NAME AS 品名, QTY AS 重量, PRICE AS 单价, ORIGIN AS 产地, matl_name as 材料名,id FROM  RT_BG_IN_DETAIL WHERE  qty= '" & TextBox1.Text & "' ORDER BY   date1 DESC "
            cmd.CommandText = sql


            da.SelectCommand = cmd
            da.Fill(DT1)



        End If

        dgv_in.DataSource = DT1






    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click '-----客户查询

        Dim DT1 As New DataTable
        sql = "SELECT xno as 手册号,date1 AS 报关日期, NO AS 报关单号,  NAME AS 品名, QTY AS 重量, cast(TOTAL/qty as numeric(10,1)) AS 单价,FEE AS 加工费,  DES AS 目地的,COMMENT AS 客户 FROM RT_BG_OUT WHERE comment like N'%" & TextBox1.Text & "%' ORDER BY   date1 DESC "
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(DT1)


        If DT1.Rows.Count = 0 Then


            DT1 = New DataTable

            sql = "SELECT date1 AS 报关日期, NO AS 报关单号, NAME AS 品名, QTY AS 重量, PRICE AS 单价, ORIGIN AS 产地, matl_name as 材料名,id FROM  RT_BG_IN_DETAIL WHERE  date like '%" & TextBox1.Text & "%' ORDER BY   date1 DESC "
            cmd.CommandText = sql


            da.SelectCommand = cmd
            da.Fill(DT1)



        End If

        dgv_in.DataSource = DT1














    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click '---出口报关单查询



        Dim DT1 As New DataTable
        sql = "SELECT date1 AS 报关日期,xno as 手册号, NO AS 报关单号,  NAME AS 品名, QTY AS 重量, cast(TOTAL/qty as numeric(10,1)) AS 单价,FEE AS 加工费,  DES AS 目地的,COMMENT AS 客户 FROM RT_BG_OUT WHERE no like '%" & TextBox2.Text & "%' ORDER BY   date1 DESC "
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(DT1)



        dgv_out.DataSource = DT1







    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click '---出口重量查询



        If IsNumeric(TextBox2.Text) Then

            Dim DT1 As New DataTable
            sql = "SELECT date1 AS 报关日期, xno as 手册号,NO AS 报关单号,  NAME AS 品名, QTY AS 重量, cast(TOTAL/qty as numeric(10,1)) AS 单价,FEE AS 加工费,  DES AS 目地的,COMMENT AS 客户 FROM RT_BG_OUT WHERE qty='%" & TextBox2.Text & "%' ORDER BY   date1 DESC "
            cmd.CommandText = sql

            da.SelectCommand = cmd
            da.Fill(DT1)



            dgv_out.DataSource = DT1
        Else

            MsgBox("请输入数字")
            Exit Sub

        End If



    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click '----出口客户查询



        Dim DT1 As New DataTable
        sql = "SELECT date1 AS 报关日期, xno as 手册号,NO AS 报关单号,  NAME AS 品名, QTY AS 重量, cast(TOTAL/qty as numeric(10,1)) AS 单价,FEE AS 加工费,  DES AS 目地的,COMMENT AS 客户 FROM RT_BG_OUT WHERE comment like N'%" & TextBox2.Text & "%' ORDER BY   date1 DESC "
        cmd.CommandText = sql

        da.SelectCommand = cmd
        da.Fill(DT1)



        dgv_out.DataSource = DT1




    End Sub
End Class