Search plus display

Hi Derek,

Thanks a lot...... very nice, just  how I wanted .it to work.

I can link people to classes but after it needs script too. That's where I need help. You can change the structure as it needs to be.
Since a person can have more than 1 class, it would be better to display person's classes in table grid I think.

On a different matter, I'm using your method for lookups. I like your method as it saves me dealing with a lot of tables and forms. I had around 18 lookups, they were working fine. I added 2 more recently and it start giving error on run. "Exception TDBXError in module....no such column: lookup_key."
I checked many times to spot the error but cannot find anything missing. They seems to be set same as working ones. Only difference I can see filter names bit longer than others. Any pointers for possible causes?

I have added foreign key to the table "People" and small script

Hi,
You have called the fields in the 'lookups' table 'key' and 'value'. 
However, in your calculated fields you reference it as 'lookups_value';  it should be 'value'. 
In the combobox  'filter' object property, you reference it as lookups_key;  it should be 'key'. 
Two of your calculated fields have a leading space in their name (not a problem now but maybe later??). 
See the screen capture in the attachment along with the project with the calculated fields and the object properties for the comboboxes changed as per above.
Derek.

Hi Derek,

Sorry for bothering you again.

    Form1.cbCust_Title.Text := SQLExecute('SELECT customers.lookup_value FROM Customers WHERE id='+Form1.TGrid_Form1Search_Customers.sqlValue);

    Form1.EdCust_Name.Text := SQLExecute('SELECT name FROM Customers WHERE id='+Form1.TGrid_Form1Search_Customers.sqlValue);

Second line of the script works ok but first line returns error, which is combobox with lookup keys and values. What would it be the correct way of handling fields with lookup keys and values in context of the script above please?

Thanks a lot Derek............

Looks like fun is starting. Now I get error "Could not convert variant type (UnicodeStrings) into type (Double)"

Also I'm missing something for pulling date fields. Following didn't do anything:
Form1.dtpCustomer_StartDate.Date := SQLExecute('SELECT start_date FROM Customers WHERE id='+Form1.TGrid_Form1Search_Customers.sqlValue);

____________________________
Edit:

It seems SQL script requires different field names for different field types.

Form1.EdCust_City.Text := SQLExecute('SELECT city FROM Customers WHERE id='+Form1.TGrid_Form1Search_Customers.sqlValue);

Lets assume form field names are same. How would you write the above code for field types:

//Integer
Form1.EdCust_City.Text := SQLExecute('SELECT city FROM Customers WHERE id='+Form1.TGrid_Form1Search_Customers.sqlValue);

//Real
Form1.EdCust_City.Text := SQLExecute('SELECT city FROM Customers WHERE id='+Form1.TGrid_Form1Search_Customers.sqlValue);

//Currency
Form1.EdCust_City.Text := SQLExecute('SELECT city FROM Customers WHERE id='+Form1.TGrid_Form1Search_Customers.sqlValue);

//Boolean
Form1.EdCust_City.Text := SQLExecute('SELECT city FROM Customers WHERE id='+Form1.TGrid_Form1Search_Customers.sqlValue);

Date/Time
Form1.EdCust_City.Text := SQLExecute('SELECT city FROM Customers WHERE id='+Form1.TGrid_Form1Search_Customers.sqlValue);

//Date
Form1.EdCust_City.Text := SQLExecute('SELECT city FROM Customers WHERE id='+Form1.TGrid_Form1Search_Customers.sqlValue);

//Time
Form1.EdCust_City.Text := SQLExecute('SELECT city FROM Customers WHERE id='+Form1.TGrid_Form1Search_Customers.sqlValue);

//Image
Form1.EdCust_City.Text := SQLExecute('SELECT city FROM Customers WHERE id='+Form1.TGrid_Form1Search_Customers.sqlValue);

//Calculated field
Form1.EdCust_City.Text := SQLExecute('SELECT city FROM Customers WHERE id='+Form1.TGrid_Form1Search_Customers.sqlValue);

//Relationship
Form1.EdCust_City.Text := SQLExecute('SELECT city FROM Customers WHERE id='+Form1.TGrid_Form1Search_Customers.sqlValue);

Hi Dmitry,

Would you be so kind to do 1 to many part script for the above sample project please....

Hi Dmitry,

Thank you VERY much..... Now, I can pull in different fields type.

I have tried to do 1 to many part (getting selected customer's invoice/s displayed on invoice tgrid on same form) but couldn't. Could you please do at least one field so that I can go at it to do the rest.

Hi Dmitry,

Thank you very much for the latest fix....

However, there seems to be an issue with image field display. It doesn't update/refresh image field when record has no image. Please see caps below: