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;