ORMBr Fórum - Seja bem vindo

Versão Completa: Manual ICriteria
Esta é uma versão reduzida do nosso conteúdo. Ver versão completa com o formato adequado.
Boa noite!!!

Teria alguma fonte de informações dos parametros e como usar o icriteria?
(22-10-2017, 07:37 PM)Isaque Pinheiro Escreveu: [ -> ]no link http://www.thedelphigeek.com/2015/04/run...ilder.html

Muito obrigado!!!
(22-10-2017, 07:37 PM)Isaque Pinheiro Escreveu: [ -> ]no link http://www.thedelphigeek.com/2015/04/run...ilder.html

Mais uma dúvida para eu usar select um pouco mais elaborados eu tenho que adiocionar esse projeto do link na minha aplicação ou o ORMbr já tem dentro dele e já posso usar?
(22-11-2017, 09:28 PM)Osiel Gomes Escreveu: [ -> ]
(22-10-2017, 07:37 PM)Isaque Pinheiro Escreveu: [ -> ]no link http://www.thedelphigeek.com/2015/04/run...ilder.html

Mais uma dúvida para eu usar select um pouco mais elaborados eu tenho que adiocionar esse projeto do link na minha aplicação ou o ORMbr já tem dentro dele e já posso usar?

Já está no ORMBr, use as units da pasta ..\ORMBr\Source\Criteria, esse link acima é só para demonstrar o uso.
Meu primeiro sql:

function TMESA.GetMesa(const ACodigo: string): IDBResultSet;
var
LWhere: string;
begin

LWhere := ' 1=1 ';

if not StrVazia(ACodigo) then
begin
LWhere := LWhere + ' and CODIGO = ' + ACodigo;
end;

Result := TCriteria.New.SetConnection(iBDConexao).SQL(
CreateCriteria.Select.Column('CODIGO').Column('DESCRICAO').
From('MESA').
Where(LWhere)).AsResultSet;
end;


Mesa := TMESA.Create;
try
with Mesa.GetMesa('') do
begin
DataSet.First;
while not DataSet.Eof do
begin
Atencao(FieldByName('DESCRICAO').AsString);
DataSet.Next;
end;

end;
finally
FreeAndNil(Mesa);
end;
(05-10-2018, 03:07 PM)samuca.ti@hotmail.com Escreveu: [ -> ]Meu primeiro sql:

function TMESA.GetMesa(const ACodigo: string): IDBResultSet;
var
  LWhere: string;
begin

  LWhere := ' 1=1 ';

  if not StrVazia(ACodigo) then
  begin
     LWhere := LWhere + ' and CODIGO  = ' + ACodigo;
  end;

  Result := TCriteria.New.SetConnection(iBDConexao).SQL(
     CreateCriteria.Select.Column('CODIGO').Column('DESCRICAO').
     From('MESA').
     Where(LWhere)).AsResultSet;
end;


  Mesa := TMESA.Create;
  try
     with Mesa.GetMesa('') do
     begin
        DataSet.First;
        while not DataSet.Eof do
        begin
           Atencao(FieldByName('DESCRICAO').AsString);
           DataSet.Next;
        end;

     end;
  finally
     FreeAndNil(Mesa);
  end;

Assim:
Delphi
Var
IDBResult: IDBResultSet
 
IDBResult := Mesa.GetMesa('');
 
if IDBResult.RecordCount > 0 then
begin
  try
    with IDBResult.NotEof do
    begin
       Atencao(FieldByName('DESCRICAO').AsString);
    end;
  finally
    IDBResult.Close;
  end;
end;