实例与举一反三之比较（四）

实例四：分页显示记录

原例：使用DataGrid控件实现分页。

举一反三（1）：

     不同点：多了两个功能：前一记录和后一记录。

本例：

 

Private Sub

Command1_Click()
    objDataSource.MovePrevious
    If objDataSource.BOF Then objDataSource.MoveFirst
End Sub

 

Private Sub Command2_Click()
    objDataSource.MoveNext
    If objDataSource.EOF Then objDataSource.MoveLast
End Sub

举一反三（2）：

 

     不同点：使用MSFlexGrid控件实现分页，与用DataGrid控件的区别可参见《DataGrid与MSFlexGrid控件的区别》。

 

举一反三（3）：

     不同点：DataGrid的DataSource为Adodc，（原例的DataGrid的DataSource为objDataSource记录对象）。

原例：

 

    Set DataGrid1.DataSource = objDataSource

本例：

 

    Set Adodc1.Recordset = objDataSource