SQL服务器时间同步

参看了一些网上的文章自己写了一个同步时间的函数，贴出来与大家一起分享~~~

代码如下： 

 

procedure Tmainfr.Button1Click(Sender: TObject);         // 同步服务器时间
var 
mytime:Tsystemtime;
begin
     ADODataSet1.Close;
     ADODataSet1.CommandText: = ' select getdate() as sysdate ' ;
     ADODataSet1.Open;     // 取得服务器时间
     DateTimeToSystemTime(ADODataSet1.FieldByName( ' sysdate ' ).AsDateTime,mytime);    // 转换时间格式                     
     SetLocalTime(mytime);        // 修改时间
end;

多多指正，谢谢~~~^_^