Aplicação em três camadas (ASP .NET C#)

Quando iniciamos uma nova aplicação é sempre uma boa ideia (e boa pratica) adotar uma forma de organizarmos os recursos que serão desenvolvidos, seja para garantirmos uma melhor manutenção do que esta sendo construído, uma segurança maior ou mesmo para garantir que determinadas responsabilidades da aplicação (apresentação da informação, regras ou acesso a dados) não influenciem uma nas outras quando for necessária sua alteração (correção ou substituição).

Vamos pensar na seguinte situação, em determinado momento no passado nós construímos uma aplicação em ASP para uma empresa, que acessava um repositório em access (jóia não?), ai depois de algum tempo nosso cliente começou a perceber a evolução da internet e solicita a você ajustes nessa aplicação, pois agora ele adquiriu um outro banco de dados e deseja uma nova aplicação web.

Bom, se sua aplicação não foi bem estruturada, ou seja, as coisas acontecem de forma "misturada" com regras de negocio alterando diretamente questões visuais ou acesso a base de dados diretamente da aplicação, então amigo, nós temos um problema, pois a solicitação foi justamente a alteração da base de dados e da interface, se tudo esta misturado como devemos proceder?

A resposta ingrata dessa pergunta é a famigerada frase "Teremos de fazer do zero".

Percebem a importância da separação de responsabilidades? Se desde o inicio tudo estivesse bem organizado por responsabilidades poderíamos ter reaproveitado boa parte do código e ainda seriamos capazes de evoluir os ajustes por etapas.

O que iremos mostrar aqui é uma forma simples de realizar essa organização, um padrão muito utilizado é a separação em camadas, onde poderíamos destacar:

UI - responsável pela interação com o usuário (páginas web, APIs, forms, consoles, etc.);
BLL - responsável pelas regras de negócio (definir a validade das informações, como e quando essas informações podem ser enviadas ou recuperadas da base de dados);
DAL - responsável pelas ações com a base de dados (comunicação e manipulação da base de dados);

A ideia aqui é que exista independência de responsabilidades, onde cada camada deve fazer estritamente o que lhe é determinada, somado a um nível obrigatório de relação, onde a camada de interface conhece apenas a camada de negócios, a camada de negócios conhece apenas a camada de dados e a camada de dados não conhece ninguém (forever alone).

Com essas diretrizes simples temos o minimo necessário para garantir uma separação robusta que nos dará liberdade para ajustes futuros, existe um exemplo simples no git para demonstrar a ideia apresentada.

Nas próximas postagens iremos ajustar o projeto de exemplo aplicando alguns padrões interessantes.

Iniciar e Parar Serviços do Windows (Delphi)

Em certas ocasiões nos deparamos com a necessidade de manipular determinadas atividades do SO, como iniciar ou parar um banco de dados, ou qualquer outro serviço que esteja funcionando no momento. Segue abaixo um código que encontrei na Internet para tal finalidade (não me recordo à fonte, assim que eu a encontrar colocarei). Iniciar Serviço: uses WinSvc; // // start service // // return TRUE if successful // // sMachine: // machine name, ie: \SERVER // empty = local machine // // sService // service name, ie: Alerter // function ServiceStart( sMachine, sService : string ) : boolean; var // // service control // manager handle schm, // // service handle schs : SC_Handle; // // service status ss : TServiceStatus; // // te...

Listar arquivos existentes em diretório (Delphi)

Mostraremos uma maneira simples e prática para listar o conteúdo de um diretório com a opção de incluir nessa listagem os arquivos de seus subdiretórios. No exemplo abaixo temos um Edit para receber o diretório a ser pesquisado um CheckBox para indicar se os subdiretórios entrarão na pesquisa um botão para efetuar a pesquisa e um Memo para listar os arquivos encontrados, no final um Edit que receberá o cálculo final (em bytes) da soma do tamanho dos arquivos. procedure TForm1.Button1Click(Sender: TObject); begin tamanhoTotal := 0; memLista.Lines.Clear; ListarArquivos(edtDiretorio.Text, chkSub.Checked); Edit1.Text := IntToStr( tamanhoTotal ); end; procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean); var F: TSearchRec; Ret: Integer; TempNome: string; begin Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F); try while Ret = 0 do ...

Centralizar Texto em Edit

Como todos sabemos o Edit mantém todo texto digitado a esquerda, o que não fica bem quando o usamos para a entrada de números, pois bem, o exemplo abaixo apresenta uma alternativa para centralizar um determinado valor dentro de um Edit: procedure EditChange(Sender: TObject); var vl_label : TLabel; //variável do tipo Label begin vl_label := TLabel.Create(self); //criamos um label WITH vl_label DO BEGIN Font.Name := TEdit(sender).Font.Name; //pegamos a fonte usada no edit Caption := TEdit(sender).Text; //pegamos o conteúdo do edit SendMessage(TEdit(sender).Handle, EM_SETMARGINS, EC_LEFTMARGIN, (TEdit(sender).Width-vl_label.Width) div 2); //centraliza no label e retorna para o edit END ; vl_label.Free; end ;

PROGRAMERO

Pesquisar este blog