Criteria

[Marcos George]

Um outro ponto interessante que poderia ser deve ser discutido e já
poderia ser implementado em breve. O Criteria poderia ser colocado no
SqlCommand. Veja um exemplo de uso:

vSqlCommand := Session.CreateQuery('TPessoa'); // Aki poderia ser
passado o TypeInfo...
vSqlCommand.Criteria.AddLike('Nome', 'Jose');
vSqlCommand.Criteria.AddBetween('DataNasc', vData_Ini, vData_Fin);

vPessoas := vSqlCommand.GetList as IPessoas;

[Marcos Barreto]

vSqlCommand := Session.CreateQuery('TPessoa'); // Aki poderia ser passado o TypeInfo...
vSqlCommand.Criteria.AddLike('Nome', 'Jose');
vSqlCommand.Criteria.AddBetween('DataNasc', vData_Ini, vData_Fin);
vPessoas := vSqlCommand.GetList as IPessoas;

O Criteria é algo que deve funcionar independente do CreateQuery. acho que este método CreateQuery seria utilizado quando utilizando expressoes OQL.

O Criteria é uma classe que contêm Criterions, e tem métodos para criação de cada um dos criterions. Uma vez obtido o SQLCommand a partir do CreateNamedQuery poderiamos montar a expressao:

with vSqlCommand.Criteria do
begin
  AddLike('Nome', 'Jose');
  AddBetween('DataNasc', vData_Ini, vData_Fin);
end;

Na abordagem que fiz no outro framework, cada AddXXX retorna o proprio criteria podendo fazer algo assim:

Criteria.AddLike('Nome', 'Jose').AddOr.AddBetween('DataNasc', vData_Ini, vData_Fin);

Abraços




 

--
Marcos Barreto
MicroProcess Sistemas Ltda - Sócio-Diretor