13 respuestas en este tema

[Delphius]

Pues eso: ando un poco lerdo (medio bobo) y ya me entra la duda de como encarar de forma "amigable" y relativamente sencilla cierta parte de un sistema que estoy realizando.

 

Necesito llevar una especie de "planificador de eventos" y si bien existe en CT una suite de componentes que "facilita" las cosas (Se llama PlanIt) no me termina convenciendo su forma de agregar eventos (de hecho, ni pude... daba error y al restablecer las cosas no aparecía nada), y que requiera forzozamente de una especie de base de datos a la que no le encuentro forma de como usar ni aprovechar, y ni le entiendo en cómo ni cuando se conecta, recupera ni almacena. La verdad es que no le entendí a la suite.

Una lástima.

 

La cuestión es que tal planificador debe ser semanal laborable. Es decir: Lunes a a Viernes, y de éstos días sólo requiero una franja horaria ya definida. Y más que nada lo que se espera registrar es un "recordatorio" de cuando el sistema tiene que efectuar procesos automáticos. Se espera que tal proceso pueda configurarse así:

 

* Detallado por día: X veces por día en horarios definidos por el usuario o bien que el sistema planifique esas x veces distribuído en el rango de horario.

* Fijado semanalmente: Que se fije que de lunes a viernes siempre las x veces por día; manualmente o de forma automática distribuído.

 

No se amerita el diseño basado en el calendario. Es decir, que esto no esté ligado puntualmente a una semana, ni mes concreto... como por ejemplo: Martes 5 de enero 2016 hay anotado 5 "eventos". Martes 12 de enero 2016 habrá anotado 2 "eventos". No... eso no es lo que se busca. Simplemente la idea es decir "Los Martes son 5 veces", "Los jueves son 2 veces", o bien, "De lunes a viernes se distribuyen 4 eventos a lo largo del día".

 

Si el usuario cambia algo en el planificador, se descarta lo anterior y empieza a correr desde la nueva configuración. No se espera llevar un registro de como se había configurado antes ni del historial de cambios.

 

¿Se me entiende?

Estuve pensando un poco en como "presentar" esto al usuario y en como ofrecer una manera relativamente sencilla para que el usuario pueda configurarlo a gusto. Por defecto estaba pensando en que esté configurado en modo "semanalmente distribuído". Pero claro, mis luces ya están apagadas...

 

¿Que recomendaciones pueden dar? ¿Necesariamente pasaría por emplear una Grid? ¡Tampoco es para ponerme a hacer mi propio componente visual! Ya dispongo de una clase propia que de forma abstracta lleva registro de esto, más el tema visualmente es lo que no le capto forma.

 

Saludos,

[egostar]

Amigo Marchello,

 

Te recomiendo que veas el componente TPlaner de TMS Software, seguro te dará una idea de como hacerlo.

 

Saludos

[Delphius]

Amigo Marchello,

 

Te recomiendo que veas el componente TPlaner de TMS Software, seguro te dará una idea de como hacerlo.

 

Saludos

 

Veré algunas screenshots, y si es posible descargar algunas demos gratuitas porque:

 

1. Uso CodeTyphon y TMS son exclusiva para Delphi.

2. Es pago y estoy en modo pobre

 

He estado buscando entre los tantos componentes como Planner, Scheduler, WeekEvents, etc. Y Si: existe una suite entera pensada para cosas como éstas que viene el CodeTyphon que en principio parece bastante buena. Pero no le encuentro forma de poner en marcha, aún cuando logré sortear algunos problemitas. Y requiere de una conexión a base de datos, que ni en ningún lado dice que motor es (ni se le puede configurar... sólo indicar un nombre de tabla). La verdad es que no le entiendo.

 

Saludos,

[egostar]

Veré algunas screenshots, y si es posible descargar algunas demos gratuitas porque:

 

1. Uso CodeTyphon y TMS son exclusiva para Delphi.

2. Es pago y estoy en modo pobre

 

He estado buscando entre los tantos componentes como Planner, Scheduler, WeekEvents, etc. Y Si: existe una suite entera pensada para cosas como éstas que viene el CodeTyphon que en principio parece bastante buena. Pero no le encuentro forma de poner en marcha, aún cuando logré sortear algunos problemitas. Y requiere de una conexión a base de datos, que ni en ningún lado dice que motor es (ni se le puede configurar... sólo indicar un nombre de tabla). La verdad es que no le entiendo.

 

