📄 form3.vb
字号:
Imports System.Data.SqlClient
Public Class Form3
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Dim sqlcon As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\cook.mdf;Integrated Security=True;User Instance=True")
Dim str As String
sqlcon.Open()
L1.Text = ""
L9.Text = ""
L2.Text = ""
L10.Text = ""
L3.Text = ""
L11.Text = ""
L4.Text = ""
L12.Text = ""
L5.Text = ""
L13.Text = ""
L6.Text = ""
L14.Text = ""
L7.Text = ""
L15.Text = ""
L8.Text = ""
L16.Text = ""
L17.Text = ""
L25.Text = ""
L18.Text = ""
L26.Text = ""
L19.Text = ""
L27.Text = ""
L20.Text = ""
L28.Text = ""
L21.Text = ""
L29.Text = ""
L22.Text = ""
L30.Text = ""
L23.Text = ""
L31.Text = ""
L24.Text = ""
L32.Text = ""
L33.Text = ""
L41.Text = ""
L34.Text = ""
L42.Text = ""
L35.Text = ""
L43.Text = ""
L36.Text = ""
L44.Text = ""
L37.Text = ""
L45.Text = ""
L38.Text = ""
L46.Text = ""
L39.Text = ""
L47.Text = ""
L40.Text = ""
L48.Text = ""
serv.Text = ""
RichTextBox1.Text = ""
If ComboBox1.SelectedItem = "Bread" Then
' ListBox1.Items.Clear()
str = "select * from bread where recipe_name= '" & (ListBox1.SelectedItem) & "'"
Dim sqlcom As New SqlCommand(str, sqlcon)
Dim dr As SqlDataReader
dr = sqlcom.ExecuteReader()
While dr.Read()
L1.Text = dr("c1")
L9.Text = dr("m1")
L2.Text = dr("c2")
L10.Text = dr("m2")
L3.Text = dr("c3")
L11.Text = dr("m3")
L4.Text = dr("c4")
L12.Text = dr("m4")
L5.Text = dr("c5")
L13.Text = dr("m5")
L6.Text = dr("c6")
L14.Text = dr("m6")
L7.Text = dr("c7")
L15.Text = dr("m7")
L8.Text = dr("c8")
L16.Text = dr("m8")
L17.Text = dr("c9")
L25.Text = dr("m9")
L18.Text = dr("c10")
L26.Text = dr("m10")
serv.Text = dr("serv")
RichTextBox1.Text = dr("method")
End While
Else
If ComboBox1.SelectedItem = "Chicken" Then
' ListBox1.Items.Clear()
str = "select * from chickec where recipe_name= '" & (ListBox1.SelectedItem) & "'"
Dim sqlcom As New SqlCommand(str, sqlcon)
Dim dr As SqlDataReader
dr = sqlcom.ExecuteReader()
While dr.Read()
L1.Text = dr("c1")
L9.Text = dr("m1")
L2.Text = dr("c2")
L10.Text = dr("m2")
L3.Text = dr("c3")
L11.Text = dr("m3")
L4.Text = dr("c4")
L12.Text = dr("m4")
L5.Text = dr("c5")
L13.Text = dr("m5")
L6.Text = dr("c6")
L14.Text = dr("m6")
L7.Text = dr("c7")
L15.Text = dr("m7")
L8.Text = dr("c8")
L16.Text = dr("m8")
L17.Text = dr("c9")
L25.Text = dr("m9")
L18.Text = dr("c10")
L26.Text = dr("m10")
L19.Text = dr("c11")
L27.Text = dr("m11")
L20.Text = dr("c12")
L28.Text = dr("m12")
L21.Text = dr("c13")
L29.Text = dr("m13")
L22.Text = dr("c14")
L30.Text = dr("m14")
L23.Text = dr("c15")
L31.Text = dr("m15")
L24.Text = dr("c16")
L32.Text = dr("m16")
L33.Text = dr("c17")
L41.Text = dr("m17")
L34.Text = dr("c18")
L42.Text = dr("m18")
L35.Text = dr("c19")
L43.Text = dr("m19")
L36.Text = dr("c20")
L44.Text = dr("m20")
L37.Text = dr("c21")
L45.Text = dr("m21")
L38.Text = dr("c22")
L46.Text = dr("m22")
L39.Text = dr("c23")
L47.Text = dr("m23")
L40.Text = dr("c24")
L48.Text = dr("m24")
serv.Text = dr("serv")
RichTextBox1.Text = dr("method")
End While
End If
End If
If ComboBox1.SelectedItem = "Dhal" Then
' ListBox1.Items.Clear()
str = "select * from dhal where recipe_name= '" & (ListBox1.SelectedItem) & "'"
Dim sqlcom As New SqlCommand(str, sqlcon)
Dim dr As SqlDataReader
dr = sqlcom.ExecuteReader()
While dr.Read()
L1.Text = dr("c1")
L9.Text = dr("m1")
L2.Text = dr("c2")
L10.Text = dr("m2")
L3.Text = dr("c3")
L11.Text = dr("m3")
L4.Text = dr("c4")
L12.Text = dr("m4")
L5.Text = dr("c5")
L13.Text = dr("m5")
L6.Text = dr("c6")
L14.Text = dr("m6")
L7.Text = dr("c7")
L15.Text = dr("m7")
L8.Text = dr("c8")
L16.Text = dr("m8")
L17.Text = dr("c9")
L25.Text = dr("m9")
L18.Text = dr("c10")
L26.Text = dr("m10")
L19.Text = dr("c11")
L27.Text = dr("m11")
L20.Text = dr("c12")
L28.Text = dr("m12")
L21.Text = dr("c13")
L29.Text = dr("m13")
L22.Text = dr("c14")
L30.Text = dr("m14")
L23.Text = dr("c15")
L31.Text = dr("m15")
L24.Text = dr("c16")
L32.Text = dr("m16")
L33.Text = dr("c17")
L41.Text = dr("m17")
L34.Text = dr("c18")
L42.Text = dr("m18")
L35.Text = dr("c19")
L43.Text = dr("m19")
L36.Text = dr("c20")
L44.Text = dr("m20")
serv.Text = dr("serv")
RichTextBox1.Text = dr("method")
End While
Else
If ComboBox1.SelectedItem = "Egg" Then
' ListBox1.Items.Clear()
str = "select * from egg where recipe_name= '" & (ListBox1.SelectedItem) & "'"
Dim sqlcom As New SqlCommand(str, sqlcon)
Dim dr As SqlDataReader
dr = sqlcom.ExecuteReader()
While dr.Read()
L1.Text = dr("c1")
L9.Text = dr("m1")
L2.Text = dr("c2")
L10.Text = dr("m2")
L3.Text = dr("c3")
L11.Text = dr("m3")
L4.Text = dr("c4")
L12.Text = dr("m4")
L5.Text = dr("c5")
L13.Text = dr("m5")
L6.Text = dr("c6")
L14.Text = dr("m6")
L7.Text = dr("c7")
L15.Text = dr("m7")
L8.Text = dr("c8")
L16.Text = dr("m8")
L17.Text = dr("c9")
L25.Text = dr("m9")
L18.Text = dr("c10")
L26.Text = dr("m10")
L19.Text = dr("c11")
L27.Text = dr("m11")
L20.Text = dr("c12")
L28.Text = dr("m12")
L21.Text = dr("c13")
L29.Text = dr("m13")
L22.Text = dr("c14")
L30.Text = dr("m14")
L23.Text = dr("c15")
L31.Text = dr("m15")
serv.Text = dr("serv")
RichTextBox1.Text = dr("method")
End While
Else
If ComboBox1.SelectedItem = "Fish" Then
' ListBox1.Items.Clear()
str = "select * from fish where recipe_name= '" & (ListBox1.SelectedItem) & "'"
Dim sqlcom As New SqlCommand(str, sqlcon)
Dim dr As SqlDataReader
dr = sqlcom.ExecuteReader()
While dr.Read()
L1.Text = dr("c1")
L9.Text = dr("m1")
L2.Text = dr("c2")
L10.Text = dr("m2")
L3.Text = dr("c3")
L11.Text = dr("m3")
L4.Text = dr("c4")
L12.Text = dr("m4")
L5.Text = dr("c5")
L13.Text = dr("m5")
L6.Text = dr("c6")
L14.Text = dr("m6")
L7.Text = dr("c7")
L15.Text = dr("m7")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -