Programa (Mini Tutorial) novatos

[[Caral]]

Primero que nada agradecer al club delphi por permitirme este espacio.
Este mini tutorial solo pretende explicar los conceptos básicos para empezar a trabajar con Delphi, para este se tendrán que tener algunos conocimientos mínimos, muy mínimos, como los míos, así que animo.
He de mencionar que en este ejemplo uso Access como base de datos, no solo por que es el que mas conozco sino por ser de mas fácil acceso al principio, en tal caso se podrá utilizar cualquier base de datos con este ejemplo.
Debo decir que soy como muchos de los que empiezan un novato (aunque digan lo contrario y de lo cual esto agradecido) y que hay muchas maneras de hacer lo mismo, esta es solo una de ellas y no necesariamente la mejor, os aconsejo que este lo toméis como un ejemplo mas (mini tutorial).
Recordad que se me puede pasar algo, así que preguntad sin problemas.
Insto a los maestros de este club, así como a todos los foristas a ayudar en este mini tutorial.
Este programa va a ser para el manejo de una cuenta bancaria:
Depósitos, cheques, transacciones, reportes (QReport).

Iniciemos por la base de datos, Access:
Creemos una nueva base de datos y creemos nuestra primera tabla, Usuarios:



Como veis la clave principal esta en CodUsuario.
Este nos va a servir para entrar en nuestro programa en Delphi.

Ahora creemos nuestra segunda tabla, Banco:



CodTransac = numérico, automático
Retiros, Depósitos, SaldoAnt, SaldoTotal = Numérico, Doble, automático.



Bueno ahora seguimos con Delphi:
Empecemos un nuevo proyecto:
Al primer Form lo vamos a llamar, Banco y lo vamos a guardar, en la carpeta que nos interese, puede ser en proyects, al unit lo vamos a llamar UBanco.
NOTA: Es muy importante ponerle nombres alusivos a los forms, units y demás componentes ya que se nos hará más fácil entender los programas (esto lo aprendí por supuesto en el club Delphi, donde mas).
Vamos a File, new, Datamodule, esto nos creara un datamodule1, lo guardamos en la misma carpeta del proyecto al unit lo vamos a llamar UDM.
Vamos a View Units, y veremos los dos units Ubanco y UDM creados, además de uno que se llama Proyect1, que es el unit por decirlo así principal.
Abrid el proyect1 y cambiad el orden de esta línea así:

Código Delphi [-]
Begin      
Application.Initialize;
Application.CreateForm(TDataModule1, DataModule1); Application.CreateForm(TBanco, Banco); 
Application.Run;    
End.

Como veis esto hace que el datamodule se inicialice primero.

Bueno seguimos con el datamodule:
Vamos a utilizar los componentes ADO, están en la paleta ado.
Por que estos componentes, porque así no tendremos problemas con alias, instalaciones y demás cosas que nos afecten a los novatos.
Bien colocamos en el datamodule un ADOConnection y le cambiamos el nombre a AC1. (Ado Connection 1), fácil de recordar.
Quedaría así:




Ahora vamos a tratar de conectarnos a la base de datos:
Le damos doble clic al AC1, y nos aparecerá esta pantalla:


Le damos clic a Build y aparecerá esta otra pantalla:


Como veis usaremos el Provider: Microsoft Jet 4.0 OLE Provider, le damos clic a Siguiente, esto nos pasara a la siguiente pestaña, Conexión:


Aquí le daremos clic al botón con tres puntos y buscaremos la base de datos en la carpeta donde la hallamos guardado, (recordad donde fue).
Ahora le daremos clic al botón Probar Conexión, si la conexión fue correcta, nos aparecerá una indicación diciendo que la prueba de conexión fue satisfactoria, dadle aceptar a todo para salir de estas pantallas, ya tenéis conexión Delphi, Access, que bien.
Bueno en el siguiente post Tratare de empezar con el programa.
Aqui esta la base de datos:
Edito: Aqui: http://www.terawiki.clubdelphi.com/D...32/Tutoriales/
Esta el codigo completo del tutorial, se llama (Mini Tutorial, novatos.zip)

Saludos

[[Caral]]

Aquí volvemos:
Bueno empecemos con lo interesante, Delphi:
Ya tenemos el primer form creado Banco, a este le vamos a añadir varios componentes:
NOTA: Hay que tener en cuenta que los componentes conectores de las tablas, AdoTable, AdoQuery, datasource, pueden ir en el datamodule que creamos, simplemente dandole la direccion a estos desde el form, lo digo como comentario, en este caso los colocare directo en el form para facilitar el tutorial.
Aquí veréis más o menos los que van:


Detalle:
2- Panel, en uno, al caption le ponemos (Nuestro Banco), el otro vació.
1- ADOTable
Cambiar nombre por Banco
2- ADOQuery
a- Cambiar nombre por SumRet
b- Cambiar nombre por SumDep
Ya veremos la sentencia sql de estos
1- PopupMenu
Este nos servirá para los reportes, ya llegaremos.
3- Datasource
Conectar
1- Banco
2- SumRet
3- SumDep
5- Botones, los que prefiráis
Cambiarles el nombre por:
1- Nueva transacción
2- Aceptar Depósito
3- Aceptar Cheque, (Quedara escondido debajo de aceptar depósito.)
4- Reportes
5- Cancelar
1- DBNavegator. ( + )
1- DateTimePicker
Cambiar nombre por DTP1
1- ComBobox
Cambiar nombre por CBTipo
5- DBEdit
1- DBNTransac
2- DBDescrip
3- DBDeposit
4- DBRetiros, (Quedara escondido debajo de dbdeposit.)
5- DBSalAnt
1 Edit
Cambiar nombre por ESaltot
No os olvideis de colocar los labels necesarios, para identificar cada parte, seguid la foto como referencia.

Bueno ya tenemos esto ahora hay que ponerlo en marcha, en mi siguiente post lo haremos, además de hacer el login, el archivo ini, los reportes, huiii, si que falta, bueno un poco de paciencia.
Saludos

[[Caral]]

Bueno, aquí sigo:
Antes de conectar los componentes abrimos un momento al datamodule y nos posesionamos en el AC1, aquí colocaremos en su opción loginPrompt en False, con esto no nos pedira contraseña la base de datos.
Ahora abramos el form Banco y conectemos los componentes a las tablas.

Empecemos con el AdoTable (Banco):
Coloquémonos en este, en el inspector de objetos buscaremos y pondremos lo siguiente:
1- Connection: DataModule1.AC1
Con esto lo que estamos haciendo es conectarnos al datamodule y al AdoConnection (AC1), al hacer esto se activara el componente y pasaremos al segundo paso.
2- TableName: Buscaremos con la flecha la tabla Banco.
3- Dale doble clic al AdoTable (Banco), te saldrá una pantallita pequeña, dale clic derecho y addFields, te saldrá otra pantallita, en esta veras todos los campos de la tabla, seleccionados, presiona OK, cierra la pantallita pequeña, ya tenemos conectado y listo el primer componente.

Conectemos el ADOQuery1 (SumRet):
1- Hagamos lo mismo que el paso 1 del componente anterior (conectarnos).
2- Estos componentes hacen la conexión a la tabla por medio de sentencia sql, por esta razón no tienen la propiedad tablename, pero tienen la propiedad SQL (TStrings) en donde trabajaremos.
Bien coloquémonos en esta, veremos un botón con tres puntos, al presionarlo nos saldrá una nueva pantalla (String List Editor) en esta escribiremos la siguiente sentencia:

Código SQL [-]
SELECT DISTINCTROW Sum([Banco].[Retiros]) AS [Suma De Retiros]
FROM Banco;

Con esta sentencia hacemos una distinción entre los campos, a la vez sumamos el campo Retiros y lo renombramos, presiona OK y listo.
3-Haremos lo mismo que el paso 3 del componente anterior, por supuesto con este ADOQuery1 (SumRet).

Conectemos el ADOQuery2 (SumDep):
1- Lo mismo que ADOQuery1 (SumRet):
2- Siguiendo los mismos pasos del componente ADOQuery1 (SumRet), pero pondremos esta sentencia sql:

Código SQL [-]
SELECT DISTINCTROW Sum([Banco].[Depósitos]) AS [Suma De Depósitos]
FROM Banco;

3- Haremos lo mismo que el paso 3 del componente anterior, por supuesto con este ADOQuery2 (SumDep).

Bueno ya tenemos la base de datos conectada y a su vez las tablas con todos sus campos en el lugar adecuado.
NOTA: Me han hecho el comentario al respecto de colocar el código y la base de datos de este mini tutorial, si obtengo el permiso del club, lo colocare al final del mismo.
En el siguiente post veremos más.
Espero todavía sigáis este y os sirva.

