PC Shop — Aplicación de gestión desarrollada con Delphi 12

[jaoj]

PC Shop – semana 1-1 31/07/2026

Inicio del desarrollo

Hoy comienzo el desarrollo de PC Shop, una aplicación de escritorio para Windows desarrollada con Delphi 12 Community Edition.

El objetivo del proyecto no es crear un ERP complejo, sino construir paso a paso una aplicación sencilla, bien estructurada y completamente funcional que sirva como demostración técnica y como base para futuros desarrollos.

En esta primera jornada se ha realizado:

Creación del proyecto VCL.
Configuración del formulario principal.
Diseño del menú principal de la aplicación.
Creación del primer módulo: Gestión de Productos.
Implementación de una primera interfaz con campos de edición, botones y una tabla para visualizar los productos.

La filosofía del proyecto será desarrollar pequeñas funcionalidades completamente operativas antes de pasar a la siguiente fase, documentando todo el proceso de forma pública.

Próximo objetivo

Separar la lógica de negocio de la interfaz mediante la creación de la clase TProducto, preparando una arquitectura más limpia y la futura persistencia de datos.

Estado: En desarrollo
Tecnología: Delphi 12 Community Edition (VCL)
Plataforma: Windows 10/11

#Delphi #Delphi12 #ObjectPascal #WindowsDevelopment #SoftwareDevelopment #InformatOli #PCShop #GitHub

[jaoj]

# PC Shop — Semana 1-3
## TProducto: comenzando la arquitectura del proyecto

Continuamos avanzando en el desarrollo de **PC Shop**, una aplicación de escritorio para Windows desarrollada con **Delphi 12 Community Edition**.

En esta sesión se da un paso importante en la arquitectura del proyecto. Hasta ahora el formulario de productos trabajaba directamente con los controles de la interfaz (`TEdit` y `TStringGrid`). A partir de este momento se comienza a separar la lógica de negocio de la presentación mediante la creación de la clase **TProducto**.

Durante la sesión se ha realizado el siguiente trabajo:

- Creación de la unidad `uProducto`.
- Definición de la clase `TProducto`.
- Incorporación de las propiedades básicas:
- Código
- Descripción
- Categoría
- Precio
- Stock
- Implementación del constructor `Create`.
- Creación del primer objeto `FProducto`.
- Modificación del botón **Guardar** para copiar los datos introducidos en el formulario al objeto `TProducto`.
- Actualización del `TStringGrid` para mostrar la información obtenida desde el objeto, en lugar de leer directamente los controles de la interfaz.

Aunque visualmente la aplicación apenas cambia, internamente se produce una mejora importante. La interfaz deja de ser la responsable de almacenar los datos y comienza a trabajar con un modelo de objetos, una base fundamental para mantener un código más limpio, organizado y fácil de ampliar.

Este cambio permitirá que en las próximas sesiones el proyecto evolucione de forma natural hacia la gestión de múltiples productos, la utilización de listas de objetos y, posteriormente, el almacenamiento permanente de la información mediante archivos JSON.

### Próxima sesión

En la **Semana 1-4** se sustituirá el único objeto `TProducto` por una colección `TObjectList<TProducto>`, permitiendo gestionar varios productos simultáneamente y preparando la aplicación para la futura persistencia de datos.

---

**Proyecto:** PC Shop
**Tecnología:** Delphi 12 Community Edition (VCL)
**Plataforma:** Windows 10/11

[jaoj]

PC Shop — AGOSTO, Semana 1-1 — #POST 1

En esta primera jornada de agosto se incorpora una colección TObjectList<TProducto> para gestionar los productos de la aplicación.

La colección se configura como propietaria de los objetos que contiene. De esta forma, cada instancia de TProducto se libera correctamente cuando se elimina de la lista o cuando se destruye la colección al cerrar el formulario.

Trabajo realizado:

Creación de TObjectList<TProducto>.
Configuración de la colección como propietaria de los objetos.
Integración de la colección con el alta de productos.
Eliminación del objeto correspondiente al borrar una fila.
Liberación correcta de la colección al cerrar el formulario.
Sincronización entre los índices del TStringGrid y los índices de TObjectList.

Resultado:

Cada producto se almacena como un objeto independiente dentro de la colección. La tabla continúa mostrando los datos, pero la información comienza a gestionarse desde el modelo y no exclusivamente desde los controles visuales.

Próximo objetivo:

Se crea un procedimiento encargado de actualizar completamente el TStringGrid a partir de la colección de productos. Con este cambio, TObjectList<TProducto> se convierte en la fuente principal de información de la aplicación.

Estado: En desarrollo
Delphi 12.1 Community Edition
VCL para Windows 10/11

[jaoj]

