minor AR updates, remove obsolete TApplication::$_pageService

1 files changed, 554 insertions, 538 deletions

diff --git a/framework/Data/ActiveRecord/TActiveRecord.php b/framework/Data/ActiveRecord/TActiveRecord.php
index cbf02058..109ae9a6 100644
--- a/framework/Data/ActiveRecord/TActiveRecord.php
+++ b/framework/Data/ActiveRecord/TActiveRecord.php
@@ -1,540 +1,556 @@
 <?php
-/**

- * TActiveRecord class file.

- *

- * @author Wei Zhuo <weizhuo[at]gmail[dot]com>

- * @link http://www.pradosoft.com/

- * @copyright Copyright &copy; 2005-2007 PradoSoft

- * @license http://www.pradosoft.com/license/

- * @version $Id$

- * @package System.Data.ActiveRecord

- */

-

-Prado::using('System.Data.ActiveRecord.TActiveRecordManager');

-Prado::using('System.Data.ActiveRecord.TActiveRecordCriteria');

-

-/**

- * Base class for active records.

- *

- * An active record creates an object that wraps a row in a database table

- * or view, encapsulates the database access, and adds domain logic on that data.

- *

- * The essence of an Active Record is an object model of the

- * domain (e.g. products, items) that incorporates both behavior and

- * data in which the classes match very closely the record structure of an

- * underlying database. Each Active Record is responsible for saving and

- * loading to the database and also for any domain logic that acts on the data.

- *

- * The Active Record provides methods that do the following:

- *  1. Construct an instance of the Active Record from a SQL result set row.

- *  2. Construct a new instance for later insertion into the table.

- *  3. Finder methods to wrap commonly used SQL queries and return Active Record objects.

- *  4. Update the database and insert into it the data in the Active Record.

- *

- * Example:

- * <code>

- * class UserRecord extends TActiveRecord

- * {

- *     const TABLE='users'; //optional table name.

- *

- *     public $username; //corresponds to the fieldname in the table

- *     public $email;

- *

- *     //returns active record finder instance

- *     public static function finder($className=__CLASS__)

- *     {

- *         return parent::finder($className);

- *     }

- * }

- *

- * //create a connection and give it to the ActiveRecord manager.

- * $dsn = 'pgsql:host=localhost;dbname=test';

- * $conn = new TDbConnection($dsn, 'dbuser','dbpass');

- * TActiveRecordManager::getInstance()->setDbConnection($conn);

- *

- * //load the user record with username (primary key) 'admin'.

- * $user = UserRecord::finder()->findByPk('admin');

- * $user->email = 'admin@example.org';

- * $user->save(); //update the 'admin' record.

- * </code>

- *

- * @author Wei Zhuo <weizho[at]gmail[dot]com>

- * @version $Id$

- * @package System.Data.ActiveRecord

- * @since 3.1

- */

-abstract class TActiveRecord extends TComponent

