ungui中如何将unidatetimepicker更新mysql中unixtime类型字段

最新推荐文章于 2025-10-12 23:03:28 发布

原创最新推荐文章于 2025-10-12 23:03:28 发布 · 473 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#UnixToDateTime #DateTimeToUnix

delphi rio 同时被 2 个专栏收录

89 篇文章

订阅专栏

unigui

60 篇文章

订阅专栏

本文介绍了一种使用Delphi编程语言中的DateUtils单元进行Unix时间戳与日期时间字段同步的方法。通过示例代码展示了如何在数据集滚动时更新日期选择器组件，并在更新时将日期时间选择器的值转换回Unix时间戳。

uses
   DateUtils;

显示日期字段

procedure TFramNewproject.FDQuery1AfterScroll(DataSet: TDataSet);
begin
  Self.UniDateTimePicker1.DateTime := UnixToDateTime(FDQuery1.FieldByName('evs_starttime').AsInteger);
  Self.UniDateTimePicker2.DateTime := UnixToDateTime(FDQuery1.FieldByName('evs_endtime').AsInteger);
  Self.UniDateTimePicker3.DateTime := UnixToDateTime(FDQuery1.FieldByName('evs_otstime').AsInteger);
  Self.UniDateTimePicker4.DateTime := UnixToDateTime(FDQuery1.FieldByName('evs_rnstime').AsInteger);
end;

更新日期字段

  FDQuery1.FieldByName('evs_starttime').AsInteger := DateTimeToUnix(Self.UniDateTimePicker1.DateTime);
  FDQuery1.FieldByName('evs_endtime').AsInteger := DateTimeToUnix(Self.UniDateTimePicker2.DateTime);
  FDQuery1.FieldByName('evs_otstime').AsInteger := DateTimeToUnix(Self.UniDateTimePicker3.DateTime);
  FDQuery1.FieldByName('evs_rnstime').AsInteger := DateTimeToUnix(Self.UniDateTimePicker4.DateTime);