Ver Mensaje Individual
  #9  
Antiguo 03-10-2006
jorllazo jorllazo is offline
Miembro
 
Registrado: sep 2006
Ubicación: Valencia, España
Posts: 83
Reputación: 18
jorllazo Va por buen camino
Cita:
Empezado por Ade
Algunas dudas, pues no te entendi muy bien,
Tu query devuelve 4 campos pero cuantos registro? 1 o mas de 1??
si devuelve mas de uno entonces aparecen en el dbgrid, y seleccionas una fila y entonces es cuando guardas el ID del Cliente para el Loadfromdatabase?
Aqui te refieres a la propiedad datasource del dbgib??
La Query devuelve el numero de registros en Base a la Clausula 'WHERE' de la sentencia SQL, de momento los devuelve todos, osea el total de registros de la tabla

Código SQL [-]
         
         SELECT [PersonID], [Name], [TradeName], [NIF]
          FROM [Persons] 
          WHERE isCustomer = 0 
          AND isEmployee = 0
          AND isProvider = 0




De este modo saco de la tabla todos los contactos
si quiero sacar los clientes pongo isCustomer = 1 y omite contactos etc, etc

Esta es la sentencia que le paso al componente TADOQuery, mas concretamente a su propiedad SQL,
y este es el codigo que la usa y devuelve todos los contactos.


Código Delphi [-]
        
             Query1.SQL.Clear;
             Query1.SQL.Add(strSQL);
             Query1.Open;
                 if not (Query1.Bof and Query1.Eof) then          
                         Query1.First; //Si no esta vacio lo muevo al primer registro             
             DataSource1.DataSet := Query1;
             DbGrid1.dataSource := DataSource1;

La propiedad DataSource del DBGrid indica de donde tomara los datos que muestra en su rejilla.



Con esto, si tenias algun registro que cumple la clausula WHERE de tu sentencia deberia verse visible en la grid, a la que previamente yo le añado las columnas necesarias en su propiedad "Columns" en la que indico el titulo de la columna y el nombre del campo al que ira Ligada.

Cita:
Empezado por Ade
en el dbgid te aparece una flechita negra a la izquierda de algun registro ??
La Flechita negra es la que te indicara en que registro estas en ese momento, si no te aparece tienes que cambiar su propiedad dgIndicator = true de su lista de propiedades "Options"

Cita:
Empezado por Ade
Para que sirve Toolbar??
dond pones las instrucciones
El toolBar es la típica barra de herramientas como por ejemplo si levantas la vista veras en el Explorador de Internet (botones que hacen algo) . Si añades botones (los necesarios para cumplir los cometidos de tu formulario) y haces doble click en ellos, tendras un evento en el cual podras colocar codigo como por ejemplo


Código Delphi [-]
      procedure TfrmMain.tbFirstClick(Sender: TObject);
       begin
             Query1.First; //SE desplaza al 1 registro.
       end;




Espero que ahora te haya solucionado algo mas....
__________________
Gracias de Antemano
Responder Con Cita