Lazarus com Firebird e JVUIB

mauricio.marques

Sabemos que o Delphi é uma excelente IDE de desenvolvimento, no entanto muitos programadores ao adotarem o Linux, precisam aprender uma outra linguagem. Através deste artigo vou apresentar de uma maneira objetiva como utilizar o banco de dados Firebird com Lazarus e JVUIB.

[ Hits: 64.640 ]

Por: Maurício Martins Marques em 24/07/2007

0 0

Denuncie Favoritos Indicar Impressora

Utilizando Update

O Update dos dados é muito simples, basta passar os parâmetros e executar a procedure.

1) Adicione mais um componente TJVUIBQUERY. Altere o name dele para QRAlterar.

Adicione a seguinte linha na propriedade sql:

update clientes set nome = :nome, idade = :idade where cod = :cod

2) Adicione um TButton com o caption Alterar.

3) Adicione o seguinte código no Button.

ConexaoQuery(QRAlterar);
QRAlterar.Params.BynameasInteger['COD']:=Strtoint(edcod.text);
QRAlterar.Params.BynameasString['NOME']:=Strtoint(ednome.text);
QRAlterar.Params.BynameasInteger['IDADE']:=Strtoint(edidade.text);
Salvar(QRAlterar);
DatasetClientes.close;
DatasetClientes.open;

5) No dbgrid1 adicione o seguinte código no evento onDblclick;

Edcod.clear;
Edcod.text:=Dadosdataset(DatasetClientes,'COD');

Ednome.clear
EdNome.Text:=DadosDataset(DatasetClientes,'NOME');

EdIdade.clear;
EdIdade.text:=DadosDataset(DatasetClientes,'IDADE');

6) Execute a aplicação pressionando F9.

No dbgrid dê dois cliques no registro que você quer editar. Altere os dados no TEdit e clique no botão Salvar.

Página anterior Próxima página

Páginas do artigo

   1. Instalação do Lazarus
   2. Instalação do Firebird
   3. Instalação do componente JVUIB
   4. Criando a base de dados
   5. Criando a aplicação
   6. Utilizando Insert
   7. Utilizando Select
   8. Utilizando Update
   9. Considerações finais

Outros artigos deste autor

Nenhum artigo encontrado.

Leitura recomendada

O que são Generators no Firebird

Criando um banco de dados no Flamerobin (Firebird)

Como instalar o Interbase 6

Case de Sucesso com Sistema de Gestão Hospitalar

Manual de instalação do Interbase Server no Conectiva Linux

Comentários

[1] Comentário enviado por aprendiz_ce em 26/07/2007 - 12:51h

Parabéns! Otimo artigo.

Com um estrutura completamente LINUX (SERVIDOR DE ARQUIVOS E ESTAÇÕES DE TRABALHO) e utilizando o Lazarus, é possível desenvolver para três camadas?

Obrigado e aguardo retorno.

0 0

[2] Comentário enviado por mauricio.marques em 26/07/2007 - 14:19h

Olá, o uso de componentes comuns a três camadas, como as paletas Datasnap ou Midas do Delphi, não são instalados por padrão no Lazarus. Talvez exista alguma forma de implementar tais componentes embora desconheça como.

Isso porém, não impede que utilizemos o Lazarus como parte da solução.

Segue o link dos componentes que são possíveis instalar no Lazarus, não discarto a hipótese do uso de componentes de Terceiros.

http://wiki.lazarus.freepascal.org/Components_and_Code_examples/pt

0 0

[3] Comentário enviado por aprendiz_ce em 26/07/2007 - 21:44h

Entendido! Mas utilizar "o Lazarus como parte da solução" como você menciona, seria utilizo em duas camadas. Correto?

Mais uma vez obrigado pela sua atenção.

0 0

[4] Comentário enviado por mauricio.marques em 27/07/2007 - 12:24h

Sim, me refiro ao uso de duas camadas, ou seja a aplicação é instalada em cada cliente e este busca os dados no servidor.

Ao contrario que o modelo de três camadas o propósito é centralizar a aplicação em um servidor de aplicações e o acesso ao banco de dados é feito através de algumas regras.

Creio que isso em breve será possível, afinal o Lazarus está crescendo bastante, já existe até componentes que vinculam o Lazarus com apache.

Espero ter esclarecido as suas dúvidas.

0 0

[5] Comentário enviado por aprendiz_ce em 27/07/2007 - 12:46h

Entendido!

Obrigado pela atenção.

0 0

[6] Comentário enviado por geda em 09/07/2010 - 15:36h

# rpm -ivh fpc-2.0.4-0.i586.rpm logado com dois ou mas usuarios podemos fazer uma troca de usuarios .

# rpm -ivh fpc-src-2.0.4-0.i386.rpm

alem disso podemos redirecionar as portas UDP + TCP para outro micro , sem necessitar coolocar por DHCP

0 0

[7] Comentário enviado por geda em 09/07/2010 - 15:38h

essa camada pode ser quebrada por uma porta UDP - quoga cl

# entrando como Router vai conseguir fazer o #cl + zebra fazendo subir os arquivos .

0 0