Aooooo meu povo, finalmente chegamos ao penúltimo artigo da nossa série de cadastro Delphi POO + MVC + DAO. Estamos felizes por ter acendido uma pequena luz nessa escuridão, algumas pessoas tem interagido outras entraram em contato, e isso é muito gratificante. Neste artigo vamos finalizar as implementações da camada VIEW.
Sem perca de tempo, com o projeto aberto no Delphi, acesse a tela de cadastro de cliente, selecione a "StringGrid" e implemente o evento "OnDrawCell" assim:
Esta implementação apenas pinta os títulos das colunas da Grid, para ter um destaque visual, caso as descrições dos títulos das colunas não aparecer, acrescente esta linha após a linha 340:
Canvas.TextOut(Rect.Left, Rect.Top, Cells[ACol,ARow]);
Agora vamos implementar o evento "OnDblClick" da "StringGrid", este evento é acionado quando o usuário der um duplo-clique sobre algum registro, ele apenas chama o método "Detalhar":
Canvas.TextOut(Rect.Left, Rect.Top, Cells[ACol,ARow]);
Agora vamos implementar o evento "OnDblClick" da "StringGrid", este evento é acionado quando o usuário der um duplo-clique sobre algum registro, ele apenas chama o método "Detalhar":
OK, agora, implemente o evento "OnShow" do formulário de cadastro assim:
Simplesmente, ao abrir a tela de cadastro de cliente, o método "SetUp" será chamado, e as configurações básicas para o bom funcionamento da tela serão realizadas.
Implemente o evento "OnKeyPress" da tela de cadastro desta maneira:
Implemente o evento "OnKeyPress" da tela de cadastro desta maneira:
Este método verifica se a tecla "Enter" foi pressionada, caso sim, nós anulamos sua funcionalidade em seguida e chamamos a função "Tab", para que quando o usuário pressionar a tecla "Enter", ele consiga navegar entre os campos da tela.
Agora, vamos implementar os eventos "OnClick" dos seguintes botões:
Pesquisar
Agora, vamos implementar os eventos "OnClick" dos seguintes botões:
Pesquisar
Novo
Detalhar
Excluir
Listar
Alterar
Gravar
Cancelar
Esta foi a parte mais simples, pois, apenas chamamos os métodos que já foram implementados nos botões. Desta maneira, finalizamos as implementações da camada VIEW, agora, no próximo artigo, vamos finalizar o projeto. Qualquer dúvida, só comentar, até o próximo, abraço.
Este artigo faz parte da série: CRUD Delphi POO + MVC + DAO;
Este artigo faz parte da série: CRUD Delphi POO + MVC + DAO;
(Por ClipaTec Informática)
Muito obrigado por mais esse artigo! Ansioso pelo fechamento. Estou aprendendo a programar e essa série deu uma noção muito didática sobre o conceito de MVC + DAO aplicado ao Delphi.
ResponderExcluirQue bom Emerson, ficamos felizes com isso. Em breve postaremos o ultimo artigo. Enquanto isso, se quiser, dê uma olhada nas vídeo-aulas que foram criadas em cima desta série em nosso canal do Youtube, um grande abraço:
Excluirhttps://www.youtube.com/watch?v=kWnGPFSVZj4&list=PLTAXi9B72qu5bh-dXgDKt1MUwCvASNKeh
Onde consigo baixar os fontes do projeto?
ResponderExcluirVamos publicar no github e postar o link aqui no artigo. Abraços
ExcluirTem algum lugar onde eu consigo baixar os fontes?
ResponderExcluirVamos publicar no github e postar o link aqui no artigo. Abraços
ExcluirShow de bola, não conseguia entender direito o conceito MVC + DAO.
ResponderExcluirMuito obrigado por nos passar alguns de seus conhecimentos.
Aguardando o próximo artigo.
Que bom que ajudou. Abraço e sucessos pra vc sempre
ExcluirMuito obrigado por esta série de artigos, estou aguardando a conclusão. Vocês tem ideia de quando a série será concluída?
ResponderExcluirAgradeço por Compartilharem conosco esse conteúdo.
Segue todas as publicações dessa série (concluída):
Excluirhttps://www.clipatecinformatica.com.br/2016/07/serie-cadastro-delphi-poo-mvc-dao.html
Aqui esta o link para a última aula:
https://www.youtube.com/watch?v=BR4pZT8w00o