Saludos

[Neftali [Germán.Estévez]]

Pues muchas gracias Caral.
Estaría bien (si no te importa), subir el código de ejempo al FTP y añadir el link.
¿Qué te parece?

[[Caral]]

Aquí seguimos.
Primero darle las gracias a Neftali por su comentario y apoyo, con vuestro permiso subiere el código al momento de terminar este, la base de datos creo que es pequeña y se puede poner aquí mismo.
He modificado en primer post, para subir la base de datos, así podrán seguir esto desde el principio.
Saludos

[[Caral]]

Bueno aquí estoy de nuevo.
Ya nos conectamos a la base de datos ahora conectaremos los DBEdit a sus respectivos componentes.
Ya teníamos conectados los datasource con su respectivo componente ADO, esto lo vimos en el segundo post (revisadlo), de todos modos recordad que se conectan en su propiedad DataSet, con la flechita.
Ahora conectaremos los DBEdit a los DataSource.
NOTA: Quiero hacer notar que también se pueden obtener los dbedit directamente de los componentes Ado, recordáis la pantallita pequeña en donde están los campos, pues con solo seleccionarlos y paradlos al form quedaran listos y activados, este procedimiento es efectivo pero en mi caso prefiero hacer una colocación de los componentes primero y luego la activación de los mismos, es un asunto de gustos, pero de todos modos quise daros la explicación del caso.
Sigamos:
Primero recordad que a los DBEdit se les cambio el nombre así que usare estos (post 2).
1- DBNtransac:
Datasource = Datasource1
DataField = CodTransac
2- DBDescrip:
Datasource = Datasource1
DataField = Descripción
3- DBDeposit:
Datasource = Datasource1
DataField = Depósitos
4- DBRetiros:
Datasource = Datasource1
DataField = Retiros
5- DBSalAnt
Datasource = Datasource1
DataField = SaldoAnt
Listos y conectados, podéis cambiarles el tipo de letra y tamaño en su propiedad Font, bueno hay muchas cosas mas que se pueden hacer, seguro ya experimentareis.

El componente ComBobox (CBTipo):
Nos posesionamos en este y en su propiedad Items (TString) presionaremos el botón, con esto nos saldrá otra pantalla, en esta escribiremos lo siguiente:
Uno debajo del otro:
Retiros
Depósitos
Y presionamos OK en esta pantalla
Su propiedad ItemIndex tiene que estar en -1, con esto aparecerá en blanco obligando a escoger una de las dos opciones (podéis experimentar con esta veréis los resultados).

El componente DBNavigator :
Posesiónense en el y en su propiedad VisibleButtons presione el signo +, cambie a False todos los tipos con la flecha excepto el que dice NBInsert, este quedara True.
En su propiedad DataSource pondremos con la flecha DataSource1.

Bueno por ahora no hemos escrito nada de código (Delphi lo hace todo) pero ya estamos a punto de poner esto en marcha.
Espero sigáis este y no os aburráis con mis explicaciones, trato de ser lo mas explicito posible.
Saludos

[sevilla19742]

Me gustaría tener el código fuente de esta aplicación porque hay cosas que se me pierden.... (soy nuevo, 2 días en Delphi) y quiero tenerlas bien claras, y dado que el link no funciona aquí estoy
sevilla19742

[[Delphius]]

Empezado por sevilla19742

Me gustaría tener el código fuente de esta aplicación porque hay cosas que se me pierden.... (soy nuevo, 2 días en Delphi) y quiero tenerlas bien claras, y dado que el link no funciona aquí estoy
sevilla19742

Hola sevilla19742,
Puede ser útil lo que he dicho justo un mensaje antes:

Empezado por Delphius

Hola n3m3515n3t,
Bienvenido a clubdelphi!
Aprovecho la ocasión para informarte de la guia de estilo. Sea oportuno que te tomes unos minutos para leerla.

Si recién te inicias, te aconsejo la lectura de los libros que puedes encontrar en el FTP. Sobre todo el libro Cara Oculta de Delphi 4.
Y en la sección wiki encontrarás ejemplos que otros miembros han aportado.

En lo posible evita seguir el tema aquí, pues tu pregunta no va con la temática del tema. Esto está aclarado en la guia.

Saludos,

Saludos,

[w_mathesius]

Hola,

