como volver a traer datos de un stringgrid?

[TURBOIGOR]

MIL GRACIAS MIL GRACIASMIL GRACIAS

Ahora lo pruebo y te comento

[TURBOIGOR]

cuando se activa el formulario aparece en la celda (0,0) uno d los turnos, dice Maria del Lujan/corte y deberia decir Horarios/Personal...
tambien cuando se activa aparece la fecha de hoy 16 pero m esta mostrando los turnos del 15...

y m sigue tirando el error q t envie antes

te vuelvo a agradecer todo lo q estas haciendo...perdona tantas molestiass

[[Caral]]

Hola
1-A mi me muestra (Horarios/Personal) en esa celda, no se por que a ti no.
2-No me sigue dando el error.
3-Para que se actualice el stringgrid hay que actualizar la sentencia sql.
Es exacta a la que uso en el datetimepicker.
Para que la veas asi quedaria el evento Onshow del form Turnos:

Código Delphi [-]

procedure TTurnos.FormShow(Sender: TObject);
begin
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;

inc(i);
datasource1.DataSet.Next;
end;


adoquery2.Close;
adoquery2.SQL.Text := 'Select Nombre, Legajo, Servicio, Pos_col, Pos_fila from Turnos Where Fecha_turno = :Fec';
adoquery2.Parameters[0].Value:= DateToStr(DateTimePicker1.Date);
adoquery2.Open;

while not datasource2.DataSet.Eof do
begin
a:= datasource2.DataSet.FieldByName('Pos_fila').AsInteger;
b:= datasource2.DataSet.FieldByName('Pos_col').AsInteger;
stringgrid1.Cells[(b),(a)]:= datasource2.DataSet.FieldByName('Nombre').AsString + '//'+ datasource2.DataSet.FieldByName('Servicio').AsString;

inc(a);
inc(b);
datasource2.DataSet.Next;

adoquery1.Close;
end;
end;
end;

Revisa el codigo y veras la diferencia.
Es bueno que te empapes del codigo.
Saludos

[TURBOIGOR]

Hola Caral , te contesta el papa , porque ella se fue a la Universidad a presentar una carpeta muy gorda con toda la info de este programa , en cuanto venga seguramamente estara probando y contestandote.-

Gracias

[TURBOIGOR]

Hola caral la carpeta del sistema esta aprobadaa, el 23 rindo el final presentando el programa funcionando.

t molesto con una ultima cosita...el error ese de criterios m lo sigue mostrando cuando asigno un turno al stringgrid y luego apreto el boton de modificar turnos por fecha

Luego si abro modificar pone la fecha entre ##

t subo los errores aqui:

http://www.4shared.com/file/76225327...577/error.html

[[Caral]]

Hola
Ya esta la tarea echa, espero por lo menos una buena calificación.
El famoso problema que te atormentaba ya esta listo, era un asunto de dar formato a la fecha.
Cambios:
1- Ya el error no sale.
2- Cuando se presiona en algún turno, si este tiene algo asignado sale un mensaje antes de abrir la pantalla de Nuevo Turno.
3- Los turnos se muestran con la fecha exacta, tanto cuando se abre el programa como cuando se cambia la fecha en el datetimepicker.
He probado todo, a mi ya no me da ningún error, funciona bien.
Te aconsejo que veas el código, lo mastiques y trates de entenderlo, no te voy a hacer la tarea siempre, así no aprenderás, aunque a mi me sirven estos retos, así aprendo, algún día tengo que salir de Novato.
Saludos

[TURBOIGOR]

decime a dond tengo q ir para calificart y mientras pruebo el programa