tab转换为回车的问题！（菜鸟提问！）

我练手做了个数据录入程序，用的是delphi+Access,录入界面中有n个dbedit进行数据的录入，但是我现在每次录入完成一个后到下一dbedit时必须用tab健来回切换，我想用回车代替tab可以么？我看过几个帖子，都不是很详细，试过也没有成功！麻烦哪位老兄再指点一二！不胜感激！
    另：我的ACCESS数据库中有一序号字段“id”,是按递增顺序排列的，如：1、2、3、4、、、、
现在想把它变成：00001、00002、00003、00004、、、、、、、也是自动按照递增顺序排列，比如第500条记录显示序号为“00500“，不知能不能实现？麻烦教我！谢谢！

解决方案 »

  1.   

    在你那TDBEdit的事件OnKeyDown中
    if key=13 then DBEdit2.SetFocus;
    事件OnKeyPress中则
    if key=#13 then DBEdit2.SetFocus;
      

  2.   

    form2.KeyPreview:=True;
    procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);
    begin
    if Key=#13 then SendMessage(Handle,WM_NEXTDLGCTL,0,0);//回车向下
    if Key=#27 then SendMessage(Handle,WM_NEXTDLGCTL,1,0);//ESC向上
    end;先设置好控件的
    TabStop:=False;
    TabOrder:=X//其中X为数字如:0,1,2....
      

  3.   

    谢谢gxgyj(Jackson...)老兄 !问题已成功的搞定.不过好象有一点不同的是我把Tabstop:=true;时，运行回车才正常！和你所说的“TabStop:=False;”刚好相反！        另外，哪位大哥帮忙看一下我的ACCESS问题，我已经想不出来招了？谢谢了！！
      

  4.   

    update 表 set ID=replicate('0',6-length(trim(ID))+Trim(ID)ID要为字符型才可以的