87 replies to this topic

[Caral]

Hola
De ninguna manera
Saludos

[luisbillr]

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 

[Hugo R Sabala]

como puedo ver las imagenes de este tema de facuraccion

[egostar]

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

[Hugosaba]

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

uses
  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

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 al cargar 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;

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

[Carlillus]

Hola
Bueno, ya tenemos todo lo que necesitamos listo para trabajar, solo algunos ajuste y a andar.
Primero:
Os acordais del primer Form, el que serviría de principal y contiene un MainMenu.
Vamos a enlazarlo con los demos forms.
Demosle dobleclick al mainmenu.
Nos saldran las opciones que teniamos.
Vamos a darle dobleclick a la primera: Clientes y ponemos esto:
 

delphi

procedure TFClientes.AadirClientes1Click(Sender: TObject);
begin
    FMantClientes:=TFMantClientes.Create(self);
   try
    FMantClientes.ShowModal;
   finally
    FMantClientes.Free;
   end;
end;

A la segunda: Articulos

delphi

procedure TFClientes.AadirArticulos1Click(Sender: TObject);
begin
    FArticulos:=TFArticulos.Create(self);
   try
    FArticulos.ShowModal;
   finally
    FArticulos.Free;
   end;
end;

A la tercera: Facturacion

delphi

   FFactura:=TFFactura.Create(self);
   try
    FFactura.ShowModal;
   finally
    FFactura.Free;
   end;

Y a Salir:

delphi

procedure TFClientes.Salir1Click(Sender: TObject);
begin
  Close;
end;

Ahora que tenemos enlazado todo nos falta que el programa arranque primero en el form Login.
Nos vamos al unit del proyecto y cambiamos el orden de acceso asi:

delphi

begin
  Application.Initialize;
  Application.CreateForm(TFLogin, FLogin);
  Application.CreateForm(TFClientes, FClientes);
  Application.CreateForm(TDataModule1, DataModule1);
  Application.Run;
end.

Ya estamos listos para ejecutar y probar el programa.
Espero os sirva de ejemplo y os guste.
Como siempre el código fuente de este programa lo dejo por si tenéis alguna duda.
Saludos

AQUI ESTA LOS ARCHIVOS COMPLETOS EN LA ZONA DE DESCARGA

Listo el Tutorial de facturacion 2, espero os sirva y os guste.
Aqui os dejo el enlace.

Listo el Turorial de Facturacion 3, espero os guste.
Aquí os lo dejo.

 

 

Saludos.

 

Auxilio SOY NUEVO EN DELPHI: Y no estan los link de descarga para poder hojear los programas para aprender.

 

Si alguien tiene un ejemplo de personalización de los DBGRID por favor.

 

PD. Vengo de VFP y deseo migrar mi trabajo a DELPHI toda la ayuda que reciba sera bien recibida ya que estoy contra reloj.

 

de antemano MUCHISIMAS GRACIAS.

 

Atte.

Carlos Nunes

Venezuela

[egostar]

Saludos.

 

Auxilio SOY NUEVO EN DELPHI: Y no estan los link de descarga para poder hojear los programas para aprender.

 

Si alguien tiene un ejemplo de personalización de los DBGRID por favor.

 

PD. Vengo de VFP y deseo migrar mi trabajo a DELPHI toda la ayuda que reciba sera bien recibida ya que estoy contra reloj.

 

de antemano MUCHISIMAS GRACIAS.

 

Atte.

Carlos Nunes

Venezuela

 

Hola Carlillus

 

Ya vemos la forma de conseguir el código, bienvenido a delphiaccess.

 

Saludos

[rarcos1980]

Hola Carlillus

Ya vemos la forma de conseguir el código, bienvenido a delphiaccess.

Saludos

Habrá la posibilidad de que me hicieran llegar el código también, se los agradecería


Enviado desde mi iPad utilizando Tapatalk