HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/05、現場報表/FrmWB_OUT.vb

Imports System.Data.SqlClient
Imports System.Reflection
Imports ThoughtWorks.QRCode.Codec
'Imports Excel = Microsoft.Office.Interop.Excel
Public Class FrmWB_OUT
    Dim cmd As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim dt As New DataTable

    Dim sql As String
    'Dim xlApp As Excel.Application
    'Dim xlBook As Excel.Workbook
    'Dim xlSheet As Excel.Worksheet
    Private Function MakeQrCode(ByVal StrContentChar As String) As Image
        'Dim qrCodeEncoder As New QRCodeEncoder
        'qrCodeEncoder.QRCodeEncodeMode = QRCodeEncoder.ENCODE_MODE.BYTE
        ''二微码尺寸
        'qrCodeEncoder.QRCodeScale = 4
        ''二微码版本
        'qrCodeEncoder.QRCodeVersion = 9
        'qrCodeEncoder.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.M
        'Dim image As Image = qrCodeEncoder.Encode(StrContentChar)
        'Return image
    End Function
    Private Sub FrmWB_OUT_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim type As Type = DGV1.GetType()
        Dim pi As PropertyInfo = type.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        pi.SetValue(DGV1, True, Nothing)

        Dim conn As New SqlConnection
        conn.ConnectionString = connstring
        conn.Open()
        cmd.Connection = conn



        Dim dt As New DataTable

        sql = "SELECT date AS 日期, tech AS 技术员, card AS 卡号, cust AS 客户, color AS 颜色, thickness AS 厚度, weight AS 皮重, source AS 皮源, order_A AS 订单, comment as 备注 FROM RT_SHAVED_WB_OUT ORDER BY   日期 DESC"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt)


        'dt.Columns.Add("单价")



        'Dim DR As SqlDataReader

        'For X As Integer = 0 To dt.Rows.Count - 1


        '    sql = "Select case when new_price is null then cast(RT_SYS_CHEM_MAIN.price as numeric(10,2)) else cast(new_price as numeric(10,2)) end As 单价 From RT_SYS_CHEM_main Where Name  = N'" & dt.Rows(X).Item("化料品名") & "'"
        '    cmd.CommandText = sql
        '    DR = cmd.ExecuteReader

        '    If DR.Read() Then


        '        dt.Rows(X).Item("单价") = DR("单价").ToString

        '    End If

        '    DR.Close()

        'Next




        DGV1.DataSource = dt

        DGV1.Columns(0).Width = 100
        DGV1.Columns(1).Width = 60
        DGV1.Columns(2).Width = 150
        DGV1.Columns(3).Width = 90
        DGV1.Columns(4).Width = 150
        DGV1.Columns(5).Width = 65
        DGV1.Columns(6).Width = 65
        DGV1.Columns(9).Width = 150


    End Sub

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

        Dim f2 As New Frm_01HF_RetanRcp
        f2.Owner = Me
        f2.ShowDialog()

        frm_01hf_RetanRcp.Close()
    End Sub

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



        Dim conn As New SqlConnection
        conn.ConnectionString = connstring
        conn.Open()
        cmd.Connection = conn



        Dim dt As New DataTable

        sql = "SELECT date AS 日期, tech AS 技术员, card AS 卡号, cust AS 客户, color AS 颜色, thickness AS 厚度, weight AS 皮重, source AS 皮源, order_A AS 订单, comment as 备注 FROM RT_SHAVED_WB_OUT  where card like '%" & txt_qry.Text & "%' ORDER BY   日期 DESC"
        cmd.CommandText = sql
        da.SelectCommand = cmd
        da.Fill(dt)



        DGV1.DataSource = dt

        DGV1.Columns(0).Width = 100
        DGV1.Columns(1).Width = 60
        DGV1.Columns(2).Width = 150
        DGV1.Columns(3).Width = 90
        DGV1.Columns(4).Width = 150
        DGV1.Columns(5).Width = 65
        DGV1.Columns(6).Width = 65
        DGV1.Columns(9).Width = 150

    End Sub
End Class