Hello everyone, I want to write the item code in the text box saved in the database. It will show me the item price label in the same database without pressing any button.
I don't know what the code is
What I have tried:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Textbox7.Text = "1" Or Trim(txtUserName.Text) = "111" Then
Dim Connection As New SqlConnection(connStr)
Dim cmdAddType As SqlCommand = New SqlCommand("addBreakFast", Connection)
cmdAddType.CommandType = CommandType.StoredProcedure
cmdAddType.Parameters.Add(New SqlParameter("@StudentID", SqlDbType.NVarChar, 50))
cmdAddType.Parameters.Add(New SqlParameter("@Studentname", SqlDbType.NVarChar, 100))
cmdAddType.Parameters.Add(New SqlParameter("@Studentloc", SqlDbType.NVarChar, 100))
cmdAddType.Parameters.Add(New SqlParameter("@BUILDING", SqlDbType.NVarChar, 50))
cmdAddType.Parameters.Add(New SqlParameter("@COUNTER", SqlDbType.NVarChar, 50))
cmdAddType.Parameters.Add(New SqlParameter("@USER", SqlDbType.NVarChar, 50))
cmdAddType.Parameters.Add(New SqlParameter("@cash", SqlDbType.Int))
cmdAddType.Parameters.Add(New SqlParameter("@Bno", SqlDbType.Int))
cmdAddType.Parameters.Add(New SqlParameter("@stype", SqlDbType.NVarChar, 50))
cmdAddType.Parameters.Add(New SqlParameter("@mtype", SqlDbType.NVarChar, 50))
cmdAddType.Parameters.Add(New SqlParameter("@SDesc", SqlDbType.NVarChar, 50))
cmdAddType.Parameters.Add(New SqlParameter("@Scode", SqlDbType.NVarChar, 50))
cmdAddType.Parameters.Add(New SqlParameter("@DName", SqlDbType.NVarChar, 50))
cmdAddType.Parameters.Add(New SqlParameter("@SupName", SqlDbType.NVarChar, 50))
cmdAddType.Parameters.Add(New SqlParameter("@CashItem", SqlDbType.NVarChar, 50))
cmdAddType.Parameters.Add(New SqlParameter("@CashItem2", SqlDbType.NVarChar, 50))
cmdAddType.Parameters.Add(New SqlParameter("@CashItem3", SqlDbType.NVarChar, 50))
cmdAddType.Parameters("@StudentID").Value = txtUserName.Text
cmdAddType.Parameters("@Studentname").Value = Textbox9.Text
cmdAddType.Parameters("@Studentloc").Value = Label9.Text
cmdAddType.Parameters("@BUILDING").Value = ULOCATION
cmdAddType.Parameters("@COUNTER").Value = UCOUNTER
If Textbox4.Text = "" Then
cmdAddType.Parameters("@cash").Value = 0
Else
cmdAddType.Parameters("@cash").Value = Textbox4.Text
End If
If Textbox10.Text <> "" Then
cmdAddType.Parameters("@CashItem").Value = Textbox10.Text
End If
If Textbox11.Text <> "" Then
If Textbox10.Text = "" Then
Response.Write("")
Response.Write("alert('Please Fill First Barcode First....')")
Response.Write("")
Exit Sub
End If
cmdAddType.Parameters("@CashItem2").Value = Textbox11.Text
End If
If Textbox12.Text <> "" Then
If Textbox11.Text = "" Then
Response.Write("")
Response.Write("alert('Please Fill Second Barcode First....')")
Response.Write("")
Exit Sub
End If
cmdAddType.Parameters("@CashItem3").Value = Textbox12.Text
End If
cmdAddType.Parameters("@Bno").Value = Bno
cmdAddType.Parameters("@USER").Value = Session.Contents("name")
cmdAddType.Parameters("@stype").Value = Textbox5.Text
cmdAddType.Parameters("@mtype").Value = Textbox8.Text
cmdAddType.Parameters("@SDesc").Value = Label11.Text
cmdAddType.Parameters("@Scode").Value = Label12.Text
cmdAddType.Parameters("@Dname").Value = Label13.Text
cmdAddType.Parameters("@Supname").Value = Session.Contents("name")
If Trim(txtUserName.Text) = "111" Then
If Textbox10.Text <> 0 Or Textbox10.Text <> "" Then
Connection.Open()
cmdAddType.ExecuteNonQuery()
Button2.Enabled = False
Connection.Close()
Button2.Enabled = False
lblout.Visible = True
lblout.Text = "BreakFast Information Inserted Sucessfully"
PrintReceipt()
PrintReceipt()
Else
Response.Write("")
Response.Write("alert('Please enter Extra Cash details...')")
Response.Write("")
End If
Else
Connection.Open()
cmdAddType.ExecuteNonQuery()
Button2.Enabled = False
Connection.Close()
Button2.Enabled = False
lblout.Visible = True
lblout.Text = "BreakFast Information Inserted Sucessfully"
End If
ElseIf Textbox7.Text = 2 Then
Response.Write("")
Response.Write("alert('Student registered in blocked list....')")
Response.Write("")
ElseIf Textbox7.Text = 3 Then
Response.Write("")
Response.Write("alert('Student Status is Inactive... ')")
Response.Write("")
End If
Textbox10.Text = String.Empty
Textbox11.Text = String.Empty
Textbox12.Text = String.Empty
End Sub