郁闷，能不能给出具体的代码

Question

我想在delphi里做一个这样的程序，能时时刻刻刷新SQL服务器系统时间。请问怎么做？还有如何把SQL服务器系统时间放在一个标签框里。求各位大虾帮忙。关键是定时器里的代码怎么写.不要告诉我用dataset.close+dataset.open这么俗的方法。

Answer 1

你是想用本地机刷服务器还是用服务器刷本地机?
不用dataset用socket.

Answer 2

我看你最好还是这样，在连接上服务器时，将本机时间改为和服务器时间一样，然后只要取本机时间就行了，最后断开时再改回去。
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.caption:=timetostr(time);
end;