validazione prima del post

[tiberi72]

Ciao,
una domanda: ho creato una form per l'editazione dei campi di una tabella (ho utilizzato degli oggetti TDbEdit)
Al momento del post (che viene lanciato facendo click su un oggetto dbnavigator) dovrei fare alcuni controlli su dei campi (ad esempio alcuni campi sono obbligatori, altri contengono dei valori che devo controllare in maniera particolare)
Non posso controllare questi campi al momento della loro editazione perche' se l'utente si sposta con il mouse evita i controlli che ho inserito, ma non posso neanche mettere i controlli sulla SQLQuery o sul dbnavigator, perche' in caso di errore effettua comunque il post (potrei lanciare anche il cancel, ma il problema principale e' che comunque non sarei piu' in modalita' di edit).
Come posso risolvere il problema ?
Esiste un evento dove posso validare i campi ed eventualmente tornare alla modalita' di edit senza eseguire il post o il cancel?

[Stilgar]

Hai controllato il BeforePost? O AfterEdit ... (TDataSet)
Lavori sull'intero record, a back end, prima di contattare il DB....
Altra strada, sul onColEnter e onColExit .... (TDBGrid)
Altra strada ancora, per il TDBEdit che chiedevi ... onExit? Questo viene chiama alla perdita del focus (causato da mouse o tastiera che sia)
Non credo manchino le strade per fare un controllo e verificare l'operato dell'utente
Basta solo un pochino di fantasia e tanta malizia

[tiberi72]

Ho provato il beforepost ma poi effettua comunque il post e non riesco a fermarlo
Per quanto riguarda afterEdit e onexit riguardano il singolo campo e vengono saltati se non seleziono o edito il campo stesso...

[Stilgar]

Sul Before Post, hai messun il lancio di un'eccezione?
Quella interrompe il flusso dell'applicazione per passarlo al Exception Handler.

[tiberi72]

Sul Before Post, hai messun il lancio di un'eccezione?
Quella interrompe il flusso dell'applicazione per passarlo al Exception Handler.

Penso che sia proprio quello il punto.. non so come si fa 

[Stilgar]

raise new Exception('Ma cosa stai inserendo? Occhi ai dati');

[tiberi72]

ok, provo e vi tengo aggiornati 

[tiberi72]

Ciao, ho fatto qualche prova, pero' con RAISE il programma si blocca e va in errore, mentre a me servirebbe controllare l'errore.
Ad esempio al termine di una form, al momento che effettuo il click sul tasto posto, vorrei controllare che un campo sia diverso da null.
Utilizzando la raise il programma va in errore visualizzando il codice di errore che ho impostato, mentre invece in caso che il campo sia vuoto io vorrei mandarlo a rieditare il campo.
Non posso farlo sull'evento onexit perche' (presumo) l'evento si attiva solo quando esco dal campo stesso e non quando clicco sul tasto post

[nomorelogic]

dovresti innanzitutto prevedere una procedure in cui racchiudere tutti i controlli di tipo business-logic
la procedure è comoda perchè sposti in blocco i controlli a seconda delle prove che vuoi fare

in questa procedure puoi usare sia:
- una serie di "IF"
- un try/except per intercettare le raise come ti ha suggerito stilgar

Esempio.

da qualche parte dichiara:

Codice: [Seleziona]

     MyException = class(exception);
     // test before post exceptions
     MyException_BeforePost_Field_123 = class(MyException);
     MyException_BeforePost_Field_456 = class(MyException);

poi nella procedura di test:

Codice: [Seleziona]

   try
      if Field_123_IsRequired and (tbTable1Field_123.AsString = '') then
         raise MyException_BeforePost_Field_123.Create('il campo 123 bla bla bla')

      if Field_456_IsRequired and (tbTable1Field_456.AsString = '') then
         raise MyException_BeforePost_Field_456.Create('il campo 456 bla bla bla')

   except
      on e: MyException_BeforePost_Field_123 do 
         begin
            ShowMessage(e.Message);
            Field_123.SetFocus;
            ...
            ...
         end;
      on e: MyException_BeforePost_Field_456 do 
         begin
            ShowMessage(e.Message);
            Field_456.SetFocus;
            ...
            ...
         end;
      on e: Exception do begin
          tutte le altre eccezioni
      end;
   end;

Edit:
è solo uno spunto (e scritto di getto, speriamo bene ), poi dipende molto da come hai messo in piedi l'applicazione

[xinyiman]

Sarebbe bello avere un esempio completo su questo argomento compreso di articolo nella sezione how to.

[Stilgar]

Su cosa?
Sulla gestione delle eccezioni?
Guarda che rischi di trovarti del codice del tipo:

Codice: [Seleziona]

program ....

begin
  try
   ...
  except
     on E : Exception do
    writln("Sono andato in errore:", E.message);
  end;
end.

Con gente che si lamenta che si scassa tutto sul write ... (Nell'esempio do per scontato che sia un'applicazione GUI e non consolle )

[xinyiman]

NO, sulla possibilità di mettere dei controlli sui valori inseriti prima del post. Se qualcuno avesse un esempietto semplice semplice sarebbe molto utile per tanti penso.

[tiberi72]

Allego un esempio di cosa volevo intendere:
ho inserito i controlli sulla sqlquery1beforepost, ma anche utilizzando la raise exception non riesco a fermare l'operazione post (i tasti dell'oggetto tdbnavigator mi fanno visualizzare comunque lo stato di registrazione completata), io invece vorrei che in caso di errore si fermasse nell'operazione di edit, senza eseguire il cancel o il post.
In quale evento potrei inserire in questo caso i controlli di validazione?

[Stilgar]

Ho datto una prova al volo.

Codice: [Seleziona]

procedure TForm1.RacesBeforePost(DataSet: TDataSet);
begin
   if edtRaceName.text = '' then
     DataSet.Cancel;
end;  

A me non da errore....e si comporta come mi aspettavo... annulla le modifiche...
edit:
anche il db navigator non ha comportamenti sballati.
Sto usando una connessione MySQL ... ma credo non centri molto il cambio di connettore....

[tiberi72]

Allego tutto il progetto.

Con il cancel funziona, ma le cose che ho gia' scritto sugli altri campi le perdo