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

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

原例：使用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