Olá pessoal. Neste artigo iremos construir uma tela de cadastro no Delphi, utilizando o componente Zeos e gravando em banco de dados MySQL.

Para quem ainda não conhece o Zeos, o artigo anterior explica melhor seu funcionamento e como instalá-lo. Para este artigo irei utilizar o Delphi 7 e o MySQL 4.1.2 versão mais recente até o momento, mas nada impede que sejam usadas outras versões tanto do delphi como do MySQL.

O primeiro passo é criarmos o database ao qual iremos gravar os dados do nosso programa, para isto elaborei um script que deverá ser rodado na Query do MySQL. Não é necessário que seja utilizado o prompt do MySQL para criar a tabela que iremos utilizar neste artigo, inclusive recomendo e utilizo um software muito bom que já é bem comum entre muitos desenvolvedores que utilizam o MySQL, que é o MySQL-Front (www.mysql-front.com) ele é gratuito e muito bom.

Segue abaixo o script para criar a database e a tabela que iremos utilizar no MySQL:

CREATE DATABASE CadPessoas;

USE CadPessoas;

CREATE TABLE Pessoas (
nome varchar(50),
endereco varchar(50),
cidade varchar(30),
uf varchar(2),
telefone varchar(20)
);

Após a Database e a Tabela Criada, vamos iniciar o desenvolvimento do formulário de cadastro no delphi. Com o Delphi aberto clique no menu File > New > Aplication. Irá ser aberto um novo formulário onde iremos trabalhar. Clique no Formulário e vá até o Object Inspector encontre a propriedade Caption e altere seu conteúdo, este campo seta o título da janela, Coloque um título qualquer conforme sua aplicação, no meu caso irei colocar "Cadastro de Contatos", Altere a propriedade name para frmCadContatos, para que fique mais organizado.

O próximo passo é inserir os componentes, vamos começar inserindo os componentes de conexão com o banco de dados, para isto selecione a paleta Zeos Access conforme a imagem abaixo:

Selecione o componente ZConnection

Este componente faz a conexão do formulário com o banco de dados. Após inserido o componente no formulário, selecione ele e vamos configurá-lo no Object Inspector Altere as Seguintes Propriedades:

Database: CadPessoas (nome da base de dados que vamos utilizar)
Hostname: localhost (endereço onde está o banco de dados)
Name: Zcon (nome atribuido ao componente)
Senha: 12345 (Aqui deve ser colocado a senha de conexão ao banco de dados)
Port: 3306 (Porta de Conexão com Banco de Dados)
Protocol: mysql-4.1 (Aqui você seleciona o tipo e versão do banco de dados)
ReadOnly: false (Opção de Somente Leitura, utilize false porque vamos modificar dados)
User: root (usuário de conexão com banco de dados)

Pronto. O componente está configurado, Agora só falta ativá-lo. Para isto altere a propriedade Connected para true. Caso a conexão seja feita com sucesso, nada irá acontecer. Caso receba uma mensagem de erro igual ou semelhante a imagem abaixo:

Verifique as configurações de conexão, verifique se o servidor de MySQL está estartado e tente ativar a conexão com o banco de dados novamente.

O Próximo passo é Inserir o componente ZTable para trabalharmos com a tabela que criamos no MySQL, selecione o Componente ZTable na paleta do Zeos Access:

Após selecionado o componente clique no formulário para inserí-lo. Vá até o Object Inspector e altere as seguintes propriedades:

Connection: Zcon (Nome do Componente de Conexão com Banco de Dados)
Name: tbPessoas (Nome da Tabela em que deseja Utilizar)
ReadOnly: false (Opção de Somente Leitura, utilize false porque vamos modificar dados)
TableName: pessoas (Nome da tabela em que iremos Trabalhar)

Pronto. O componente ZTable está configurado e agora é só ativá-lo mudando a Propriedade Active para true. Agora para finalizar a parte de conexão com o banco de dados Selecione a paleta Data Access e selecione o componente Data Source:

Clique no formulário para inserir. Este componente fará a transação de informações entre a conexão (Zcon) e a tabela (tbPessoas).

Agora vamos configurá-lo. Com o componente data source selecionado, vá até o object inspector e modifique as seguintes propriedades:

DataSet: tbPessoas (Nome da Tabela ou Query ao qual irá fazer a transação)
Name: dsPessoas (Nome atribuido ao componente Data Source)

Agora preste muita atenção pois vou executar este passo somente 1 vez e vocês deverão repetí-lo para todos os campos que iremos utilizar no formulário. Selecione a Paleta Standard e insira o componente Label. Altere as seguintes propriedades:

Caption: NOME: (Texto que irá ser exibido no componente)
Name: lbNome (Nome do Componente)

Agora selecione a paleta Data Controls e selecione o componente DBEdit.Altere as seguintes opções no Object Inspector:

Name: dbedNome (Nome do Componente)
Datasource: dsPessoas (Nome do Componente que faz ligação entre a tabela e o formulário)
Datafield: nome (Nome do Campo na tabela que o DBEdit irá corresponder)

Repita este processo para os campos: (endereco, cidade, uf e telefone). Ao concluir a colocação destes componentes e a devida configuração de cada um como o modelo acima, selecione a paleta Data Controls, e insira o componente DBNavigator.

Ele será o componente que fará a navegação entre os registros, e também gravação e exclusão de dados. Selecione o componente DBNavigatos inserido no formulário e altere as seguintes propriedades:

Name: dbnCadPessoas (Nome do Componente)
DataSource: dsPessoas (Nome do Componente datasource que fará a transação de dados)

Pronto, chegamos ao fim. Agora disponha os componentes da forma que achar melhor. Para quem não conseguiu ter uma idéia, segue o meu modelo abaixo:

Nosso projeto está pronto para ser compilado. Para compilar e executar o nosso programa de cadastro, basta pressionar o botão (F9) do teclado. Caso ocorra algum problema, verifique todo o artigo para certificar-se que não houveram erros, ou que o servidor MySQL esteja startado ou ainda que alguma configuração de conexão com o banco de dados não esteja correta. Caso isto ocorra, o projeto irá voltar ao Delphi e não será executado. Faça as alterações necessárias e pressione (F9) para compilá-lo novamente.

Com o exemplo deste artigo, você construiu um programa básico de cadastro de contatos. Veja o exemplo abaixo do programa rodando:

Espero que tenham gostado deste artigo.