Manual De Excel

Páginas: 10 (2293 palabras) Publicado: 29 de julio de 2011
Hola
Con este tutorial lo que se pretende es enseñar lo elementos básicos para hacer un programa de facturación sencillo.
Para este vamos a usar una base de datos ACCESS y componentes de sencillo uso de Delphi.
Empecemos con la base de datos:
Todo programa de facturación contiene elementos en común, como son:
Artículos, clientes, usuarios, facturas.
Asi empezaremos haciendo estas tablasdirectamente en access.
Articulos:

Clientes:

Usuarios:

Factura:

Una vez que terminemos con las tablas guardaremos nuestra base de datos en el directorio que deseemos, recordemos que lo necesitaremos para hacer la conexión con delphi.
Ya teniendo la tablas listas empezaremos con delphi, enlazando cada una y generando el código para que funcione nuestro programa.
Conexión a la base dedatos:
Para esto vamos a usar los componentes ADO, vamos a usar un datamodule y haremos un archivo INI que nos servirá para indicar donde esta nuestra base de datos.
Empecemos con delphi:
Generamos un nuevo proyecto, nos aparecerá un nuevo form (este sera el principal).
Vamos a File, New,data module y le damos click.

Esto nos generara un form DataModule para nuestro proyecto.
Vamos a lapaleta ADO,  seleccionamos un ADOConnection y lo colocamos en el datamodule, quedaria asi:

Le damos doble click a nuestro ADOConnection y nos saldrá esta pantalla:

Ahora presionamos el botón Build y nos saldra esta otra pantalla:
| Has click en esta barra para ver la imagen en su tamaño original. |
 

Una vez con esta pantalla seleccionamos la opción marcada Jet 4 y le damos next,nos saltara la otra pestaña:
| Has click en esta barra para ver la imagen en su tamaño original. |
 

Seleccionamos la primera opción y Presionamos el botón con tres puntos, con este buscaremos donde guardamos nuestra base de datos.
Una vez ubicada, la seccionamos y presionamos el boton Test connection, si es correcta nos saldra un mensaje indicandolo.
 
Con esto ya tenemos laprimera parte lista, ya hicimos la conexion con nuestra base de datos.
Seguimos.....
Seguimos con la conexión:
Como en este caso usaremos un archivo INI para la conexion necesitamos añadir al uses del datamodule el uses IniFiles.
para esto seleccionemos el unit del datamodule y le añadimos dicho uses, quedaria asi:
Código Delphi [Seleccionar]
------------------------------------------------- uses
  SysUtils, Classes, DB, IniFiles, ADODB, Forms, Dialogs;
Código Delphi

Nos posicionamos en el datamodule en la parte blanca y le damos doble click, esto nos generara el evento DataModuleCreate.
Ahora pondremos este cogido que es el que nos servirá para que el archivo INI nos encuentre la base de datos:
Código Delphi [Seleccionar]-------------------------------------------------
procedure TDataModule1.DataModuleCreate(Sender: TObject);
Var BaseDeDatos, ConStr : String;
    IniFile: TIniFile;
begin
   // Obtiene la ruta y el nombre de la base de datos
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'BDatos.ini');
   BasedeDatos := IniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then ShowMessage('Error alcargar Base de Datos');
   ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
             'Data Source='+BaseDeDatos+';'+
             'Persist Security Info=False;'+
             'Jet OLEDB:Database Password=admin';
   ADOConnection1.ConnectionString := ConStr;
   ADOConnection1.Open;
 
end;
 
Código Delphi
Como veis el evento buscara en el archivo INI que en este caso se llama BDatos.ini yenlazara la base de datos con la dirección de este archivo.
Para hacerlo un poco mas sencillo os dejo el archivo ini, solamente se tendria que cambiar la diereccion que se encuentra en PATH y listo.
Ya tenemos nuestra base de datos enlazada al ADOConnection y cuando arranque este se conectara al archivo INI que buscara la dirección de la base de datos.
Bueno sigamos con el primer form que se...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • Manual Excel
  • manual de excel
  • Manual de excel
  • Manual de excel
  • manual excel
  • Manual De Excel
  • Manual De Excel
  • Manual de excel

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS