Está hecho con Delphi 2009 - VCL para la web, lo que permite aprovechar los conocimientos que todos tenemos en Delphi para elaborar páginas web dinámicas de una forma sencilla para nosotros como programadores y con unos resultados sorprendentes.
Estas páginas se conectan a una base de datos Firebird simplemente poniendo los componentes Tibdatabase, tibtransaction y tibdataset en la unit "UserSession" (En esta unidad se colocan las variables y procedimientos comunes utilizadas por todas las units) y definiendo después sus propiedades (Databasename, Params) como habitualmente haríamos en una aplicación de Escritorio.
Utilizo las propiedades "OnAsync..." de los componentes que incorpora Delphi para programar acciones que se ejecutarán de forma asíncrona es decir sin necesidad de refrescar la página.
Ejemplos de código (vcl para la web):
- Ocultar una etiqueta iwlabel1 de una web:
Código Delphi
[-] iwlabel1.Visible := false;
- Poner los ítems del iwcombobox iwHorasCB de una web al valor '-';
Código Delphi
[-] FOR i := 0 TO 22 DO
iwHorasCB.items[i] := '--';
- Poner los datos de las celdas de una columna de la rejilla iwgrid1 al valor 'PRUEBA'
Código Delphi
[-] FOR I := 0 TO iwgrid1.rowcount - 1 DO
BEGIN
iwgrid1.Cells[i,1]:='PRUEBA'
END;
Recordad que no se puede poner un objeto TLabel en vcl for the web, tiene que ser un tIWLabel (y así con todos los componentes habituales)
Como véis el código es similar a lo que haríamos para programar una aplicación de Escritorio.
Desde Delphi 2009, Ir a File->New->VCL for the web New Application Wizard y probarlo, veréis lo fácil que es programar una aplicación web.