Ok ya tenemos el servidor de aplicaciones ahora tenemos que implementar la aplicación para los clientes, para ello creamos un nuevo proyecto en Delphi y agregamos un módulo servidor (Server Module) a nuestra aplicación. En este módulo agregamos los siguientes componentes:
Un SQLConnection1 el cual configuramos de la siguiente manera:
Driver: Como ya tenemos nuestro servidor de aplicaciones configurado, en esta propiedad del SQLConnection1 seleccionamos DataSnap que es el driver que corresponde a nuestro servidor ya creado.
HostName: Colocamos la IP o ruta donde se encuentra nuestro servidor de aplicaciones en este caso localhost.
Port: Este valor debe ser igual al configurado en nuestro servidor de aplicaciones en el componente DSTCPServerTransport1, en este caso 211 que es el valor que trae por defecto.
Hasta el momento iría de esta forma:
Agreguemos un DSProviderConnection1 de la paleta DataSnap Client y en su propiedadServerClassName colocamos en nombre de la clase que contiene los controles de conexión a nuestra base de datos del servidor de aplicaciones, el mismo nombre que colocamos en el evento OnGetClass de nuestro componente DSServerClass1 que se encuentra en el módulo principal del servidor de aplicaciones, ahora bien el valor entonces para esta propiedad seria TDSServerModule1.
Listo señores hasta ahora vamos muy bien ya nuestro proyecto para los clientes ya se puede conectar a nuestros servidor de aplicaciones.
La siguiente grafica muestra lo que llevamos hasta el momento:
Bueno señores a lo que vinimos ahora vamos a colocar un componente llamadoClientDataSet de la paleta Data Access, le combinamos el nombre (Name) por Clientesy el la propiedad RemoteServer seleccionamos el componente DSProviderConnection1 agregado anteriormente en nuestro proyecto.
Ahora algo muy importante de este señor llamado ClientDataSet, es el que se va a encargar de recibir y enviar la información de nuestros clientes a nuestro servidor de aplicaciones.
Después que ya lo hemos conectado a través de sus propiedad RemoteServer, él debe listar todos los DataSetProvider que hallamos agregado en nuestro servidor de aplicaciones, esta lista la muestra en la propiedad ProviderName, hay seleccionamos elDataSetProvider con el que va a trabajar este ClientDataSet y listo, ya no es más que llamarlo de alguna ventana para mostrar datos a través de un DataSource en un DBGribo ejecutar operaciones de Inserción, edición o eliminación, ya eso queda a criterio del desarrollador.
Por ultimo agregamos un componente DataSource y lo relacionamos con nuestrosClientDataSet en la propiedad DataSet, a este DataSource le colocamos en nombre deDTClientes.
Ahora simplemente agregamos un nuevo formulario al proyecto agregamos varios componentes visuales (Botones, Edit y Un DBGrid), relacionamos el DBGrid con elDataSource que colocamos en el módulo del proyecto y varias líneas de código en los botones y todo quedaría de la siguiente forma.
Nada del otro mundo, todo muy sencillo.
Gráfico de la Unidad Completa.
Gráfico de la Unidad Completa.
Nota: El proyecto completo lo puede descargar en Utilidades, hay están por separado los dos proyectos el Servidor de Aplicaciones y El Aplicativo de Cliente. También está un archivo de texto llamado SQL de La Base de Datos para que crees la tabla igual a la del proyecto.
Conocimiento e Información al alcance de todos…
Frans Willian Garner
Cuando tienes una tabla ya filtrada con where y te de mas 3.000 registros. para mostrar esos 3.000 registros de forma rápida como lo harías
ResponderEliminar