All pastes #86953 Raw Edit

Untitled

public text v1 · immutable
·published 2006-07-13 13:37 UTC
rendered paste body
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   case key of
    vk_return :
      begin
        adoquery1.post;
        AdoQuery1.Close;
        AdoQuery1.SQL.Clear;
        AdoQuery1.SQL.Add('SELECT * FROM cardmanager ORDER BY Sor_Szam');
        AdoQuery1.Open;
        AdoQuery1.Last;
      end;
   end;
end;