Belajar Visual Basic Menggunakan Database ( Ms.Office Acces 2007)

 
Permasalahan : 

1. Buat MDIform yang berisi menu utama dan bisa memanggil  Form-Form yang ada. 
2. Buat Form untuk jenis makanan baru.

            Jawaban :

Buat database Resep :

•    Jenis_Makanan >  Kode_jm – Jenis_Makanan_Baru.
•     Resep >  Id_Masakan – Jenis_Makanan – Nama_Masakan – Bahan – Cara_Memasak. 

1.    A. Resep  

Source Kode :

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

            Gambar 1
 Secara otomatis ketika kita menginput akan masuk ke database.

B.  Menampilkan  jenis makanan 

Source Code :

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

        Gambar 1.

 

Form ini akan menampilkan data yang ada di database.

 

C. Menu editor

Cara membuat Manu editor : 

 Klik kanan pada Form  –  add MDIForm – klik kanan pada Menu editor –  Caption -  Nama.
 
            Gambar 1.

            Gambar 2. 

        Gambar 3.

1.      

2. Form Jenis makanan baru

Source Code :

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

      Gambar 1.

Form ini Menambahkan jenis makan yang ada di database “ Jenis_Makanan”.

Jika Kita ingin mngabungkan seluruh Form yang ada. Maka yang harus kita lakukan ,tambahkan form jenis makanan baru :


          Gambar 1.




         Gambar 2.
 Klik pada setiap List di “Resep”  isikan source code nya:

Private Sub Tjenis_Click()
    Form3.Show 
End Sub 

Private Sub tmenu_Click() 
    Form2.Show 
End Sub 

Private Sub trmakanan_Click() 
    Form1.Show
End Sub 

  (^_^)  Hmmmm Selesai.....!!!