mie utility su database

[petrusic]

Inghippo scoperto, almeno credo.

Nella procedura DataModuleCreate ho sospeso l'istruzione  "ZConnectionX1:= TZConnection.Create(nil);".
Ho riprovato e questa volta l'Errore logico sulla Select non è più comparso. Il programma è andato avanti bene.

Codice: [Seleziona]

implementation

{$R *.lfm}

{ TDataModule1 }
uses
  FrmMain;

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
//  ZConnectionX1:= TZConnection.Create(nil);        <--- refiuso della prima prova, fatta prima di aggiungere gli oggetti ZEOS
  ZConnectionX1.Database := FrmMain.dbCorr;
  ZConnectionX1.Connected:= True;
end;                            

[petrusic]

Bene, il ModuloDati comincia ad assumere una sua dimensione propria all'interno di uno dei miei programmi che accedono allo stesso DB.

Ritengo però che debba ancora migliorare la personalizzazione, perchè, come dicevo prima, i programmi in cui devo richiamare il ModuloDati sono già due, ma sicuramente aumenteranno di numero.

Attualmente per accedere al ModuloDati ho inseirto una use nella sezione Implementation, perchè il file ModuloDati.bas (cioè  UModuloDatiDB.pas) ed il corrispendente ModuloDati.lfm (cioè UModuloDatiDB.lfm) sono nella stessa directory del progetto

Codice: [Seleziona]

$ ls /media/dirdati/dativari/lazarus_progetti/lazarus_progetti_miei/DomusRatio
Appunti_programma    frm3.lfm  frmmain.lfm
backup               frm3.pas  frmmain.pas
bin                  frm4.lfm  griglia_e_matita.jpg
DomusRatioForm2.png  frm4.pas  grigliaMovvCto_2.png
DomusRatio.ico       frm5.lfm  grigliaMovvCto.png
DomusRatio.lpi       frm5.pas  grigliaMovv.png
DomusRatio.lpr       frm6.lfm  imgdef_domusRatio.png
DomusRatio.lps       frm6.pas  lib
DomusRatio.res       frm7.lfm  UModuloDatiDB.lfm
frm2_20211026.pas    frm7.pas  UModuloDatiDB.pas
frm2.lfm             frm8.lfm
frm2.pas             frm8.pas

Il ModuloDati, può contenere anche procedure o funzioni per la lettura di certi dati di uso ordinario da parte di più programmi (NON contemporaneamente attivi)?

La directory del ModuloDati può risiedere in un percorso superiore a quello del programma corrente (Es.: /media/dirdati/dativari/lazarus_progetti/lazarus_progetti_miei/)?

Io ho pensato di sì ed ho cercato di realizzare un collegamento dei programmi al ModuloDati comune, tramite una dichiarazione use nella sezione Interface di ciascun programma e l'aggiunta del nuovo percorso nella finestra dell'IDE "Progetto -> Opzioni Progetto -> Percorsi -> Altri file unit", ma ho incontrato diversi ostacoli dovuti a manifestazioni di Errori. Ho dovuto perciò fare marcia indietro e dedicarmi all'utilizzo del ModuloDati, intanto, nel progetto in cui sono impegnato, ma, dopo essere riuscito a compilarlo, senza errori, vorrei apportare le modifiche necessarie per poterlo impiegare anche in altri progetti, senza doverlo riscrivere all'interno di ciascun nuovo progetto.

Spero di avere chiarito il mio concetto.

[DragoRosso]

l'aggiunta del nuovo percorso nella finestra dell'IDE "Progetto -> Opzioni Progetto -> Percorsi -> Altri file unit",

La procedura che hai fatto è corretta. I file interessati DEVONO ESSERE RIMOSSI DALLA DIRECTORY CORRENTE E SPOSTATI NELLA DIRECTORY INDICATA in "Altri file uint".

ma ho incontrato diversi ostacoli dovuti a manifestazioni di Errori.

