Manual de NetBeans

Manual de NetBeans:




http://www.guj.com.br/content/articles/netbeans/aplicacoes_com_netbeans.pdf

Consulta na base de dados

Devido à falta de informação sobre o assunto, vou explicar como se pode fazer uma consulta a uma base de dados em Mysql 5, utilizando o Lazarus.

É necessario para fazer uma consulta, inserir dados ou para remover dados, ter o componente Dataset.
O Dataset serve para alojar toda a informação do componente SQLQUERY1 é com este componente que é feita a comunicação com o SQLQUERY1 que de seguida comunica com a base de dados.


















É necessário também ter o componente TDBGrid que serve para mostrar ao utilizador a query realizada esta pode também ser mostrada por um memo mas o Grid apresenta um sistema de tabela muito mais simples o que torna mais facil a consulta.

Para se tornar mais facil a pesquisa decidi activar o evento OnCreate do form colocando depois o seguinte codigo que passo a explicar:

procedure TForm10.FormCreate(Sender: TObject);
begin
Form1.SQLQuery1.Close;
Form1.SQLQuery1.ParseSQL:=true;
Form1.SQLQuery1.ReadOnly:=false;
Form1.SQLQuery1.SQL.Text := 'select cod_participante,nome from participante';
Form1.SQLQuery1.Open;
end;

A explicação do código é bastante simples, passo a explicar:

"Form1.SQLQuery1.Close;" - Serve para fechar uma consulta em aberto anteriormente isto é necessário porque senão vai dar um erro de uma dataset em aberto.

"Form1.SQLQuery1.ParseSQL:=true;
Form1.SQLQuery1.ReadOnly:=false;" - Isto vai alterar as propriedades do SQLQUERY1, é o que vai possibilitar a leitura da sintax que vamos introduzir.

"Form1.SQLQuery1.SQL.Text := 'select cod_participante,nome from participante';" - É aqui que se introduz a sintax SQL, que vai ser introduzida na componente SQLQUERY1 que vai transportá-la para o mysql efectuando assim a consulta.

"Form1.SQLQuery1.Open;" - Serve para entrar em comunicação e realizar a consulta na base de dados em mysql, este código faz com que a consulta auto comunique com o componete TBDGrid e faz com que este apresente logo os resultados da consulta.

Nota: Todo o código é antecedido por Form1 porque todos os componentes a que se fazem referência devem estar no form1 que é o form da conecção isto tem a vantagem de não ser necessário num programa grande estarmos em todos os forms a inserir os três componentes de conecção e consulta da base de dados.

Conectar Lazarus Com Mysql

Bem vou tentar aqui explicar neste breve documento como ligarem o vosso lazarus a uma base de dados em mysql é muito simples embora possa-se passado algum tempo se tornar confuso. Vou usar como exemplo a base de dados que realizei como projecto para a disciplina de programação.

No Lazarus temos que ter em mente 3 aplicações do componente SQLDB:






- TMysql50connection: é a aplicação que se vai conectar ao hostname(ex:localhost) e onde se definem o nome da base de dados a que se pretende conectar assim como o username. o numero 50 define a vossa versão de mysql.

- TSQLQuery : é a aplicação que faz todas as consultas à base de dados, ela é muito importante para listagens, inserir registos, apagar, alterar, etc.

- TSQLTransaction: é a aplicação necessária para activar um dataset (será falado mais à frente) ela faz toda a gestão das dataset.



Após esta breve introdução aos componentes do lazarus vamos então fazer o 1º Form. (Atenção Clique nas imagens para a ver mais nitida)

Propriedades Da Aplicação MYSQLConnection:

Propriedades de SQLQuery1:

Propriedades do SQLTransaction:

Código Do Procedimento OnClick do Botão Conectar:

procedure TForm1.ligarClick(Sender: TObject);


begin
SQLQuery1.Close;
ShowString('Conectado Ao Servidor: ' + MySQLConnection1.hostname);
ShowString('A Conectar a Base de Dados: LAN ESAC09 ...');
SQLQuery1.SQL.Text := 'show databases';
SQLQuery1.ParseSQL:=false;
SQLQuery1.ReadOnly:=true;
SQLQuery1.Open;
if SQLQuery1.Active then begin
SQLQuery1.First;
ShowString('Conexão Estabelecida');
end
else
ShowString('Query NOT ACTIVE');

while not SQLQuery1.EOF do begin
SQLQuery1.Next;
end;
SQLQuery1.Close;
end;

Comandos Básicos do Mysql

Create database (nome.da.bd) - este comando cria uma base de dados

use (nome.da.bd) - Mudar de Base de Dados

Create table (nome.da.tabela) (nome.do.campo [tipo.de.campo], nome.do.campo [tipo.de.campo]) - Cria uma tabela.

Primary Key (nome.do.campo) - Define a Chave Primária

insert into (nome.da.tabela) values (valor1,valor2,valor3) - Insere registos numa tabela

Drop Database (nome.da.bd) - Apaga uma base de dados

Drop table (nome.da.tabela) - Apaga uma tabela

Delete From (nome.da.tabela) where (condição) - apaga registos numa tabela

O que é o Mysql?

Mysql é um Sistema de Gestão de Base de Dados Relacional é software apenas direccionado para Linux e é livre, sendo um dos softwares que mais é utilizado para gerir base de dados e o mais adoptado pelas empresas de hoje em dia.

O que é o Lazarus?

Lazarus é um software livre para programadores.É direccionado para a Programação Orientada a Objectos e é desenvolvido em Pascal embora a use como principal linguagem de programação o Delphi.Para os novatos no mundo da programação Lazarus é a escolha ideal para começar a programar.A sua grande vantagem é puder desenvolver programas para vários sistemas operativos entre eles claro o Linux.