Ir al contenido



Foto

Tutorial (Como hacer un programa de Facturacion)


  • Por favor identifícate para responder
84 respuestas en este tema

#81 Caral

Caral

    Advanced Member

  • Administrador
  • 4.218 mensajes
  • LocationCosta Rica

Escrito 07 junio 2016 - 10:44

Hola
De ninguna manera
Saludos
  • 0

#82 luisbillr

luisbillr

    Newbie

  • Miembros
  • Pip
  • 1 mensajes

Escrito 13 agosto 2016 - 06:23

Caral? necesito tu ayuda.

debo hacer este sistema de facturacion. pero necesito ir agregando los datos en el 

DBGrid uno a uno y que se vayan acumulando uno a uno y que al final se guarden todos con el mismo

numero de Factura , utilizando una base de datos conectada a SQLServer 2008 


  • 0

#83 Hugo R Sabala

Hugo R Sabala

    Newbie

  • Miembros
  • Pip
  • 1 mensajes

Escrito 21 marzo 2018 - 09:32

como puedo ver las imagenes de este tema de facuraccion


  • 0

#84 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 13.744 mensajes
  • LocationMéxico

Escrito 21 marzo 2018 - 11:22

como puedo ver las imagenes de este tema de facuraccion


Buen día, lamento que no se vean las imagenes, tuvimos una pérdida de datos en una de las "mudanzas" que realizamos al inicio de la comunidad y no hemos podido recuperar muchas imagenes y código de nuestros amigos. :(

Aunque ahora que he visto los enlaces de las imágenes estaban en imageshack.us y al parecer ya no están disponibles.

Saludos
  • 0

#85 Hugosaba

Hugosaba

    Newbie

  • Miembros
  • Pip
  • 1 mensajes

Escrito 25 marzo 2018 - 11:30

Hola
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:



delphi
  1. uses
  2. SysUtils, Classes, DB, IniFiles, ADODB, Forms, Dialogs;


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:



delphi
  1. procedure TDataModule1.DataModuleCreate(Sender: TObject);
  2. Var BaseDeDatos, ConStr : String;
  3. IniFile: TIniFile;
  4. begin
  5. // Obtiene la ruta y el nombre de la base de datos
  6. IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'BDatos.ini');
  7. BasedeDatos := IniFile.ReadString('BD','Path','');
  8. If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
  9. ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
  10. 'Data Source='+BaseDeDatos+';'+
  11. 'Persist Security Info=False;'+
  12. 'Jet OLEDB:Database Password=admin';
  13. ADOConnection1.ConnectionString := ConStr;
  14. ADOConnection1.Open;
  15.  
  16. end;

Como veis el evento buscara en el archivo INI que en este caso se llama BDatos.ini y enlazara 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.
Saludos

  • 0