Gli errori sono dovuti probabilmente ad una non completa esecuzione della procedura. In particolare dal tuo progetto corrente (ANALIZZATORE PROGETTI) devi togliere i due file del Datamodule.

L'inserimento dei due file nel progetto (devi eventualmente aggiungerli dal nuovo percorso) non è indispensabile, essendo file comuni a più progetti è meglio che non appaiano direttamente nella lista di alcun progetto (come fossero file di sistema di FPC).

Se hai problemi con la compilazione, prova ad inserirli manualmente nel progetto (non ho mai provato a condividere unita con form).

Ciao

[petrusic]

@ DragoRosso

Grazie per l'incoraggiamento.

Ho rimodificato il mio codice creando, all'interno della directory "/media/dirdati/dativari/lazarus_progetti/lazarus_progetti_miei"  la cartella "modul_dati_db" coi file pertinenti  al modulo-dati. Ho aggiunto la cartella fra i percorsi di ricerca dell'IDE --> Opzioni progetto -> Percorsi -> altri fil unit. Ho allineato tute le uses delle sezioni Interface dei vari file .pas del progetto ed ho compilato.

Dopo avere eseguito la compilazione senza errori, ho trasferito nel file "UModuloDatiDB.pas" del modulo-dati due funzioni che uso spesso, ottenendo il definitivo "UModuloDatiDB.pas":

Codice: [Seleziona]

unit UModuloDatiDB;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, ZCompatibility,
  ZConnection, ZDataset, SQLite3Conn, SQLDB, DB;


type

  { TDataModule1 }

  TDataModule1 = class(TDataModule)
  DataSourceX1: TDataSource;
  ZConnectionX1: TZConnection;
  ZQueryX1: TZQuery;
  ZReadOnlyQueryX2: TZReadOnlyQuery;
  ZReadOnlyQueryX1: TZReadOnlyQuery;

  procedure DataModuleCreate(Sender: TObject);
  function EstraiCoVoColleg(sql, segnal: String): String;
  function EstraiVocePianCont(sql: String): String;
  

private


public

end;

var
  DataModule1: TDataModule1;

implementation

{$R *.lfm}

{ TDataModule1 }
uses
  FrmMain;

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
  ZConnectionX1.Database := FrmMain.dbCorr;
  ZConnectionX1.Connected:= True;
end;

function EstraiCoVoColleg(sql, segnal: String): String;
var

  estratto: String;

begin
  DataModule1.ZReadOnlyQueryX2.Active:= False;
  DataModule1.ZReadOnlyQueryX2.SQL.Text:= sql;
  DataModule1.ZReadOnlyQueryX2.Active:= True;
  if (DataModule1.ZReadOnlyQueryX2.RecordCount) > 0 then
  begin
    DataModule1.ZReadOnlyQueryX2.First;
    case segnal of
      'S', 'P':
        begin
          estratto:= DataModule1.ZReadOnlyQueryX2.FieldByName('NumVoColleg').AsString;
        end
      else begin
        estratto:= '*?*';   // CODICE DI errore  PER record NON TROVATO
      end;
    end;
  end;
  Result:= estratto;
end;

function EstraiVocePianCont(sql: String): String;    // Estrae la Voce contabile, a cui accoda il contenuto del campo "ContrPartSiNo"
var
  swOpenErro: Boolean = False;

  estratto: String;

begin
  WriteLn('function EstraiVocePianCont');
  DataModule1.ZReadOnlyQueryX2.Active:= False;
  DataModule1.ZReadOnlyQueryX2.SQL.Text:= sql;
  DataModule1.ZReadOnlyQueryX2.Active:= True;
  if (DataModule1.ZReadOnlyQueryX2.RecordCount) > 0 then
  begin
    DataModule1.ZReadOnlyQueryX2.First;
    estratto:= DataModule1.ZReadOnlyQueryX2.FieldByName('NomeVoce').AsString;
    estratto:= estratto + DataModule1.ZReadOnlyQueryX2.FieldByName('ContrPartSiNo').AsString;
  end
  else begin
    estratto:= '*?*';   // CODICE DI errore  PER recor NON TROVATO
  end;
  Result:= estratto;
