Comparar y Validar Campos

[L3st4t]

Buenas tardes, Estoy super nuevo en esto de la programacion

Mi requerimiento es el siguiente estoy trabajando con una data de un sistema administrativo (base de datos DBISAM)y necesito una aplicación que lea el código del cliente en la tabla y el saldo (deuda) que posee el mismo, en estos momentos estoy comenzando con la búsqueda del cliente con el siguiente código:

Código Delphi [-]
Procedure TF_Clientes.VerificaCodigo;
var codigo : string;
begin
  With DataM.T_Clientes do
  begin
    codigo:= edit1.Text;
    IF  FieldByname('FC_CODIGO').AsString = codigo then
    begin
       ShowMessage('Codigo Encontrado');
    end
    else
    begin
      ShowMessage('Codigo No Existe');
    end;
  end;
end;

El detalle esta que solo valida el primer registro, no hallo como hacer una secuencia para que busque el código que digité en el edit.text

Me imagino que puede ser con un while o alguna sentencia como el LOCATE (no se si este ultimo lo acepta el DBISAM) pero no se como utilizarlo.

Disculpen y Gracias.

[ecfisa]

Hola L3st4t.

Por favor te ruego que uses las etiquetas [delphi] [/delphi] para encerrar tu código Delphi. ( Etiquetas vB )

Creo que deberías hacer algo como:

Código Delphi [-]
...
  if DataM.T_Clientes.Locate('FC_CODIGO', Edit1.Text, []) then
    ShowMessage('Codigo Encontrado')
  else
    ShowMessage('Codigo No Existe');
...

No sé con que componentes estas trabajando ya que también se puede hacer mediante una consulta SQL.

Un saludo.

[L3st4t]

Empezado por ecfisa

Hola L3st4t.

Por favor te ruego que uses las etiquetas [delphi] [/delphi] para encerrar tu código Delphi.

Creo que deberías hacer algo como:

Código Delphi [-]
...
  if DataM.T_Clientes.Locate('FC_CODIGO', Edit1.Text, []) then
    ShowMessage('Codigo Encontrado')
  else
    ShowMessage('Codigo No Existe');
...

No sé con que componentes estas trabajando ya que también se puede hacer mediante una consulta SQL.

Un saludo.

Gracias por la pronta respuesta disculpa lo de las etiquetas no habia leido el apartado vB

Resulta que no me funciona ya que estoy usando

Código Delphi [-]
FieldByname

Si en el no me permite ver el registro desde la tabla me genera una error. Respecto a los componentes tendrias que decirme para ver si te entiendo pero creo que si acepta una consulta SQL....

Saludos...

[ecfisa]

Hola.

Es que no es excluyente el uso del método FieldByName con el uso de la función Locate, ambas realizan taréas diferentes.

El método FieldByName es utilizado para acceder al valor de un campo (visualizar/asignar/modificar) mediante su nombre, en tanto que la función Locate, sirve para buscar/posicionarse en un registro de una tabla.

Respecto a los componentes me refiero si estas usando TTable, TQuery (BDE) - TADOTable, TADOQuery (ADO) - TIBDataSet, TIBQuery (IBX) ...

Un saludo.

[L3st4t]

Entiendo pero cuando coloco la instruccion que me diste me genera erro,r porque supungo que no encuentra o relaciona el campo FX_CODIGO que esta dentro de la tabla y respecto a los componentes creo que utilizo SQLQUERY ya que los otros que me mencionas no me suenan por ningún lado.

Saludos

[ecfisa]

Hola.

Entonces se trata de los componentes dbExpress.

La busqueda usando un TSQLQuery sería:

Código Delphi [-]
function ExisteElDato(AQuery: TSQLQuery; Dato: string): Boolean;
begin
 with AQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM TU_TABLA');
    SQL.Add('WHERE TU_CAMPO = :DATO');
    ParamByName('DATO').AsString:= Dato;
    Open;
    Result:= not IsEmpty;
  end;
end;

Deberás reemplazar: TU_TABLA y TU_CAMPO, por los nombres que le hayas dado a la tabla y al campo sobre el que realizás la búsqueda.

Ejemplo de uso:

Código Delphi [-]
 if ExisteElDato(SQLQuery1, Edit1.Text) then
    ShowMessage('Existe')
  else
    ShowMessage('No existe');

Un saludo.