ingresar datos en una tabla de otra tabla

[ajum]

Hola,

Tengo 2 tablas, tabla1 y tabla2, en tabla1 he registrado varios usuarios con identificacion y nombres del mismo.

Ahora en la tabla2, quiero que en algun campo al digitar la identificacion del usuario registrado en tabla1, automaticamente me aparezca el nombre de ese usuario, osea que no halla que volver a digitar ese nombre en la tabla2.

Gracias,

Saludos,
Ajum.

[__cadetill]

utiliza campos calculados

Es decir, en tu TTable, añades los campos persistentes y, luego, crear campos calculados. En el OnClacField del TTable debes informarlos (mediante una consulta SQL o un FindKey o como quieras)

Otra manera es utilizar campos de tipo Loockup

Espero te sirva

[ajum]

Hola Cadetill,

De antemano gracias,

Quiero decirte que ya lo he intentado con los campos de tipo Loockup y aun sigo investigando,

Te agradeceria me pudieras explicar como crear campos calculados y un ejemplo de como informarlos en el OnClacField.

Saludos,
Ajum.

[__cadetill]

para cómo crear campos calculados te remito a este hilo

http://www.clubdelphi.com/foros/showthread.php?s=&threadid=2819

Y un ejemplo....

yo tengo una tabla de detalle factura en el que guardo Cantidad e Importe. Este Importe, supongamos que es unitario y, quiero saber el Total de esa linea de factura. Pues bien, en lugar de crear un campo físico en la Tabla, creo un campo calculado como explico en el hilo que te comento al cual le llamo Total y, programo el evento OnCalcFields de mi Dataset de la siguiente manera


Tabla1.FieldByName('Total').AsFloat :=
Tabla1.FieldByName('Cantidad').AsFloat *
Tabla1.FieldByName('Importe').AsFloat


Esto es una operacion sencilla, pero podrias hacer otras cosas como, por ejemplo, la tabla de clientes tiene un campo que es el codigo de la moneda de ese cliente, y queremos saber las descripcion que esta en la tabla monedas. Pues podemos crear un campo calculado que se llame DescripcionMoneda y en el OnCalcFields poner.....


var
// miramos la descripcion mediante una Query
if Tabla1.FieldByName('Id_Moneda').AsInteger <> 0 then begin
Quer1.SQL.Text := 'select * from Monedas where ID = ' +
Tabla1.FieldByName('ID_Moneda').AsString;
Query.Open;
if not Query.Fields[0].IsNull then
Tabla1.FieldByName('DescripcionMoneda').AsString :=
Query.FieldByName('Descripcion').AsString
else
Tabla1.FieldByName('DescripcionMoneda').AsString := '';
end else
Tabla1.FieldByName('DescripcionMoneda').AsString := '';


Espero que te sirvan los ejemplos

[ajum]

Hola cadetill, tus ejemplos fueron de gran ayuda, la demora es porque estuve practicandolos y comprendiendolos por si tenia que hacerte otra pregunta, pero todo me quedo bien claro.

Muchisimas gracias.

Saludos,
Ajum.

[ramflores]

como se crean los campos calculados en RunTime ?

Saludos y gracias de antemano