Home » » Membuat Aplikasi Menu Masakan Dengan VB.60

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


0 komentar:

Poskan Komentar

Terimkasih Anda Sudah Bersedia Bekomentar Disini, Ingat Jangan Sampai Komentar anda Dapat Kartu Kuning !! Setiap KOmentar Yang Mendapat kan Kartu Kuning Tidak Di Tampilkan Di BLOG A-F Link anda akan Di Hapus !! salam Sukses ya Bro ... . . . :P