end;
end.

Ebbene, la chiamata di una qualsiasi delle funzioni appena spostate, produce il seguente messaggio d'Errore:

frm6.pas(560,23) Error: Identifier not found "EstraiVocePianCont"
frm6.pas(570,36) Error: Identifier not found "EstraiCoVoColleg"

Non capisco perchè vengono ignorate. Eppure avevo percepito che avrei potuto aggiungere nel modulo-dati anche funzioni e procedure.

[DragoRosso]

@ DragoRosso

Codice: [Seleziona]

......
procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
  ZConnectionX1.Database := FrmMain.dbCorr;
  ZConnectionX1.Connected:= True;
end;

function TDataModule1.EstraiCoVoColleg(sql, segnal: String): String;
var

  estratto: String;

begin
  DataModule1.ZReadOnlyQueryX2.Active:= False;
  DataModule1.ZReadOnlyQueryX2.SQL.Text:= sql;
  DataModule1.ZReadOnlyQueryX2.Active:= True;
  if (DataModule1.ZReadOnlyQueryX2.RecordCount) > 0 then
  begin
    DataModule1.ZReadOnlyQueryX2.First;
    case segnal of
      'S', 'P':
        begin
          estratto:= DataModule1.ZReadOnlyQueryX2.FieldByName('NumVoColleg').AsString;
        end
      else begin
        estratto:= '*?*';   // CODICE DI errore  PER record NON TROVATO
      end;
    end;
  end;
  Result:= estratto;
end;

function TDataModule1.EstraiVocePianCont(sql: String): String;    // Estrae la Voce contabile, a cui accoda il contenuto del campo "ContrPartSiNo"
var
  swOpenErro: Boolean = False;

  estratto: String;

begin
  WriteLn('function EstraiVocePianCont');
  DataModule1.ZReadOnlyQueryX2.Active:= False;
  DataModule1.ZReadOnlyQueryX2.SQL.Text:= sql;
  DataModule1.ZReadOnlyQueryX2.Active:= True;
  if (DataModule1.ZReadOnlyQueryX2.RecordCount) > 0 then
  begin
    DataModule1.ZReadOnlyQueryX2.First;
    estratto:= DataModule1.ZReadOnlyQueryX2.FieldByName('NomeVoce').AsString;
    estratto:= estratto + DataModule1.ZReadOnlyQueryX2.FieldByName('ContrPartSiNo').AsString;
  end
  else begin
    estratto:= '*?*';   // CODICE DI errore  PER recor NON TROVATO
  end;
  Result:= estratto;
end;
end.

Ebbene, la chiamata di una qualsiasi delle funzioni appena spostate, produce il seguente messaggio d'Errore:

frm6.pas(560,23) Error: Identifier not found "EstraiVocePianCont"
frm6.pas(570,36) Error: Identifier not found "EstraiCoVoColleg"

Non capisco perchè vengono ignorate. Eppure avevo percepito che avrei potuto aggiungere nel modulo-dati anche funzioni e procedure.

NELLA IMPLEMENTATION: DEVI IMPLEMENTARE LE FUNZIONI CON L'INTESTAZIONE "TDATAMODULE1." !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Visto che appartengono a quella classe.

[petrusic]

NELLA IMPLEMENTATION: DEVI IMPLEMENTARE LE FUNZIONI CON L'INTESTAZIONE "TDATAMODULE1." !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Visto che appartengono a quella classe.

Ho fatto come mi hai indicato, ma il messaggio d'Errore ricompare tale e quale:

Codice: [Seleziona]

unit UModuloDatiDB;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, ZCompatibility,
  ZConnection, ZDataset, SQLite3Conn, SQLDB, DB;


