在SQLServer中获取系统时间,是这样的:
function getnettime :string;
begin
with Tquery.Create(nil) do
begin
try
Close;
SQL.Clear;
Params.Clear;
SQL.Add('select getdate()');
Open;
result :=FieldByName('getdate()').AsString;
finally
Free;
end;
end;
end;请问一下在Oracle中,怎样获取系统时间????
function getnettime :string;
begin
with Tquery.Create(nil) do
begin
try
Close;
SQL.Clear;
Params.Clear;
SQL.Add('select sysdate ');
Open;
result :=FieldByName('sysdate').AsString;
finally
Free;
end;
end;
end;
请问大家有没有更好的办法啊,请大家赐教,谢谢!
function getnettime :string;
begin
with Tquery.Create(nil) do
begin
try
Close;
SQL.Clear;
Params.Clear;
SQL.Add('select getdate()');
Open;
result :=FieldByName('getdate()').AsString;
finally
Free;
end;
end;
end;请问一下在Oracle中,怎样获取系统时间????
function getnettime :string;
begin
with Tquery.Create(nil) do
begin
try
Close;
SQL.Clear;
Params.Clear;
SQL.Add('select sysdate ');
Open;
result :=FieldByName('sysdate').AsString;
finally
Free;
end;
end;
end;
请问大家有没有更好的办法啊,请大家赐教,谢谢!
解决方案 »
- Delphi 多线程的问题!
- delphi读写dat文件的问题
- 又收到Borland说我用盗版的传真。散200分。
- pagecontrol的问题,高手来
- DBGrid是否可以支持显示非数据库形式的内存数据?
- 十万火急!!!给定用户名,口令,如何建立与另外一台机器的连接,从而可以复制它上面的文件!
- 我对做软件已经厌倦了、疲倦了,我想转行!请各位给些建议。
- 如何获得 SQL Server 的安装路径。多谢
- delphi图像压缩出错和乱码问题
- 奇怪的查询结果!(sql数据库操作);
- dbgrid数据分页显示问题
- 在Delphi不能用j:=(2^i)来表示2的i次方 (j为Integer类型),问如何表示???!!!!
tquery.fieldbyname('字段名').asstring:=time();取时间
tquery.fieldbyname('字段名').asstring:=date()+time();同时取日期和时间
SQL.Add('select getdate() as Date');
delphi中有个好用的时间控件datetimepicker,在datetimepicker.datatime:=now();
或者是label1.Caption:=formatdatetime('yyyy"年"mm"月"dd"日" hh:ss',now);都行.
在ontimer事件中加入一段显示时间的代码即可
可以通过设置interval来调整刷新频率,默认的interval为1000,即1秒
交个朋友吧。
QQ:250128836