acabo de registrarme en el foro. Quiero empezar a programar en Delphi y no tengo ni idea de cómo hacerlo. He instalado Borland Developer Studio 2006 y me gustaría comprar algún libro para empezar. Tengo algunos tutoriales pero no sé si quedan anticuados. Quizás pudieras recomendarme algo o algún libro interesante que conozcas. Podría empezar con tu pequeño tutorial, o es demasiado?


Gracias

[Neftali [Germán.Estévez]]

Empezado por w_mathesius

Hola,

acabo de registrarme en el foro. Quiero empezar a programar en Delphi y no tengo ni idea de cómo hacerlo. He instalado Borland Developer Studio 2006 y me gustaría comprar algún libro para empezar. Tengo algunos tutoriales pero no sé si quedan anticuados. Quizás pudieras recomendarme algo o algún libro interesante que conozcas. Podría empezar con tu pequeño tutorial, o es demasiado?


Gracias

Hola w_mathesius, bienvenido a los foros.
Ya que eres nuevo te recomendo que leas la Guía de estilo de los foros.

En cuanto a manuales, en el FTP del Club tienes mucha información, incluídos manuales, ejemplos,... Personalmente para comenzar te recomiendo "La cara oculta de Delphi 4"; No se asustes, aunque sea para la versión 4, para empezar sirve como cualquier otro.

Un saludo.

[[Caral]]

Hola
Aparte de lo dicho por el Maestro Neftali
Te sugiero que te des una vuelta por el wiki del club en especial aquí, hay mucha información para poder empezar, ademas cualquier duda que tengas solo abres un hilo y con gusto te ayudaremos en lo que necesites.
Para eso estamos, para ayudarnos mutuamente.
Saludos

[w_mathesius]

Gracias por tu respuesta y amabilidad Caral!
Miraré donde me dices.
Espero poder ayudar yo a alguien algun dia!
Saludos

[w_mathesius]

Hola Caral,

perdona que me dirija a tí, pero como me respondiste ayer...
Resulta que me he bajado el libro "La cara oculta de Delphi". Lo he impreso y todo, con la ilusión de poder empezar a hacer cositas... pero es mucho más complejo de lo que pensaba.
Verás, me he instalado Borland Developer Studio 2006. Ni siquiera se qué versión de Delphi usa. Pensé que en el libro "La cara oculta de Delphi" empezaríamos haciendo algún ejemplo, a conocer la interfaz gráfica...
Pero se habla y habla de conceptos y no sé cómo meterle mano a esto.
He mirado el código de algunos de los ejemplos que hay en la ftp del foro, pero sigue siendo muy complicado para mí... Verás no tengo ni idea de qué va esto de programación orientada a objetos.

No conoces un manual o algún libro (puedo comprarlo en alguna librería si fuera necesario) donde me enseñen a programar en Delphi desde el principio, con ejemplitos tontos, y a ser posible usando Borland Developer Studio 2006?

Quizás diga muchas tonterías, pero como te digo no tengo ni idea... Tus consejos o la de cualquier otro compañero me serán de mucha ayuda para empezar con éxito. Tengo miedo de desilusionarme y quedarme en el intento...

Muchas gracias y feliz Navidad!

[maxzama]

hola.

El problema, es que no veo las imagenes del tutorial. (Tengo que vajar alguna aplicacion, para esto o algun permiso).

disculpen la molestia, y espero sus respuesta por favor y gracias...

[Casimiro Notevi]

Me temo que los de imageshack las han borrado
A ver si Caral las tiene y vuelve a subirla a otro sitio.

Por cierto, 'vajar' , hombre, un poquito de cuidado con la ortografía

[maxzama]

jaja, vale. gracias. (corrección:= 'bajar')...

[Ñuño Martínez]

En realidad Imageshack no ha borrado las imágenes, sino que ahora, si quieres enlazarlas desde fuera, hay que pagar. También hay que pagar para subir nuevas imágenes.

[krlox31416]

te felicito Caral!!!

estas utilizando componentes que yo hasta hoy no sabia
más bien siempre los vi más nunca hice el intento de hechar a andar esto..

siempre usaba mis tablas...

[jandrorm]

Buenas he estado buscando el codigo completo en el FTP y no lo he encontrado, fue elminiado o esta en algun sitio en concreto? Gracias.

[Casimiro Notevi]

Aquí está, la verdad es que está complicadito de encontrar, hace falta reorganizar esa sección.