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