How to populate database fields with default values through TDBEDIT

I've got an order entry screen and I want to default the ship-to address into the order header record for the customer id entered by the user.
I've got to the point where for a customer id entered by the user, I query the database (Oracle) and I use the following command to set the address onto the edit fields of the screen
  dbedtSHIP_ADDR1.Text := qryCustSHIP_ADDR1.AsString;
This displays the address information on the screen, but when the user commits the record, the values do not get posted to the database. They just get "thrown away". It's as though the screen does no know that data has been added to these fields. I've tried setting the Modified property for the field but this did not help.
Who is Participating?
DMNConnect With a Mentor Commented:
if dbedtSHIP_ADDR1 is really TDBEdit control then should be:

dbedtSHIP_ADDR1.Field.AsString := qryCustSHIP_ADDR1.AsString;
Usually you can do that in the database itself in the field definition.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.