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

最新推荐文章于 2024-09-06 15:59:52 发布

winfredzhang

最新推荐文章于 2024-09-06 15:59:52 发布

阅读量411

点赞数

分类专栏： unigui delphi rio 文章标签： UnixToDateTime DateTimeToUnix

本文链接：https://blog.csdn.net/winniezhang/article/details/105622398

版权

delphi rio 同时被 2 个专栏收录

89 篇文章 2 订阅

订阅专栏

unigui

60 篇文章 12 订阅

订阅专栏

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);