Resep restoran

Resep restoran

Berikut adalah program untuk mengetahui resep-resep masakan dengan menggunakan Bahasa Pemrograman Visual Basic 6. Di Form menu utama ... 05:32

Berikut adalah program untuk mengetahui resep-resep masakan dengan menggunakan Bahasa Pemrograman Visual Basic 6.

Di Form menu utama terdapat 3menu, dimana sub menu dari menu Resep Masakan adalah Resep Masakan dan Jenis Masakan. Sub menu Resep Masakan dipergunakan user untuk menginputkan bahan, dan tata cara memasak. Didalam sub menu Jenis Masakan digunakan untuk mengetahui bahan dari jenis masakan yang diinputkan. Kemudian ada Menu About dan Menu Exit.

1.    Tampilan Output

a.     Tampilan Output Form Menu Utama

TTampilan Pembuatan Menu

TTampilan Output Menu Resep Masakan  & Harga

Tampilan Output Form Jenis Masakan

T

TTampilan Output Tambah Jenis Makanan

Tampilan Output Form Menu Identitas

Listing Program

a.    Listing Program Form Menu Utama

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

End Sub

Private Sub Command2_Click()

Adodc1.Recordset.Update

End Sub

Private Sub Command3_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Command5_Click()

Form1.Show

End Sub

dan ini yang lainnya

Private Sub cmdbatal_Click()

Form2.Hide

End Sub

Private Sub cmdtambah_Click()

Form2.Hide

Form3.Show

End Sub

Private Sub cmdtampil_Click()

adodc.RecordSource = "select * from resep where jenismasakan ='" & txtjenis.Text & "'"

adodc.Refresh

 While Not adodc.Recordset.EOF

  fg.Row = 1

  fg.Col = 0

  fg.Text = 1

  fg.Col = 1

  fg.Text = adodc.Recordset!bahan

adodc.Recordset.MoveNext

baris = baris + 1

Wend

End Sub

Private Sub Form_Load()

fg.Row = 0

fg.Col = 0

fg.Text = "No"

fg.Col = 1

fg.Text = "Bahan"

fg.ColWidth(0) = 500

fg.ColWidth(1) = 2500

penambahan 

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Command3_Click()

Text1.Text = ""

End Sub

Private Sub Command4_Click()

Adodc.Recordset.Update

psn = MsgBox("Data Telah Tersimpan", vbOKOnly, "Informasi")

End Sub

terima kasih . 

raditya P