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

实例三：使用数据绑定访问数据

原例：使用ADO Data控件，文本框的DataSource为Adodc。

举一反三（1）：

      不同点：文本框的DataSource为objRs，且多了四个功能按钮。

原例：

 

    Adodc1.Caption = "当前记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

 

本例：

 

    Set txtUserName.DataSource = objRs
    txtUserName.DataField = "用户名"
    Set txtPassword.DataSource = objRs
    txtPassword.DataField = "口令"

     四个按钮功能：

    objRs.MoveFirst

    objRs.MovePrevious
    If objRs.BOF Then objRs.MoveFirst

    objRs.MoveNext
    If objRs.EOF Then objRs.MoveLast

    objRs.MoveLast

举一反三（2）：

     不同点：文本框的DataSource为Data Environment，Data Member为Command对象

本例：

 

    DataEnvironment1.rsCommand1.MoveFirst

    DataEnvironment1.rsCommand1.MovePrevious
    If DataEnvironment1.rsCommand1.BOF Then DataEnvironment1.rsCommand1.MoveFirst

    DataEnvironment1.rsCommand1.MoveNext
    If DataEnvironment1.rsCommand1.EOF Then DataEnvironment1.rsCommand1.MoveLast

    DataEnvironment1.rsCommand1.MoveLast

举一反三（3）：

 

      不同点：与举一反三（1）的唯一区别就是文本框的DataSource为Adodc。

本例：

 

    Adodc1.Recordset.MoveFirst

    Adodc1.Recordset.MovePrevious
    If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst

    Adodc1.Recordset.MoveNext
    If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast

    Adodc1.Recordset.MoveLast