Ver Mensaje Individual
  #10  
Antiguo 03-08-2005
Avatar de mamcx
mamcx mamcx is offline
Moderador
 
Registrado: sep 2004
Ubicación: Medellín - Colombia
Posts: 3.911
Reputación: 25
mamcx Tiene un aura espectacularmamcx Tiene un aura espectacularmamcx Tiene un aura espectacular
Existen muchas maneras de hacerlo. Fundamentalmente, requiere sentarse un rato, repirar hondo y calmarse .

Primero que todo: Separa acceso a datos de Interfaz grafica. Es la forma sana y organizada de trabajar.

Supongamos tienes un Form y alli pones un TDataSource, para hacer la conexion a los controles que se hace visualmente, a lo RAD.

Entonces, ya sea que sobreescribes el contructor o agregas un funcion de creacion o implementas un conector dentro del form, invocas al datamodule o la unit que tiene el acceso a datos y enlazas... Basicamente:

Código Delphi [-]
 
 //EL DM o unit de acceso a datos
 
 function CargarClientes:TDataSet
 begin
     //Creas el dataset de forma manual , enlazas la conexion, ejecutas el SQL o procedimiento almacenado, retornos el dataset abierto...
     result := Clientes;
 end;
 
 //El formulario que invoca
 
 procedure AbrirClientes
 var
   oForm : TForm1;
   Datos: TDataSet;
 begin
   Datos := CargarClientes();
 
   oForm := TForm1.Create(Application, Datos);
    try
       //Mostrar
    finally
       //Liberar
    end;
 end;
 //El formulario
 TForm1
    public 
        constructor Create(AOwner:TComponente;Datos:TDataSet)
        begin
             inherited Create(AOwner);
             Ds.dataset := Datos;
        end;

Al separar el acceso a datos 1)Centralizas el codigo (ie: Un solo unit tiene todo lo que toca la conexion de la BD, facilitando la migracion) 2) Simplificas el enlaces 3)Aislas la parte visual de la no visual
__________________
El malabarista.
Responder Con Cita