Cara Membuat Aplikasi
Menu Makanan Cafe atau Restaurant menggunakan Microsoft Visual Basic 6.0 dan di koneksikan dengan
Microsoft Acces 2007
Cara Membuat Aplikasi Menu Maanan
di cave atau letaurant Menggunakan
Microsoft Visual Basic 6.0 dan di koneksikan dengan Microsoft Acces 2007
1.Pertama Buka Aplikasi Microsoft visual Basic 6.0
2. Kemudian Pilih Standard EXE lalu Klik open
3 Besarkan Layar Kerja seperti dibawah ini :
4. Buat Judul atau nama Cave atau Lestaurant anda menggunakan Label Seperti contoh dibawah ini :
5.Kemudian Buat List
Menu dengan Menggunakan Frame Lalu Ganti Nama Frame dengan” Menu Makanan”
lakukan sampai list makanan yang ada sediakan tertulis semua.
6.Lalu Lakukan hal yang sama pada menu minumannya.
7.
Setelah itu kita buat pemesanan agar
para pembeli dapat memesan makanan dan minuman yang tersedia.dengan menggunakan
tombol yang ada
8. Kemudian kita akan
membuat harga,karna harga di coffee house harganya di samakan maka harga di
letakan di bawah menu seperti ini :
9. Setelah langkah di atas langkah
selanjutnya adalah ,mengisi ruang yang kosong dengan menggunakan kata –kata
kita sekreatif mungkin,tujuannya untuk memperindah layar agar tidak terlihat kosong.
10. Lalu
pada tools pilih OLE klik kanan pilih componen dan beri centang pada microsoft
ADO Data
11.Lakukan hal yang sama seperti langkah nomor 10 tetapi componen
yang dipilih microsoft DataGrid control 6.0 (OLEDB) dan buat pada projek
12. Setelah selesai kita buat
tombol untuk mempermudah mengirimkan,ataupun untuk tidak memesan
13. Buat databasenya menggunakan
microsoft access 2007
14. Langkah terahir adalah
menuliskan scripnya.hati-hati teman jika kamu akan menuliskan scripnya karna
huruf kecil dan besar itu berpengaruh dengan tampilannya.
Private Sub Command1_Click()
Dim Simpan As String
If kodeMA.Text = " "
Then
MsgBox "Anda Belum Memasukan
Kode", vbCritical
kodeMA.SetFocus
ElseIf kodeMI.Text = "
" Then
MsgBox "Anda Belum Memasukan
Nama", vbCritical
kodeMI.SetFocus
Else
Simpan = " insert into
Menu_Makanan (Kode ,Makanan ,Minuman , Jumlah MA , Jumlah MI)values ('"
& kodeMA.Text & "','" & kodeMI.Text & "','"
& jmlma.Text & "','" & jmlmi.Text & "' )"
con.Execute Simpan
MsgBox "Data Telah
Disimpan", vbOKOnly
kodeMA.Text = " "
kodeMI.Text = " "
jmlma.Text = " "
jmlmi.Text = " "
End If
End Sub
Private Sub Command2_Click()
kodeMA.Text = " "
kodeMI.Text = " "
jmlma.Text = " "
jmlmi.Text = " "
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
con_str = "PROVIDER =
Microsoft.Jet.OLEDB.4.0; Data Source=
C;\Users\SMKN1BAWANG\Documents\coffehouse.accdb"
con.Open con_str
End Sub
Private Sub Label6_Click()
End Sub
15. SELESAI