Saludos,

 

Asi es, por eso es que comenté que te daría una idea, no te sirven porque no son para CodeTyphon, son bastante fáciles de entender, yo lo intenté usar pero solo utilicé la versión demo, el proyecto que lo requería no se concretó y no hubo "money" para comprar la suite.

 

Saludos

[escafandra]

Yo me iría al bajo nivel usando los eventos como punteros a funciones. Puedes definir un puntero general a una función y controlar el tipo de evento por parámetro, por ejemplo. En realidad no se que necesitas con exactitud por lo que no puedo precisar más, pero seguro que entiendes la idea. Esto te independiza de componentes de terceros y de extraño uso.

 

 

Saludos.

[Delphius]

Asi es, por eso es que comenté que te daría una idea, no te sirven porque no son para CodeTyphon, son bastante fáciles de entender, yo lo intenté usar pero solo utilicé la versión demo, el proyecto que lo requería no se concretó y no hubo "money" para comprar la suite.

 

Saludos

 

Entre algunas imágenes se ven algunas cosas que se le parece al TVpDayView y al TVpWeekView de la suite PlanIt que estuve probando. Lamentablemente no he logrado entenderla, y lo más importante: en agregar los "eventos". De algún modo esquivé unos errores y logré que aparezca una ventana propia que ofrece el componente, que aparentemente, es para añadir los eventos/tareas pero ni caso: no lo hacía.. no se agregan. Y además dicha interfaz tenía ya un diseño tan peculiar que desentona (y no se puede editar) con mi diseño.

Documentación del componente: CERO.

 

Saludos,

[Agustin Ortu]

No te entendi muy bien

 

Igual es normal, yo tambien soy un queso para armar las ventanitas lindas y amigables

 

Agarre CT y meti un FlowPanel, un Header arriba con cada dia, y un ListView por dia

 

Queda esto, no se me ocurre mucho mas 

 

[Delphius]

No te entendi muy bien

 

Igual es normal, yo tambien soy un queso para armar las ventanitas lindas y amigables

 

Agarre CT y meti un FlowPanel, un Header arriba con cada dia, y un ListView por dia

 

Queda esto, no se me ocurre mucho mas 

 

 

Mi cabeza me andaba llevando hacia probar con grids. Tu imagen me pinta bien. Lo que me llama la atención es el TFlowPanel. No lo conozco, es más, al buscarlo entre los componentes no lo veo instalado. Si en cambio encuentro extensiones, o mejoras dadas por suites propias. Como ser TCyFlowPanel de la suite Cindy Visual. Estimo que debe ser bastante similar al de base sólo que con más pinturita. Quizá está disponible para instalarlo... en CT 5.5 no está en la barra, según veo tu tienes 5.6 asi que puede ser que algo que ha cambiado de versión a otra.

 

Lo que ando pensando es como permitirle al usuario que pueda decidir si "programa" los eventos por día a día si prefiere hacerlo semanalmente (es decir: fijar para todos los días los eventos a la misma hora). La técnica fácil es disponer un combobox y que elija opción y en base a éste habilitar unos u otros controles. Pero si pudiera pensar en una forma de aprovechar la propia interfaz "almanaque" para hacerlo sería un goce. No quisiera llenar de controles y que impliquen una seguidilla de pasos que quizá puedan ser innesarios si se pudiera hacer todo de una.

 

Saludos,

[Agustin Ortu]

En realidad me hubiese gustado mas usar el TGridPanel de Delphi, pero al parecer no hay port en Lazarus; o por lo menos ninguno cuyo nombre sugiera algo. En realidad hay una buena cantidad de paneles que vaya a saber uno para que sirven

No se bien que tenes en mente para la parte de carga de eventos

 

Yo creo que simplemente cuando estoy cargando un evento, elijo "Miercoles tal cosa" para el planificador diario, o "todos los dias" si fuera semanal

 

Por que tendrias que habilitar unos u otros controles? No es cargar el mismo evento para cada dia a la misma hora?

[Delphius]

En realidad me hubiese gustado mas usar el TGridPanel de Delphi, pero al parecer no hay port en Lazarus; o por lo menos ninguno cuyo nombre sugiera algo. En realidad hay una buena cantidad de paneles que vaya a saber uno para que sirven

