como volver a traer datos de un stringgrid?

[TURBOIGOR]

Bueno ahora espero que lo revises y puedas aconsejarme algo .

[[Caral]]

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

[TURBOIGOR]

bueno gracias por ayudarm ...recuerda q cuando cambio la fecha del datetimepicker blankeo el stringgrid y luego creo q habria q hacer una consulta para q m traiga los datos...mi problema es q no se como ubicarlos en la misma posicion dond estaban en el string, igualment en la base de datos estoy guardando la posicion del registro.

[[Caral]]

Hola
Ahora pregunto:
Por que en un stringGrid?.
El concepto para colocar los turnos esta bien, pero para visualizar los datos yo haria un form adicional con un dbgrid.
Un form para colocar los turnos, ya lo tienes y funciona, otro para ver el orden de estos.
No se, eso haria yo, en vez de estar actualizando el stringrid.
Saludos

[TURBOIGOR]

podrias hacerme un ejemplo y mandarmelo por favor pq no entendi bien como se utilizaria el dbgrid

[[Caral]]

Hola
Me imagino, no es por criticar, pero la sintaxis de programacion es malita.
El asunto es mostrar los resultados en otro form.
Pregunto:
Cuantos empleados hay, solo tres o puede que sean mas?.
Saludos

[[Caral]]

Hola
Pregunto:
Es imperativo usar un stringGrid?.
Es una tarea y se necesita usar?.
Se puede usar cualquier componente?.
Te gusta el strigGrid y por eso lo quieres usar?
Saludos

[[Caral]]

Hola
Es tarde.
Voy a hacerle unos cambios a mi gusto, por lo menos te serviran de ejemplo.
Mañana, con mas tiempo le meto mano.
Para empezar:
Voy a cambiar la manera como se llaman a los form y como arrancan, no es conveniente.
Voy a poner un form de visualizacion de datos.
Voy a enlazar los form como se debe.
Voy a quitar el evento Ondrawcell.
Voy a poner un Ini.
Ya puse el datamodule.
Bueno, para empezar creo que estara bien.
Saludos