Form Navigasi (VB II)

Form Navigasi

Project Navigasi merupakan Project yang berisi tombol-tombol seperti Pertama, Sebelum, Berikut dan Terakhir yang berfungsi untuk memilih data yang ada pada tabel project.

Listing Program

Private Sub Form_Load()
DTPicker2.Value = Now
DTPicker2.Format = dtpLongDate
End Sub

Private Sub Timer1_Timer()
DTPicker1.Value = Now
DTPicker1.Format = dtpTime
End Sub

Private Sub cmdpertama_Click()
Adodc1.Recordset.MoveFirst
End Sub

Private Sub cmdberikut_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
End Sub

Private Sub cmdsebelum_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst
End Sub

Private Sub cmdterakhir_Click()
Adodc1.Recordset.MoveLast
End Sub

Private Sub cmdkeluar_Click(Index As Integer)
Unload Me
End Sub