Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #20  
Antiguo 15-12-2008
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 27
Caral Va por buen camino
Hola
Lo que veo asta el momento.
AdoTable1 es el que inserta los datos en la tabla.
Esto lo hace bien
El asunto es:
1- Cuando arranca el programa carga en el stringrid los datos de los empleados y colocas las horas, bien.
2- Insertas los turnos, bien.
3- Quieres ver lo que insertaste, PERO, como lo vas a ver si no llamas a la tabla?.
Tienes que hacer el mismo procedimiento que haces cuando cargas los empleados, solo que definiendo las columnas adecuadas para que cargen los turnos.
aqui cargas el grid.
Código Delphi [-]

with StringGrid1 do
begin
//Título de las Filas
Cells[0, 0] := 'Horario/Profesionales';
Cells[0, 1] := '09:00';
Cells[0, 2] := '09:30';
Cells[0, 3] := '10:00';
Cells[0, 4] := '10:30';
Cells[0, 5] := '11:00';
Cells[0, 6] := '11:30';
Cells[0, 7] := '12:00';
Cells[0, 8] := '12:30';
Cells[0, 9] := '13:00';
Cells[0, 10] := '13:30';
Cells[0, 11] := '14:00';
Cells[0, 12] := '14:30';
Cells[0, 13] := '15:00';
Cells[0, 14] := '15:30';
Cells[0, 15] := '16:00';
Cells[0, 16] := '16:30';
Cells[0, 17] := '17:00';
Cells[0, 18] := '17:30';
Cells[0, 19] := '18:00';
Cells[0, 20] := '18:30';
Cells[0, 21] := '19:00';
Cells[0, 22] := '19:30';


//Titulo de las Columnas
consulta:= 'Select [Apellido_emp], [Nombre_emp] from Personal';
adoquery1.Close;
adoquery1.SQL.Text := consulta;
adoquery1.Open;

i:= 2;
datasource1.DataSet.First;

while not datasource1.DataSet.Eof do
begin
stringgrid1.ColCount := i;
stringgrid1.Cells[(i - 1),0]:= datasource1.DataSet.FieldByName('Apellido_emp').AsString + ' '+ datasource1.DataSet.FieldByName('Nombre_emp').AsString;
//stringgrid1.Cells[1, (i - 1)]:= datasource1.DataSet.FieldByName('Nombre_emp').AsString;
//stringgrid1.Cells[2, (i - 1)]:= datasource1.DataSet.FieldByName('ubicacion').AsString;

inc(i);
datasource1.DataSet.Next;
end;
La celda 0 es la hora, la celda 1 sera un empleado, la 2 el otro etc.
Ahora, para que se vea despues de que lo coloques puedes poner un boton de actualizar u otro procedimiento.
Voy a ver como le meto mano, para empezar ya puse un datamodule y un adoconnection.
Saludos
__________________
Siempre Novato
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Traer datos de una tabla y ordenarlos en un dbgrid ordenados Petolansa Varios 3 07-12-2007 15:40:03
Traer datos de un dbgrid Petolansa Varios 3 19-10-2007 17:54:18
Traer datos desde otra bd con un SP Walterdf Firebird e Interbase 3 15-08-2007 18:47:30
Insertar y traer datos de una tabla en .NET Alexander .NET 0 26-08-2005 19:54:02
Traer los datos de una tabla a un dbcombo andresenlared Conexión con bases de datos 1 29-12-2003 17:18:04


La franja horaria es GMT +2. Ahora son las 08:00:24.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi