TUniDBComboBox with ITEMS+VALUES

[gerardocrisci]

Hello everyone

 

finally I'm using this library to a project.

 

I ask you to have a component as TUniDBComboBox /TUniComboBox

that besides having the property Items

has properties by Values

to display a label

and set in the database a different value,

Thank you

 

<ul class="x-list-plain">

 <li value="C">Coffee</li>

  <li value="T">Tea</li>

  <li value="M">Milk</li>

  <li value="W">Water</li>

  <li value="J">Juice</li>

  <li value="B">Beer</li>

<ul>

[mika]

This feature is very much needed here too. It's frustrating to create memory table just to get lookup values for simplest things.

[gerardocrisci]

I created a component

derived from UniDBComboBox

if anyone has any improvements ..

_UniDBComboBox.zip

[mika]

Seems to work great. Thank you gerardocrisci

[gerardocrisci]

[gerardocrisci]

Fixed some minor bugs

 

_UniDBComboBox.zip

[heronim]

Very good!

[rencarnacion]

Do you have any guide how to implement the component in Unigui ?

 

 

Thanks 

[gerardocrisci]

thanks   for appreciating my variation Combo component ..

If you find any error please let me know ...

[Servant5166]

Do you have any guide how to implement the component in Unigui ?

 

 

Thanks 

I need this too. Please leave instructions on how to install

[Daryl McMurray]

I discovered a small flaw in the component from @gerardocrisci...   if you change the item in the list but cancel the edit (call TDataset.Cancel), the component does not refresh and revert back to the previous value as stored in the table.  It will continue to show the new selected item from the list.
 
You can fix this by inserting:
 
  if DataLink.Editing = false then begin
    InternalText := value+'1';  // gives reason to send change back to browser.
  end;
 
before 
 
  Text := Value;
 
in the DataChange Method.    
 
I tried to attached a fixed version but the form won't let me...  - Thank you so much @gerardocrisci for your original component and work. 

 

 

[gerardocrisci]

I did not think anyone was using my component and so I did not publish the changes.

you try this attached version

_UniDBComboBox.zip

[Daryl McMurray]

Thank you gerardocrisci - I just tried your updated component, but it still has the flaw I described in my post.  If you use your combobox to change the dataset value, but then cancel the change (dataset.cancel) instead of post, the component should switch back to showing the original value that it started with to match the dataset.  Yours does not do this.  It will continue to show the newly selected value even though it does not now match what is in the dataset. If you make the change I suggested, or some variation of it, it will reset to the correct value as it should. 

 

There is a similar flaw that occurs when the component is connected to an empty dataset, a record is inserted or appended, and then then canceled.  Like with the changed record, it keeps the new value instead of going blank like it should for an empty dataset.  

 

To fix that, add the following code AFTER the 

 

  Text := Value;

 

in the DataChange Method.    

 

  if datalink.Field <> nil then begin

    if datalink.Field.IsNull then begin

      InternalText := '1';

      text := '';

    end;

  end;

 

 

 

With those changes, I have made very good use of your component in several projects and I thank you again for your original work.

 

Cheers!

[phantomas70]

Hi  gerardocrisci

I am trying to use this component as an inplace editor in dbgrid. Do you know how can I force the grid to display Items instead of values? What I mean is, let's say the value in the dataset is 'CHAR' but I want to display 'Alphanumeric' for every row that has this value. Can you help me?

 

 

[Sherzod]

Hello,

 

Which edition and build are you using?

[phantomas70]

1397

[Wilton Ergon]

1397 smells caribbean version

[epos4u]

1397 smells caribbean version

i agree lol

[M477H13U]

  RegisterComponents('DINO UniGUI', [TxUniDBComboBox]); fail to properly register component.. do you have any idea why ?

[gesulmino]

On 7/21/2018 at 8:08 AM, Sherzod said:

Hello,

 

Which edition and build are you using?

The component works fine, but why the procedure DoSetRemoteValue(AIndex:Integer; Value: string) is not called when the component is included in a hidden panel (within a dbgrid)? this causes it to fail...

[warmbooter]

All the links to download de component are not working anymore. Can anyone post a new working link?

[Sherzod]

5 hours ago, warmbooter said:

All the links to download de component are not working anymore. Can anyone post a new working link?