Avaliação do Tópico:
  • 0 votos - 0 Média
  • 1
  • 2
  • 3
  • 4
  • 5
Manual ICriteria
#1
Boa noite!!!

Teria alguma fonte de informações dos parametros e como usar o icriteria?
Responder
#2
no link http://www.thedelphigeek.com/2015/04/run...ilder.html

  Isaque Pinheiro
  Fundador do Projeto ORM Brasil
  ORMBr SAC - Assine e faça parte dessa história ajudando o projeto a crescer.

Responder
#3
(22-10-2017, 07:37 PM)Isaque Pinheiro Escreveu: no link http://www.thedelphigeek.com/2015/04/run...ilder.html

Muito obrigado!!!
Responder
#4
(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?
Responder
#5
(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.

  Isaque Pinheiro
  Fundador do Projeto ORM Brasil
  ORMBr SAC - Assine e faça parte dessa história ajudando o projeto a crescer.

Responder
#6
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;
Responder
#7
(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;


  Isaque Pinheiro
  Fundador do Projeto ORM Brasil
  ORMBr SAC - Assine e faça parte dessa história ajudando o projeto a crescer.

Responder


Saltar Fórum:


usuários a ver este tópico: 1 Visitante(s)