Fórum Ordenar dados #338125

begin
  If GbOrdenar.ItemIndex=0 then Begin
     DM_Dados.DB_PlanoDetalhes.Close;
     DM_Dados.DB_PlanoDetalhes.SQL.Clear;
     DM_Dados.DB_PlanoDetalhes.SQL.Add( ´ Select * From PLANO_CONTAS_DETALHES order by CODIGO_PLANO ´ );
     DM_Dados.DB_PlanoDetalhes.Open;
   end;

   if GbOrdenar.ItemIndex=1 then Begin
     DM_Dados.DB_PlanoDetalhes.Close;
     DM_Dados.DB_PlanoDetalhes.SQL.Clear;
     DM_Dados.DB_PlanoDetalhes.SQL.Add( ´ Select * From PLANO_CONTAS_DETALHES order by NOME ´ );
     DM_Dados.DB_PlanoDetalhes.Open;
   End;
    // exibir relatório
   FrmRelPlanos:=TFrmRelPlanos.create(self);
end;