SoloCodigo

Código: Text

1.  
2. FORM13.ShowModal;
3.  
4.  

Con esto, no puede usar el Fromulario Padre sin antes de cerrar al Formulario Hijo.

O bien, en el evento onClose del formulario Padre, chequeas:

Citar

if Assigned(FORM13)

Si existe, cancelas el cierre del formulario.

ANTES QUE NADA MUCHAS GRACIAS ENKO, POR CONTESTARME, PUES YA LO INTENTE DE LA FORMA EN QUE DICES Y NO FUNCIONO ME SIGUE MARCANDO ERROR, HE DETECTADO QUE ES CUANDO AGREGO UN REGISTRO POR MEDIO DE UN DBNAVIGATOR, ASI QUE REGRESE AL MODO TRADICIONAL CON EL POST Y YA NO TENGO PROBLEMAS, CIERRO MI FORMULARIO DE LA SIGUIENTE FORMA

FORM1.FREE;
FORM:=NIL;

GRACIAS POR TU AYUDA

hola a todos, recurro a ustedes por que en una aplicacion que estoy haciendo con delphi 7 me han pedido que crees un archivo .DAT con informacion de la base de datos, la base que utilizo es access, esto ya se hacia de la siquiente manera, desde mi aplicacion exporta los datos a excel y ahi un usuario lo que hace es darle un tamaño a las columnas de escel ya que deben tener una cierta longitud y despues  con msdos lo copia y pega con extion .DAT, asi es como hasta ahora se esta realizando, pero ahora me piden que este proceso se haga de manera automatica desde la aplicacion para que con solo dar un clic se cree este archivo, ojala me puedan ayudar, utilo componentes ado, con un adoquery saco la informacion a excel con el siguiente condigo
VAR S:STRING;
begin
S:=INPUTBOX('NOMBRE DEL ARCHIVO','NOMBRE','');
SAVEDIALOG1.FileName:=S;
SAVEDIALOG1.Execute;
CurrentFolder :=SAVEDIALOG1.InitialDir;
SAVEDIALOG1.FileName:=S;
ADOQUERY1.Close;
ADOQUERY1.SQL.Clear;
ADOQUERY1.SQL.Add('SELECT GESTIONTELEFONICA.CUENTA, GESTIONTELEFONICA.CAUSA, FORMAT( GESTIONTELEFONICA.FECHAGESTION,"YYYYMMDD") AS FEHCAGEST, FORMAT(GESTIONTELEFONICA.HORAGESTION,"HHNNSS") AS HORAGESTION,');
ADOQUERY1.SQL.Add('IIF(PAGOS22.FECHA1<>0,(Format(PAGOS22.FECHA1,"yyyymmdd")),RIGHT("00000000"+"0",8)) AS FECHADEPROMESA , IIf(PAGOS22.PAGO1<>0,RIGHT("00000000000000"+FORMAT(PAGO1),14),RIGHT("000000000000000"+"0",14)) AS MONTOPAGO');
ADOQUERY1.SQL.Add(',CLIENTES.NOMARCH, GESTIONTELEFONICA.GESTION40, "E" AS TIPOGEST INTO GESTIONTELEFONICA IN "' + CurrentFolder + '''' +S+ '''.xls" "Excel 8.0;"');
ADOQUERY1.SQL.Add('FROM (CLIENTES INNER JOIN GESTIONTELEFONICA ON CLIENTES.CUENTA = GESTIONTELEFONICA.CUENTA) INNER JOIN PAGOS22 ON CLIENTES.CUENTA = PAGOS22.CUENTA');
ADOQUERY1.SQL.Add('WHERE GESTIONTELEFONICA.FECHAGESTION >= :J AND GESTIONTELEFONICA.FECHAGESTION <= :F');
ADOQUERY1.Parameters.ParamByName('J').Value:=STRTODATE(EDIT1.Text);
ADOQUERY1.Parameters.ParamByName('F').Value:=STRTODATE(EDIT2.Text);
ADOQUERY1.ExecSQL;
FORM19.CLOSE;
end;

OJALA ME PUEDAN AYUDAR

HOLA ANTES QUE  NADA UN SALUDO A TODOS, Y RECURRO A USTEDES POR QUE TENGO UN PEQUEÑO PROBLEMA, ESTOY REALIZANDO UN REPORTE CON QUICKREPORTE EN DELPHI 7 Y MI BASE DE DATOS ES ACCESS 2000, EN UNO DE LOS REPORTE QUIERO PONER UNA GRAFICA TIPO PIE CON DATOS DE UNA TABLA QUE SE LLAMA DETALLE Y AHI ESTA LAS VENTAS DE CADA VENDEDOT, EN UNA CONSULTA USANDO ADOQUERY TENGO LO SIGUIENTE
SELECT SUM(PAGO) AS PAGO, VENDEDORES.VENDEDOR FROM DETALLE INNER JOIN VENDEDORES ON DETALLE.ID = VENDEDORES.ID
Y BUENO AL PASARLE LOS DATOS AL QRCHART SOLO ME MUESTRA EL CAMPO PAGO Y NO ME MUESTRA EL CAMPO VENDEDOR QUE SON LAS ETIQUETAS O DIVISIONES DEL PIE, ALGUIEN ME PUEDE AYUDAR

utiliza la funcion concatenar de sql

PUEDE HACER USO DE LA FUNCION DATEPART CUYA SINTAXIS ES DATEPAT('WW',[TUCAMPOFECHA]) ESTO TE DEVUELVE EL NUMERO DE LA SEMANA DEL AÑO EN QUE SE ENCUENTRA ESA FECHA, HARIAS ESO CON TUS 3 CAMPOS, DESPUES HACES LO MISMO PERO CON LA FECHA ACTUAL, CLARO TODO ESTO EN TU CONSULTA QUEDARIA DE LA SIQUIENTE MANERA.

SELECT * FROM TUTABLA WHERE DATEPART('WW',[TUCAMPO]) = DATEPART('WW',NOW()) AND DATEPART('YYYY',[TU CAMPO]) = DATEPART('YYYY',NOW());

ESTO ULTIMO CON YYYY PARA SACAR EL AÑO Y SOLO TE MUESTRE LOS REGISTRO CON FECHAS DE ESTE AÑO YA QUE SI LO OMITES Y TIENES REGISTRO DE VARIOS AÑOS TE MOSTRARA TODOS, ESPERO TE SIRVA CUALQUIER DUDA ESCRIBEME A alfa_80@hotmail.com

NO USO NINGUN PRECEDIMIENTO, LO QUE HAGO ES LO SIGUIENTE, USO LOS COMPONENTES ADO CONECTADOS A ACCESS ATRAVEZ DE UN ADOCONNECTION Y DE AHI ENLAZO EL ADOQUERY, EN EL ADOQUERY TENGO SELECT * FROM CLIENTES Y DE AHI JALO LOS CAMPOS AL FORM ES DECIR QUE LOS PONE POR DEFAULT CUANDO ARRASTRO EL CAMPO AL FORM, NO BOTONES DE POST O REFRESH, LO QUE QUISIERA ES QUE EN CUANTO SE MODIFIQUE UN CAMPO O SE ESCRIBA ALGO NUEVO PUES SE ACTUALIZE EN LA BASE SIN NECESIDAD DE PRESIONAR ALGUN BOTON O EN ESTE CASO COMO ME PASA CAMBIARME DE REGISTRO

OJALA ME PUEDAN AYUDAR, QUISIERA SABER SI HAY ALGUNA FORMA DE UNIR DOS TABLAS DE REFERENCIAS CRUZADAS YA QUE TENGO 5 CON EL MISMO TIPO DE DATOS Y EL MISMO NUMERO DE CAMPOS OJALA ME PUEDAN AYUDAR, TAMBIEN QUIERA PEDIR SU AYUDA PARA OTRO PROBLEMA, TENGO UNA TABLA CON UN CAMPO QUE ES FECHA DE ASIGNACION Y AHI MISMO OTRO CAMPO QUE ES COTACTO, QUIERO HACER UNA TABLA DE REFERENCIAS CRUZADAS PARA QUE ME DIGA EN CADA CLIENTES EL TOTAL DE CONTACTOS QUE HEMOS TENIDO CON EL PERO TOMANDO COMO CAMPOS DE COLUMNA LA FECHA DE ASIGNACION ES DECIR SI TIENES UNA FECHA DE 01/03/2007 LA SIGUIENTE COLUMNA SEA 8/03/2007 Y LA SIGUIENTE 15/03/2007 COMO PODRIA LOGRAR ESTO?

hola a todos, ojala me puedan ayudar, diseñe una aplicacion con delphi 7 y access 2000 y me pasa lo siguiente.
uso componentes adoquery con los cuales traigo los datos que maneja el usuario, si el usuario hace una modificacion en algun registro no se edita al menos que se cambie de registro, es decir si yo cambio una fecha y me muevo de registro para lo cual tengo un dbnavigator este cambio se efectua, pero si yo en lugar de moverme busco otro registro lo cual hago con locate pues al regresar al registro que modifique pues no aplica la edicion que hice, me deja el registro como si no hubiera hecho nada, alguien me podria decir como evitar esto y que la edicion se automatica, es decir que haga lo que haga se guarde la edicion

tengo una base de datos con mas de 20 mil registros varios registros estan duplicados en mi tabla tendo id y fecha los registros se duplican en id pero la fecha es diferente quiero saber como realizar una consulta en la que me de los registros que tiene mas de 7 dias de direncia con la fecha actual, usa la funcion datediff de sql y los obtengo pero varios de los registros que me regresa al ser deplicados pues tambien tienen una fecha con diferencia menor de 7 dias, lo que quiero es saber que registros tienes mas de 7 dias pero que no tenga duplicados que tengan menos de 7 dias alguien podria ayudarme, se los agradeceria mucho