Delphi中將本機時間(包含毫秒)更新到數據庫。

1. procedure recordProcessTime(p_beginTime,p_endTime:TDateTime);
2. var
3.   sqlStr:String;
4. begin
5.   sqlStr := 'insert into process_time(start_time,end_time)'
6.       + 'values(TO_TIMESTAMP_TZ(:p_Start,''YYYY-MM-DD HH24:MI:SSxFF''),'
7.       + ' TO_TIMESTAMP_TZ(:p_end,''YYYY-MM-DD HH24:MI:SSxFF''))';
9.    with QryTemp do
10.    begin
11.       close;
12.       sql.Clear;
13.       sql.Add(sqlStr);
14.       parambyname('p_Start').AsString:=FormatDateTime('yyyy-mm-dd hh:nn:ss.zzz',p_beginTime);
15.       parambyname('p_end').AsString:=FormatDateTime('yyyy-mm-dd hh:nn:ss.zzz',p_endTime);
16.       ExecSQL;
17.   end;
18. end;