Solved

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

Posted on 2006-10-19
5
612 Views
Last Modified: 2010-04-05
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...
0
Comment
Question by:Sebastion
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
5 Comments
 
LVL 3

Expert Comment

by:cobi100
ID: 17770048
try changing it at the field or query/table level, like:

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

or

  myQueryMyField.AsString := '';
0
 
LVL 3

Expert Comment

by:cobi100
ID: 17770098
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
 

Author Comment

by:Sebastion
ID: 17770413
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
 
LVL 3

Accepted Solution

by:
cobi100 earned 250 total points
ID: 17773960
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
 

Author Comment

by:Sebastion
ID: 17793412
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

Featured Post

[Webinar] Code, Load, and Grow

Managing multiple websites, servers, applications, and security on a daily basis? Join us for a webinar on May 25th to learn how to simplify administration and management of virtual hosts for IT admins, create a secure environment, and deploy code more effectively and frequently.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
I've attached the XLSM Excel spreadsheet I used in the video and also text files containing the macros used below. https://filedb.experts-exchange.com/incoming/2017/03_w12/1151775/Permutations.txt https://filedb.experts-exchange.com/incoming/201…

739 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question