?
Solved

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

Posted on 2006-10-19
5
Medium Priority
?
631 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 1000 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

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

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

Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
NetCrunch network monitor is a highly extensive platform for network monitoring and alert generation. In this video you'll see a live demo of NetCrunch with most notable features explained in a walk-through manner. You'll also get to know the philos…
In this video, Percona Solution Engineer Dimitri Vanoverbeke discusses why you want to use at least three nodes in a database cluster. To discuss how Percona Consulting can help with your design and architecture needs for your database and infras…
Suggested Courses
Course of the Month8 days, 5 hours left to enroll

765 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