怎么样在ADO中,根据数据的变化控制鼠标,就象BDE一样的的.(50分)

怎么样在ADO中,根据数据的变化控制鼠标,就象BDE一样的的.在修改数据的时候它的鼠标
是个漏斗.

在其DataSource的OnStateChange事件中处理：
case (Sender as TDataSource).State of
dsOpening:Screen.Cursor :=crHourGlass;
..................
end;
其中State有：dsInactive, dsBrowse, dsEdit, dsInsert, dsSetKey,
dsCalcFields, dsFilter, dsNewValue, dsOldValue, dsCurValue,
dsBlockRead, dsInternalCalc, dsOpening
多，根据需要处理了