Generar Botones leyendo datos de una tabla

[fenixjes]

Buen dia a toda la comunidad, mil disculpas si cometo un error al habrir este hilo.

teniendo una base de datos en Acces con una conección ado con un par de tablas,Articulos con campos: codigo, descripcion, precio.

Lo que quiero esque en un formulario Se generen botones automáticamente si la tabla de Articulos tiene datos.
aparte de generarlos que esten con los datos del campo, para introducirlo a un Dbstringrid

le agradesco de antemano su respuesta

[Neftali [Germán.Estévez]]

Empezado por fenixjes

Lo que quiero esque en un formulario Se generen botones automáticamente si la tabla de Articulos tiene datos.
aparte de generarlos que esten con los datos del campo, para introducirlo a un Dbstringrid

No he entendido muy bien hacia donde quieres ir y tampoco explicas claramente qué no sabes hacer o si te da algun error.
¿No sabes crear los controles en ejecución? (en los foros ya se ha hablado)
¿El tema del DataSet vacío o que tenga datos (propiedad Empty)?
¿Errores?

[*Caro*]

Hola fenixjes, si te he entendido bien deberia ser asi.

Código Delphi [-]
var
  i:Integer;
  boton:TButton;
............
  i:=0;
  AdoQuery1.First;
  while not(AdoQuery1.EOF) do
   begin
     with boton do
       begin
         boton.Parent:=FColegio;
         Left := 10+i;
         Top := 150;
         Width := 75;
         Height := 25;
         Caption := AdoQuery1.FieldByName('descripcion').AsString;
       end;
      i:=Width+20;
     AdoQuery1.Next;
   end;

Saluditos

[[eduarcol]]

te trato de dar una idea de lo que debes realizar:

1.- Crear un objeto, cuyas propiedades sean los campos que deseas tener del registro del producto

2.- Crear una lista de objetos TObjectList

3.- al crear el boton en la propiedad Tag guardar el indice del objeto dentro de la lista

4.- Si no quieres trabajar con la lista puedes guardar el puntero al objeto dentro del tag

5.- al hacer click sobre el boton recuperar el puntero o indice que ya tienes almacenado y proceder a introducir los datos dentro del dbgrid.

[fenixjes]

Empezado por Caro

Hola fenixjes, si te he entendido bien deberia ser asi.


Código Delphi [-]
var
i:Integer;
boton:TButton;
............
i:=0;
AdoQuery1.First;
while not(AdoQuery1.EOF) do
begin
with boton do
begin
boton.Parent:=FColegio;
Left := 10+i;
Top := 150;
Width := 75;
Height := 25;
Caption := AdoQuery1.FieldByName('descripcion').AsString;
end;
i:=Width+20;
AdoQuery1.Next;
end;

Saluditos

Muchas Gracias Caro, lo probare ahoramismo

[fenixjes]

Empezado por eduarcol

te trato de dar una idea de lo que debes realizar:

1.- Crear un objeto, cuyas propiedades sean los campos que deseas tener del registro del producto

2.- Crear una lista de objetos TObjectList

3.- al crear el boton en la propiedad Tag guardar el indice del objeto dentro de la lista

4.- Si no quieres trabajar con la lista puedes guardar el puntero al objeto dentro del tag

5.- al hacer click sobre el boton recuperar el puntero o indice que ya tienes almacenado y proceder a introducir los datos dentro del dbgrid.

Muy buena idea pero serias tan amable de hacer un ejemplito y ponerlo con el codigo fuete, haci yo aprendo un poquito mas cuando esta programado, aun sigo siendo muy novato hace poco estoy en esto de programación
tengo muchas ideas ideas como par hacer sistemas de ventas, pero lo que no tengo es la sabiduria del lenguaje del delphi