Test de Evaluacion

[Neftali [Germán.Estévez]]

Empezado por Elite237

Código Delphi [-]"Property does not exist"

Abre el proyecto y asegurate de que abres todos los formularios en diseño y de que se ven bien. A veces pasa que Delphi 5 no entiende una propiedad del formulario (hecha con una versión porterior).
Al abrirlos en diseño, te eliminará las propiedades que no "conozca"; Asegurate de que los formularios y el Frame se ven correctamente en diseño y luego haz el BUILD de todo.

Ya dirás...

[Elite237]

Ok, ya pude abrirlo y ejecutarlo.Gracias Neftali, vere como adecuarlo a mi aplicación.Nose que haria sin ustedes.Saludos

[[egostar]]

Empezado por Elite237

......Nose que haria sin ustedes......

Estudiar, estudiar y mas estudiar como lo haciamos los viejos del club cuando no existia internet

Salud OS

[donald shimoda]

Empezado por egostar

Estudiar, estudiar y mas estudiar como lo haciamos los viejos del club cuando no existia internet

Salud OS

Coincido amigo, es sumamente contraproducente que se piense a que la respuesta esta al alcance de la mano evitando el proceso de investigar, analizar y comprender porque nos esta frenando algo. De ese proceso se aprende mucho, de preguntar a la tonta no sacamos nada.

Saludos.

[Elite237]

Hola neftali, fijate que he querido adaptar el programa que hiciste de ejemplo a mi aplicacion, solo que no consigo hacer que se visulice las preguntas y las opciones, y te comento como esta mi apliacacion: por cada seccion hay preguntas, y esas preguntas tienen sus opciones, y lo que quiero hacer es que al momento de seleccionar el tipo de evaluacion de un combobox, pues aparezca las preguntas y las opciones de cada seccion, no se si me de a entender, he hecho query para traer las preguntas y que aparezcan en cada frame, pero me manda el siguiente error:

Código Delphi [-]
[Error] FMain.pas(93): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

y quiza es por el codigo que le estoy introduciendo, la verdad no he utilizado frames y no tengo mucha experiencia programando en delphi.Este es el codigo que el estoy introduciendo

Código Delphi [-]
// Asignar textos
    query1.close;
    query1.SQL.clear;
    query1.sql.add('select eval_descripcion,preg_descripcion from tpregunta');
    query1.sql.add('where eval_descripcion = '''+cmbEvaluacion.text+'''');
    Str := Format(Fr.lblPregunta.Caption:=query1.fieldbyname('preg_descripcion').asstring, [IntToStr(i + 1)]);
    Fr.lblPregunta.Caption := Str;

[[Delphius]]

Hola Elite237, por ahora el único error que veo es que estás asignando dentro de str = format() una sentencia de asignación (Fr.....Caption := ...)

Eso no está permitido en el lenguaje.
Mueve esa setencia de asignación antes de realizar el format:

Código Delphi [-]
FR......Caption := 
Str := Format (Fr...Caption ,[]);

¿Se entiende?
Saludos,

[Elite237]

OK, Gracias Delphius, ya lo hize, pero no me hace nada, quedo como el que hizo neftali. Explicare algo que se me ha olvidado decirles: Por cada evaluacion, tengo una seccion, dentro de cada seccion tengo preguntas y a cada pregunta 3 o mas opciones de respuestas. Lo que me piden es que al momento de elegir el tipo de evaluacion a presentar, me muestre todas las secciones de mi evaluacion junto con sus respectivas preguntas y respuestas. Las claves se las asigno de esta manera. Evaluacion vigilante 3....seccion de la evaluacion 3.1....pregunta de la seccion 3.1.1....opcion de la pregunta....3.1.1.1....y asi sucesivamente, dependiendo de la cantidad de secciones, preguntas y opciones tengan cada evaluacion.Me di a entender?...Entonces yo me imagino y quiero hacer(corrigeme si estoy mal)realizar querys para traer esos datos. Pero ¿como se los asigno a las etiquetas y al radiogroup que usa neftali y que se vaya incrementando y muestre las opciones y las preguntas correctamente???

[[Delphius]]

Hola Elite237,
Sería muy oportuno como saber como y que consultas SQL estás lanzando. Si nos expusieras el código empleado podríamos saber de que modo asesorarte.

Por otro lado veo en el código anterior que expones, que en nungún momento lanzas la consulta a ejecutar. Es decir, no veo el Open.

Saludos,

[Elite237]

Ya lo habia checado delphius, gracias. La consulta que quiero hacer primero es la siguiente:

Código Delphi [-]
select eval_clave,secc_eval,secc_nombre where eval_clave=secc_eval

para que me arroje correctamente el nombre de la seccion, y que pertenezca a esa evaluacion. Aqui no hay problema, el problema digo yo es cuando se tenga que checar las preguntas y la opciones correspondan a la seccion y a la evaluacion.

[Neftali [Germán.Estévez]]

Yo haría las cosas por partes, más que nada para ubicar los posibles problemas.
Primero lanza la sentencia SQL y asegúrate de que obtienes los datos corrrectos; Una vez hechoesto, ya los asignarás a los frames.

En cuanto al código:

Código Delphi [-]
// Asignar textos
query1.close;
query1.SQL.clear;
query1.sql.add('select eval_descripcion,preg_descripcion from tpregunta');
query1.sql.add('where eval_descripcion = '''+cmbEvaluacion.text+'''');

// Asegurate de que es correcta
MessageDlg('SQL: ' + query1.sql.Text, mtInformation, [mbOK], 0);
// Abrela (sin no no heremos nada)
query1.Open;
// Encontrado?
if (not (query1.EOF)) then begin
  Str := query1.fieldbyname('preg_descripcion').asstring;
  // Asignalo
  Fr.lblPregunta.Caption := Str;
end;