学习unigui【20】unistringGrid

做成下面效果图：

 采用unistringGrid控件。

问题：

1、不同的日期区间如何得到。如：

项目   开始时间时间 -- 终止使用时间

呼吸机  yyyy-mm-dd   yyyy-mm-dd

呼吸机  yyyy-mm-dd   yyyy-mm-dd

插管  yyyy-mm-dd   yyyy-mm-dd

 SELECT
        "器械"::VARCHAR(30) AS "项目",
        json_agg(json_build_object('开始时间', DATE("开始时间"), '终止时间', DATE("终止时间"))) AS "时间段"
    FROM (
        SELECT
            "medAdvice" AS "器械",
            "startDate" AS "开始时间",
            "TermDime" AS "终止时间"
        FROM "RemoteData"."RM_UseageMedEquipment"
        WHERE "patient_id" = apatient_id
            AND ("medAdvice" LIKE '%呼吸机%'
                OR "medAdvice" LIKE '%中心静脉插管%'
                OR "medAdvice" LIKE '%泌尿道插管%')

 

2、pg的日期类型是标准的YYYY-MM-DD。而os的是五花八门，如何转换。

Delphi字符串转日期，强大到窒息，VarToDateTime解决了困扰很久的小问题

var
  D:TDateTime;
  s:string;
begin
　jsonArray := TJSONObject.ParseJSONValue(fdqry_dictEdit.FieldValues['时间段']) as TJSONArray ;　
　startDateStr := jsonObject.Values['开始时间'].Value;
  endDateStr := jsonObject.Values['终止时间'].Value;
  D:=VarToDateTime(startDateStr); //Delphi字符串转日期，强大到窒息，VarToDateTime解决了困扰很久的小问题
  S:=FormatDatetime('YYYY-MM-DD HH:MM:SS',D); 
  showmessage(s); 
end;

3、在stringGrid中找到对应的cell，填入不同的图案

有了正确的日期格式，然后遍历填充即可