请问mssql做后台,怎样可以做到让用户在dbgrid输入数据回车焦点自动在下一个字段(20分)

还有就是在最后的字段按下回车自动加焦点到下一行
请问怎样达到这效果

procedure TForm1.DBGrid1KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then
with TDbgrid(ActiveControl) do
begin
if Selectedindex<(FieldCount-1) then
Selectedindex:=Selectedindex+1
else
begin
dbgrid1.DataSource.DataSet.Next;
Selectedindex:=0;
end
end;
end;

正好昨天答过相似的题目

差不多，我也做过相似的