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:
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;
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;