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: 62.448 ]

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

0 0

Denuncie Favoritos Indicar Impressora

Utilizando Insert

1) Em seu formulário adicione 2 componentes da paleta JVUIB.

JVUIBDATABASE
Altere o nome dele para conexao

JVUIBTRANSACTION
Altere o nome dele para transacao
Altere a propriedade database para conexao

2) No evento on create do formulário adicione as seguintes linhas:

conexao.DatabaseName:= BasedeDados ;
conexao.UserName:='SYSDBA';
conexao.PassWord:='SUASENHA';
conexao.Connected:=true;
Edcod.clear;
EdNome.clear;
EdIdade.clear;
Edcod.setfocus;

3) Procure no código desta unit a palavra implementation, abaixo dela adicione a seguinte linha:

implementation
uses global;

Deste modo o sistema procurará as funções e procedures no arquivo global.

4) Não se esqueça de alterar o caminho da const BASEDEDADOS na unit Global.

5) Para efetuar as inserções em seu banco de dados, adicione 3 TLabels e 3 TEdits em seu formulário, eles estão na aba Standart.

TLabel1
caption Cod

TEdit1
name Edcod

TLabel2
caption Nome

TEdit2
name Ednome

TLabel3
caption Idade

TEdit3
name EdIdade

6) Adicione um componente JVUIBQUERY. Altere o name dele para QRDados.

7) Adicione a seguinte linha na propriedade sql do componente Qrdados:

insert into clientes (cod, nome, idade) values (:cod, :nome, :idade);

8) Adicione um TButton com o caption Salvar e adicione o seguinte código:

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;

ConexaoQuery(QrDados);
Salvar(QrDados);

ShowMessage('Dados Salvos');

Edcod.clear;
EdNome.clear;
EdIdade.clear;
Edcod.setfocus;

9) Compile a aplicação pressionando CTRL + F9 e logo depois execute pressionando F9.

Adicione alguns registros para teste.

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

Instalando o Firebird 2.5 e gerenciando com o Flamerobin

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

Trabalhando com Firebird em múltiplos arquivos de dados

Acessando o Firebird que esta atras de um firewall

Criando uma aplicação em shell script integrada com o Interbase/Firebird

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