Un Solo Formulario De Registros En Delphi 7

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

Empezado por alexiyordano

Hola Gran comunidad necesito que me ayude con un problemita en delphi 7 y una base de datos hecha access.
Necesito hacer un solo formulario de registros para 3 tablas y que eso resultado se muestren en 3 dbgrid diferentes, lo que no quiero hacer es 3 formulario para la tres tablas ya que el formulario de registros llevan los mismo datos para cada tabla

(1) Crea una propiedad (public) en el formulario donde puedas almacenar el nombre de la tabla.
(2) Después de crear el formulario y antes de hacer el Show, asignas el nombre de la tabla que desees a la propiedad.
(3) En el OnShow del formulario asignas a la tabla (tableName) el nombre de la propiedad.
(4) Luego abres la tabla.

Con esto consigues un sólo formulario que trabaja con 3 tablas diferentes (siempre que sean iguales).

(1)

Código Delphi [-]
...
Type
....

private
  FNombreTabla:string;

public
  property NombreTabla:String read FNombreTabla write FNombreTabla;
...

(2)

Código Delphi [-]
  FormTabla := TFormTabla.Create(Application);
  FormTabla.NombreTabla := 'TABLA1';
  FormTabla.Show;
  ...

(3) y (4)

Código Delphi [-]
...
procedure TFormTabla.OnShow(Sender:TObject);
begin
  ADotable.TableName := Self.FNombreTabla;
  ADoTable.Open;
end;
...

Un saludo.