Listing Program Input Data Mahasiswa (VB.6)

Tugas Input Data Mahasiswa

Menggunakan VB.6
M.Kul : Interaksi Manusia & Komputer

Buatlah Form seperti dibawah ini



Private Sub Ado_Mahasiswa_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Ado_Mahasiswa.Caption = "Record:" & CStr(Ado_Mahasiswa.Recordset.AbsolutePosition) & "/" & Ado_Mahasiswa.Recordset.RecordCount
End Sub

Private Sub Cmd_Baru_Click()
On Error GoTo AddErr
Ado_Mahasiswa.Recordset.MoveLast
DGr_Mahasiswa.SetFocus
SendKeys "{down}"
Exit Sub
AddErr:
MsgBox Err.Description
End Sub
Sub Bisa_Isi()
Txt_NIM.Enabled = True
Txt_Nama.Enabled = True
Txt_Alamat.Enabled = True
Cmd_Simpan.Enabled = True
End Sub


Private Sub Cmd_Edit_Click()
Cmd_Simpan.Enabled = False
Cmd_Baru.Enabled = True
Cmd_Edit.Enabled = False
Cmd_Hapus.Enabled = False
Cmd_Exit.Enabled = False
Bisa_Isi
End Sub

Private Sub Cmd_Exit_Click()
Unload Me
End Sub

Private Sub Cmd_Hapus_Click()
Dim Hapus As Byte
Hapus = MsgBox("Anda Yakin data Akan Dihapus?", vbSystemModal + vbYesNo + vbQuestion, "Menghapus data")
If Hapus = vbYes Then
Ado_Mahasiswa.Recordset.Delete
Ado_Mahasiswa.Recordset.MoveFirst
Else
MsgBox "Data Tidak Jadi Dihapus!", vbSystemModal, "Batal Dihapus"
Exit Sub
End If
End Sub

Private Sub Cmd_Simpan_Click()
If Txt_NIM.Text = "" Or Txt_Nama.Text = "" Or Txt_Alamat.Text = "" Then
MsgBox "Data Belum Lengkap!", , "Pemberitahuan"
Txt_NIM.SetFocus
Exit Sub
End If
Msg = MsgBox("Apakah data sudah benar?", vbYesNo + vbQuestion, "Pemberitahuan")
If Msg = vbNo Then
Txt_NIM.SetFocus
Exit Sub
End If
Ado_Mahasiswa.Recordset.AddNew
Ado_Mahasiswa.Recordset.Fields("Nama") = Txt_Nama.Text
Ado_Mahasiswa.Recordset.Fields("NIM") = Txt_NIM.Text
Ado_Mahasiswa.Recordset.Fields("Tgl_Lahir") = DTPicker1.Value
Ado_Mahasiswa.Recordset.Fields("Prodi") = Cbo_Prodi.Text
Ado_Mahasiswa.Recordset.Fields("Alamat") = Txt_Alamat.Text
If Opt_Menikah.Value = True Then
Ado_Mahasiswa.Recordset.Fields("Status") = "Menikah"
Else
Ado_Mahasiswa.Recordset.Fields("Status") = "BelumMenikah"

End If
Ado_Mahasiswa.Recordset.Update
End Sub

Private Sub Form_Load()
Cbo_Prodi.AddItem "T.Informatika"
Cbo_Prodi.AddItem "M.Informatika"
Cbo_Prodi.AddItem "K.Akutansi"
Cbo_Prodi.AddItem "S.Informasi"
Cbo_Prodi.ListIndex = 0
End

HASIL