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.455 ]

Por: AValle em 14/07/2003


Criando a visualização



Para ver os telefones, vamos usar o GridVer. Para isso, vou criar uma procedure nova para ele, veja o código:

procedure TfPrincipal.verdados(a:integer);
    var gridlarg,gridcol,registros,id,c:integer;
begin
    // atribuindo os valores para acertar o grid:
    gridlarg:= gridver.Width;
    gridver.DefaultColWidth:= trunc(gridlarg/2) - 5;
    
    //contando o numero de regisros do mysql:
    sql.SQL.Text:= 'select * from telefones';
    sql.Open;
     registros:= sql.RecordCount;
    
    //inserindo as linhas necessarias no gridver:
    gridver.RowCount:= registros + 1;
    
    //inserindo os valores no gridver
    gridver.Cells[0,0]:= 'Nomes:';
    gridver.Cells[1,0]:= 'Telefones:';
    id:= 0;
    c:= 1;
    sql.SQL.Text:= 'select * from telefones';
    sql.Open;
    while (id <= registros) do
       begin
          gridver.Cells[0,c]:= sql.Fields.Fields[1].AsString;
          gridver.Cells[1,c]:= sql.Fields.Fields[2].AsString;
          id:= id + 1;
          c:= c + 1;
          dbnav.BtnClick(nbNext);
       end;
end;

Declare a nova procedure na área type do código. Observe o meu como está:

type
  TfPrincipal = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    butFechar: TButton;
    conn: TSQLConnection;
    sql: TSQLQuery;
    source: TDataSource;
    dbnav: TDBNavigator;
    GridVer: TStringGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    butIns: TButton;
    edtNome: TMaskEdit;
    edtTel: TMaskEdit;
    procedure butFecharClick(Sender: TObject);
    procedure butInsClick(Sender: TObject);
    procedure verdados(a:integer);

Agora que já temos nossa procedure de visualização, vamos coloca-la no evento onShow do fPrincipal. Para isso vá ao OI e clique duas vezes no evento onShow. Veja a figura abaixo:



E no fonte, insira o verdados(1). Veja abaixo:

procedure TfPrincipal.FormShow(Sender: TObject);
begin
    verdados(1);
end;

No evento butInsClick, coloque também o verdados(1) no final, pois assim a cada novo telefone inserido o grid será atualizado. Coloque-o dentro deste IF:

if (erro=0) then
begin
   //criando a string MySQL:
   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!');
   verdados(1); //<--- AQUI
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 2)

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

Criando aplicação para detectar informações do sistema em Kylix

Configurando o Apache para executar CGIs em 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