:大数据实习报告

　　Adodc1.Recordset.MovePrevious CmdNext.Enabled = True CmdLast.Enabled = True

　　If Adodc1.Recordset.BOF = True Then

　　Adodc1.Recordset.MoveFirst CmdFirst.Enabled = False CmdPre.Enabled = False End If End Sub

　　Private Sub Form_Load()

　　CmdFirst.Enabled = False CmdPre.Enabled = False CmdNext.Enabled = True CmdLast.Enabled = True CmdAdd.Enabled = True CmdDel.Enabled = True

　　图书信息查询界面代码：

　　Private Sub Cmdexit_Click() Unload Me End Sub

　　Private Sub cmdquery_Click() Dim str As String

　　str = "select* from 图书表 where 图书表." & Combo1.Text & " like '" & Trim(Text1.Text) & "%'" Adodc1.RecordSource = str Adodc1.Refresh End Sub

　　Private Sub Combo1_Change() End Sub