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

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

0 0

Denuncie Favoritos Indicar Impressora

Utilizando Select

Você já aprendeu como inserir dados, agora pegaremos os dados salvos no banco de dados e listaremos em um dbgrid.

1) Adicione um componente JVUIBDataset. Altere o nome dele para DatasetClientes.

2) Adicione a seguinte linha na propriedade sql:

select cod, nome, idade from clientes

3) Adicione um componente TDataSource da aba DataAccess.
Altere o name dele para DsClientes;
Altere a propriedade Dataset dele para DataSetClientes

4) Adicione um componente dbgrid da aba datacontrols. Altere o dataSource dele para DsClientes.

5) No evento on create do formulário altere para que fique deste modo:

conexao.DatabaseName:= BasedeDados ;
conexao.UserName:='SYSDBA';
conexao.PassWord:='SUASENHA';
conexao.Connected:=true;
Edcod.clear;
EdNome.clear;
EdIdade.clear;
Edcod.setfocus;
ConexaoDataset(DatasetClientes);
DatasetClientes.open;

6) No evento do TButton com o caption salvar, altere para que fique deste modo:

if Trim(Edcod.text) = '' then exit;
if Trim(EdNome.text) = '' then exit;
if Trim(EdIdade.text) = '' then exit;

with QrDados do begin
   Params.ByNameasInteger['COD']:=Strtoint(edcod.text);
   Params.BynameasString['NOME']:=ednome.text;
   Params.ByNameasInteger['IDADE']:=Strtoint(edidade.text);
end;

salvar(QrDados);

ShowMessage('Dados Salvos');

Edcod.clear;
EdNome.clear;
EdIdade.clear;
Edcod.setfocus;
DatasetClientes.close;
DatasetClientes.open;

Execute a aplicação pressionando F9.

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

Acessando o Firebird que esta atras de um firewall

Trabalhando com Firebird em múltiplos arquivos de dados

Coletando informações direto do FIREBIRD via D.O.S. ou SHELL

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