DELPHI Catch Update, Delete, Create event from a TFDMemTable -

-

i create descendant component tfdmemtable. need catch event on update data (create, update, delete)... add more specific treatments.

    unit _dataaccess;  interface  uses   system.sysutils, system.types, system.uitypes, system.classes, system.variants,   system.rtti, firedac.stan.intf, firedac.stan.option, firedac.stan.param,   firedac.stan.error, firedac.dats, firedac.phys.intf, firedac.dapt.intf,   data.db, firedac.comp.dataset, firedac.comp.client, rest.response.adapter,   rest.client, system.json, rest.json,fmx.types, fmx.controls, fmx.forms, fmx.dialogs,   _toaster;  type     // events type firedac.comp.client   tfdupdaterecordevent = procedure (asender: tdataset; arequest: tfdupdaterequest; var aaction: tfderroraction; aoptions: tfdupdaterowoptions) of object;   tfdupdateerrorevent = procedure (asender: tdataset; aexception: efdexception; arow: tfddatsrow; arequest: tfdupdaterequest; var aaction: tfderroraction) of object;   tfdafterapplyupdatesevent = procedure (dataset: tfddataset; aerrors: integer) of object;   tfdreconcileerrorevent = procedure(dataset: tfddataset; e: efdexception; updatekind: tfddatsrowstate; var action: tfddaptreconcileaction) of object;      tdataaccess = class(tfdmemtable)   private     ftoaster : ttoaster;  // component create toaster    public    constructor create(aowner: tcomponent); override;      function doapplyupdates(atable: tfddatstable; amaxerrors: integer); override;    published      property activestoredusage;     { tdataset }     property active;     property autocalcfields;     property beforeopen;     property afteropen;     property beforeclose;     property afterclose;     property beforeinsert;     property afterinsert;     property beforeedit;     property afteredit;     property beforepost;     property afterpost;     property beforecancel;     property aftercancel;     property beforedelete;     property afterdelete;     property beforescroll;     property afterscroll;     property beforerefresh;     property afterrefresh;     property oncalcfields;     property ondeleteerror;     property onediterror;     property onnewrecord;     property onposterror;     property fieldoptions;     property filtered;     property filteroptions;     property filter;     property onfilterrecord;     property objectview default true;     property constraints;     property datasetfield;     property fielddefs stored fstoredefs;     { tfddataset }     property cachedupdates;     property filterchanges;     property indexdefs stored fstoredefs;     property indexes;     property indexesactive;     property indexname;     property indexfieldnames;     property aggregates;     property aggregatesactive;     property constraintsenabled;     property mastersource;     property masterfields;     property detailfields;     property onupdaterecord;     property onupdateerror;     property onreconcileerror;     property beforeapplyupdates;     property afterapplyupdates;  // tfddataset  --> : tfdafterapplyupdatesevent;     property beforegetrecords;     property aftergetrecords;     property aftergetrecord;     property beforerowrequest;     property afterrowrequest;     property beforeexecute;     property afterexecute;     property fetchoptions;     property formatoptions;     property resourceoptions;     property updateoptions;     { tfdadapteddataset }     property localsql;     property changealerter;     property changealertname;     { tfdcustommemtable }     property autocommitupdates;     property adapter;     property storedefs;      property toaster : ttoaster read ftoaster write ftoaster;    end;  procedure register;  implementation   constructor tdataaccess.create(aowner: tcomponent); begin   inherited create(aowner);   // self.onnewrecord :=   // self.onupdaterecord := ondoapplyupdates;   self.onafterapplyupdates := doapplyupdates;   // self.onposterror :=  end;    function tdataaccess.doapplyupdates(atable: tfddatstable; amaxerrors: integer); override; var   t : ttoaster; begin     inherited;      t := ttoaster.create(application.activeform);     t.show('this toaster test when apply post modifications');  end;   end;

i did many try. last try made, it's not working either. when can compile without errors, event code never executed, if data updated in stringgrid.

i think i'm doing wrong way. can me please ? missing something...

i catch events when data updated keep inherited behaviour , add toast panel inform user such "data saved successfully".


Comments

Post a Comment

Popular posts from this blog

php - Admin SDK -- get information about the group -

-
please, help. https://www.googleapis.com/admin/directory/v1/groups/106274944935548788283 sending request obtain information group id 1062 ... here link method in google https://developers.google.com/admin-sdk/directory/v1/guides/manage-groups#get_group in response error - 401 unauthorized. oauth authenticate via user has received rights necessary request, included in console admin sdk. authorization successful, there token. not can not understand. if not hard - response. requested information: file_get_contents("https://www.googleapis.com/admin/directory/v1/groups/1062749‌​44935548788283?key=aizasybruhiomdf9nlx9lx3imxwesqmcrnhh4l4"); id group - "106274944935548788283" key applications in case - "aizasybruhiomdf9nlx9lx3imxwesqmcrnhh4l4" error: failed open stream: http request failed! http/1.0 401 unauthorized
Read more

dns - How To Use Custom Nameserver On Free Cloudflare? -

-
i have problem. i own small hosting company. trying add cloudflare site free cdn. problem when sign have change nameservers nameservers. have nameserver dns set through godaddy, how add them cloudflare? main site uses company's nameservers whenever add them site goes offline. when go cloudflare's dns records click on dropdown, click ns, , there's 2 boxes 'name' , 'nameserver'. mean input 'ns1' 'name' , 'ns1.domain.com' 'nameserver'? input server's ip addresses? is there way of accomplishing free version of cloudflare? that impossible. option have custom name servers available on business , enterprise. see https://www.cloudflare.com/plans . also, might mistaken. must change name servers in domain register settings, not on cloudflare.
Read more

Python Error - TypeError: input expected at most 1 arguments, got 3 -

-
can explain why can not use your_name in goal variable? my_name = "bryson" my_age = 29 your_name = input ("what name? ") your_age = input ("what age? ") print ("my name is", my_name,", , am", my_age, "years old.") print ("your name is", your_name,", , are", your_age,".") print("thank buying book,", your_name,"!") goal = input ("what favorite part of book,", your_name, "?") print("awesome!") the error is: goal = input ("what favorite part of book,", your_name, "?") typeerror: input expected @ 1 arguments, got 3 you got error because in fact gave 3 arguments input function when expecting 1 (namely, string prompt). in input ("what favorite part of book,", your_name, "?") ---------------------------------------- , ---------, --- the underlined parts comma-separated arguments: st...
Read more