【聚杰网VC】VB+Access设计图书管理系统


　　Adodc1.Recordset.MoveFirst

　　End If

　　End Sub

　　Private Sub Command4_Click()

　　Adodc1.Recordset.MoveNext

　　If Adodc1.Recordset.EOF Then

　　MsgBox "这是最后一条记录", vbOKCancel + vbQuestion

　　Adodc1.Recordset.MoveLast

　　End If

　　End Sub

　　Private Sub Command5_Click()

　　If Adodc1.Recordset.EOF Then

　　MsgBox "记录空", vbOKCancel + vbQuestion

　　End

　　Else

　　Adodc1.Recordset.MoveFirst

　　End If

　　Exit Sub

　　End Sub

　　Private Sub Command6_Click()

　　If Adodc1.Recordset.RecordCount = 0 Then

　　MsgBox "空记录", vbOKCancel + vbQuestion

　　End

　　Else

　　Adodc1.Recordset.MoveLast

　　End If

　　End Sub

　　Private Sub Command7_Click()

　　MDIForm1.Show

　　frmtousu.Hide

　　End Sub

　　到这里，各个窗体的界面和代码都介绍完了。发布后可以作为一个实际的项目应用。

上一页 1 2 3 4 5 6 7 8 9 10 11