type

  { TDataModule1 }

  TDataModule1 = class(TDataModule)
  DataSourceX1: TDataSource;
  ZConnectionX1: TZConnection;
  ZQueryX1: TZQuery;
  ZReadOnlyQueryX2: TZReadOnlyQuery;
  ZReadOnlyQueryX1: TZReadOnlyQuery;

  procedure DataModuleCreate(Sender: TObject);
  function EstraiCoVoColleg(sql, segnal: String): String;
  function EstraiVocePianCont(sql: String): String;

private

public

end;

var
  DataModule1: TDataModule1;

implementation

{$R *.lfm}

{ TDataModule1 }

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
  ZConnectionX1.Connected:= True;
end;

function TDataModule1.EstraiCoVoColleg(sql, segnal: String): String;    // Estrae dalla Tabella "racodvoci" il codice di sottoconto contrappoto al tipo inmdicato in "segnal":
//                                                           se "segnal = "S" o "P", la viariabile "coVoSotCto" contiene un codice di Sottoconto di Cassa
//                                                           se "segnal = "N", la viariabile "coVoSotCto" contiene un codice di Sottoconto di Contropartita
var

  estratto: String;

begin
  DataModule1.ZReadOnlyQueryX2.Active:= False;
  DataModule1.ZReadOnlyQueryX2.SQL.Text:= sql;
  DataModule1.ZReadOnlyQueryX2.Active:= True;
  if (DataModule1.ZReadOnlyQueryX2.RecordCount) > 0 then
  begin
    DataModule1.ZReadOnlyQueryX2.First;
. . .
end;

function TDataModule1.EstraiVocePianCont(sql: String): String;    // Estrae la Voce contabile, a cui accoda il contenuto del campo "ContrPartSiNo"
var
  swOpenErro: Boolean = False;

  estratto: String;

begin
. . .

frm6.pas(614,19) Error: Identifier not found "EstraiVocePianCont"
frm6.pas(627,23) Error: Identifier not found "EstraiVocePianCont"

[DragoRosso]

Non puoi usare in quel modo le due funzioni. Appartengono ad una classe e devi usarle con l'istanza della classe:

Codice: [Seleziona]

 strimia := classe.EstraiVocePianCont(sql);

[petrusic]

Non puoi usare in quel modo le due funzioni. Appartengono ad una classe e devi usarle con l'istanza della classe:

Codice: [Seleziona]

 strimia := classe.EstraiVocePianCont(sql);

L'avevo provata pure, ma mi da sempre Errore:

Codice: [Seleziona]

striMia:= TDataModule1.EstraiVocePianCont(sql);          <---  così da l'Errore riportato sotto

                     

frm6.pas(614,55) Error: Only class methods, class properties and class variables can be accessed in class methods
frm6.pas(614,55) Error: Only class methods, class properties and class variables can be referred with class references

Però

Codice: [Seleziona]

striMia:= DataModule1.EstraiVocePianCont(sql);            <---  così funziona

                     

[petrusic]

Purtroppo non è finita.

Ho ancora difficoltà perchè non riesco ad impostare il percorso del mio database.
Nel modulo-dati, avevo  impostato il percorso così:

Codice: [Seleziona]

uses
  FrmMain;

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
  ZConnectionX1.Database := FrmMain.dbCorr;
  ZConnectionX1.Connected:= True;
end;

E funzionava, però mi sono reso conto che il modulo dati rimaneva agganciato al progetto utente per via della "uses FrmMain", dove sono in grado di capire quale database fra (dbOrig e dbProve) è quello attivo.

Ho voluto perciò togliere quel vincolo. Per farlo, ho pensato di definire nel modulo-dati una variabile (UdbCorr) da valorizzare nella procedure TForm1.FormCreate del progetto utente.

dichiarazione variabile nel modulo dati:

Codice: [Seleziona]

unit UModuloDatiDB;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, ZCompatibility,
  ZConnection, ZDataset, SQLite3Conn, SQLDB, DB;


