Vamos dar início a mais um tutorial, onde vamos desenvolver um cadastro básico de clientes com o Delphi utilizando controles data-ware.
Pra quem não se sabe o que são os controles "data-ware", explicando de forma simples, nada mais são que os controles que estão ligados diretamente com um campo ou tabela do banco de dados, sendo os mais conhecidos: DBEdit, DBGrid, DBNavigator, DBRadioGroup, DBLookupComboBox, DBImage dentre outros.
São recursos nativos na IDE Delphi.
Utilizaremos a versão XE3 nesse tutorial, porém, tudo o que for feito aqui, poderá ser feito em qualquer versão do Delphi.
Muito bem galera, então mãos à obra, o primeiro passo é criar um novo projeto clicando no menu "File/New/VCL Forms Application - Delphi":
Mude a propriedade "name" do formulário para "frmCadCliente" e a propriedade "Caption" para "Cadastrar Cliente".
Salve o projeto em uma pasta, no nome da "Unit" defina "UFrmCadCliente", e no nome do projeto pode ser "CadCliente".
Muito bem, agora vamos criar nosso "data module", para, clique no menu "File/New/Other".
Na janela que abrir, selecione ao lado esquerdo a opção "Delphi Files", feito isso, ao lado direito selecione a opção "Data Module", sem seguida, clique no botão "Ok":
Muito bem, feito isso, altere a propriedade "Name" para "DMCliente".
Agora vamos adicionar os componentes e montar uma conexão "DBExpress".
O primeiro componente que deve ser adicionado ao "data module" é o "TSQLConnection".
- Altere a propriedade "name" para "sqlConexao";
- Defina "Firebird" na propriedade "Driver;
- Na propriedade "LoginPrompt", coloque "False";
Agora vamos definir o caminho do banco de dados, o banco de dados foi criado no artigo anterior, caso você já saiba como criar, acesse nosso artigo anterior para baixar o banco de dados no link abaixo.
- Criando banco de dados em SQL.
Então, clique no botão elíptico da propriedade "Params" ou dê dois cliques sobre a mesma.
Na janela que abrir, localize a chave (key) "Database" e defina o caminho do banco de dados:
Após definir o caminho do banco, clique no botão OK, e altere a propriedade "Connected" do componente "sqlConexao" para "True", caso ocorra algum erro, deixe seu comentário no final do artigo para nossa equipe ajudá-lo:
Muito bem, agora vamos adicionar os demais componentes, para isso, insira os seguintes componentes:
- 2 TSQLDataSet;
- 1 TDataSetProvider;
- 1 TClientDataSet;
- 1 TDataSource.
Em um SQLDataSet, selecione na propriedade "SQLConnection" o componente "sqlConexao", digite na propriedade "CommandText" a instrução SQL: "Select * from cliente" e altere a propriedade "Name" para "sqlDsCliente".
No outro SQLDataSet, selecione na propriedade "SQLConnection" o componente "sqlConexao", digite na propriedade "CommandText" a instrução SQL: "Select max (id_cliente) as Ultimo from Cliente" e altere a propriedade "Name" para "sqlDsUltimo". Após isso, dê um duplo-clique sobre o mesmo, na janela que abrir, clique com o botão direito do mouse e clique na opção "Add All Fields".
Muito bem, agora selecione o componente "DataSetProvider" e selecione na propriedade "DataSet" o "sqlDsCliente". Atenção para não selecionar o componente errado. Agora altere a propriedade "Name" dele para "dspCliente".
Selecione o "ClientDataSet" e altere a propriedade "Name" dele para "cdsCliente". Na propriedade "ProviderName" selecione o componente "dspCliente". Dê dois clique sobre ele, na janela que abrir, clique com o botão direito do mouse e selecione a opção "Add All Fields".
Por fim, selecione o componente "DataSource", altere a propriedade "Name" dele para "dsCliente", e selecione o componente "cdsCliente" na propriedade "DataSet".
Se você chegou até aqui sem nenhum problema, você acabou de realizar uma conexão "DBExpress" no Delphi. Caso tenha alguma dúvida, pergunte nos comentários que ajudaremos. No próximo artigo, vamos dar continuidade para não ficar muito extenso! Abraço.
Obs: Este artigo faz parte da série "Time To Learn", acesse e confira os artigos dessa série;
(Por ClipaTec Informática)
Enviar por e-mailPostar no blog!Compartilhar no TwitterCompartilhar no FacebookCompartilhar com o Pinterest
Postagem mais recente Postagem mais antiga Página inicial
0 comentários:
Postar um comentário
Visite nossa página de Política de comentarios antes de comentar para ter certeza de que seu comentário não será excluído! Lembre-se, assim que aprovarmos o teu comentário ele será publicado, por isso, não deixe de sempre visitar nosso blog e conferir nossa resposta ao seu comentário, abraço!
Assinar: Postar comentários (Atom)
Páginas
Formulário de Contato
Sobre nós
Produtos
Solicitar Produto
Parcerias e Anúncios
Pol. de Comentários
Pol. de privacidade
Categoria
Análise (7) Banco de dados (8) Curiosidades (87) Delphi (88) Download (5) Edição de Imagens (7) FAQ (8) Gerencia de Projetos (4) Hardware (68) Internet (4) Java (10) Outros (7) Programação (85) Quick Tips (5) Redes (10) Segurança (5) SEO (3) SO (32) Software (17) SQL (1) Tutoriais (61) Vídeo Aula (25) What Is It? (3)
ClipaTec Informática. Tecnologia do Blogger.
Visualização do blog
Seguidores
Licência
O trabalho ClipaTec Informática de Welinton Junior Dias foi licenciado com uma Licença Creative Commons - Atribuição - NãoComercial - CompartilhaIgual 3.0 Não Adaptada.
Podem estar disponíveis autorizações adicionais ao âmbito desta licença em http://clipatecinformatica.blogspot.com/p/politica-de-privacidade.html.
Recomendamos
Escola Dinheiro
Ferramentas blog
GF Soluções
Info Wester
Clube do Hardware
Dicas para Blogs
O Núcleo
Destaque
Backup da base de dados com Delphi e FireDac
Olá terrestres. Neste artigo, vamos montar um esquema de backup de uma base de dados FireBird. Backup sempre foi uma preocupação tan...