Eccoti un esempio di implementazione del metodo preposto alla gestione dell'evento OnPostError, generato dal componente ADOTable quando si verifica un errore durante un'operazione di POST (salvataggio) del record.
Se non viene definito questo evento, Delphi si "prende la briga" di visualizzare un messaggio predefinito gestendo autonomamente l'errore. Questo metodo consente di intervenire sul meccanismo di gestione dell'errore intraprendendo un'azione personalizzata quando si verificano problemi di salvataggio di un record (ad esempio, quando si sta salvando un record con un valore duplicato nel campo chiave). In particolare, nel codice si visualizza un messaggio personalizzato ("Errore durante la POST") e si imposta il parametro passato per riferimento Action che indica l'azione da intraprendere successivamente: l'errore potrebbe essere gestito correggendo il record e impostando Action a daRetry, oppure a daFail se vogliamo vedere il messaggio predefinito o a daAbort se abbiamo già avvisato l'utente e desideriamo che l'operazione di post venga abortita senza ulteriori segnalazioni (come nel caso presentato sopra).codice:procedure TForm1.ADOTable1PostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); begin ShowMessage('Errore durante la POST'); Action := daAbort; end;
Tralasciando un attimo questa problematica, visto che sei agli inizi con Delphi, non ti sembra più conveniente partire da qualcosa di più semplice da apprendere? Almeno per famigliarizzare con i costrutti Pascal e i meccanismi di Delphi...altrimenti rischi di trascorrere il 90% del tempo di realizzazione del progetto a scrivere domande su ogni cosa.
Buon lavoro!![]()

Rispondi quotando