:大数据实习报告

　　Private Sub CmdFirst_Click()

　　Adodc1.Recordset.MoveFirst CmdFirst.Enabled = False CmdPre.Enabled = False CmdNext.Enabled = True CmdLast.Enabled = True End Sub

　　Private Sub CmdLast_Click()

　　Adodc1.Recordset.MoveLast CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = False End Sub

　　Private Sub CmdNext_Click()

　　Adodc1.Recordset.MoveNext CmdFirst.Enabled = True CmdPre.Enabled = True

　　If Adodc1.Recordset.EOF = True Then

　　Adodc1.Recordset.MoveLast CmdLast.Enabled = False CmdNext.Enabled = False End If End Sub Private Sub CmdOk_Click() Adodc1.Recordset.Update CmdAdd.Enabled = True CmdDel.Enabled = True

　　CmdOk.Enabled = False CmdCancel.Enabled = False End Sub

　　Private Sub CmdPre_Click()