program siswa

   ASSALAMUALAIKUM wr.wb

di sini saya ingin memberi sedikit pengetahuan saya tentang visual basic.

saya ingin melihatkan sedikit kemampuan saya membuat program siswa

ini adalah program yang sudah jadi

dan ini adalah kode dari program tersebut :

Private Sub tampil()
Me.Text1.Text = Me.Adodc1.Recordset!nis
Me.Text2.Text = Me.Adodc1.Recordset!nama
Me.Combo1.Text = Me.Adodc1.Recordset!program
End Sub

Private Sub Command1_Click()
Me.Adodc1.Recordset.MoveFirst
Me.Adodc1.Recordset.AddNew
Me.Adodc1.Recordset!nis = Me.Text1.Text
Me.Adodc1.Recordset!nama = Me.Text2.Text
Me.Adodc1.Recordset!program = Me.Combo1.Text
Me.Adodc1.Recordset.Update
MsgBox "data berhasil disimpan", vbInformation, "info"
End Sub

Private Sub Command2_Click()
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = ""
Me.Text1.SetFocus
End Sub

Private Sub Command3_Click()
Load DataReport1
DataReport1.Show
End Sub


Private Sub Command4_Click()
'tombol edit
Me.Adodc1.Recordset!nis = Me.Text1.Text
Me.Adodc1.Recordset!nama = Me.Text2.Text
Me.Adodc1.Recordset!program = Me.Combo1.Text
Me.Adodc1.Recordset.Update
MsgBox "data berhasil di simpan", vbInformation, "info"
End Sub

Private Sub Command5_Click()
'tampil hapus
Me.Adodc1.Recordset.Delete
MsgBox "data berhasil dihapus", vbInformation, "info"
End Sub

Private Sub DataGrid1_Click()
If Not (Me.Adodc1.Recordset.BOF Or Me.Adodc1.Recordset.BOF) Then
tampil
End If
End Sub

Private Sub Form_Load()
Me.Combo1.AddItem "rekayasa perankat lunak"
Me.Combo1.AddItem "teknik kendaraan ringan"
Me.Combo1.AddItem "teknik komputer jaringan"
Me.Combo1.AddItem "akuntansi"
End Sub

  mungkin anda semua sudah tau tentang cara tersebut di sni saya juga masih belajar maaf yya kalu ada kesalahaan

 bagi anda yang belum pernah coba.  coba aja siapa tau bisaa........

      WASALAMUALAIKUM WR.WB