!!Problemas con IF y sus valores !!

[Darkseratul]

Hola amigos del clubdelphi espero que estén muy bien

Bueno lo que pasa es que tengo un problema el cual va mas o menos así

Trata de hacer una búsqueda secuencial y por tabla

La búsqueda secuencial ya esta y trabajo muy bien la cual funciona así en el evento onchange de un edit le pongo el siguiente código

Código Delphi [-]
begin
If (Edit1.text <> '') then
begin
ADOTable1.Filter := 'mitabla Like '''+ Edit1.Text +'*''';
ADOTable1.Filtered:=True;
end 

Else
begin
ADOTable1.Filtered:=False;

ok todo eso esta muy bien pero que pasa si quiero buscar en diferentes tablas
bueno con mi poca experiencia manejando delphi trato de hacer lo que busco

en el evento onchange de un edit pongo este codigo

Código Delphi [-]
begin
if CheckBox1.Checked = true then
begin
If (Edit1.text <> '') then
begin
ADOTable1.Filter := 'mitabla Like '''+ Edit1.Text +'*''';
ADOTable1.Filtered:=True;
end 

Else
begin
ADOTable1.Filtered:=False;

begin
if CheckBox2.Checked = true then
begin
If (Edit1.text <> '') then
begin
    ADOTable1.Filter := 'mitabla2 Like '''+ Edit1.Text +'*''';
    ADOTable1.Filtered:=True;
end 
Else
begin
ADOTable1.Filtered:=False;


begin
if CheckBox3.Checked = true then
begin
If (Edit1.text <> '') then
begin
    ADOTable1.Filter := 'mitabla3 Like '''+ Edit1.Text +'*''';
    ADOTable1.Filtered:=True;
end 
Else
begin
ADOTable1.Filtered:=False;
end;

tengo 3 CheckBox y supuesta mente a mi entender el evento onchange deve de ejecutar la parte de codigo que cumpla con lo requerido que en este caso es si al CheckBox esta en true lo mas curioso es que ya lo implemente pero solo me da resultado con la primer tabla (mitabla) pero cuando le pongo en otro CheckBox no hace nada

alguien me podria ayudar de ante mano muchas gracias

[ecfisa]

Hola Darkseratul.

Creo que el problema está que en todos los casos estas asignando a la propiedad Filter del mismo 'ADOTable1' las cadenas: mitabla, mitabla2, mitabla3 y en ningún momento veo que cambies la propiedad TableName.
Es decir que si en el TADOTable tenes asignado como TableName 'mitabla' no va a funcionar filtrar por 'mitabla2'.

Un saludo.

[DarKraZY]

Hola,

Además de lo que te ha comentado ecfisa que también creo que pueda ser el error, debes intentar estructurar el código para tenerlo más claro.
Por ejemplo:

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

  // Hacer algo si hay texto
  if (Edit1.Text <> '') then
  begin
    // Crear el filtro
    if CheckBox1.Checked then
      ADOTable1.Filter := 'mitabla Like ''' + Edit1.Text + '*'''
    else if CheckBox2.Checked then
      ADOTable1.Filter := 'mitabla2 Like ''' + Edit1.Text + '*'''
    else if CheckBox3.Checked then
      ADOTable1.Filter := 'mitabla3 Like ''' + Edit1.Text + '*''';
    
    // Por último, activar el filtro
    ADOTable1.Filtered := True;
  end;
end;

[[oscarac]]

Empezado por ecfisa

Hola Darkseratul.

Creo que el problema está que en todos los casos estas asignando a la propiedad Filter del mismo 'ADOTable1' las cadenas: mitabla, mitabla2, mitabla3 y en ningún momento veo que cambies la propiedad TableName.
Es decir que si en el TADOTable tenes asignado como TableName 'mitabla' no va a funcionar filtrar por 'mitabla2'.

Un saludo.

pregunta...
cuando se hace el filtro, se hace por un campo verdad?

quiza los campos se llaman mitabla1, mitabla2, mitabla3, en ese caso deberia funcionarle, quiza no esta referscando el resultado

[[Caral]]

Hola
El problema es que si contiene algo el edit, pero no se activa ningun check dara error ya que el comienzo y fin siempre termina con la activacion del filtro.
Me parece que la idea es buena, solo que por que no completar el codigo, ser mas especificos:

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

  // Hacer algo si hay texto
  if (Edit1.Text <> '') then
  begin
    // Crear el filtro
    if CheckBox1.Checked then
    begin
      ADOTable1.Filter := 'mitabla Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else if CheckBox2.Checked then
      begin
      ADOTable1.Filter := 'mitabla2 Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else if CheckBox3.Checked then
    begin
      ADOTable1.Filter := 'mitabla3 Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else
    ADOTable1.Filtered := False;
   end; 
  end;
end;

Saludos

[[Caral]]