PC Shop — AGOSTO, Semana 1-2 — #POST 2

En esta segunda jornada de agosto se modifica la forma en la que el formulario actualiza el TStringGrid.

Hasta ahora, determinadas operaciones modificaban directamente las filas de la tabla. En esta sesión se crea el procedimiento ActualizarTablaDesdeColeccion, que reconstruye completamente el contenido del TStringGrid utilizando los objetos almacenados en FProductos.

Trabajo realizado:

Se declara e implementa ActualizarTablaDesdeColeccion.
Se ajusta automáticamente el número de filas.
Se recorre TObjectList<TProducto>.
Se muestran en la tabla las propiedades de cada producto.
Guardar deja de escribir directamente en el TStringGrid.
Eliminar deja de desplazar manualmente las filas.
La tabla se actualiza después de añadir o eliminar productos.
Se eliminan variables y código que dejan de ser necesarios.

Resultado:

FProductos constituye la fuente principal de información. El TStringGrid deja de almacenar o gestionar directamente los datos y se limita a representar visualmente el contenido de la colección.

Flujo actual:

Formulario
↓
TProducto
↓
TObjectList<TProducto>
↓
ActualizarTablaDesdeColeccion
↓
TStringGrid

Dificultad resuelta:

Al declarar ActualizarTablaDesdeColeccion sin implementar el método, Delphi muestra el siguiente error:

E2065 Unsatisfied forward or external declaration

El error se resuelve implementando el procedimiento correspondiente dentro de la sección implementation.

Próximo objetivo:

Permitir seleccionar un producto desde el TStringGrid, cargar sus propiedades en los campos del formulario y preparar la edición de productos existentes.

Commit conceptual:

refactor(productos): actualizar TStringGrid desde la colección de productos

Estado: En desarrollo
Delphi 12.1 Community Edition
VCL para Windows 10/11

[jaoj]

PC Shop — AGOSTO, Semana 1-4 — #POST 4/4

Se completa la cuarta jornada de desarrollo de la semana reforzando el módulo de Productos mediante nuevas validaciones y un control más claro de los estados de alta y edición.

Trabajo realizado:

Se validan todos los campos obligatorios.
Se refuerza la validación numérica de Precio y Stock.
Se impiden códigos de producto duplicados.
Durante una modificación se permite conservar el código del propio producto.
Se añade desde el diseñador VCL el indicador lblModo.
El formulario diferencia visualmente Modo: Alta y Modo: Edición.
Nuevo cancela correctamente una edición.
Guardar devuelve el formulario al modo Alta.
Eliminar limpia los campos y reinicia la selección.
Se comprueba el funcionamiento conjunto de altas, modificaciones y eliminaciones.

Resultado:

El módulo Productos dispone ya de un flujo básico completo de alta, selección, modificación y eliminación.

FProductos continúa siendo la fuente principal de información y el TStringGrid únicamente representa visualmente el contenido de la colección.

Flujo actual:

ALTA
↓
Validación
↓
TProducto
↓
FProductos
↓
ActualizarTablaDesdeColeccion
↓
TStringGrid

La edición sigue el mismo modelo:

Selección
↓
Objeto TProducto
↓
Modificación
↓
FProductos
↓
ActualizarTablaDesdeColeccion

Dificultades resueltas:

- Se evita utilizar un código perteneciente a otro producto.
- Se permite conservar el código del producto que se modifica.
- El formulario vuelve correctamente al modo Alta después de guardar, eliminar o pulsar Nuevo.
- Las nuevas validaciones mantienen operativas las funcionalidades anteriores.

Próximo objetivo:

Incorporar persistencia para almacenar FProductos en disco y recuperar los productos al iniciar nuevamente PC Shop.

Commit conceptual:

feat(productos): reforzar validaciones y estados de alta y edición

AGOSTO — SEMANA 1: 4/4 jornadas completadas.

[jaoj]

PC Shop — AGOSTO, Semana 2-1 — #POST 1

Se inicia una nueva fase del desarrollo de PC Shop: la persistencia mediante una base de datos relacional.

Durante esta jornada se trabaja primero con Pascal y SQL y posteriormente se realiza una integración práctica en Delphi 12.1.

Trabajo realizado:

Práctica con CREATE TABLE.
Práctica con INSERT.
Práctica con SELECT.
Práctica con UPDATE.
Creación de un Data Module en Delphi.
Incorporación de FireDAC.
Configuración de una conexión SQLite.
Creación de la base local pcshop.db.
Creación y comprobación de la tabla PRODUCTOS desde Delphi.

Resultado:

PC Shop dispone ya de una primera infraestructura de persistencia relacional.

La aplicación comienza a separar claramente responsabilidades:

Interfaz VCL
↓
Modelo
↓
Data Module
↓
FireDAC
↓
SQLite

Dificultades resueltas:

Durante las pruebas se detecta un bloqueo de SQLite provocado por mantener abierta una conexión durante el diseño.

Se identifica la causa y se corrige la configuración.

También se resuelve la dependencia necesaria para utilizar ShowMessage desde el Data Module.

Competencias trabajadas:

- Delphi / VCL.
- Aplicaciones de escritorio.
- FireDAC.
- Bases de datos relacionales.
- SQL.
- SQLite.
- Organización por capas.
- Mantenimiento del código.
- Diagnóstico y resolución de errores.

Próximo objetivo:

Alinear la estructura de la tabla PRODUCTOS con TProducto y realizar el primer INSERT parametrizado desde Delphi hacia SQLite.

Commit conceptual:

feat(database): iniciar persistencia SQLite con FireDAC

Repositorio público:

https://github.com/101aero/pcshopPB

[jaoj]

PC Shop — AGOSTO, Semana 2-3 — #POST 3

En esta tercera jornada se completa la recuperación de los productos almacenados en SQLite.

Trabajo realizado:

Se implementa SELECT sobre la tabla PRODUCTOS.
Se utiliza un TFDQuery específico para la consulta.
Cada registro recuperado se convierte en un objeto TProducto.
Los objetos se incorporan a FProductos.
El TStringGrid se reconstruye posteriormente desde la colección.
Se comprueba la persistencia cerrando y volviendo a ejecutar PC Shop.
Los productos reaparecen correctamente sin duplicarse.

Resultado:

El flujo de carga queda organizado de esta forma:

SQLite
↓
FireDAC
↓
Data Module
↓
TProducto
↓
FProductos
↓
ActualizarTablaDesdeColeccion
↓
TStringGrid

Dificultades resueltas:

Durante las pruebas aparece una Access Violation.

Mediante depuración paso a paso se determina que dmDatos se utiliza antes de haber sido creado.

Se corrige el orden de Auto-create forms, situando el Data Module antes de frmProductos.

También se integra una versión actualizada de Productos.pas que conserva la carga desde SQLite y las correcciones anteriores relacionadas con Precio y Stock.

Competencias trabajadas:

- Delphi / Object Pascal.
- VCL.
- FireDAC.
- SQLite.
- SQL SELECT.
- Transformación de registros en objetos.
- TObjectList.
- Gestión de memoria.
- Separación de responsabilidades.
- Depuración.
- Mantenimiento de código.

Próximo objetivo:

Implementar UPDATE parametrizado para persistir también las modificaciones realizadas sobre productos existentes.

Commit conceptual:

feat(productos): cargar productos desde SQLite mediante FireDAC

Repositorio:

https://github.com/101aero/pcshopPB

[jaoj]

PC Shop — AGOSTO, Semana 2-4 — #POST 4/4

En esta cuarta jornada se implementa la persistencia de las modificaciones realizadas sobre productos existentes.

Trabajo realizado:

Se implementa ActualizarProducto en el Data Module.
Se utiliza UPDATE parametrizado mediante FireDAC.
Se actualizan Nombre, Precio y Stock utilizando Codigo para localizar el registro.
El formulario modifica primero el objeto TProducto.
La persistencia se delega posteriormente al Data Module.
El SQL permanece fuera de Productos.pas.
Se utiliza RowsAffected como apoyo para diagnosticar el resultado del UPDATE.
Se comprueba la ruta utilizada por pcshop.db.

Resultado:

Las modificaciones realizadas desde la interfaz se almacenan correctamente en SQLite.

La comprobación completa consiste en modificar un producto, cerrar PC Shop y volver a ejecutar la aplicación. El SELECT implementado anteriormente recupera los nuevos valores.

Flujo actual:

Formulario VCL
↓
TProducto
↓
Data Module
↓
UPDATE parametrizado
↓
FireDAC
↓
SQLite

Dificultades resueltas:

- Se diferencia entre modificar el objeto en memoria y persistir realmente el cambio.
- Se revisa la ruta de la base de datos.
- Se utiliza RowsAffected para comprobar si Codigo identifica un registro existente.

Competencias trabajadas:

- Delphi / Object Pascal.
- VCL.
- FireDAC.
- SQLite.
- SQL UPDATE parametrizado.
- Bases de datos relacionales.
- Separación de responsabilidades.
- Depuración.
- Mantenimiento y calidad de código.

Próximo objetivo:

Implementar DELETE parametrizado y completar el CRUD persistente de PRODUCTOS.

Commit conceptual:

feat(productos): persistir modificaciones mediante UPDATE parametrizado

Repositorio:

https://github.com/101aero/pcshopPB

[jaoj]

