Hola como andan todos?? Acá me surgió un problemita, resulta que tengo una tabla Observaciones donde guardo las observaciones de los clientes.
Los campos mas relevantes son ID_Observación,ID_Cliente,Observación , donde ID_Observación es clave primaria.
Para listar las observaciones agrego esta consulta en el form create:
Código SQL
[-] with QueryDataModule.ObservacionClienteZQuery do
begin
If active then close;
SQL.Clear;
SQL.Add('Select * from observacion_cliente where observacion_cliente.ID_Cliente='+r+'');
Open;
end;
Esto funciona muy bien, después tengo en el form dos botones uno para ver la observacion siguiente y otro para la anterior con este código:
Código Delphi
[-]QueryDataModule.ObservacionClienteZQuery.Next;
ListarObservacionClienteMemo.Text:=QueryDataModule.ObservacionClienteZQuery.FieldByName('Observacion ').AsAnsiString;
DiaLabel.Caption := FormatDateTime('dddd yyyy/mm/dd', QueryDataModule.ObservacionClienteZQuery.FieldByName('Fecha').AsDateTime);
HoraLabel.Caption:= FormatDateTime('hh:nn:ss', QueryDataModule.ObservacionClienteZQuery.FieldByName('Fecha').AsDateTime);
PrioridadDBLookupListBox.KeyValue:=QueryDataModule.ObservacionClienteZQuery.FieldByName('ID_Priorida d').Value;
El problema surge cuando quiero modificar una observación cuando hago un next o prior no se como recuperar el valor del registro actual donde se encuentra posicionado el puntero. Se entiende???? Espero que me puedan ayudar! Graciass por adelantado!