Hola
Por supuesto, es de logica pensar que el adotable tiene que estar ligado a la tabla que se quiere filtrar.
Es de suponer que mitabla1, 2, 3 en realidad son campos de cada tabla, de lo contrario estamos perdiendo el tiempo y es caro.
Saludos

[[Caral]]

Hola
La logica del proceso es esta:

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

  // Hacer algo si hay texto
  if (Edit1.Text <> '') then
  begin
    // Crear el filtro
    if CheckBox1.Checked then
    begin
      ADOTable1.TableName:= 'mitabla1';
      ADOTable1.Filter := 'miCAMPO Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else if CheckBox2.Checked then
      begin
      ADOTable1.TableName:= 'mitabla2';
      ADOTable1.Filter := 'miCAMPO Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else if CheckBox3.Checked then
    begin
      ADOTable1.TableName:= 'mitabla3';
      ADOTable1.Filter := 'miCAMPO Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else
    ADOTable1.Filtered := False;
   end; 
  end;
end;

Saludos
EDITO: Por supuesto teniendo en cuenta abrir y cerrar la tabla correspondiente.
EDITO2: Me faltaron comillas jejeje

[ecfisa]

Empezado por oscarac

pregunta...
cuando se hace el filtro, se hace por un campo verdad?

quiza los campos se llaman mitabla1, mitabla2, mitabla3, en ese caso deberia funcionarle, quiza no esta referscando el resultado

Me dió la impresión que eran nombres de tablas, pero lo que comentas, ciertamente es una posibilidad...

Un saludo.

[Darkseratul]

Discúlpenme pero si me confundí diablos siempre que trato de explicar mi problema se me van las patas

Ciertamente como ya lo comentaron quise desir micampo1, micampo2, micampo3

Es solo una tabla con tres campos diferentes

gracias a todos por su ayuda y paciencia siempre meto la pata

Coral tu ejemplo es mas o menos lo que quise hacer pero en el se asumen varias tablas pero en mi caso solo es una con 3 campos

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

  // Hacer algo si hay texto
  if (Edit1.Text <> '') then
  begin
    // Crear el filtro
    if CheckBox1.Checked then
    begin
      ADOTable1.TableName:= 'mitabla1'; 
      ADOTable1.Filter := 'miCAMPO Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else if CheckBox2.Checked then
      begin
      ADOTable1.TableName:= 'mitabla2';
      ADOTable1.Filter := 'miCAMPO Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else if CheckBox3.Checked then
    begin
      ADOTable1.TableName:= 'mitabla3';
      ADOTable1.Filter := 'miCAMPO Like ''' + Edit1.Text + '*''';
      ADOTable1.Filtered := True
    end
    else
    ADOTable1.Filtered := False;
   end; 
  end;
end;

Muchas gracias a todos

[[oscarac]]

q bueno
pero es caral no coral....

[[oscarac]]

ahora te hago una pregunta...
que pasa si marcan 2 o mas Checks ?????

[Darkseratul]

Empezado por oscarac

ahora te hago una pregunta...
que pasa si marcan 2 o mas Checks ?????

Eso no puede pasar por que el el evento de onclick del chebox le digo que ponga en false los demas chebox

algo asi

Código Delphi [-]
procedure TFClientes.CheckBox1Click(Sender: TObject);
begin
checkbox2.Checked:=false;
checkbox3.Checked:=false;
end;

no se si es la forma correcta pero así me funciono

y si es caral cuando me fije ya la avía posteado

[Darkseratul]

He adecuado el código que me facilitaron a mi proyecto

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;

con el campo Nombre si me hace la búsqueda
pero con el campo Numero me sale un error de que el Filtro no se puede abrir

Alguien sabe a que se debe ?????

ayuda por favor y muchas gracias

[[Caral]]

Hola

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;

Saludos

[Darkseratul]

Empezado por Caral

Hola

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;

Saludos

Muchas gracias Caral solo que hay un problema al hacer la búsqueda en el campo numero me da resultados nulos o que no hay nada tengo como 10 registros que tengo con números como 42541 pero al poner el 4 en la búsqueda no me da ningún resultado

[[Caral]]

Hola
Es access ?
Saludos

[Darkseratul]

Empezado por Caral

Hola
Es access ?
Saludos

si claro de hecho prácticamente todo lo que se lo he a prendido de ti con tus ejemplos y explicaciones quisas en su momento no eran para mi pero de todos tu eres la persona con la que mas he a prendida a programas delphi

a un soy muy novato pero tu me enseñaste como conectarse a una base de datos acces con tu ejemplo de restaurante

y bueno si es acces por que usted la utiliza en la mayoría de los ejemplos y es la única forma que se para conectarme a una base de datos

y bueno te doy las gracias por que sin tu ayuda muchos de nosotros no supiéramos nada
esta es la primera ves que me ayudas en un problema personal y te lo agradezco mucho

te admiro mucho y muchas gracias

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