Cita:
Empezado por feliz-58
(si me pudieras explicar alguito las conexiones te lo agradecería.)
|
Cita:
Form2 (unit2)-----------------------------------------------
DB: TIBDatabase; //Base de datos
IBT: TIBTransaction; //Transiciones de la base de datos
Tabla: TIBDataSet; //Tabla usada
Form1 (unit1)-----------------------------------------------
IBQ1: TIBQuery; //Querry princincipal paara hacer la consulta de 1 mes es que tienes en el monthCalendar
IBQ2: TIBQuery; //Este querry hace dos funciones, la 1º saber el numero de registros que tiene en un día para la linea SetLength(x, IBQ2.FieldByName('COUNT').AsInteger); usada en el código, ya que en firebird no funciona el RecordCount y la segunda para dar los registros de un único día
dsIBq1: TDataSource; //Conectado al IBQ1 (Querry 1)
dsIBQ2: TDataSource; //Conectado al IBQ2 (Querry 2)
DSPrincipal: TDataSource; //Conectado a la tabla del Form 2
|
El motivo de no hacerlo en un único Form, es que necesitaba que la tabla estuviese cargada antes de mostrar el calendario, si hubiese tenido un form de petición de claves, splash o simplemente un datamodule, lo hubiese hecho en un sólo Form.
El resto es leer el código e interpretarlo, yo no me he inventado nada, esta todo en internet, simplemente es buscarlo y adaptarlo a tú código y necesidades.