APLIKASI VB | 'Ana','Isti','Novia','XIIRPL2'

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