Program Visual Basic kali ini menampilkan sebuah menu masakan yg dimasukkan ke dalam sebuah database. inilah screenscapture programnya :
1.
Gambar diatas merupakan Menu MDI (menu awal) disitu kita bisa memilih menu 1 terdapat : 1. Resep Masakan 2. Jenis Masakan. Menu 2 : Tambahkan Masakan (menambahkan masakan ke dalam database)
source code :
Private Sub mjenis_Click()
Form2.Show
End Sub
Private Sub mResep_Click()
Form1.Show
End Sub
Private Sub mtamb_Click()
Form3.Show
End Sub
Private Sub mus_Click()
Form4.Show
End Sub
2.
Gambar diatas menunjukkan bahwa kita memasukkan data yg tersedia diatas lalu tekan SAVE maka data yg dituliskan diatas akan muncul pada sebuah database yg sudah tersedia.
source code :
Private Sub Command1_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 Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Form2.Show
End Sub
Private Sub Form_Load()
Adodc1.RecordSource = "Select * From resep"
Adodc1.Refresh
End Sub
3.
Gambar diatas menjelaskan bahwa kita meng-input sebuah data lalu data kita akan masuk sebuah data yg sudah disiapkan pada sebuah database. (kita harus memasukkan kata harus sesuai dengan kata yg sudah ada pada database)
source code :
Private Sub bttampil_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 Command1_Click()
Form3.Show
End Sub
Private Sub Form_Load()
fg1.Row = 0
fg1.Col = 0
fg1.Text = "No"
fg1.Col = 1
fg1.Text = "Bahan"
fg1.ColWidth(0) = 500
fg1.ColWidth(1) = 2500
End Sub
4.
Gambar diatas menjelaskan bahwa kita memasukkan sebuah jenis masakkan baru dan lalu di add dan masuk ke database
source code :
Private Sub CTambah_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!jenis_masakan = tjenis.Text
Adodc1.Recordset.Update
MsgBox "Data Sudah Di Simpan!!!"
End Sub
Private Sub Command2_Click()
MDIForm1.Show
End Sub
Private Sub Form_Load()
Adodc1.RecordSource = "select * From resep"
Adodc1.Refresh
End Sub
Semoga Programnya Memuaskan :)
Create By : Agung Fajar Riyadi
0 komentar:
Posting Komentar