-{

-	/**

-	 * @var boolean true if this class is read only.

-	 */

-	private $_readOnly=false;

-

-	/**

-	 * @var TDbConnection database connection object.

-	 */

-	private $_connection;

-

-	/**

-	 * Prevent __call() method creating __sleep() when serializing.

-	 */

-	public function __sleep()

-	{

-		return array_keys(get_object_vars($this));

-	}

-

-	/**

-	 * Prevent __call() method creating __wake() when unserializing.

-	 */

-	public function __wake(){}

-

-	/**

-	 * Create a new instance of an active record with given $data. The record

-	 * can be saved to the database specified by the $connection object.

-	 *

-	 * @param array optional name value pair record data.

-	 * @param TDbConnection optional database connection this object record use.

-	 */

-	public function __construct($data=array(), $connection=null)

-	{

-		$this->copyFrom($data);

-		if($connection!==null)

-			$this->_connection=$connection;

-	}

-

-	/**

-	 * Copies data from an array or another object.

-	 * @throws TActiveRecordException if data is not array or not object.

-	 * @return TActiveRecord current instance.

-	 */

-	public function copyFrom($data)

-	{

-		$data = is_object($data) ? get_object_vars($data) : $data;

-		if(!is_array($data))

-			throw new TActiveRecordException('ar_must_copy_from_array_or_object', get_class($this));

-		foreach($data as $name=>$value)

-				$this->$name = $value;

-		return $this;

-	}

-

-	/**

-	 * Gets the current Db connection, the connection object is obtained from

-	 * the TActiveRecordManager if connection is currently null.

-	 * @return TDbConnection current db connection for this object.

-	 */

-	public function getDbConnection()

-	{

-		if($this->_connection===null)

-			$this->_connection=self::getRecordManager()->getDbConnection();

-		if($this->_connection===null) //check it

-			throw new TActiveRecordException('ar_invalid_db_connection',get_class($this));

-		return $this->_connection;

-	}

-

-	/**

-	 * @param TDbConnection db connection object for this record.

-	 */

-	public function setDbConnection($connection)

-	{

-		$this->_connection=$connection;

-	}

-

-	/**

-	 * Returns the instance of a active record finder for a particular class.

-	 * @param string active record class name.

-	 * @return TActiveRecord active record finder instance.

-	 * @throws TActiveRecordException if class name equals 'TActiveRecord'.

-	 */

-	public static function finder($className=__CLASS__)

-	{

-		if($className==='TActiveRecord')

-			throw new TActiveRecordException('ar_invalid_finder_class_name');

-

-		static $finders = array();

-		if(!isset($finders[$className]))

-		{

-			$f = Prado::createComponent($className);

-			$f->_readOnly=true;

-			$finders[$className]=$f;

-		}

-		return $finders[$className];

-	}

-

-	/**

-	 * Gets the record manager for this object, the default is to call

-	 * TActiveRecordManager::getInstance().

-	 * @return TActiveRecordManager default active record manager.

-	 */

-	public function getRecordManager()

-	{

-		return TActiveRecordManager::getInstance();

-	}

-

-	/**

-	 * Saves the current record to the database, insert or update is automatically determined.

-	 * @return boolean true if record was saved successfully, false otherwise.

-	 */

-	public function save()

-	{

-		return $this->commitChanges();

-	}

-

-	/**

-	 * Commit changes to the record, may insert, update or delete depending

-	 * on the record state given in TObjectStateRegistery.

-	 * @return boolean true if changes were made.

-	 */

-	protected function commitChanges()

-	{

-		$registry = $this->getRecordManager()->getObjectStateRegistry();

-		$gateway = $this->getRecordManager()->getRecordGateway();

-		if(!$this->_readOnly)

-			$this->_readOnly = $gateway->getMetaData($this)->getIsView();

-		if($this->_readOnly)

-			throw new TActiveRecordException('ar_readonly_exception',get_class($this));

-		return $registry->commit($this,$gateway);

-	}

-

-	/**

-	 * Deletes the current record from the database. Once deleted, this object

-	 * can not be saved again in the same instance.

-	 * @return boolean true if the record was deleted successfully, false otherwise.

-	 */

-	public function delete()

-	{

-		$registry = $this->getRecordManager()->getObjectStateRegistry();

-		$registry->registerRemoved($this);

-		return $this->commitChanges();

-	}

-

-	/**

-	 * Delete records by primary key. Usage:

-	 *

-	 * <code>

-	 * $finder->deleteByPk($primaryKey); //delete 1 record

-	 * $finder->deleteByPk($key1,$key2,...); //delete multiple records

-	 * $finder->deleteByPk(array($key1,$key2,...)); //delete multiple records

-	 * </code>

-	 *

-	 * For composite primary keys (determined from the table definitions):

-	 * <code>

-	 * $finder->deleteByPk(array($key1,$key2)); //delete 1 record

-	 *

-	 * //delete multiple records

-	 * $finder->deleteByPk(array($key1,$key2), array($key3,$key4),...);

-	 *

-	 * //delete multiple records

-	 * $finder->deleteByPk(array( array($key1,$key2), array($key3,$key4), .. ));

-	 * </code>

-	 *

-	 * @param mixed primary key values.

-	 * @return int number of records deleted.

-	 */

-	public function deleteByPk($keys)

-	{

-		if(func_num_args() > 1)

-			$keys = func_get_args();

-		$gateway = $this->getRecordManager()->getRecordGateway();

-		return $gateway->deleteRecordsByPk($this,(array)$keys);

-	}

-

-

-	/**

-	 * Delete multiple records using a criteria.

-	 * @param string|TActiveRecordCriteria SQL condition or criteria object.

-	 * @param mixed parameter values.

-	 * @return int number of records deleted.

-	 */

-	public function deleteAll($criteria, $parameters=array())

-	{

-		if(is_string($criteria))

-		{

-			if(!is_array($parameters) && func_num_args() > 1)

-			{

-				$parameters = func_get_args();

-				array_shift($parameters);

-			}

-			$criteria=new TActiveRecordCriteria($criteria,$parameters);

-		}

-		$gateway = $this->getRecordManager()->getRecordGateway();

-		return $gateway->deleteRecordsByCriteria($this, $criteria);

-	}

-

-	/**

-	 * Populate the record with data, registers the object as clean.

-	 * @param string new record name

-	 * @param array name value pair record data

-	 * @return TActiveRecord object record, null if data is empty.

-	 */

-	protected function populateObject($type, $data)

-	{

-		if(empty($data)) return null;

-		$registry = $this->getRecordManager()->getObjectStateRegistry();

-

-		//try the cache (the cache object must be clean)

-		if(!is_null($obj = $registry->getCachedInstance($data)))

-			return $obj;

-

-		//create and populate the object

-		$obj = Prado::createComponent($type);

-		foreach($data as $name => $value)

-			$obj->{$name} = $value;

-

-		$gateway = $this->getRecordManager()->getRecordGateway();

-		$obj->_readOnly = $gateway->getMetaData($this)->getIsView();

-

-		//cache it

-		return $registry->addCachedInstance($data,$obj);

-	}

-

-	/**

-	 * Find one single record that matches the criteria.

-	 *

-	 * Usage:

-	 * <code>

-	 * $finder->find('username = :name AND password = :pass',

-	 * 					array(':name'=>$name, ':pass'=>$pass));

-	 * $finder->find('username = ? AND password = ?', array($name, $pass));

-	 * $finder->find('username = ? AND password = ?', $name, $pass);

-	 * //$criteria is of TActiveRecordCriteria

-	 * $finder->find($criteria); //the 2nd parameter for find() is ignored.

-	 * </code>

-	 *

-	 * @param string|TActiveRecordCriteria SQL condition or criteria object.

-	 * @param mixed parameter values.

-	 * @return TActiveRecord matching record object.

-	 */

-	public function find($criteria,$parameters=array())

-	{

-		if(is_string($criteria))

-		{

-			if(!is_array($parameters) && func_num_args() > 1)

-			{

-				$parameters = func_get_args();

-				array_shift($parameters);

-			}

-			$criteria=new TActiveRecordCriteria($criteria,$parameters);

-		}

-		$gateway = $this->getRecordManager()->getRecordGateway();

-		$data = $gateway->findRecordsByCriteria($this,$criteria);

-		return $this->populateObject(get_class($this), $data);

-	}

-

-	/**

-	 * Same as find() but returns an array of objects.

-	 *

-	 * @param string|TActiveRecordCriteria SQL condition or criteria object.

-	 * @param mixed parameter values.

-	 * @return array matching record objects

-	 */

-	public function findAll($criteria=null,$parameters=array())

-	{

-		if(is_string($criteria))

-		{

-			if(!is_array($parameters) && func_num_args() > 1)

-			{

-				$parameters = func_get_args();

-				array_shift($parameters);

-			}

-			$criteria=new TActiveRecordCriteria($criteria,$parameters);

-		}

-		$gateway = $this->getRecordManager()->getRecordGateway();

-		$results = array();

-		$class = get_class($this);

-		foreach($gateway->findRecordsByCriteria($this,$criteria,true)  as $data)

-			$results[] = $this->populateObject($class,$data);

-		return $results;

-	}

-

-	/**

-	 * Find one record using only the primary key or composite primary keys. Usage:

-	 *

-	 * <code>

-	 * $finder->findByPk($primaryKey);

-	 * $finder->findByPk($key1, $key2, ...);

-	 * $finder->findByPk(array($key1,$key2,...));

-	 * </code>

-	 *

-	 * @param mixed primary keys

-	 * @return TActiveRecord

-	 */

-	public function findByPk($keys)

-	{

-		if(func_num_args() > 1)

-			$keys = func_get_args();

-		$gateway = $this->getRecordManager()->getRecordGateway();

-		$data = $gateway->findRecordByPK($this,$keys);

-		return $this->populateObject(get_class($this), $data);

-	}

-

-	/**

-	 * Find multiple records matching a list of primary or composite keys.

-	 *

-	 * For scalar primary keys:

-	 * <code>

-	 * $finder->findAllByPk($key1, $key2, ...);

-	 * $finder->findAllByPk(array($key1, $key2, ...));

-	 * </code>

-	 *

-	 * For composite keys:

-	 * <code>

-	 * $finder->findAllByPk(array($key1, $key2), array($key3, $key4), ...);

-	 * $finder->findAllByPk(array(array($key1, $key2), array($key3, $key4), ...));

-	 * </code>

-	 * @param mixed primary keys

-	 * @return array matching ActiveRecords

-	 */

-	public function findAllByPks($keys)

-	{

-		if(func_num_args() > 1)

-			$keys = func_get_args();

-		$gateway = $this->getRecordManager()->getRecordGateway();

-		$results = array();

-		$class = get_class($this);

-		foreach($gateway->findRecordsByPks($this,(array)$keys) as $data)

-			$results[] = $this->populateObject($class,$data);

-		return $results;

-	}

-

-	/**

-	 * Find records using full SQL, returns corresponding record object.

-	 * The names of the column retrieved must be defined in your Active Record

-	 * class.

-	 * @param string select SQL

-	 * @param array $parameters

-	 * @return array matching active records.

-	 */

-	public function findBySql($sql,$parameters=array())

-	{

-		if(!is_array($parameters) && func_num_args() > 1)

-		{

-			$parameters = func_get_args();

-			array_shift($parameters);

-		}

-		$gateway = $this->getRecordManager()->getRecordGateway();

-		$data = $gateway->findRecordsBySql($this,$sql,$parameters);

-		$results = array();

-		$class = get_class($this);

-		foreach($gateway->findRecordsBySql($this,$sql,$parameters) as $data)

-			$results[] = $this->populateObject($class,$data);

-		return $results;

-	}

-

-	/**

-	 * Find the number of records.

-	 * @param string|TActiveRecordCriteria SQL condition or criteria object.

-	 * @param mixed parameter values.

-	 * @return int number of records.

-	 */

-	public function count($criteria=null,$parameters=array())

-	{

-		if(is_string($criteria))

-		{

-			if(!is_array($parameters) && func_num_args() > 1)

-			{

-				$parameters = func_get_args();

-				array_shift($parameters);

-			}

-			$criteria=new TActiveRecordCriteria($criteria,$parameters);

-		}

-		$gateway = $this->getRecordManager()->getRecordGateway();

-		return $gateway->countRecords($this,$criteria);

-	}

-

-	/**

-	 * Dynamic find method using parts of method name as search criteria.

-	 * Method name starting with "findBy" only returns 1 record.

-	 * Method name starting with "findAllBy" returns 0 or more records.

-	 * Method name starting with "deleteBy" deletes records by the trail criteria.

-	 * The condition is taken as part of the method name after "findBy", "findAllBy"

-	 * or "deleteBy".

-	 *

-	 * The following are equivalent:

-	 * <code>

-	 * $finder->findByName($name)

-	 * $finder->find('Name = ?', $name);

-	 * </code>

-	 * <code>

-	 * $finder->findByUsernameAndPassword($name,$pass); // OR may be used

-	 * $finder->findBy_Username_And_Password($name,$pass); // _OR_ may be used

-	 * $finder->find('Username = ? AND Password = ?', $name, $pass);

-	 * </code>

-	 * <code>

-	 * $finder->findAllByAge($age);

-	 * $finder->findAll('Age = ?', $age);

-	 * </code>

-	 * <code>

-	 * $finder->deleteAll('Name = ?', $name);

-	 * $finder->deleteByName($name);

-	 * </code>

-	 * @return mixed single record if method name starts with "findBy", 0 or more records

-	 * if method name starts with "findAllBy"

-	 */

-	public function __call($method,$args)

-	{

-		$delete =false;

-		if($findOne = substr(strtolower($method),0,6)==='findby')

-			$condition = $method[6]==='_' ? substr($method,7) : substr($method,6);

-		else if(substr(strtolower($method),0,9)==='findallby')

-			$condition = $method[9]==='_' ? substr($method,10) : substr($method,9);

-		else if($delete = substr(strtolower($method),0,8)==='deleteby')

-			$condition = $method[8]==='_' ? substr($method,9) : substr($method,8);

-		else

-			return null;//throw new TActiveRecordException('ar_invalid_finder_method',$method);

-

-		$criteria = $this->createCriteriaFromString($method, $condition, $args);

-		if($delete)

-			return $this->deleteAll($criteria);

-		else

-			return $findOne ? $this->find($criteria) : $this->findAll($criteria);

-	}

-

-	/**

-	 * @param string __call method name

-	 * @param string criteria conditions

-	 * @param array method arguments

-	 * @return TActiveRecordCriteria criteria created from the method name and its arguments.

-	 */

-	private function createCriteriaFromString($method, $condition, $args)

-	{

-		$fields = $this->extractMatchingConditions($method, $condition);

-		$args=count($args) === 1 && is_array($args[0]) ? $args[0] : $args;

-		if(count($fields)>count($args))

-		{

-			throw new TActiveRecordException('ar_mismatch_args_exception',

-				$method,count($fields),count($args));

-		}

-		return new TActiveRecordCriteria(implode(' ',$fields),$args);

-	}

-

-	/**

-	 * Calculates the AND/OR condition from dynamic method substrings using

-	 * table meta data, allows for any AND-OR combinations.

-	 * @param string dynamic method name

-	 * @param string dynamic method search criteria

-	 * @return array search condition substrings

-	 */

-	private function extractMatchingConditions($method, $condition)

-	{

-		$meta = $this->getRecordManager()->getRecordGateway()->getMetaData($this);

-		$search = implode('|', $meta->getColumnNames());

-		$regexp = '/('.$search.')(and|_and_|or|_or_)?/i';

-		$matches = array();

-		if(!preg_match_all($regexp, strtolower($condition), $matches,PREG_SET_ORDER))

-		{

-			throw new TActiveRecordException('ar_mismatch_column_names',

-				$method, implode(', ', $meta->getColumnNames()), $meta->getTableName());

-		}

-		$fields = array();

-		foreach($matches as $match)

-		{

-			$column = $meta->getColumn($match[1]);

-			$sql = $column->getName() . ' = ? ';

-			if(count($match) > 2)

-				$sql .= strtoupper(str_replace('_', '', $match[2]));

-			$fields[] = $sql;

-		}

-		return $fields;

-	}

+/**
+ * TActiveRecord and TActiveRecordEventParameter class file.
+ *
+ * @author Wei Zhuo <weizhuo[at]gmail[dot]com>
+ * @link http://www.pradosoft.com/
+ * @copyright Copyright &copy; 2005-2007 PradoSoft
+ * @license http://www.pradosoft.com/license/
+ * @version $Id$
+ * @package System.Data.ActiveRecord
+ */
+
+Prado::using('System.Data.ActiveRecord.TActiveRecordManager');
+Prado::using('System.Data.ActiveRecord.TActiveRecordCriteria');
+
+/**
+ * Base class for active records.
+ *
+ * An active record creates an object that wraps a row in a database table
+ * or view, encapsulates the database access, and adds domain logic on that data.
+ *
+ * The essence of an Active Record is an object model of the
+ * domain (e.g. products, items) that incorporates both behavior and
+ * data in which the classes match very closely the record structure of an
+ * underlying database. Each Active Record is responsible for saving and
+ * loading to the database and also for any domain logic that acts on the data.
+ *
+ * The Active Record provides methods that do the following:
+ *  1. Construct an instance of the Active Record from a SQL result set row.
+ *  2. Construct a new instance for later insertion into the table.
+ *  3. Finder methods to wrap commonly used SQL queries and return Active Record objects.
+ *  4. Update the database and insert into it the data in the Active Record.
+ *
+ * Example:
+ * <code>
+ * class UserRecord extends TActiveRecord
+ * {
+ *     const TABLE='users'; //optional table name.
+ *
+ *     public $username; //corresponds to the fieldname in the table
+ *     public $email;
+ *
+ *     //returns active record finder instance
+ *     public static function finder($className=__CLASS__)
+ *     {
+ *         return parent::finder($className);
+ *     }
+ * }
+ *
+ * //create a connection and give it to the ActiveRecord manager.
+ * $dsn = 'pgsql:host=localhost;dbname=test';
+ * $conn = new TDbConnection($dsn, 'dbuser','dbpass');
+ * TActiveRecordManager::getInstance()->setDbConnection($conn);
+ *
+ * //load the user record with username (primary key) 'admin'.
+ * $user = UserRecord::finder()->findByPk('admin');
+ * $user->email = 'admin@example.org';
+ * $user->save(); //update the 'admin' record.
+ * </code>
+ *
+ * @author Wei Zhuo <weizho[at]gmail[dot]com>
+ * @version $Id$
+ * @package System.Data.ActiveRecord
+ * @since 3.1
+ */
+abstract class TActiveRecord extends TComponent
+{
+	/**
+	 * @var boolean true if this class is read only.
+	 */
+	private $_readOnly=false;
+
+	/**
+	 * @var TDbConnection database connection object.
+	 */
+	private $_connection;
+
+	/**
+	 * Prevent __call() method creating __sleep() when serializing.
+	 */
+	public function __sleep()
+	{
+		return array_keys(get_object_vars($this));
+	}
+
+	/**
+	 * Prevent __call() method creating __wake() when unserializing.
+	 */
+	public function __wake(){}
+
+	/**
+	 * Create a new instance of an active record with given $data. The record
+	 * can be saved to the database specified by the $connection object.
+	 *
+	 * @param array optional name value pair record data.
+	 * @param TDbConnection optional database connection this object record use.
+	 */
+	public function __construct($data=array(), $connection=null)
+	{
+		$this->copyFrom($data);
+		if($connection!==null)
+			$this->_connection=$connection;
+	}
+
+	/**
+	 * Copies data from an array or another object.
+	 * @throws TActiveRecordException if data is not array or not object.
+	 * @return TActiveRecord current instance.
+	 */
+	public function copyFrom($data)
+	{
+		$data = is_object($data) ? get_object_vars($data) : $data;
+		if(!is_array($data))
+			throw new TActiveRecordException('ar_must_copy_from_array_or_object', get_class($this));
+		foreach($data as $name=>$value)
+				$this->$name = $value;
+		return $this;
+	}
+
+	/**
+	 * Gets the current Db connection, the connection object is obtained from
+	 * the TActiveRecordManager if connection is currently null.
+	 * @return TDbConnection current db connection for this object.
+	 */
+	public function getDbConnection()
+	{
+		if($this->_connection===null)
+			$this->_connection=self::getRecordManager()->getDbConnection();
+		if($this->_connection===null) //check it
+			throw new TActiveRecordException('ar_invalid_db_connection',get_class($this));
+		return $this->_connection;
+	}
+
+	/**
+	 * @param TDbConnection db connection object for this record.
+	 */
+	public function setDbConnection($connection)
+	{
+		$this->_connection=$connection;
+	}
+
+	/**
+	 * Returns the instance of a active record finder for a particular class.
+	 * @param string active record class name.
+	 * @return TActiveRecord active record finder instance.
+	 * @throws TActiveRecordException if class name equals 'TActiveRecord'.
+	 */
+	public static function finder($className=__CLASS__)
+	{
+		if($className==='TActiveRecord')
+			throw new TActiveRecordException('ar_invalid_finder_class_name');
+
+		static $finders = array();
+		if(!isset($finders[$className]))
+		{
+			$f = Prado::createComponent($className);
+			$f->_readOnly=true;
+			$finders[$className]=$f;
+		}
+		return $finders[$className];
+	}
+
+	/**
+	 * Gets the record manager for this object, the default is to call
+	 * TActiveRecordManager::getInstance().
+	 * @return TActiveRecordManager default active record manager.
+	 */
+	public function getRecordManager()
+	{
+		return TActiveRecordManager::getInstance();
+	}
+
+	/**
+	 * Saves the current record to the database, insert or update is automatically determined.
+	 * @return boolean true if record was saved successfully, false otherwise.
+	 */
+	public function save()
+	{
+		return $this->commitChanges();
+	}
+
+	/**
+	 * Commit changes to the record, may insert, update or delete depending
+	 * on the record state given in TObjectStateRegistery.
+	 * @return boolean true if changes were made.
+	 */
+	protected function commitChanges()
+	{
+		$registry = $this->getRecordManager()->getObjectStateRegistry();
+		$gateway = $this->getRecordManager()->getRecordGateway();
+		if(!$this->_readOnly)
+			$this->_readOnly = $gateway->getMetaData($this)->getIsView();
+		if($this->_readOnly)
+			throw new TActiveRecordException('ar_readonly_exception',get_class($this));
+		return $registry->commit($this,$gateway);
+	}
+
+	/**
+	 * Deletes the current record from the database. Once deleted, this object
+	 * can not be saved again in the same instance.
+	 * @return boolean true if the record was deleted successfully, false otherwise.
+	 */
+	public function delete()
+	{
+		$registry = $this->getRecordManager()->getObjectStateRegistry();
+		$registry->registerRemoved($this);
+		return $this->commitChanges();
+	}
+
+	/**
+	 * Delete records by primary key. Usage:
+	 *
+	 * <code>
+	 * $finder->deleteByPk($primaryKey); //delete 1 record
+	 * $finder->deleteByPk($key1,$key2,...); //delete multiple records
+	 * $finder->deleteByPk(array($key1,$key2,...)); //delete multiple records
+	 * </code>
+	 *
+	 * For composite primary keys (determined from the table definitions):
+	 * <code>
+	 * $finder->deleteByPk(array($key1,$key2)); //delete 1 record
+	 *
+	 * //delete multiple records
+	 * $finder->deleteByPk(array($key1,$key2), array($key3,$key4),...);
+	 *
+	 * //delete multiple records
+	 * $finder->deleteByPk(array( array($key1,$key2), array($key3,$key4), .. ));
+	 * </code>
+	 *
+	 * @param mixed primary key values.
+	 * @return int number of records deleted.
+	 */
+	public function deleteByPk($keys)
+	{
+		if(func_num_args() > 1)
+			$keys = func_get_args();
+		$gateway = $this->getRecordManager()->getRecordGateway();
+		return $gateway->deleteRecordsByPk($this,(array)$keys);
+	}
+
+
+	/**
+	 * Delete multiple records using a criteria.
+	 * @param string|TActiveRecordCriteria SQL condition or criteria object.
+	 * @param mixed parameter values.
+	 * @return int number of records deleted.
+	 */
+	public function deleteAll($criteria, $parameters=array())
+	{
+		if(is_string($criteria))
+		{
+			if(!is_array($parameters) && func_num_args() > 1)
+			{
+				$parameters = func_get_args();
+				array_shift($parameters);
+			}
+			$criteria=new TActiveRecordCriteria($criteria,$parameters);
+		}
+		$gateway = $this->getRecordManager()->getRecordGateway();
+		return $gateway->deleteRecordsByCriteria($this, $criteria);
+	}
+
+	/**
+	 * Populate the record with data, registers the object as clean.
+	 * @param string new record name
+	 * @param array name value pair record data
+	 * @return TActiveRecord object record, null if data is empty.
+	 */
+	protected function populateObject($type, $data)
+	{
+		if(empty($data)) return null;
+		$registry = $this->getRecordManager()->getObjectStateRegistry();
+
+		//try the cache (the cache object must be clean)
+		if(!is_null($obj = $registry->getCachedInstance($data)))
+			return $obj;
+
+		//create and populate the object
+		$obj = Prado::createComponent($type);
+		foreach($data as $name => $value)
+			$obj->{$name} = $value;
+
+		$gateway = $this->getRecordManager()->getRecordGateway();
+		$obj->_readOnly = $gateway->getMetaData($this)->getIsView();
+
+		//cache it
+		return $registry->addCachedInstance($data,$obj);
+	}
+
+	/**
+	 * Find one single record that matches the criteria.
+	 *
+	 * Usage:
+	 * <code>
+	 * $finder->find('username = :name AND password = :pass',
+	 * 					array(':name'=>$name, ':pass'=>$pass));
+	 * $finder->find('username = ? AND password = ?', array($name, $pass));
+	 * $finder->find('username = ? AND password = ?', $name, $pass);
+	 * //$criteria is of TActiveRecordCriteria
+	 * $finder->find($criteria); //the 2nd parameter for find() is ignored.
+	 * </code>
+	 *
+	 * @param string|TActiveRecordCriteria SQL condition or criteria object.
+	 * @param mixed parameter values.
+	 * @return TActiveRecord matching record object.
+	 */
+	public function find($criteria,$parameters=array())
+	{
+		if(is_string($criteria))
+		{
+			if(!is_array($parameters) && func_num_args() > 1)
+			{
+				$parameters = func_get_args();
+				array_shift($parameters);
+			}
+			$criteria=new TActiveRecordCriteria($criteria,$parameters);
+		}
+		$gateway = $this->getRecordManager()->getRecordGateway();
+		$data = $gateway->findRecordsByCriteria($this,$criteria);
+		return $this->populateObject(get_class($this), $data);
+	}
+
+	/**
+	 * Same as find() but returns an array of objects.
+	 *
+	 * @param string|TActiveRecordCriteria SQL condition or criteria object.
+	 * @param mixed parameter values.
+	 * @return array matching record objects
+	 */
+	public function findAll($criteria=null,$parameters=array())
+	{
+		if(is_string($criteria))
+		{
+			if(!is_array($parameters) && func_num_args() > 1)
+			{
+				$parameters = func_get_args();
+				array_shift($parameters);
+			}
+			$criteria=new TActiveRecordCriteria($criteria,$parameters);
+		}
+		$gateway = $this->getRecordManager()->getRecordGateway();
+		$results = array();
+		$class = get_class($this);
+		foreach($gateway->findRecordsByCriteria($this,$criteria,true)  as $data)
+			$results[] = $this->populateObject($class,$data);
+		return $results;
+	}
+
+	/**
+	 * Find one record using only the primary key or composite primary keys. Usage:
+	 *
+	 * <code>
+	 * $finder->findByPk($primaryKey);
+	 * $finder->findByPk($key1, $key2, ...);
+	 * $finder->findByPk(array($key1,$key2,...));
+	 * </code>
+	 *
+	 * @param mixed primary keys
+	 * @return TActiveRecord
+	 */
+	public function findByPk($keys)
+	{
+		if(func_num_args() > 1)
+			$keys = func_get_args();
+		$gateway = $this->getRecordManager()->getRecordGateway();
+		$data = $gateway->findRecordByPK($this,$keys);
+		return $this->populateObject(get_class($this), $data);
+	}
+
+	/**
+	 * Find multiple records matching a list of primary or composite keys.
+	 *
+	 * For scalar primary keys:
+	 * <code>
+	 * $finder->findAllByPk($key1, $key2, ...);
+	 * $finder->findAllByPk(array($key1, $key2, ...));
+	 * </code>
+	 *
+	 * For composite keys:
+	 * <code>
+	 * $finder->findAllByPk(array($key1, $key2), array($key3, $key4), ...);
+	 * $finder->findAllByPk(array(array($key1, $key2), array($key3, $key4), ...));
+	 * </code>
+	 * @param mixed primary keys
+	 * @return array matching ActiveRecords
+	 */
+	public function findAllByPks($keys)
+	{
+		if(func_num_args() > 1)
+			$keys = func_get_args();
+		$gateway = $this->getRecordManager()->getRecordGateway();
+		$results = array();
+		$class = get_class($this);
+		foreach($gateway->findRecordsByPks($this,(array)$keys) as $data)
+			$results[] = $this->populateObject($class,$data);
+		return $results;
+	}
+
+	/**
+	 * Find records using full SQL, returns corresponding record object.
+	 * The names of the column retrieved must be defined in your Active Record
+	 * class.
+	 * @param string select SQL
+	 * @param array $parameters
+	 * @return array matching active records.
+	 */
+	public function findBySql($sql,$parameters=array())
+	{
+		if(!is_array($parameters) && func_num_args() > 1)
+		{
+			$parameters = func_get_args();
+			array_shift($parameters);
+		}
+		$gateway = $this->getRecordManager()->getRecordGateway();
+		$data = $gateway->findRecordsBySql($this,$sql,$parameters);
+		$results = array();
+		$class = get_class($this);
+		foreach($gateway->findRecordsBySql($this,$sql,$parameters) as $data)
+			$results[] = $this->populateObject($class,$data);
+		return $results;
+	}
+
+	/**
+	 * Find the number of records.
+	 * @param string|TActiveRecordCriteria SQL condition or criteria object.
+	 * @param mixed parameter values.
+	 * @return int number of records.
+	 */
+	public function count($criteria=null,$parameters=array())
+	{
+		if(is_string($criteria))
+		{
+			if(!is_array($parameters) && func_num_args() > 1)
+			{
+				$parameters = func_get_args();
+				array_shift($parameters);
+			}
+			$criteria=new TActiveRecordCriteria($criteria,$parameters);
+		}
+		$gateway = $this->getRecordManager()->getRecordGateway();
+		return $gateway->countRecords($this,$criteria);
+	}
+
+	/**
+	 * Dynamic find method using parts of method name as search criteria.
+	 * Method name starting with "findBy" only returns 1 record.
+	 * Method name starting with "findAllBy" returns 0 or more records.
+	 * Method name starting with "deleteBy" deletes records by the trail criteria.
+	 * The condition is taken as part of the method name after "findBy", "findAllBy"
+	 * or "deleteBy".
+	 *
+	 * The following are equivalent:
+	 * <code>
+	 * $finder->findByName($name)
+	 * $finder->find('Name = ?', $name);
+	 * </code>
+	 * <code>
+	 * $finder->findByUsernameAndPassword($name,$pass); // OR may be used
+	 * $finder->findBy_Username_And_Password($name,$pass); // _OR_ may be used
+	 * $finder->find('Username = ? AND Password = ?', $name, $pass);
+	 * </code>
+	 * <code>
+	 * $finder->findAllByAge($age);
+	 * $finder->findAll('Age = ?', $age);
+	 * </code>
+	 * <code>
+	 * $finder->deleteAll('Name = ?', $name);
+	 * $finder->deleteByName($name);
+	 * </code>
+	 * @return mixed single record if method name starts with "findBy", 0 or more records
+	 * if method name starts with "findAllBy"
+	 */
+	public function __call($method,$args)
+	{
+		$delete =false;
+		if($findOne = substr(strtolower($method),0,6)==='findby')
+			$condition = $method[6]==='_' ? substr($method,7) : substr($method,6);
+		else if(substr(strtolower($method),0,9)==='findallby')
+			$condition = $method[9]==='_' ? substr($method,10) : substr($method,9);
+		else if($delete = substr(strtolower($method),0,8)==='deleteby')
+			$condition = $method[8]==='_' ? substr($method,9) : substr($method,8);
+		else
+			return null;//throw new TActiveRecordException('ar_invalid_finder_method',$method);
+
+		$criteria = $this->createCriteriaFromString($method, $condition, $args);
+		if($delete)
+			return $this->deleteAll($criteria);
+		else
+			return $findOne ? $this->find($criteria) : $this->findAll($criteria);
+	}
+
+	/**
+	 * @param string __call method name
+	 * @param string criteria conditions
+	 * @param array method arguments
+	 * @return TActiveRecordCriteria criteria created from the method name and its arguments.
+	 */
+	private function createCriteriaFromString($method, $condition, $args)
+	{
+		$fields = $this->extractMatchingConditions($method, $condition);
+		$args=count($args) === 1 && is_array($args[0]) ? $args[0] : $args;
+		if(count($fields)>count($args))
+		{
+			throw new TActiveRecordException('ar_mismatch_args_exception',
+				$method,count($fields),count($args));
+		}
+		return new TActiveRecordCriteria(implode(' ',$fields),$args);
+	}
+
+	/**
+	 * Calculates the AND/OR condition from dynamic method substrings using
+	 * table meta data, allows for any AND-OR combinations.
+	 * @param string dynamic method name
+	 * @param string dynamic method search criteria
+	 * @return array search condition substrings
+	 */
+	private function extractMatchingConditions($method, $condition)
+	{
+		$meta = $this->getRecordManager()->getRecordGateway()->getMetaData($this);
+		$search = implode('|', $meta->getColumnNames());
+		$regexp = '/('.$search.')(and|_and_|or|_or_)?/i';
+		$matches = array();
+		if(!preg_match_all($regexp, strtolower($condition), $matches,PREG_SET_ORDER))
+		{
+			throw new TActiveRecordException('ar_mismatch_column_names',
+				$method, implode(', ', $meta->getColumnNames()), $meta->getTableName());
+		}
+		$fields = array();
+		foreach($matches as $match)
+		{
+			$column = $meta->getColumn($match[1]);
+			$sql = $column->getName() . ' = ? ';
+			if(count($match) > 2)
+				$sql .= strtoupper(str_replace('_', '', $match[2]));
+			$fields[] = $sql;
+		}
+		return $fields;
+	}
 }
-?>
\ No newline at end of file
+
+/**
+ * TActiveRecordEventParameter class.
+ *
+ * @author Wei Zhuo <weizho[at]gmail[dot]com>
+ * @version $Id$
+ * @package System.Data.ActiveRecord
+ * @since 3.1
+ */
+class TActiveRecordEventParameter extends TEventParameter
+{
+
+}
+
+
+
+?>