Disable the delete of a DBNavigator

Dev Shed Forums Sponsor:

November 8th, 2012, 10:31 AM

nightrider43

Contributing User

Join Date: Oct 2012

Location: São Paulo - Brazil

Posts: 34

Time spent in forums: 6 h 50 m 57 sec
Reputation Power: 1

Send a message via Google Talk to nightrider43

Send a message via Skype to nightrider43

Disable the delete of a DBNavigator

I would like to use the Delete button of TwwDBNavigator to run a routine that sets a flag(a column of a SQL table) of logical deletion to on.

I can put code on BeforeDelete and AfterDelete methods of the associated TADOConnection. My trouble is to avoid that the associated database record been deleted.

Would someone here know how I can do this?

Greetings from São Paulo - Brazil

Ricardo

November 8th, 2012, 03:54 PM

majlumbo

Contributing User

Join Date: Jun 2008

Posts: 255

Time spent in forums: 3 Days 2 m 15 sec
Reputation Power: 5

You should be able to abort the operation in the beforedelete method

Code:

begin
   <tablename>.edit;
   <tablename>.FieldByName('<Logical Field Name>').Value := <new Value>;
   <tablename>.Post;
   Abort;
end;

Viewing: Dev Shed Forums > Programming Languages - More > Delphi Programming > Disable the delete of a DBNavigator

« Previous Thread | Next Thread »

Developer Shed Advertisers and Affiliates

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump