29 respuestas en este tema

[mariarosina1984]

¿cOMO LE HAGO PARA ACTIVAR O DESACTIVAR Y COMO LO DESACTIVO? EL ASUNTO ES QUE CUANDO NO ESCRIBA NADA KIERO DESACTIVAR EL BOTON Y CUANDO ESCRIBA ALGO QUIERO ACTIVASERLO Y HAGA LA BUSQUEDA COMO REALIZO ESO? Y EN QUE METODO GRACIAS?

[Caral]

Hola
Pregunto:
Quieres escribir en un edit?.
Si no escribes nada que el boton no funcione y si escribes que si funcione?.
Saludos

[mariarosina1984]

si eso kiero hacer en un edit caral gracias por todo

[mariarosina1984]

Hola
Pregunto:
Quieres escribir en un edit?. SI
Si no escribes nada que el boton no funcione y si escribes que si funcione?. SI ES ESO
Saludos

[escafandra]

Una forma sencilla sería poniendo inicialmente la propiedad Enabled del botón a false y luego escribir este código:

delphi

procedure TForm1.Edit1Change(Sender: TObject);
begin
    Button1.Enabled:= (Edit1.Text <> '');
end;

Cada vez que cambie el contenido del Text del Edit te activará el botón sólo si tiene algo escrito.

Saludos.

[mariarosina1984]

Una forma sencilla sería poniendo inicialmente la propiedad Enabled del botón a false y luego escribir este código:

delphi

procedure TForm1.Edit1Change(Sender: TObject);
begin
    Button1.Enabled:= (Edit1.Text <> '');
end;

Cada vez que cambie el contenido del Text del Edit te activará el botón sólo si tiene algo escrito.

Saludos.

no lo hace me borra los datos que tengo gracias

[Delphius]

Hola mariarosina1984,
El código de escanfandra funciona correctamente.
¿Podríamos ver lo que tienes hecho? Muy posiblemente el problema esté en otro lado.

Saludos,
PD: Te agradecería que no escribieras en mayúsculas. Pareciera que estuvieras gritando.

[escafandra]

no lo hace me borra los datos que tengo gracias

El código de escanfandra funciona correctamente.

Cierto. Voy a subir un ejemplo, quizás le aclare algunas cosas.

Saudos.

Archivos adjuntos

•  1255_6f9acef8a7474d70c4afefd207fe00a28f65054f.zip   1,54KB   5 descargas

[Caral]

Hola
Bueno en que quedo la duda?.
Maria ayúdanos a entender tu problema.
Saludos

[mariarosina1984]

Hola
Bueno en que quedo la duda?.
Maria ayúdanos a entender tu problema.
Saludos

lo que kiero hacer es que cuando no escriba no haga nada en el buton de buscar que no haga la busqueda que se quede igual y desaparece todo cuando le doy buscar

[Caral]

Hola
No entiendo muy bien, creo que el código de escafandra debería de funcionar pero, tal vez esta otra opción?.
En el codigo del boton pon esto al principio:

delphi

begin
if Edit1.Text <> ' ' then
begin
// aqui pones lo que necesites
end
else // si esta lleno entonces:......
// lo que quieras hacer

Si el edit esta vacio se saltara lo que sigue.
Saludos

[enecumene]

lo que kiero hacer es que cuando no escriba no haga nada en el buton de buscar que no haga la busqueda que se quede igual y desaparece todo cuando le doy buscar

A ver, porque no estoy entendiendo, el código de escafandra es totalmente válido, a ver, cuando estes llenando la casilla ¿el botón se habilite o se aparezca? y si es en caso contrario ¿el botón se deshabilite o se esconda?, ¿cual de los casos es?.

[mariarosina1984]

no se preocupen ya esta casi resuelto

delphi

procedure TForm3.Button1Click(Sender: TObject);
begin
    if edit1.Text <> ''  then
     begin
        query1.SQL.Text:='SELECT * FROM BLIBROS where (TITULO LIKE :ptit) or (AUTOR like :paut) or (TEMA_1 like :ptem1) or (TEMA_2 like :ptem2)';
        query1.ParamByName('ptit').AsString:=('%'+edit1.Text+'%');
        query1.ParamByName('paut').AsString:=('%'+edit1.Text+'%');
        query1.ParamByName('ptem1').AsString:=('%'+edit1.Text+'%');
        query1.ParamByName('ptem2').AsString:=('%'+edit1.Text+'%');
        query1.Open;
     end
    else
    begin
 
    end;
end;

le pongo basio buscar la tabla se queda vacia como hago para que se kede igual la tabla cuando es en el contrareo?

[Caral]

Hola
Que difícil nos lo pones Maria.
Recuerda que lo que estas haciendo es abrir una tabla con la sentencia SQL.
Al abrirla totalmente (*) puedes modificarla, sobre todo si tienes un dbnavigator.
Mira la modificación al código:

delphi

procedure TForm3.Button1Click(Sender: TObject);
begin
    if edit1.Text <> ''  then
     begin
        query1.SQL.Text:='SELECT * FROM BLIBROS where (TITULO LIKE :ptit) or (AUTOR like :paut) or (TEMA_1 like :ptem1) or (TEMA_2 like :ptem2)';
        query1.ParamByName('ptit').AsString:=('%'+edit1.Text+'%');
        query1.ParamByName('paut').AsString:=('%'+edit1.Text+'%');
        query1.ParamByName('ptem1').AsString:=('%'+edit1.Text+'%');
        query1.ParamByName('ptem2').AsString:=('%'+edit1.Text+'%');
        query1.Open;
     end
    else
    begin
      query1.Close; // el query estara inactivo
    end;

Saludos

[mariarosina1984]

gracias caral por realizar este foro y poder ayudar gracias me encanto este foro soy la fan

[egostar]

A ver, no me checa algo, si el botón está inhabilitado cuando el edit está vacío, no veo porque deban de validar que el edit esté vacío, el botón no te permitiría ejecutar el evento OnClick. ¿ Me estoy perdiendo de algo ?

Salud OS

[mariarosina1984]

si es eso pero ke kreen ya cuando le puse query1.close; no salen los datos desde que arranca salen vacios antes del if le puedo poner query1.open;?¿

[Delphius]

le pongo basio buscar la tabla se queda vacia como hago para que se kede igual la tabla cuando es en el contrareo?

Disculpa mariarosina1984 pero me cuesta entenderte.
Con el más y sincero respeto te pido que te tomes un tiempo para pensar y reordenar tus palabras.
No por ser breve se es puntual y preciso. Te digo que prefiero un texto de tres párrafos, bien detallista, elaborado con las debidas explicaciones y dudas que dos líneas que parecieran estar cifradas con el algoritmo Ks.

Por favor, explícate apropiadamente. No se termina de comprender lo que en verdad buscas. No te vamos a cobrar por la cantidad de palabras, ni por ofrecerte ayuda.

Tranquilízate. Intuyo que los nervios y la desesperación te están jugando en contra y no te dejan ver el árbol detrás del bosque.

Saludos,

[mariarosina1984]

sinceramente lo que busco es hacer una busqueda pero quiero hacer la validacion de que si esta vacio ke no lo haga que se kede asi la tabla sin moverse no que sale VACIA CUANDO LE PICO sin escribir nada  eso kiero hacer

[egostar]

Pues creo que ya lo tienes hecho eso, si el edit está vacío no hagas nada, solo agregaría un trim para quitar cualquier espacio que tuviese.

delphi

procedure TForm3.Button1Click(Sender: TObject);
begin
  if trim(edit1.Text) <> ''  then  
  begin
    query1.close;
    query1.SQL.Text:='SELECT * FROM BLIBROS where (TITULO LIKE :ptit) or (AUTOR like :paut) or (TEMA_1 like :ptem1) or (TEMA_2 like :ptem2)';
    query1.ParamByName('ptit').AsString:=('%'+edit1.Text+'%');
    query1.ParamByName('paut').AsString:=('%'+edit1.Text+'%');
    query1.ParamByName('ptem1').AsString:=('%'+edit1.Text+'%');
    query1.ParamByName('ptem2').AsString:=('%'+edit1.Text+'%');
    query1.Open;
  end;
end;

Salud OS