No se bien que tenes en mente para la parte de carga de eventos

 

Yo creo que simplemente cuando estoy cargando un evento, elijo "Miercoles tal cosa" para el planificador diario, o "todos los dias" si fuera semanal

 

Por que tendrias que habilitar unos u otros controles? No es cargar el mismo evento para cada dia a la misma hora?

 

Aún no lo tengo muy pensado.

Es cierto, el evento se resume en un único proceso que se repite x veces al día. La idea es que el usuario pueda jugar con su programación, configurando para que pueda indicar día a día si quiere variar las horas entre un día y otro. O bien si elije hacerlo semanalmente de modo que todos los días tenga la misma programación definida.

La diferencia está en que si se opta por día a día debo de preveer una forma de entrada que permita indicar por cada día:

1. La frecuencia del evento.

2. Si se desea asignar manualmente las horas debe hacerlo por cada vez. Y en caso de preferir que el sistema proponga de forma automática distribuído de manera "uniforme" a lo largo del día.

 

Si se opta por configurarlo semanalmente en lugar de configurar 5 veces (5 días de la semana) se pide directamente la frecuencia y el horario de cada una.

 

Por eso andaba pensando en algún juego de componentes.

 

Lo que me ha quedado pensando es el FlowPanel ¿Para que lo usaste? ¿Está alineado al cliente? ¿El Header y los demás componentes están metidos en él? Tu imagen me da entender eso... Nunca había escuchado sobre este y quice imitar tu interfaz con el FlowPanel de Cindy y cuando intento poner el Header o el ListView si bien se muestra en tiempo de diseño en el inspector de objetos no figuran... :wacko:  Quizá sea que al ser Cindy sólo "soporta" Cindy dentro... Tendré que probar.

 

Saludos,

[Wilson]

Hola Delphius, te he desarrollado un pequeño y muy simple ejemplo en delphi XE7  (sin optimizar código), usando un StringGrid que se llena a partir de una base de datos de Firebird utilizando FireDAC. No debería haber problemas para llevarla a CT, puesto que no usa componentes de terceros.

 

Al hacer dobleclick sobre una celda, si esta contiene un evento, entonces  se podrá editar en un form modal. Si la celda en cuestión no tiene evento entonces se abre el form para agregar un nuevo evento.

 

Igual podrías agregar botones al panel superior y pasarles los procedimientos AgregarEvento o EditarEvento.

 

Base de datos:

sql

CREATE GENERATOR GEN_EVENTOS_ID;
SET GENERATOR GEN_EVENTOS_ID TO 107;
 
CREATE TABLE EVENTOS (
    ID_EVENTO  INTEGER NOT NULL,
    DIA        INTEGER,
    HORA       TIME,
    EVENTO     VARCHAR(20)
);
 
ALTER TABLE EVENTOS ADD CONSTRAINT UNQ_EVENTOS UNIQUE (DIA, HORA);
 
ALTER TABLE EVENTOS ADD CONSTRAINT PK_EVENTOS PRIMARY KEY (ID_EVENTO);
 
 
SET TERM ^ ;
 
CREATE TRIGGER EVENTOS_BI FOR EVENTOS
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.id_evento IS NULL) THEN
    NEW.id_evento = gen_id(gen_EVENTOS_id,1);
END
^
SET TERM ; ^

Código form principal:

delphi

//Main form
 
type
  TfrmMain = class(TForm)
    Panel1: TPanel;
    Grid: TStringGrid;
    qHoras: TFDQuery;
    FDGUIxWaitCursor: TFDGUIxWaitCursor;
    qEventos: TFDQuery;
    FDPhysFBDriverLink: TFDPhysFBDriverLink;
    Con: TFDConnection;
    procedure FormCreate(Sender: TObject);
    procedure GridDblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure InicializarHoras;
    procedure InicializarDias;
    procedure InicializarEventos;
    procedure LimpiarGrid;
    procedure InicializarGrid;
 
    function IndiceFila(const AHora: string): smallInt;
    function IndiceDia(const ADia: string): smallInt;
 
    procedure EditarEvento;
    procedure AgregarEvento;
  public
    { Public declarations }
  end;
 
