Italian community of Lazarus and Free Pascal

In questo articolo visioneremo i concetti basilari della programmazione per database con i componenti che permettono la visualizzazione dei contenuti di un campo appartenente al record selezionato di un datasource.

Nell'esempio che andremo a vedere prenderemo in considerazione SQLite come DBMS. La struttura SQL che useremo per il nostro esempio è la seguente.

CREATE TABLE "main"."" (
    "Id" INTEGER PRIMARY KEY AUTOINCREMENT,
    "Cognome" TEXT,
    "Nome" TEXT,
    "Citta" TEXT
);

Lazarus possiede molti package per poter lavorare con i DB, i due sicuramente più usati, mantenuti e testati sono: i componenti standard rilasciati con Lazarus stesso e ZeosLib.
Questo articolo prende in considerazione ZeosLib il quale permette un altissimo grado di astrazione del DBMS, cosa estremamente utile per non vincolare l'applicazione al DBMS. L'esempio che andremo a vedere vi permetterà di acquisire i rudimenti per impadronirvi dell'argomento.

Per prima cosa, creiamo una nuova applicazione tenendo in considerazione quanto imparato nei precedenti articoli sui database, quello che segue è il codice del nostro esempio


unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, db, FileUtil, ZConnection, ZDataset, Forms, Controls,
  Graphics, Dialogs, DBGrids, DbCtrls, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    DBGrid1: TDBGrid;
    DBMemo1: TDBMemo;
    DBNavigator1: TDBNavigator;
    DBText1: TDBText;
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    Q_Inserimento: TZQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    function GetLastId(): integer;
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
   LastId: integer;
begin
     LastId:=Self.GetLastId()+1;
     Self.Q_Inserimento.SQL.Text:='INSERT INTO utenti(Id, Cognome,Nome,Citta)VALUES(' + IntToStr(LastId) + ',''Cognome' + IntToStr(LastId) + ''',''Nome' + IntToStr(LastId) + ''',''Città' + IntToStr(LastId) + ''');';
     Self.Q_Inserimento.ExecSQL;
     Self.ZQuery1.Refresh;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     //svuoto la tabella
     Self.Q_Inserimento.SQL.Text:='DELETE FROM utenti;';
     Self.Q_Inserimento.ExecSQL;
     Self.ZQuery1.Refresh;
end;

function TForm1.GetLastId(): integer;
var
   ret: integer;
begin
     ret:=0;
     Self.Q_Inserimento.SQL.Text:='select Id as MaxId from utenti group by Id order by Id desc;';
     Self.Q_Inserimento.Open;
     if not Self.Q_Inserimento.EOF then
     begin
          Self.Q_Inserimento.First;
          ret:=Self.Q_Inserimento.FieldByName('MaxId').AsInteger;
     end;
     Self.Q_Inserimento.Close;
     result:=ret;
end;

end.


ma prendiamo in considerazione le singole parti

Andiamo a vedere la FormCreate, ovvero le azioni che vengono svolte dal programma alla creazione della form, nel nostro caso specifico la prima procedura che viene eseguita dal programma


procedure TForm1.FormCreate(Sender: TObject);
begin
     //svuoto la tabella
     Self.Q_Inserimento.SQL.Text:='DELETE FROM utenti;';
     Self.Q_Inserimento.ExecSQL;
     Self.ZQuery1.Refresh;
end;


come si può vedere andiamo a cancellare il contenuto della tabella usata nell'esempio.

Poi possiamo notare che abbiamo creato la seguente funzione

function TForm1.GetLastId(): integer;
var
   ret: integer;
begin
     ret:=0;
     Self.Q_Inserimento.SQL.Text:='select Id as MaxId from utenti group by Id order by Id desc;';
     Self.Q_Inserimento.Open;
     if not Self.Q_Inserimento.EOF then
     begin
          Self.Q_Inserimento.First;
          ret:=Self.Q_Inserimento.FieldByName('MaxId').AsInteger;
     end;
     Self.Q_Inserimento.Close;
     result:=ret;
end;

che permette di ottenere l'indice massimo contenuto nella griglia.
Nell'evento OnClick del pulsante Button1 andiamo ad inserire il codice che automaticamente aggiunge in maniera incrementale le singole righe della tabella basandosi sul risultato della funzione GetLastId visionata poco sopra.

procedure TForm1.Button1Click(Sender: TObject);
var
   LastId: integer;
begin
     LastId:=Self.GetLastId()+1;
     Self.Q_Inserimento.SQL.Text:='INSERT INTO utenti(Id, Cognome,Nome,Citta)VALUES(' + IntToStr(LastId) + ',''Cognome' + IntToStr(LastId) + ''',''Nome' + IntToStr(LastId) + ''',''Città' + IntToStr(LastId) + ''');';
     Self.Q_Inserimento.ExecSQL;
     Self.ZQuery1.Refresh;
end;


Poi successivamente andiamo ad impostare la proprietà ReadOnly a True nella DbGrid del nostro esempio in modo da non lasciare modificare i dati all'utente dalla DBGrid stessa.
Ora aggiungiamo al seguente esempio 3 componenti

    DBEdit1: TDBEdit;
    DBMemo1: TDBMemo;
    DBText1: TDBText;

Andiamo ad impostare per il componente DBEdit1 le seguenti proprietà:
DataSource: DataSource1
DataField: Nome

Andiamo ad impostare per il componente DBText1 le seguenti proprietà:
DataSource: DataSource1
DataField: Cognome

Andiamo ad impostare per il componente DBMemo1 le seguenti proprietà:
DataSource: DataSource1
DataField: Citta

Se eseguiamo il programma vedremo che in funzione del record su cui ci spostiamo possiamo visionare ma non modificare il campo Nome, mentre possiamo visionare e modificare i campi Cognome e Citta.

Qui trovate il link per scaricare l'esempio dell'articolo: www.lazaruspascal.it/esempi/Quarta_Applicazione.zip