关于界面问题(50分)

1、如何获取系统日期和时间？
2、如何控制在几个输入框中数据格式？
3、如何在多个输入框的几个输入框反复输入而其他的不变？
即我有10个输入框，前面三个输入框只需要录入一次
而后面七个需要反复录入，直到按下某个热键或点击了某个按钮
如何实现？
4、为什么对某一编辑框onkeypress事件设置如下代码 edit_money:Tedit;
if key=#13 then
begin
edit_xm.taborder := 0;
edit_xm.setfocus;
end;
我的本意是判断在edit_money中按下的如果是回车键，就执行其中代码，如果不是
则edit_money继续接受输入，可事实并非如此
当设置上面事件代码后，edit_money框中只能输入一个字符了，输入的焦点就跳到
edit_xm去了，事实上我并没有按下回车，那段代码应该不会被执行啊。
这该如何解决？
5、如何实现数据库中某字段自动增长？（sql server 2000或Interbase）

回复：yourkeychen@hotmail.com oicq:18832809

1、now
2、maskedit
3、录入一次的和重复要输的分别用一个groupbox
4、去掉edit_xm.taborder := 0
5、用识别种子

1.Label1.Caption := DateTimeToStr(Now);
2,3,4
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_RETURN then
begin
Edit2.Text:=Edit1.Text;
Edit3.Text:=Edit1.Text;
Edit4.SetFocus;
end;
end;

1。Label1.Caption := DateTimeToStr(Now);
2。maskedit;
3。4 同魔鬼大师
5。设置字段类型为int，然后再设计其种子为『是』，递增为1或其它；

谢谢你们的参与，我觉得super_duck回答的比较详细，魔鬼大师的我没有看到答案，chen_cyh的我收到了，我答应给50分，就分给你们三个参与者吧。谢谢你们

多人接受答案了。