Como empiezo un sistema de almacen

[[fjcg02]]

Bueno Caral,
para que lo comentado en el post anterior ( lo de añadir las querys en una tabla ) no tengas que hacerlo a mano, te paso un código que lo único que tendrías que hacer es correrlo en cada uno de tus formularios de la aplicación, de manera que en lugar de mostrar las querys y sus contenidos, las inserte en la tabla que decidas. A la hora de ejecutar el programa, sólo tendrías que cargarlas desde esa tabla.
Un saludo

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var i,j:integer; mensaje:string; temp: TComponent;
begin
// me recorro todos los componentes del formulario
for i:= 0 to (Sender as tButton).Owner.ComponentCount-1 do
begin
  // utilizo una variable objeto para facilitar la compresión
  temp:= (Sender as tButton).Owner.Components[i];
 if (temp is TADOQuery ) then // si el componente es TADOQuery ....
    begin
      // pongo el nombre del formulario, de la query, y añado la sentencia SQL
      mensaje:= temp.Owner.Name+chr(10)+
                temp.Name+chr(10);
      for j:=0 to (temp as TADOQuery).SQL.Count-1 do
      begin
        mensaje:= mensaje+ (temp as TADOQuery).SQL[j]+chr(10);
      end;
     // y muestro el montaje ....
      showmessage(mensaje);
    end;
end;
end;