Llevar un dato de un formulario a otro

[ecfisa]

Hola.

Todos los valores son configurables en tiempo de diseño mediante el Object Inspector, pero por razónes de claridad,
voy a asignarlos por código.

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  TDBLookupComboBox* lcb = static_cast<TDBLookupComboBox*> (DBLookupComboBox1);

  // Consulta
  qyEmpleado->Close();
  qyEmpleado->SQL->Clear();
  qyEmpleado->SQL->Add("SELECT IDEMPLEADO, APELLIDO &' '& NOMBRE AS FULLNAME");
  qyEmpleado->SQL->Add("FROM EMPLEADO ORDER BY APELLIDO &' '& NOMBRE");
  qyEmpleado->Open();

  // Configuracion del DBLookupComboBox
  lcb->ListSource = dsEmpleado;   // DataSource -> Query empleado
  lcb->ListField  = "FULLNAME";   // Nombre del campo apellido+nombre
  lcb->KeyField   = "EMPNO";      // Nombre del campo ID del empleado
  lcb->DataSource = dsActividad;  // DataSource -> Table actividad
  lcb->DataField  = "IDEMPLEADO"; // Nombre del campo (tabla actividad)
                                  // donde se almacena el ID del empleado
}

No trabajo en Ms Access pero según leí, los campos se concatenan mediante el operador & en la consulta sql.

Saludos.