用SQL从服务器获取到时间，怎样更新到本机？

Question

例如：用SQL从服务器获取到时间 2013-03-03 00:01:30.180怎样更新本地日期和时间？

Answer 1

执行两条命令：
date 2013-03-03 
time 00:01:30.180

Answer 2

API方式：
SetLocalTime
SetSystemTime

Answer 3

procedure TfmMain.SetSystemDateTime;
var
  ServerDateTime: TDateTime;
  ServerSystemTime: TSystemTime;
begin
  QryTemp.Close;
  QryTemp.CommandText := ' SELECT SYSDATE FROM DUAL ';//从数据库获取到数据库的时间
  QryTemp.Open;
  ServerDateTime := QryTemp.FieldByName('SYSDATE').AsDateTime;
  DateTimeToSystemTime(ServerDateTime, ServerSystemTime);
  SetLocalTime(ServerSystemTime);
end;

Answer 4

在delphi中使用下边的sql语句查询即可
select currData = GetDate()

Answer 5

在服务器执行SQL在传到本地，调用API更新