定位记录，删除后定位到下一条记录上
procedure TFrm_yaopinzidian.DBGridEh1CellClick(Column: TColumnEh);begin
ADOQuery_Select.Next; //向下移动一条记录，再移动回去 LocateRecord_next:=ADOQuery_Select.FieldValues['cpid'] ; ADOQuery_Select.Prior;end.