Data Siswa

 INI Adalah Hasil Dari ProgramVb yg Saya Buat

Gambar Dibawah Ini Adalah Desain Dari Program
 

 Gambar Di Bawah Ini Adalah Tampilan Ketika Program Dijalankan:

Dibawah Ini adalah Kode-kode Programnya:

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 Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If Not (Me.Adodc1.Recordset.EOF Or Me.Adodc1.Recordset.BOF) Then
tampil
End If
End Sub

Private Sub Command1_Click()
    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()
   
    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 Command5_Click()
    Me.Adodc1.Recordset.Delete
    MsgBox "DATA BERHASIL DI HAPUS", vbInformation, "INFO"
End Sub

Private Sub Form_Load()
    Me.Combo1.AddItem "Rekayasa Perangkat Lunak"
    Me.Combo1.AddItem "Teknik Komputer Dan Jaringan"
    Me.Combo1.AddItem "Teknik Kendaraa Ringan"
    Me.Combo1.AddItem "Akuntansi"
End Sub