Ej Facturacion (sencillo pero...)

[[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!

[[Delphius]]

Empezado por 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!

Pollo no es por nada, pero creo que mucho ya se ha hablado al respecto sobre el uso de los componentes Querys. Si emples el buscador encontrarás muchos hilos en donde se habla al respecto.
Y si deseas saber más, existe la ayuda. Selecciona el componente y presiona F1.

Saludos,

[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?

[jandok238]

Empezado por Pollo2004

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?

intenta con Application.MessageBox

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

salu2!!!!!!!

[Pollo2004]

Hola, jandok238, funciono con agregandole application, gracias!