m 0pt">Caso de uso Para aplicar o artigo na prática criaremos uma base de dados no Firebird, que terá uma tabela chamada CLIENTES e uma tabela para controlar o campo auto-incremento. Essa solução poderá ser utilizada em qualquer banco de dados, pois não utilizará Trigger e Generators específicos do Firebird, assim o sistema pode ser portado para outros bancos de dados. Na Listagem 1 temos o script do banco que deverá ser criado. Listagem 1. Script do banco para exemplo CREATE TABLE CLIENTES ( CODCLIENTE INTEGER NOT NULL, DATANASCIMENTO DATE NOT NULL, EMAIL VARCHAR(200), SITE VARCHAR(200), PRIMARY KEY ("CODCLIENTE")); CREATE TABLE CODIGOS ( CAMPO VARCHAR(50) NOT NULL, VALOR INTEGER NOT NULL, PRIMARY KEY ("CAMPO")); Nota: Para criar o banco de dados citado, você precisa ter o Firebird instalado (www.firebirdsql.org) e utilizar um utilitário como o IBExpert (www.ibexpert.com) para executar o script. Criando a aplicação Para esse artigo utilizarei o Delphi 7, mas fique a vontade para utilizar outra versão do Delphi que suporte aplicações Win32. Crie uma nova aplicação através do menu File>New>Application. Como o primeiro formulário é o principal (será executado ao iniciar o sistema) altere seu Name para “frmPrincipal” e salve o arquivo como “uPrincipal.pas”. Salve também o projeto informando “pHeranca.dpr” para o nome. Agora crie um Data Module através do menu File>New>Data Module. Altere sua propriedade Name para “dmDados” e salve o arquivo como “uDados.pas”. Para o acesso ao banco de dados usaremos um SQLConnection da paleta dbExpress. Altere seu Name para “Banco” e coloque False para a propriedade LoginPrompt. Clique duas vezes sobre o componente e configure a conexão informando o Database (caminho para o banco), bem como User_Name e Password caso sejam diferentes do padrão do Firebird. Nota: Não é o foco deste artigo demonstrar como funciona o dbExpress, consulte nosso portal para um curso completo sobre dbExpress (www.devmedia.com.br). Não se esqueça de mudar o SQLDialect para “ SQLDataSet1 (dbExpress) · Mude a propriedade SQLConnection para Banco; · CommandText para “select * from CLIENTES where CODCLIENTE = :pCODCLIENTE”; · ...
Artigo Clube Delphi 89 - Herança de formulários
Neste artigo vamos aprender a utilizar a herança visual de formulários que ajudará a agilizar o desenvolvimento de telas de cadastros.
Confira outros conteúdos:
Perguntas frequentes
Nossos casos de sucesso
Eu sabia pouquíssimas coisas de programação antes de começar a estudar com vocês, fui me especializando em várias áreas e ferramentas que tinham na plataforma, e com essa bagagem consegui um estágio logo no início do meu primeiro período na faculdade.
Estudo aqui na Dev desde o meio do ano passado!
Nesse período a Dev me ajudou a crescer muito aqui no trampo.
Fui o primeiro desenvolvedor contratado pela minha
empresa. Hoje eu lidero um time de desenvolvimento!
Minha meta é continuar estudando e praticando para ser um
Full-Stack Dev!
Economizei 3 meses para assinar a plataforma e sendo sincero valeu muito a pena, pois a plataforma é bem intuitiva e muuuuito didática a metodologia de ensino. Sinto que estou EVOLUINDO a cada dia. Muito obrigado!
Nossa! Plataforma maravilhosa. To amando o curso de desenvolvimento front-end, tinha coisas que eu ainda não tinha visto. A didática é do jeito que qualquer pessoa consegue aprender. Sério, to apaixonado, adorando demais.
Adquiri o curso de vocês e logo percebi que são os melhores do Brasil. É um passo a passo incrível. Só não aprende quem não quer. Foi o melhor investimento da minha vida!
Foi um dos melhores investimentos que já fiz na vida e tenho aprendido bastante com a plataforma. Vocês estão fazendo parte da minha jornada nesse mundo da programação, irei assinar meu contrato como programador graças a plataforma.
Wanderson Oliveira
Comprei a assinatura tem uma semana, aprendi mais do que 4 meses estudando outros cursos. Exercícios práticos que não tem como não aprender, estão de parabéns!
Obrigado DevMedia, nunca presenciei uma plataforma de ensino tão presente na vida acadêmica de seus alunos, parabéns!
Eduardo Dorneles
Aprendi React na plataforma da DevMedia há cerca de 1 ano e meio... Hoje estou há 1 ano empregado trabalhando 100% com React!
Adauto Junior
Já fiz alguns cursos na área e nenhum é tão bom quanto o de vocês. Estou aprendendo muito, muito obrigado por existirem. Estão de parabéns... Espero um dia conseguir um emprego na área.