begin if key=#39 then if DBGrid1.SelectedIndex < 5 Then //DBGrid显示了6列
DBGrid1.SelectedIndex := DBGrid1.SelectedIndex + 1 else begin DBGrid1.SelectedIndex := 0; // 光标到下一条记录第1列位置// with AdoQuery1 do begin Next; if EOF then Last; end; end; if key=#37 then if DBGrid1.SelectedIndex >0 Then //DBGrid显示了6列
DBGrid1.SelectedIndex := DBGrid1.SelectedIndex - 1 else begin DBGrid1.SelectedIndex := 0; // 光标到下一条记录第1列位置// with AdoQuery1 do begin Next; if BOF then First; end; end;
if key=#39 then
if DBGrid1.SelectedIndex < 5 Then //DBGrid显示了6列
DBGrid1.SelectedIndex := DBGrid1.SelectedIndex + 1
else
begin
DBGrid1.SelectedIndex := 0; // 光标到下一条记录第1列位置//
with AdoQuery1 do
begin
Next;
if EOF then Last;
end;
end;
if key=#37 then
if DBGrid1.SelectedIndex >0 Then //DBGrid显示了6列
DBGrid1.SelectedIndex := DBGrid1.SelectedIndex - 1
else
begin
DBGrid1.SelectedIndex := 0; // 光标到下一条记录第1列位置//
with AdoQuery1 do
begin
Next;
if BOF then First;
end;
end;