Kingron(戒网中……)快说你的更简单的方法,我给20分!! 什么问题?我忘记了。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure AnsyTime(const DatabaseName:string);var td: _SYSTEMTIME;begin{ DONE -oKingron -cOther : 同步服务器时间 } with TQuery.Create(Self) do try DatabaseName:=DatabaseName; SQL.Clear; SQL.Text := 'select td=getdate()'; Open; DateTimeToSystemTime(FieldByName('td').AsDateTime, td); SetLocalTime(td); finally Free; end;end; 高分求助!!!!!请各位看看 程序退出后,TOleContainer为什么不能自动关闭进程的winword.exe???? 求助~ 难道ado控件有漏洞??? 怎么解决RPC占位符格式不兼容? 还有什么大的技术论坛?我实在受不了CSDN了。 速求Ghost的CD-Key,Thank! 那边有比较好的关于delphi 的书籍的下载? 对应的查询赋值如何实现? Delphi Quick Report 1.5米宽幅打印机 如何将纸张设为宽1.5米 (比较有难度) ????请教高手, 如何在mdiform客户区画线??? 怎样退出一个close事件
var
td: _SYSTEMTIME;
begin
{ DONE -oKingron -cOther : 同步服务器时间 }
with TQuery.Create(Self) do
try
DatabaseName:=DatabaseName;
SQL.Clear;
SQL.Text := 'select td=getdate()';
Open;
DateTimeToSystemTime(FieldByName('td').AsDateTime, td);
SetLocalTime(td);
finally
Free;
end;
end;