protected function raiseCommandEvent($event, $command, $record, $criteria)
{
if (!$criteria instanceof TSqlCriteria) {
$criteria = new TActiveRecordCriteria(null, $criteria);
}
$param = new TActiveRecordEventParameter($command, $record, $criteria);
$manager = $record->getRecordManager();
$manager->{$event}($param);
$record->{$event}($param);
}