Ol√° a todos! Me chamo Leonardo Quartieri sou programador Delphi e trabalho com desenvolvimento de sistemas, na grande maioria Orientado a Objetos :) , certo dia desenvolvendo uma classe de persist√™ncia, a qual o objetivo era ser o mais completa e abranjente poss√≠vel, me deparei com um problema, qual tipo de retorno eu deveria extrair da minha fun√ß√£o de select??? um Dataset ou um Datareader? Compreendendo as caracteristicas de cada um percebi que a melhor solu√ß√£o seria que a fun√ß√£o pudesse me retornar os dois, mas como? A solu√ß√£o foi a seguinte,

Criar um Tipo, observe como √© simples o codigo da unit do tipo:

############################

unit DsetouDReader;

// Esta unit deve ser declarada em toda unit que usar o retorno TDsetouDReader

interface


uses

System.Data, System.Data.SqlClient;


type

TDSetouDReader = record

DSet : Dataset;

DReader : SQLDataReader;


end;

implementation


end.

############################


Após a criação do tipo, na classe de persistência implementei o select da seguinte forma:


############################ (camada persistencia)

function TPersistenciaGeral.Select(ValueObject: TObject; SetouReader: integer; Order: String):TDSetouDReader;

// Este select pode ser tanto um select * como um select com where, depende das properties

//SetouReader = 0 = Dataset

//SetouReader = 1 = Datareader;

Var

vTabela: &Type;

vSQLCommand : SQLCommand;

vSQLDataAdapter : SQLDataAdapter;

vPropriedades: Array of PropertyInfo;

vPropriedade: PropertyInfo;

vDataset : Dataset;

StringcomPercent: string;

Dr: SqlDataReader;


begin

vSQLDataAdapter := SQLDataAdapter.Create;

vSQLCommand := SQLCommand.Create;

vDataset := Dataset.Create;

vTabela := ValueObject.GetType;

vPropriedades := vTabela.GetProperties;

if vSQLConnection.State = ConnectionState(0) then

vSQLConnection.Open;

vSQLCommand.Connection := vSQLConnection;


vTabela := ValueObject.GetType;

vSQLCommand.CommandText := 'Select * from '+vTabela.Name.Substring(1)+ ' where 1 = 1 ';


for vPropriedade in vPropriedades do // se houver alguma property com valor faz-se where

begin

if (vPropriedade.GetValue(ValueObject,nil) <> nil)then

begin

try

begin

if ((Convert.Toint32(vPropriedade.GetValue(ValueObject,nil)) <> 0)) then

begin

vSQLCommand.CommandText := vSQLCommand.CommandText +' And '+vTabela.Name.Substring(1)+'.'+vPropriedade.Name+' = '+

quotedstr(Convert.tostring(vPropriedade.GetValue(ValueObject,nil)));

end;

end;

except

begin

if ((Convert.tostring(vPropriedade.GetValue(ValueObject,nil)) <> '')) then

begin

StringcomPercent :='%'+convert.tostring(vPropriedade.GetValue(ValueObject,nil))+'%';

vSQLCommand.CommandText := vSQLCommand.CommandText +' And '+vPropriedade.Name+' Like '+QuotedStr(

StringcomPercent);

end;

end;

end;

end;

end;

if order <> '' then

vSQLCommand.CommandText := vSQLCommand.CommandText + ' Order by '+Order;


vSQLDataAdapter.SelectCommand := vSQLCommand;

if SetouReader = 0 then

begin

vSQLDataAdapter.Fill(vDataset);

Result.Dset := vDataset;

end;

if SetouReader = 1 then

begin

Dr :=vSQLCommand.ExecuteReader;

Result.DReader := Dr;

end;

end;

############################


Digerindo o codigo acima,

Com o ValueObject recebemos a classe a ser lida, por ser uma classe de persistencia geral a mesma captura a classe que a invocou, l√™ as properties da classe, as properties que n√£o forem vazias ou nulas s√£o colocadas no where na montagem do SQL, ap√≥s isso passamos o par√Ęmetro que define como vai ser o retorno, e para terminar passamos a ordena√ß√£o dos dados. Como a aplica√ß√£o √© em camadas, observe abaixo o modelo utilizado:

Camada de Apresentação (Tela)

Camada de Fachada

Camada de Bussines

Camada de Persistência

BANCO DE DADOS 



Neste modelo todas as classes geram suas tabelas no banco de dados, se as tabelas não existirem claro, as properties são os campos da tabela, na tela instancio as classes Clientes e FachadaClientes, já chamando o método criado na fachada, observe:

############################ (Tela)

procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);

var

Clientes : TClientes;

FaClientes : TFachadaClientes;

begin

Clientes := Tclientes.Create; // Esta classe só contem as properties

FaClientes := TFachadaclientes.Create;


DataGridDset.DataSource := FaClientes.SelecionarClientes(Clientes,0,'Nome').DSet;

DataGridDset.DataBind;


DataGridReader.DataSource := FaClientes.SelecionarClientes(Clientes,1,'Nome').DReader;

DataGridReader.DataBind;


end;

############################


Indo uma camada abaixo, observe a implementação do método na camada FachadaClientes:


############################ (Camada Fachada)
class function TFachadaClientes.SelecionarClientes(Clientes: TClientes; SetouReader: integer; Order: String): TDSetouDReader;

Var

vBusClientes : TBusClientes;

begin

vBusClientes := TBusClientes.create;

result := vBusClientes.SelecionarClientes(Clientes,SetouReader,order);

end;

############################


Indo uma camada a baixo observe:


############################ (Camada Bussines)
function
TBusClientes.SelecionarClientes(Clientes: TClientes; SetouReader: integer; Order: String): TDSetouDReader;

Var

vClientes : TpClientes; // Classe de pesrist especifica, herda o método de TPersistenciaGeral

begin

vClientes := TpClientes.Create;

result := vClientes.Select(Clientes,SetouReader,Order);

end;

############################


No codigo da pagina inicial(Tela) note que coloquei dois datagrids, um sendo alimentado por um dataset e outro sendo alimentado por um DataReader. A grande sacada nesta solu√ß√£o √© realmente o uso de um tipo para possibilitar mais que um retorno na fun√ß√£o, espero ter ajudado, qualquer d√ļvida, sugest√£o, ou melhora na solu√ß√£o entrem em contato : leoquartieri@hotmail.com



Agradecimentos super especiais a Eduardo Flaeschen (QD Tecnologia),
mais que um professor, um Mestre na arte de programar.



Leonardo Quartieri

leoquartieri@hotmail.com