type

  { TDataModule1 }

  TDataModule1 = class(TDataModule)
  DataSourceX1: TDataSource;
  ZConnectionX1: TZConnection;
  ZQueryX1: TZQuery;
  ZReadOnlyQueryX2: TZReadOnlyQuery;
  ZReadOnlyQueryX1: TZReadOnlyQuery;

  procedure DataModuleCreate(Sender: TObject);
  function EstraiCoVoColleg(sql, segnal: String): String;
  function EstraiVocePianCont(sql: String): String;
  

private

public
var
  UdbCorr: String;

end;

var
  DataModule1: TDataModule1;


implementation

{$R *.lfm}

{ TDataModule1 }
//uses
//  FrmMain;


procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
//  ZConnectionX1.Connected:= False;
//  ZConnectionX1.Database := FrmMain.dbCorr;
  ZConnectionX1.Database := UdbCorr;
  ZConnectionX1.Connected:= True;
end;                                                 

Poi nel progetto utente ho scritto:

Codice: [Seleziona]

procedure TForm1.FormCreate(Sender: TObject);
var
begin
. . .
//------------------------------------ Assegno percorso per l'accesso al DB corretto
  dbCopia:= '/media/dirdati/dativari/contabfam/ContabFamdb(copia)';        
  dbOrig:= '/media/dirdati/dativari/contabfam/ContabFamdb';
  dbProve:= '/media/dirdati/dativari/contabfam/ContabFamdb_prove';      
//------------------------------------------------------------------------------------
  DataModule1.UdbCorr:= dbProve;                             

Ebbene, ques'ultima istruzione provoca il seguente Errore:

Il progetto DomusRatio ha sollevato una eccezione di classe 'External: SIGSEGV'.
 All'indirizzo 42A20E

Ho provato a spostare la dichiarazione della variabile nel modulo-dati ma inutilmente. Anche questa volta  non ho capito come risolvere.

[DragoRosso]

TI HO GIA' SCRITTO IN UN PRECEDENTE POST CHE NON PUOI CHIAMARE IL DATAMODULE DALLA FORM CREATE !!!!

Quella classe non è ancora stata istanziata. PER L'ENNESIMA VOLTA TORNO A RIPETERTI CHE DEVI FARE ATTENZIONE ALLA SEQUENZA DI CREAZIONE DEGLI OGGETTI.

[Stilgar]

In linea di principio hai ragione, se è l'ide a gestire l'ordine di creazione nel file principale.


Poi si può sempre intervenire e alterare l'ordine di creazione da ide o (come preferisco) a manina.




Stilgar

[DragoRosso]

Volendo proprio dire, io preferisco istanziare a "mano" tutto quello che mi serve "subito", per esempio i datamodule io li istanzio sempre a mano in quanto normalmente dai DB leggo parte della configurazione del software.

Alterare la sequenza di "inizializzazione" delle unità non sposta il problema dell'attenzione alla creazione degli oggetti, inoltre ha degli effetti secondari non trascurabili come ad esempio spostare la "FORM" di riferimento dell'applicazione (Form che quando chiusa provoca automaticamente la chiusura dell'applicazione). Inoltre c'è da tenere presente che "Thread Principale", "Pompa dei Messaggi" e altro seguono la Form principale, Form che per definizione  è la prima nella sequenza di creazione e che ha appunto alcune peculiarità tipiche.

Comunque và adattato il proprio modo di programmare sulla base dei principi logici dell'applicazione e avendo ben chiare alcune regole basilari della programmazione ad oggetti e di come l'ambiente runtime gestisce le varie fasi di avvio di una applicazione.

Come ultima nota, prima di scrivere codice sarebbe utile farsi un diagramma di flusso con le varie fasi di attività dell'applicazione, cosa che oltre che consigliato e direi obbligatorio per chiunque si occupi di programmazione aiuta sicuramente ad organizzare poi il codice.

Ciao