Problemas con una Consulta.
Hola amigos, si alquien me hecha una manita. Uso Delphi 7, y MySql, Mysql Font, mi programa al darle click al boton "buscar" me muestra el registro siguiente y no el que busco, y si le hago click nuevamente recien ahi me muestra lo que buscaba. Este es mi codigo:
procedure TFrm_Editar.Button1Click(Sender: TObject);
Begin
If (DM.Expedientes.Locate('codigo',Edt_Buscar.Text,[]) = True) Then
Begin
Edt_Causante.Text := DM.Expedientes.FieldByName('Causante').DisplayText;
End;
end;
Se los voy agradecer.
|