Membuat Aplikasi Menu Masakan Dengan VB.60

Membuat Aplikasi Menu Masakan Dengan VB.60 Adalah salah cara alternatif untuk membantu para pemilik warung dll , dalam proses untuk memudahkan para membernya memilih menu masakan yang ada dalam warung tersebut , kali ini kita akan coba membuat aplikasi sederhana dengan VB.60 yang tidak asing lagi bagi kita semua.

• Menu Utama Dengan  MDIFORM

Untuk Desain Menu Utama nya Silakan Aja desain sedemikian Rupa sesuai dengan kreasi anda masing-masing , disini saya hanya menampilkan sebuah contoh yang sangat sederhana, guna untuk mempermudah kita dalam proses desain nya  , silkan aja di lihat di screen shot berikut :

Codingnya :

Private Sub Tjenis_Click()
    Form3.Show 
End Sub 

Private Sub tmenu_Click() 
    Form2.Show 
End Sub 

Private Sub trmakanan_Click() 
    Form1.Show
End Sub  

• Menu Untuk Resep

Silkan anda desain dulu FORM nya sebagai berikut untuk option nya silkan anda sesuaikan aja sendiri supaya memudahkan anda dalam penulisan coding nya nanti .

Setalah anda desain langsung masuk ketahap yang sangat super yaitu menulis listing programnya, untuk lebih mudah silkan anda copy paste aja coding ini ,jangan lupa anda sesuaikan juga .

Private Sub btsimpan_Click()

    Adodc1.Recordset.AddNew

    Adodc1.Recordset!jenis_makanan = tjenis.Text

    Adodc1.Recordset!Nama_Masakan = Tnama.Text

    Adodc1.Recordset!bahan = Tbahan.Text

    Adodc1.Recordset!cara_memasak = Tcara.Text

    Adodc1.Recordset.Update

    MsgBox "Data Sudah Di Simpan"

End Sub

Private Sub btbatal_Click()

    Unload Me

End Sub

Private Sub Form_Load()

    Adodc1.RecordSource = "Select * From Resep"

    Adodc1.Refresh

End Sub

Private Sub Cmd_next_Click()

    Form2.Show

End Sub

• Menu jenis makanan 

Silkan anda desain lagi FORM nya sebagai berikut untuk option nya silkan anda sesuaikan aja sendiri supaya memudahkan anda dalam penulisan coding nya nanti .

Coding nya :

Private Sub Command1_Click()

    Adodc1.RecordSource = "Select * From Resep where Jenis_makanan = '" & Tjenis.Text & "'"

    Adodc1.Refresh

    While Not Adodc1.Recordset.EOF

   

    Fg1.Row = baris

    Fg1.Col = 0

    Fg1.Text = baris

    Fg1.Col = 1

    Fg1.Text = Adodc1.Recordset!Nama_Masakan

   

    Adodc1.Recordset.MoveNext

    baris = baris + 1

    Wend

End Sub

Private Sub Command2_Click()

    Form3.Show

End Sub

Private Sub Fg1_Click()

    Fg1.ColWidth(0) = 500

    Fg1.ColWidth(1) = 1500

End Sub

Private Sub Form_Load()

    Fg1.Row = 0

    Fg1.Col = 0

    Fg1.Text = "No"

    Fg1.Col = 1

    Fg1.Text = "Nama_Masakan"

End Sub

• Menu Menambah Jenis Masakan

Silkan anda desain lagi FORM nya sebagai berikut untuk option nya silkan anda sesuaikan aja sendiri supaya memudahkan anda dalam penulisan coding nya nanti .

Private Sub Command1_Click()

    Adodc1.Recordset.AddNew

    Adodc1.Recordset!kode_jm = Text1.Text

    Adodc1.Recordset!Jenis_makanan_baru = Text2.Text

    Adodc1.Recordset.Update

    MsgBox "Data Sudah Di Simpan"

End Sub

Private Sub Command2_Click()

    Unload Me

End Sub

Private Sub Command3_Click()

    MDIForm1.Show

End Sub

Private Sub Form_Load()

    Adodc1.RecordSource = "Select * From Jenis_makanan"

    Adodc1.Refresh

End Sub