PC Shop — AGOSTO, Semana 3-1 — #POST 1

En esta jornada se implementa DELETE parametrizado para completar la eliminación persistente de productos.

Trabajo realizado:

Se incorpora un TFDQuery específico en el Data Module.
Se implementa DELETE parametrizado mediante Codigo.
El formulario delega la persistencia en dmDatos.
Se comprueba RowsAffected antes de modificar la colección en memoria.
FProductos y TStringGrid solo se actualizan cuando SQLite confirma la eliminación.

Flujo:

Formulario VCL
↓
Producto seleccionado
↓
Data Module
↓
DELETE FROM PRODUCTOS
WHERE Codigo = :Codigo
↓
SQLite
↓
RowsAffected
↓
FProductos
↓
TStringGrid

Prueba realizada:

1. Se crea un producto.
2. Se comprueba su persistencia.
3. Se elimina desde PC Shop.
4. Se cierra completamente la aplicación.
5. Se vuelve a ejecutar.
6. El producto ya no aparece.

Dificultades resueltas:

- Error “Parameter 'Codigo' not found” provocado por un parámetro SQL incorrecto.
- Error “List index out of bounds” debido a dos llamadas a FProductos.Delete sobre el mismo elemento.

Resultado:

El CRUD persistente básico de PRODUCTOS queda disponible mediante FireDAC + SQLite:

CREATE
READ
UPDATE
DELETE

Competencias trabajadas:

- Delphi / Object Pascal
- VCL
- FireDAC
- SQLite
- SQL parametrizado
- RowsAffected
- Bases de datos relacionales
- TObjectList
- Separación de responsabilidades
- Depuración
- Mantenimiento

Próximo objetivo:

Consolidar el CRUD, revisar definitivamente UPDATE y continuar mejorando la capa de acceso a datos.

Commit conceptual:

feat(productos): completar DELETE persistente con FireDAC y SQLite

Repositorio:

https://github.com/101aero/pcshopPB

[jaoj]

PC Shop — AGOSTO, Semana 3-3 — #POST 3

Después de completar el CRUD persistente de PRODUCTOS, esta jornada se dedica al mantenimiento y organización de la capa de acceso a datos.

El objetivo no es añadir nuevas funcionalidades, sino revisar el código existente y mejorar únicamente aquello que aporta una ventaja concreta.

Arquitectura revisada:

Productos.pas
↓
TProducto
↓
Datos.pas
↓
FireDAC
↓
SQLite

Las operaciones persistentes permanecen centralizadas en Datos.pas:

- InsertarProducto
- ActualizarProducto
- EliminarProducto
- CargarProductos

Cambios realizados:

Se simplifica DataModuleCreate.

Se elimina la antigua comprobación visual de sqlite_schema y el ShowMessage.

Su responsabilidad queda reducida a:

abrir conexión
↓
garantizar PRODUCTOS
↓
terminar

Se elimina Vcl.Dialogs de Datos.pas.

La capa de persistencia deja de mostrar mensajes pertenecientes a la interfaz.

CargarProductos utiliza try/finally.

De esta forma qryListarProductos se cierra incluso si ocurre una excepción durante la lectura.

InsertarProducto pasa a devolver Boolean.

El criterio queda alineado:

INSERT → Boolean
UPDATE → Boolean
DELETE → Boolean

utilizando RowsAffected para determinar si SQLite ha realizado realmente la operación.

Productos.pas permanece independiente de FireDAC.

El formulario utiliza:

dmDatos.InsertarProducto(...)
dmDatos.ActualizarProducto(...)
dmDatos.EliminarProducto(...)
dmDatos.CargarProductos(...)

sin acceder directamente a TFDQuery o TFDConnection.

Se simplifica el flujo de errores de UPDATE.

Se utiliza un flujo más lineal:

operación
↓
¿falla?
├─ sí → recuperar estado + mensaje + Exit
└─ no → continuar

Decisión de mantenimiento:

No se renombra qryProductos porque el cambio sería principalmente cosmético y no justifica ampliar innecesariamente la refactorización.

Verificación final en Delphi 12.1:

CREATE
READ
UPDATE
DELETE
Cerrar/abrir aplicación

Resultado:

La aplicación mantiene el mismo comportamiento funcional, pero la capa de persistencia queda más coherente, aislada y preparada para futuras ampliaciones.

Competencias trabajadas:

- Delphi / Object Pascal
- FireDAC
- SQLite
- SQL
- RowsAffected
- Gestión de datasets
- try/finally
- Separación de responsabilidades
- Refactorización
- Mantenimiento de código
- Gestión de errores
- Git

Commit:

refactor(data): simplify persistence layer and standardize CRUD results

Repositorio:

https://github.com/101aero/pcshopPB