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

Imports System.Data.SqlClient
Public Class Frm_BG_CHEMIN_CHOOSE
    Dim conn As New SqlConnection
    Dim cmd As New SqlCommand
    Dim my_dr As SqlDataReader
    Dim sql As String = ""
    Private Sub Fr_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        If conn.State = ConnectionState.Closed Then
            conn.ConnectionString = connstring
            conn.Open()
        End If

        cmd.Connection = conn

    End Sub
    Private Sub txtchem_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtchem.KeyDown



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

        gMsg = Nothing
        Me.Close()
        Me.Dispose()
    End Sub
    Private Sub ListBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            ' Dim p() As String
            'p = Split(ListBox1.SelectedItem, vbTab)
            'txtchem.Text = p(1)
            '  p = ListBox1.SelectedItem
            ' txtchem.Text = ListBox1.SelectedItem
            txtchem.Text = ListBox1.SelectedItem
            ListBox1.Visible = False

        End If
    End Sub
    Private Sub txtchem_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtchem.GotFocus
        txtchem.SelectionStart = 0
        txtchem.SelectionLength = Len(txtchem.Text)
    End Sub

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


        Dim my_id As Integer = 0


        sql = "select id from rt_bg_in_detail order by id desc"
        cmd.CommandText = sql
        my_id = cmd.ExecuteScalar + 1

        Dim my_qty As Double = InputBox("请输入重量")
        Dim my_price As Double = InputBox("请输入单价")
        Dim source As String = InputBox("请输入产地")



        Dim p() As String

        p = Split(FrmBG.ListBox1.Items(FrmBG.ListBox1.SelectedIndex), vbTab)

        Dim my_chem_name As String


        If txtchem.Text = "" Then
            my_chem_name = "蓝湿牛二层皮"
        Else
            my_chem_name = txtchem.Text
        End If





        sql = "select qty from rt_bg_in_detal where qty='" & my_qty & "' and xno='" & p(0) & "' and price='" & my_price & "'"
        cmd.CommandText = sql

        If cmd.ExecuteScalar <> Nothing Then



            If Not (IsDBNull(cmd.ExecuteScalar)) Then
                Dim my_msg As String = MsgBox("已存在记录, 是否新增?", vbYesNo)


                If my_msg = vbYes Then


                    sql = "insert into rt_bg_in_detail (xno,name,date1,qty,price,matl_name,id) values('" & p(0) & "',N'" & FrmBG.DGV1.Rows(FrmBG.DGV1.CurrentCell.RowIndex).Cells(0).Value & "','" &
                   DateTimePicker1.Value & "','" & my_qty & "','" & my_price & "',N'" & my_chem_name & "','" & my_id & "')"


                    cmd.CommandText = sql

                    cmd.ExecuteScalar()

                    MsgBox("录入完成")

                Else
                    Exit Sub


                End If

            Else

                sql = "insert into rt_bg_in_detail (xno,name,date1,qty,price,matl_name,id) values('" & p(0) & "',N'" &
                   FrmBG.DGV1.Rows(FrmBG.DGV1.CurrentCell.RowIndex).Cells(0).Value & "','" &
                   DateTimePicker1.Value & "','" & my_qty & "','" & my_price & "',N'" & my_chem_name & "','" & my_id & "')"

                cmd.CommandText = sql

                cmd.ExecuteScalar()


            End If


        Else

            sql = "insert into rt_bg_in_detail (xno,name,date1,qty,price,matl_name,id) values('" & p(0) & "',N'" &
                   FrmBG.DGV1.Rows(FrmBG.DGV1.CurrentCell.RowIndex).Cells(0).Value & "','" &
                   DateTimePicker1.Value & "','" & my_qty & "','" & my_price & "',N'" & my_chem_name & "','" & my_id & "')"

            cmd.CommandText = sql

            cmd.ExecuteScalar()





        End If







































































        sql = "insert into rt_bg_in_detail (xno,name,date1,qty,price,matl_name,id) values('" & p(0) & "',N'" &
                   FrmBG.DGV1.Rows(FrmBG.DGV1.CurrentCell.RowIndex).Cells(0).Value & "','" &
                   DateTimePicker1.Value & "','" & my_qty & "','" & my_price & "',N'" & my_chem_name & "','" & my_id & "')"

        cmd.CommandText = sql

        cmd.ExecuteScalar()

        MsgBox("录入完成")

        Me.Close()





    End Sub

    Private Sub txtchem_KeyUp(sender As Object, e As KeyEventArgs) Handles txtchem.KeyUp

        If e.KeyCode <> Keys.Enter Then
            ListBox1.Items.Clear()

            ListBox1.Visible = True
            ' ListBox1.Top = 157


            sql = "select top(10) name from rt_sys_chem_main WHERE name LIKE N'%" & txtchem.Text & "%'"
            cmd.CommandText = sql
            my_dr = cmd.ExecuteReader

            While my_dr.Read

                ListBox1.Items.Add(my_dr("name"))

            End While
            my_dr.Close()
            my_dr = Nothing

            'conn.Close()
            'conn = Nothing


        Else

            If ListBox1.Items.Count <> 0 Then
                ListBox1.Focus()
                ListBox1.SelectedIndex = 0
            Else

            End If



        End If


    End Sub
End Class