var
  frmMain: TfrmMain;
 
implementation
 
{$R *.dfm}
 
uses UEvento;
{ TForm1 }
 
procedure TfrmMain.InicializarHoras;
var
  i: integer;
begin
  i := 1;
  qHoras.Close;
  qHoras.Open();
  qHoras.Last;
  Grid.RowCount := qHoras.RecordCount + 1;
  qHoras.First;
  while not qHoras.Eof do
  begin
    Grid.Cells[0, i] := qHoras.FieldByName('hora').Text;
    qHoras.Next;
    Inc(i);
  end;
end;
 
procedure TfrmMain.InicializarDias;
const
  Dias: array [1 .. 5] of string = ('LUNES', 'MARTES', 'MIÉRCOLES', 'JUEVES',
    'VIERNES');
var
  i: integer;
begin
  for i := 1 to 5 do
  begin
    Grid.Cells[i, 0] := Dias[i];
  end;
end;
 
procedure TfrmMain.InicializarEventos;
begin
  qEventos.Close;
  qEventos.Open();
  qEventos.First;
  while not qEventos.Eof do
  begin
    Grid.Cells[qEventos.FieldByName('dia').AsInteger,
      IndiceFila(qEventos.FieldByName('hora').Text)] :=
      qEventos.FieldByName('evento').Text;
    qEventos.Next
  end;
end;
 
procedure TfrmMain.AgregarEvento;
var
  Dia: string;
  DiaInt: integer; // El tipo de dato en la db es entero
  Hora: TTime;
  Evento: string;
begin
  Dia := Grid.Cells[Grid.Col, 0];
  DiaInt := IndiceDia(Dia);
  Hora := strToTime(Grid.Cells[0, Grid.Row]);
  Evento := '';
 
  if TfrmEvento.Ejecutar(Dia, Hora, Evento, 'Agregando evento') = mrok then
  begin
    qEventos.Insert;
    qEventos.FieldByName('dia').AsInteger := IndiceDia(Dia);
    qEventos.FieldByName('hora').Value := Hora;
    qEventos.FieldByName('Evento').AsString := Evento;
    qEventos.Post;
    InicializarGrid;
  end
end;
 
function TfrmMain.IndiceDia(const ADia: string): smallInt;
const
  Dias: array [1 .. 5] of string = ('LUNES', 'MARTES', 'MIÉRCOLES', 'JUEVES',
    'VIERNES');
var
  i: integer;
begin
  for i := 1 to 5 do
    if Dias[i] = ADia then
    begin
      result := i;
      break;
    end;
end;
 
function TfrmMain.IndiceFila(const AHora: string): smallInt;
var
  i: integer;
begin
  for i := 1 to Grid.RowCount - 1 do
  begin
    if Grid.Cells[0, i] = AHora then
    begin
      result := i;
      break;
    end;
  end;
end;
 
procedure TfrmMain.LimpiarGrid;
var
  i: integer;
begin
  for i := 0 to Grid.ColCount - 1 do
    Grid.Cols[i].Clear;
end;
 
procedure TfrmMain.EditarEvento;
var
  Dia: string;
  DiaInt: integer; // El tipo de dato en la db es entero
  Hora: TTime;
  Evento: string;
begin
  Dia := Grid.Cells[Grid.Col, 0];
  DiaInt := IndiceDia(Dia);
  Hora := strToTime(Grid.Cells[0, Grid.Row]);
  Evento := Grid.Cells[Grid.Col, Grid.Row];
 
  if Evento = '' then
  begin
    ShowMessage('No ha seleccionado un evento');
    Exit;
  end;
 
  qEventos.Locate('Dia;Hora', VarArrayOf([DiaInt, Hora]), []);
 
  if TfrmEvento.Ejecutar(Dia, Hora, Evento, 'Modificando evento') = mrok then
  begin
    qEventos.Edit;
    qEventos.FieldByName('dia').AsInteger := IndiceDia(Dia);
    qEventos.FieldByName('hora').Value := Hora;
    qEventos.FieldByName('Evento').AsString := Evento;
    qEventos.Post;
    InicializarGrid;
  end
end;
 
procedure TfrmMain.GridDblClick(Sender: TObject);
begin
  if Grid.Cells[Grid.Col, Grid.Row] <> '' then
    EditarEvento
  else
    AgregarEvento;
