!!Problemas con IF y sus valores !!

[[Caral]]

Hola
Ya puedes subir adjuntos.
Quitale el exe al programa, ponlo en un zip con la base de datos y le doy una revisada, si te parece.
Saludos

[Darkseratul]

Empezado por Caral

Hola
Ya puedes subir adjuntos.
Quitale el exe al programa, ponlo en un zip con la base de datos y le doy una revisada, si te parece.
Saludos

http://www.terawiki.clubdelphi.com/a...redice%F1o.zip

ya esta mi programa
en el login selecciona un usuario y la contraseña es 1

espero que me puedas ayudar y muchas pero muchas gracias

[[Caral]]

Hola
Dame un momento y lo reviso.
Saludos

[[Caral]]

Hola
Que pena pero no encuentro el error.
Se salta el Like y hace como si fuera un =.
He probado con todo lo que se me ocurre y nada, he quitado, puesto, cambiado, usado Quotedtr, todo......
No se, me extraña mucho.
He revisado la BD y todo esta bien, no lo entiendo.
Lo siento.
Saludos
PD: Seria muy bueno que cuando empezáis no usarais todos esos componentes para la apariencia, es engorroso tener que ir quitan dolos para correr el programa.
Solo como sugerencia.

[Darkseratul]

Empezado por Caral

Hola
Que pena pero no encuentro el error.
Se salta el Like y hace como si fuera un =.
He probado con todo lo que se me ocurre y nada, he quitado, puesto, cambiado, usado Quotedtr, todo......
No se, me extraña mucho.
He revisado la BD y todo esta bien, no lo entiendo.
Lo siento.
Saludos
PD: Seria muy bueno que cuando empezáis no usarais todos esos componentes para la apariencia, es engorroso tener que ir quitan dolos para correr el programa.
Solo como sugerencia.

mi problema no tiene arreglo que mal
se que ya has hecho mucho, y sin querer abusar de tu confianza no hay otra forma que se te ocurra ??? para lograr el objetivo

objetivo: hacer una búsqueda en una tabla con varios campos poder elegir el campo para la búsqueda

no se te ocurre algo que pueda hacer ???

[[Caral]]

Hola
Mira este codigo:

Código Delphi [-]
procedure TFBuscaCliente.Edit1Change(Sender: TObject);
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      ATClientes.Filtered := False;
      If CBFiltro.Text = 'Código' then Filtro := 'CodCliente Like '+Edit1.Text
         else If CBFiltro.Text = 'Nombre' then Filtro := 'NombreCliente Like '''+ Edit1.Text + '*'''
            else If CBFiltro.Text = 'Teléfono' then Filtro := 'Telefono Like '''+ Edit1.Text + '*''';
      ATClientes.Filter := Filtro;
      ATClientes.Filtered := True
   end
   else ATClientes.Filtered := False;
end;

Es lo mismo que quieres hacer tu.
Lo he usado siempre y nunca me ha dado ningun problema.
Como Te imagiraras CodCliente es Numerico y me filtra sin problemas.
CBFiltro es un combobox que me elige las opciones.
Trata de ver que se te ocurre, estoy seguro que tarde o temprano sale esto.
Saludos

[Darkseratul]

Empezado por Caral

Hola
Mira este codigo:

Código Delphi [-]
procedure TFBuscaCliente.Edit1Change(Sender: TObject);
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      ATClientes.Filtered := False;
      If CBFiltro.Text = 'Código' then Filtro := 'CodCliente Like '+Edit1.Text
         else If CBFiltro.Text = 'Nombre' then Filtro := 'NombreCliente Like '''+ Edit1.Text + '*'''
            else If CBFiltro.Text = 'Teléfono' then Filtro := 'Telefono Like '''+ Edit1.Text + '*''';
      ATClientes.Filter := Filtro;
      ATClientes.Filtered := True
   end
   else ATClientes.Filtered := False;
end;

Es lo mismo que quieres hacer tu.
Lo he usado siempre y nunca me ha dado ningun problema.
Como Te imagiraras CodCliente es Numerico y me filtra sin problemas.
CBFiltro es un combobox que me elige las opciones.
Trata de ver que se te ocurre, estoy seguro que tarde o temprano sale esto.
Saludos

muchas gracias voy a checarlo y incorporarlo a mi proyecto a ver si me funciona

Muchas gracias maestro

[[oscarac]]

que raro no puedo bajar el archivo

[Darkseratul]

Empezado por oscarac

que raro no puedo bajar el archivo

hola que tal si esta raro creo que movieron el archivo o quisas el servidor tiene problemas
pero ya lo subí a un servidor

http://www.megaupload.com/?d=UIV9DR7O

muchas gracias por tu interés

[[oscarac]]

exactamente cual es el problema?

[[Caral]]

Hola
Que no sabemos amigo, que no sabemos
Saludos

[Darkseratul]

Empezado por oscarac

exactamente cual es el problema?

lo que pasa es que tengo un adoconection , adatable, y un datasourse

la tabla tienes tres campos yo tenia la idea de especificar en que campo si hiciera la búsqueda con unos checkbox
con este código

Código Delphi [-]
procedure TFClientes.Edit1Change(Sender: TObject);
begin
  // Siempre se quita el filtro
  datamodule1.tarchivo.Filtered := False;

  // Hacer algo si hay texto
  if (Edit1.Text <> '') then
  begin
    // Crear el filtro
    if CheckBox1.Checked  then
    begin
      datamodule1.tarchivo.Filter := 'Nombre Like ''' + Edit1.Text + '*''';
      datamodule1.tarchivo.Filtered := True
    end
    else if CheckBox2.Checked  then
      begin
      datamodule1.tarchivo.Filter := 'Numero Like ''' + Edit1.Text + '*''';
      datamodule1.tarchivo.Filtered := True
    end
    else
    datamodule1.tarchivo.Filtered := False;
   end;
end;

como podrás darte cuenta todo depende de los checkbox
el error es cuando se usa el checkbox2, me dice caral que se salta el like y por eso no a parece nada en la busqueda

espero explicarme bien y bueno caral ya medio otro ejemplo lo estoy tratando

alguna idea ?????

tu rutina esta muy bien pero no entiendo nada del codigo que has puesto ????? disculpa me ignorante persona