var
currenttime:time;begin
currenttime:=time;
...
query1.fieldbyname('runtime').asstring:=timetostr(currenttime);
...
end;
currenttime:time;begin
currenttime:=time;
...
query1.fieldbyname('runtime').asstring:=timetostr(currenttime);
...
end;
解决方案 »
- delphi 二进制读写的效率~
- 如何在 listbox中每行中添加图标
- 如何在DBGrid中对金额降序排序时,间隔几条记录就出现一个小记,请大侠帮忙,谢谢!
- 菜鸟问题! 如何获得程序的当前目录?
- TBDEClientDataSet控件的用法
- 关于ADOTable的操作
- 可以跳到帮助文件指定的页面
- 如何用StringGrid代替DBGrid来显示数据表中的数据,那么StringGrid如何连接数据源,如何写入字段名,如何只让某个列能修改数据?
- 请问用adoquery如何取得有返回值的存储过程
- 如何获得某个进程中执行的SQL存储过程
- 来这儿去高分!!!!
- 大虾帮忙!在edit控件中录入了50个字符,可是保存后就截成20个字符了?
var Year, Month, Day: Word; Tmp:=Date;
DecodeDate(Tmp, Year, Month, Day); QRYear.Caption:=IntToStr(Year);
QRMonth.Caption:=IntToStr(Month);
QRDay.Caption:=IntToStr(Day);
select getdate() systime from 表名
starttime:string;
begin
starttime:=timetostr(now());
lable1.caption:=starttime;
end;