No Regreso en el DbGrid

[[ElDioni]]

No se como funciona tu programa, si, por ejemplo, lee los artículos con un lector de codigo de barras y se van añadiendo así las lineas en el dbgrid, o si el dbgrid esta enganchado a algún datasource que está a su vez enganchado con un adoquery y desde este insertas los nuevos registros; quiero decir que tu explicación se me hace un poco corta para darte una solución concreta, así a bote pronto te puedo decir que poniendo:

Código Delphi [-]
dbgrid1.enabled:=false;

así no podras moverte ni arriba, ni abajo, ni modificarlo, ni nada, espero te sirva de algo.

[Gangster]

Empezado por ElDioni

No se como funciona tu programa, si, por ejemplo, lee los artículos con un lector de codigo de barras y se van añadiendo así las lineas en el dbgrid, o si el dbgrid esta enganchado a algún datasource que está a su vez enganchado con un adoquery y desde este insertas los nuevos registros; quiero decir que tu explicación se me hace un poco corta para darte una solución concreta, así a bote pronto te puedo decir que poniendo:
Código Delphi [-]dbgrid1.enabled:=false;

así no podras moverte ni arriba, ni abajo, ni modificarlo, ni nada, espero te sirva de algo.

Hola Dioni, Mira Mi programa esta ligado a un ttable por un datasource, todavia no leemos de un hardware para codigo de barras solo lo que quiero es que no se vaya para arriba dentro del dbgrid, osea producto ya vendido (Significa que ya paso de Renglon en el dbGRID) pues no devolverse para nada arriba es lo que busco y no tengo idea, no tengo nada con ADO,ni con un Query, solo un dbgrid en una forma con un datasource ligado a un ttable, es todo, no se si con esto se entienda mas lo que en si busco y no lo he encontrado o no tengo idea, con lo que me dices pues deshabilito totalmente el dbgrid, creo que no me serviria eso.
Gracias por tu idea Saludos y Bye.

[maxvera]

¿Cómo identificas los registros de esa tabla? ¿Tienes un campo autoincremental para la clave primaria o algún id para el registro?

Si es así, dímelo y te discurro algo sencillo.

[Gangster]

Empezado por maxvera

¿Cómo identificas los registros de esa tabla? ¿Tienes un campo autoincremental para la clave primaria o algún id para el registro?

Si es así, dímelo y te discurro algo sencillo.

Hola Maxvera mira, tengo ligado al dbgrid una tabla tipo detail con dos llaves primarias, entonces una con el id que tenga el master table, y la otra llave es porque si se venden muchos productos no se repita el renglon entonces voy incrementando el renglon despues de cada post (Qe seria cada vez que pase del renglon), la identificacion de los renglones pues es un id, igual a como se graba el numero de ticket en el master table, eso es la ligacion que tengo en las dos tablas.

[maxvera]

Bien.

No sé si me paso de listo (por la sencillez de la respuesta), pero esto debería funcionar:

Código Delphi [-]
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
  if Table1.RecNo < Table1.RecordCount then Table1.Last;
end;

Donde, evidentemente, Table1 hace referencia al DataSet ligado al DataSource del DBGrid.

En cualquier caso, deberías deshabilitar el procedimiento cuando edites o insertes un registro.

Espero que vayan por ahí los tiros.

[Gangster]

Empezado por maxvera

Bien.

No sé si me paso de listo (por la sencillez de la respuesta), pero esto debería funcionar:

Código Delphi [-]procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin if Table1.RecNo < Table1.RecordCount then Table1.Last;
end;

Hola MaxVera Pero lo puse asi tal y como me dices pero entonces escribo un renglon en el dbgrid pero al dar la tecla tab no me deja pasar de renglon, y no puedo seguir escribiendo en le grid se queda ahi,como que dice estoy en el ultimo renglon y no me deja escribir otro lo toma ese renglon como el ultimo en la tabla, alguna otra sugerencia o idea, o que error este cometiendo este es mi codigo.

recdetail es mi tabla.

le puse el recordcount = 1, porque sin el ni me deja escribir en el primer renglon. siempre estaria en el ultimo

procedure TASEcom.tbRecDetailAfterScroll(DataSet: TDataSet);
begin
if(ASEcom.tbRecDetail.RecordCount = 1)then
begin
if (ASEcom.tbRecDetail.RecNo < ASEcom.tbRecDetail.RecordCount) then
ASEcom.tbRecDetail.Last;
end;
end;

[maxvera]

Prueba esto (con las modificaciones adecuadas a tu código):

Código Delphi [-]
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
  if (not Table1.State in [dsEdit, dsInsert])
  and (Table1.RecNo < Table1.RecordCount)
  then Table1.Last;
end;