Desenvolvendo uma agenda telefônica simples no Kylix

Nesse artigo mostrarei o quanto é simples trabalhar com o Kylix e MySQL. Nossa agenda será simples, guardará apenas nome e número de telefone, porém com a base que vou passar, com um pouco mais de trabalho você poderá programar coisas muito mais complexas.

[ Hits: 42.460 ]

Por: AValle em 14/07/2003


Iniciando no código-fonte



A primeira coisa a fazer, é verificar se tudo está bem no MySQL.

Selecione o componente conn, e no OI marque a opção Connected como True.

O Kylix agora vai tentar se conectar ao servidor MySQL e caso tenha sucesso ele só vai manter a opção como True. Caso contrário, informará um erro e você terá que verificar o MySQL para saber o que há de errado. Siga a minha dica da URL http://www.guiadohardware.net/linux/dicas/40.htm e tente novamente.

MySQL ok? vamos fazer um evento para fechar o programa:

Clique duas vezes no botão butFechar, e no fonte digite o seguinte:

procedure TfPrincipal.butFecharClick(Sender: TObject);
begin
    if messagedlg('Deseja realmente fechar esse programa?', mtConfirmation,[mbYes,mbNo],0)=mrYes then
    begin
       Application.Terminate;
    end;
end;

Tecle F9 e teste o evento.

Inserindo dados no MySQL:
Vamos criar o evento do botão butIns, inserindo no MySQL os dados digitados nos componentes edtNome e edtTel.
O que temos que pensar? Que vamos capturar o valor digitado nos edits, jogar numa string MySQL e executar a mesma no servidor MySQL. É bem simples, veja o fonte abaixo:

procedure TfPrincipal.butInsClick(Sender: TObject);
    var nome, tel: string; //Aqui eu declaro as variaveis que vou usar para os dados
    erro: integer; //Essa variável vou usar como controle de erros
    begin
    //Capturando os valores e jogando nas variaveis
    nome:= trim(edtNome.Text);
    tel:= trim(edtTel.Text);
    erro:= 0;
    
    //verificando se a variavel nome está vazia ou não:
    //se estiver vazia, dou valor 1 para o erro, uma mensagem é exibida e o programa não acessa o mysql.

    if (nome='') then
       begin
          ShowMessage('Você precisa digitar um nome!');
          erro:= 1;
       end;

    //verificando se a variavel tel está vazia ou não:
    //se estiver vazia, dou valor 1 para o erro, uma mensagem é exibida e o programa não acessa o mysql.

    if (tel='(  )    -') then
        begin
           ShowMessage('Você precisa digitar um telefone!');
           erro:= 1;
        end;
    
    //verificando se houve erro na validação. Se houve não faz nada
    // Se não houve erro, prossegue com o mysql.
    if (erro=0) then
        begin
        //criando a string MySQL. é necessário o uso da função quotedstr() para inserir as aspas simples nos valores.
           sql.SQL.Text:= 'INSERT INTO telefones (agenda_id, agenda_nome, agenda_tel) VALUES (0,'+quotedstr(nome)+', '+quotedstr(tel)+')';
           //executando a string:
           sql.ExecSQL(True);
           //limpando os edits:
           edtNome.Text:= '';
           edtTel.Text:= '';
           // informando o sucesso da operação:
           showmessage('Cadastrado com sucesso!');
        end;
    end;
Página anterior     Próxima página

Páginas do artigo
   1. Introdução
   2. Criando o banco de dados
   3. Agora vamos ao kylix :)
   4. Criando a interface gráfica
   5. Iniciando no código-fonte
   6. Criando a visualização
   7. Deletando os registros
   8. Editando os registros
   9. Downloads
Outros artigos deste autor
Nenhum artigo encontrado.
Leitura recomendada

Criando uma aplicação Kylix com PostgreSQL usando Zeos (parte 3)

Criando uma aplicação Kylix com PostgreSQL usando Zeos (parte 1)

Criando uma aplicação Kylix com PostgreSQL usando Zeos (parte 2)

Configurando o Apache para executar CGIs em Kylix

Lazarus, uma IDE em FreePascal que pretende concorrer fortemente com o Kylix

  
Comentários
[1] Comentário enviado por tidus em 28/11/2004 - 21:08h

muito bom, gostei!

[2] Comentário enviado por removido em 12/06/2006 - 20:16h

Muito bom, bom trabalho!

[3] Comentário enviado por fernandoguedes em 16/06/2010 - 12:46h

Muito bom o artigo, será que seria possível a atualização desse tutorial?


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts