Ej Facturacion (sencillo pero...)

[Pollo2004]

Hola Caro, gracias por tu consejo (y), es lo q quiero para poder perfeccionarme y seguir adelante. Es muy bueno q te digan las cosas q uno no ve, ya sea por poco conocimiento o xq siempre las hizo asi y nunca supo q por ahi estaria mal o no es la mejor forma de hacerlo.
Quisiera q me expliques mas o menos como corregir lo q me dices en el punto 1 y 5, la verdad q no sabia eso. (Dame algun dato y yo lo investigo)
Y ah q te refieres con q uso demasiados table. Te referies a las instrucciones como TProductos.append, etc etc?
Lo del Form de factura lo estoy trabajando, y estoy buscando info para aprender a manejar los errores!

Gracias por tu tiempo!

[[maeyanes]]

Hola...

Lo que te comenta Caral en el punto uino es que al iniciar la aplicación todas las formas se crean y quedan en memoria. Lo ideal es crearlas cuando las vayas a usar y destruirlas cuando ya no se necesiten.

Para hacer esto, abre la ventana de las propiedades del proyecto Project/Options... y busca el apartado Forms. Ahí selecciona todas las formas menos la que es la forma principal de tu aplicación y muevelas a la parte de Avaliable forms.

Con esto tu aplicación al inicar solo creará la forma pincipal. Tal vez podrías dejar en automático alguna forma o módulo de datos que necesites que esté siempre en memoria.

Teniendo realizado lo anterior, en tu aplicación cada que quieras llamar una forma tendrías que hacer algo como:

Código Delphi [-]
// Abrir forma de facturación desde un botón
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Creamos la forma
  with TFacturaForm.Create(nil) do
    try
      // La mostramos de forma Modal
      ShowModal
    finally
      // Eliminamos la forma de la memoria
      Free
    end
end;

Espero te sirva de algo mi pequeña explicación...


Saludos...

[[Caral]]

Hola
Es exacto lo que dice maeyanes.
Deja el form principal y el datamodule, los demas los creas como el lo indica.
Saludos

[jandok238]

hola

Yo tambien lo descargue...

y estaba revisandolo... ahorita no tengo mucho tiempo para revisarlo...

lo unico que te puedo decir ahorita es el MENSAJE al cerrar el programa :

preguntas que si "esta seguro que quiere salir" (algo asi) ... pero solo das una apcion, un solo boton para la respuesta ... entonces.. como le digo que NO a esa pregunta ??

Código Delphi [-]
 if (Application.MessageBox('¿Está seguro que desea salir d ela aplicación?', 'Confirmar salida', MB_ICONQUESTION + MB_YESNO) = IDYES) then
  Close;

pero ahora pregunto a los que saben : ¿¿en que parte se pondria algo asi ??

no hay un Form.BeforeClose (o algo asi)... en un boton que diga CERRAR (es una opcion) ... pero que pasa si se cierra con ALT+F4 o con el boton [X] de la ventana ???

donde es conveniente hacer esa pregunta ???? o de plano... no hacerla ???

salu2!!!!!!!

[[maeyanes]]

Hola...

Existe el evento OnCloseQuery:

Código Delphi [-]
procedure TForm1.OnCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := MessageBox('¿Está seguro que desea salir de la aplicación?',
    'Confirmar salida', MB_ICONQUESTION + MB_YESNO) = IDYES
end;

Saludos...

[jandok238]

Empezado por maeyanes

Hola...

Existe el evento OnCloseQuery:

Código Delphi [-]
procedure TForm1.OnCloseQuery(Sender: TObject; var CanClose: Boolean);
 begin
   CanClose := MessageBox('¿Está seguro que desea salir de la aplicación?',
     'Confirmar salida', MB_ICONQUESTION + MB_YESNO) = IDYES
 end;

Saludos...

gracias... no lo sabia

DAMN!!! i don'n know anything

salu2!!!!!!!

[Pollo2004]

Con respecto a los TQuery, todavia tengo muchas dudas de como implementarlos, alguien conoce algun tutorial q me aclare las ideas!

Por lo poco q yo entiendo del tema, es q al componente TQuery le escribo todo en sentencias sql? Esto es asi?
y despues ¿como se lo llamo desde delphi?, con TQuery.Open;?

Me interesaria muchisimo profundizar en este tema, si alguien sabe de donde conseguir info, o algo por el estilo.

El Tema de la carga de los form ya estoy trabajando en ello, gracias por el consejo!
Gracias a todos!
nos vemos!

[Pollo2004]

Código Delphi [-]procedure TForm1.OnCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := MessageBox('¿Está seguro que desea salir de la aplicación?',
'Confirmar salida', MB_ICONQUESTION + MB_YESNO) = IDYES
end;

Hola nuevamente, estoy intentando incorporar esto en el mi proyecto y cuando lo compilo me larga este error!

incompatible types: 'HWND' and 'String'
incompatible types: 'Integer' and 'PWideChar'

Probe cambiando la , por +, pero igual me sigue saliendo!
A q se debe esto?