• Registered: 2015-12-25
  • Posts: 211

Topic: Script to update textboxes according to a combobox id

This script is very useful if you want to look at a data before saving and closing a form...

Imagine you have a combobox inside a form, and you want to know what's the rest of the values on the table according to the combo box id...

you can use this simple script
i don't know if there's an easier way to do this but... here it goes:

procedure frmAssistencia_CBContacto_Oncloseup (Sender: string);

var
 result: TDataSet;

 nome: string;
 empresa: string;
 nif: string;
 morada: string;
 cont1: string;
 cont2: string;
 email: string;

sID: string;

begin

   sid := frmAssistencia.CBContacto.sqlvalue;
   SQLQuery('SELECT nome, empresa, nif, morada, email , contacto1, contacto2 FROM clientes WHERE id="'+sid+'"', Result);


   nome := result.fieldbyname('nome').AsString;
   empresa := result.fieldbyname('empresa').AsString;
   nif := result.fieldbyname('nif').AsString;
   morada := result.fieldbyname('morada').AsString;
   email := result.fieldbyname('email').AsString;
   cont1 := result.fieldbyname('contacto1').AsString;
   cont2 := result.fieldbyname('contacto2').AsString;


   frmAssistencia.bxnomecliente.text := nome  ;
   frmassistencia.bxempresacliente.Text := empresa ;
   frmassistencia.bxnifcliente.text := nif ;
   frmassistencia.bxmoradacliente.Text := morada;
   frmassistencia.bxcont1cliente.Text := cont1;
   frmassistencia.bxcont2cliente.text := cont2;
   frmassistencia.bxemailcliente.text := email;



end;
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Script to update textboxes according to a combobox id

Thanks for the example.


You can display in a ComboBox several fields,  using property FieldName, you can specify multiple fields like: {field1} {field2}

Dmitry.
  • Registered: 2015-12-25
  • Posts: 211

Re: Script to update textboxes according to a combobox id

thanks Dmitri, i'll check! smile