DB Edit boxes - triggering option to save to DB via code

Hello,

This is going to be a little difficult to explain, so I'll use an example setup that might make it easier to see on your screen.  Basically, what I want to be able to do is change the value of a DBEdit so that it triggers the DBNavigator to allow a save (just changing to DBEdit.text or DBEdit.Edittext is not sufficient, as you'll see).  Note that I'm using the DBNavPlus plugin.

Let's assume the following setup.  You have a small simple database with a single table called 'Details'.  This table has 3 fields -> DetailsID, Name, Email.

In Delphi, you have a form with 2 DB Edit boxes, 1 normal combo box (not a DB Combo Box) and a DB Navigator (or DBNavPlus in my case, which is the same).  The two DB Edit boxes relate to the two fields in the table (excluding the ID field), so one is Name and the other is Email.  The combo box has two options -> Subscribed and Not Subscribed.  

- If the Combo box is set to Subscribed, then email DBEdit box is enabled.  Otherwise, the email DBEdit box is not enabled.  This is easily done via the onchange event.  
- If there is an email address in the email DB Edit box, then the combo box is set to Subscribed.

Now comes the problem.  Assume that you enter in an email address in the email DB Edit box, and you've saved the record via the DB Navigator.  If you were to now change the combo box to "Not Subscribed", the onchange event will disable the email DB Edit box (and also remove the email address in it, if you also have DBEditEmail.Text := '', or DBEditEmail.EditText := ''), but the DBNavigator won't trigger and the email address still exists for that entry.

If, on the other hand, someone was to first delete the email address manually, and then change the combo box to "Not Subscribed", everything would go without a hitch.

What I need to be able to do is simulate someone changing the data in the email DB Edit.  Obviously setting the DBEdit's text or editext property isn't sufficient.  Basically, if someone manually deletes the text in the DBEdit then it triggers in a change in data for the Database, yet if I do it via code with the .Text or .EditText property, it doesn't trigger a change...
SebastionAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
cobi100Connect With a Mentor Commented:
you won't be modifying the DB directly at that point, what you're modifying is the dataset holding the data, well at least not until until you hit save or post in the DBNavigator, and even then, if you're using a Client Dataset you have to ApplyUpdates.

the main difference is the Edit method, I'm not sure if you do myQuery.Edit; and then change the text property in the DBEdit this might do what you want. give it a try and see if that's enough.
0
 
cobi100Commented:
try changing it at the field or query/table level, like:

  myQuery.FieldByName('MyField').AsString := '';

or

  myQueryMyField.AsString := '';
0
 
cobi100Commented:
I just tried it, I forgot what will trigger the edit state in the dataset for the DBNavigator to change, so this before any of the lines of code above:

  myQuery.Edit;
0
 
SebastionAuthor Commented:
So you're saying that the only way to do it is to manually change the field in the database directly?  I was hoping to avoid doing that.  There is no way to do it through the email DBEdit box?
0
 
SebastionAuthor Commented:
Ahh, I see.

What I ended with was, in the onchange event for the combo box I have:

    if (DBEditEmail.Text <> '') then
      begin
      DBEditEmail.DataSource.DataSet.Edit;
      DBEditEmail.Text := '';
      end;

And this sets the DB updater to allow the user to save, or undo, or whatever.

Thanks
0
All Courses

From novice to tech pro — start learning today.