Te haces entender perfectamente, lo único que no entiendo del todo es el tema del TDateTime, TDateTime es un tipo de dato no un componente, ¿Qué quiere decir?, ¿Elijes tu el mes en algún sitio o quieres cojer el mes actual?... supondre que lo que quieres es el mes actual y te pondre un ejemplo
Creo que lo más sencillo que puedes usar es un TQuery, le das la propiedad DataBaseName si conectas por medio de un TDatabase o el Alias y escribes la SQL de busqueda que necesites, tengo la sensación y corrijeme si me equivoco de que no tienes mucha idea de SQL, te recomiendo que te documentes, en fin, seria algo asi...
Procedure LOQUESEA;
Var
Mes : Integer;
MesStr : String;
Begin
//Primero sacamos el mes actual en un entero
Mes := StrToInt ( FormatDateTime('mm', now) );
Ese numero de mes... ¿a que campo de la tabla corresponde?
Case mes of
1: MesStr := 'enero';
2: MesStr := 'febrero';
3: MesStr := 'marzo';
4: MesStr := 'abril';
5: MesStr := 'mayo';
6: MesStr := 'junio';
7: MesStr := 'julio';
8: MesStr := 'agosto';
9: MesStr := 'septiembre';
10: MesStr := 'octubre';
11: MesStr := 'noviembre';
12: MesStr := 'diciembre';
end;
Se supone que la clave primaria la tenemos guardada en los Strings Clave y Partida
Escribimos la sentencia SQL
TQuery.Sql.Text := "select "+MesStr+" from presupuesto where clave = "+Clave+" and Partida = "+Partida;
Abrimos la SQL y ponemos el valor donde sea que lo queremos
TQuery.Open;
TLabel.Caption := TQuery.FieldByName(MesStr).AsString;
TQuery.Close;
Es asi de sencillo y así de complicado, espero que te sirva de ayuda y si te queda alguna duda no tengas reparos en preguntar
Salu2 a To2
Última edición por champy fecha: 12-09-2003 a las 00:23:47.
|