end;
 
procedure TfrmMain.InicializarGrid;
begin
  LimpiarGrid;
  InicializarHoras;
  InicializarDias;
  InicializarEventos;
end;
 
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  InicializarGrid;
end;
 
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  qHoras.Close;
  qEventos.Close;
  Con.Close;
end;
 
end.

Código form edición

delphi

type
  TfrmEvento = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    cbxDias: TComboBox;
    dtpHora: TDateTimePicker;
    edtEvento: TEdit;
    btnOk: TButton;
    btnCancel: TButton;
  private
    { Private declarations }
  public
    class function Ejecutar(var ADia: string; var AHora: TTime;
      var AEvento: string; ACaption: string; AOwner: TComponent = nil)
      : TModalResult;
  end;
 
implementation
 
{$R *.dfm}
{ TfrmEvento }
 
class function TfrmEvento.Ejecutar(var ADia: string; var AHora: TTime;
  var AEvento: string; ACaption: string; AOwner: TComponent = nil)
  : TModalResult;
begin
  if AOwner = nil then
    AOwner := Application.MainForm;
  with Create(AOwner) do
    try
      caption := ACaption;
      cbxDias.Text := ADia;
      dtpHora.Time := AHora;
      edtEvento.Text := AEvento;
      Result := ShowModal;
      if Result = mrOk then
      begin
        ADia := cbxDias.Text;
        AHora := dtpHora.Time;
        AEvento := edtEvento.Text;
      end;
    finally
      Free;
    end;
end;
 
end.

La sentencia de qHoras es: SELECT DISTINCT HORA FROM EVENTOS ORDER BY HORA

 

La sentencia de qEventos es:  SELECT * FROM EVENTOS ORDER BY DIA, HORA

 

Es solo una idea.

 

Saludos.

 

PD: Adjunto archivo con ejecutable, DB y fuentes. Ajusta la ruta de la DB en el archivo ini. La DB tiene 100 registros agregados aleatoriamente.

Archivos adjuntos

•  eventos.7z   1,35MB   16 descargas
•  eventos.jpg   52,78KB   2 descargas

[Delphius]

¡Wilson te pasaste! Te super agradezco que te hayas tomado el tiempo para preparar un ejemplo. Voy a estudiarlo y ver que tal me sale a mi.

 

Saludos,

[Agustin Ortu]

Marcelo, ya paso algun tiempo

 

Pudiste resolver? Ando muy interesado, como en el titulo se dice, en la parte GUI de esto

 

Yo tengo que hacer una "planilla Excel" con los horarios que dan clase los profesores de un gimnasio

 

Y mi idea fue usar un StringGrid. Click en la Celda, te trae un form, grabas el profe + la disciplina que imparte, eso divino

 

No le encuentro la vuelta a la presentacion, admito que soy bastante de cuerta para esto

 

Siempre dicen que las imagenes valen mas que mil palabras:

 

Esto es lo que tengo:

 

 

 

Me gustaria algo como esto (no me va mucho mejor con el paint que digamos...)

 

 

 

 

Algun genio puede darme una idea? O deberia usar otro componente y StringGrid es de suicidas?

Editado por Agustin Ortu, 18 abril 2016 - 08:47 .

[Delphius]

Hola Agustín, la verdad que no he podido dedicarme mucho a esto. Y no, no he podido darle forma definitiva a mi diseño. El ejemplo de Wilson es una aproximación Interesante, y es bastante probable que me termine inclinando a tomar prestado algunas cosas de su propuesta.

Al igual que tu pensaba en algo como tu segunda imagen, pero no he llegado a buen puerto todavía.

 

Mi caso es algo particular ya que la forma de entrada o de llenar tal "agenda" no es tan tradicional y eso me hace replantear otras opciones.

 

No se si es de Suicidas el StringGrid. Es racional pensar en uno. Al menos para mi caso, donde si bien el rango de horario es concreto, la naturaleza del problema hace medio impráctica tener tantas filas como horarios posibles. No me gusta mucho la idea de que se extienda demasiado "verticalmente".

Yo estaría volviendo a retomar esta parte recién dentro de una semana. Ando liado con mis tiempos.

 

Al igual que tu no se me da tan fácil el diseño de ventanas

 

Saludos,