Agregar múltiples Campo de una tabla a múltiples TEdit y TdbEdit

[[Caral]]

Hola
No entiendo, cuales otros edits y dbedits ?.
Saludos

[novato_erick]

ecfisa

Veo que no me explique.

Ya tengo en la Tabla proveedores registros ingresados verdad?

en un formulario (frmArticulo) quiero agregar sus atributos, dentro de ellos ese producto tiene mas de un proveedor para ser exacto hasta 3 proveedores.

lo que quiero es guardar el el ID_PROVEEDOR en mi tabla de Artículos por eso uso de DBEdit en dicho formulario y el Edit solamente es para mostrar al usuario en nombre del Proveedor.

es por eso mi código anterior llamando al frmBuscaProveedor me muestra mis proveedores y al darle dobleclick en la celda me coloca los datos de ese proveedor.

Pero no he logrado escojer proveedores diferentes. usando los Edit y DBEdit restantes.

Espero haberme explicado.

Saludos;

[ecfisa]

Hola.

Creo que ese caso, lo indicado para agregar los proveedores es usar tres TDBlookupComboBox .
Donde en la propiedad ListSource iría el DataSource del proveedor, en ListField el nombre y en KeyField el ID.
En las propiedades DataSource y DataField, el DataSource y el campo receptor de la tabla artículo respectivamente.

Un saludo.

[novato_erick]

Gracias ecfisa por prestar atención a mi problema;

sucede que esa opción la ya he implementado lo extraño es que si llamo al formulario de articulo en modo de edición me aparece en blanco los TDBlookupComboBox y no puedo apreciar que proveedores que tenia.

eso ocurre nada mas al utilizar el componente PageControl y poner dentro ese componente TDBlookupComboBox.

Caral

poder agregar tres Edit para mostrar el nombre de los tres diferentes proveedores y los dbEdit (Ocultos) era para poder guardar ahi el el id del proveedor.

Saludos;

[[Caral]]

Hola
Sigo sin entender.
Veo que se busca el proveedor y el nombre, me imagino que de una tabla, pero no veo que se recorra.
No creo que se pueda llenar mas de un dato si solo se pide uno.
No entiendo.
Saludos

[novato_erick]

Caral

Hola
Sigo sin entender.
Veo que se busca el proveedor y el nombre, me imagino que de una tabla, pero no veo que se recorra.
No creo que se pueda llenar mas de un dato si solo se pide uno.
No entiendo.

Esto fue lo que hice al hacer al evento dobleclick del DBGrid

Código Delphi [-]
 var
    cod_idProveedor,cod_idProveedor2,cod_idProveedor3: Integer;
    Nombre, Nombre2, Nombre3: String;

procedure TfrmBuscaProveedor.dbgBuscaProveedorDblClick(Sender: TObject);
begin
 cod_idProveedor := dmacceso.cdsProveedoresID.AsInteger;
 Nombre := dmacceso.cdsProveedoresNOMBRE.AsString;
 frmModificaArticulo.eProveedor1.Text := frmBuscaProveedor.Nombre;
 frmModificaArticulo.edbProveedor1.Text := IntToStr(frmBuscaProveedor.cod_idProveedor);
 cod_idProveedor2 := dmAcceso.cdsProveedoresID.AsInteger;
 Nombre2 := dmAcceso.cdsProveedoresNOMBRE.AsString;
 frmModificaArticulo.eProveedor2.Text := frmBuscaProveedor.Nombre2;
 frmModificaArticulo.edbProveedor2.Text := IntToStr(FrmBuscaProveedor.cod_idProveedor2);
 Close;
end;

Esta es la forma que yo estoy haciendo... y esta forma no me sirve porque me pone el mismo proveedor en los restantes edit y dbedit...


Saludos

[ecfisa]

sucede que esa opción la ya he implementado lo extraño es que si llamo al formulario de articulo en modo de edición me aparece en blanco los TDBlookupComboBox y no puedo apreciar que proveedores que tenia.

Hola.

Eso no ocurre si previamente haces algo como:

Código Delphi [-]
  DBLookupComboBox1.KeyValue:= tbArticulosProv1.AsInteger;
  DBLookupComboBox2.KeyValue:= tbArticulosProv2.AsInteger;
  DBLookupComboBox3.KeyValue:= tbArticulosProv3.AsInteger;

Saludos.

[novato_erick]

ecfisa

Hola.

Eso no ocurre si previamente haces algo como:

Código Delphi [-]
Código Delphi [-]
  DBLookupComboBox1.KeyValue:= tbArticulosProv1.AsInteger;
  DBLookupComboBox2.KeyValue:= tbArticulosProv2.AsInteger;
  DBLookupComboBox3.KeyValue:= tbArticulosProv3.AsInteger;

Disculpa mi ignorancia pero donde hago eso? en el evento OnShow de mi frmArticulo, en el el evento OnCreate del frmArticulo?

Saludos