学习unigui【20】unistringGrid

合集 - unigui(25)

1.unidbgrid的rowedit=true2022-09-062.unigui的demo-\Demos\Desktop\DBAppDemo\SimpleDemo.dproj【11】2021-05-313.unigui的session【1】2018-05-024.unigui菜单【3】2018-08-035.unigui的ini文件读写【6】2018-09-206.unigui导出TMS.Flexcel【5】2018-08-137.unigui+fastreport 打印【4】2018-08-118.unigui显示uniTreeVview使用TUniTreeNode内存泄漏的问题【14】2023-12-169.unigui显示websocket服务端向客户端发送信息【15】2023-12-2510.学习unigui【17】-数据集和JSON互相转换-DataSetConverter4D 开源项目2024-02-0111.学习unigui【18】unidbgrid的GridsGroupingSorting2024-02-0212.学习unigui【19】unidbgrid的Group By This Field汉化2024-02-02

13.学习unigui【20】unistringGrid2024-02-27

14.学习unigui【21】unistringGrid的标题栏动态增加2024-02-2915.学习unigui【22】unistringGrid的标题栏双击事件2024-03-0116.学习unigui【23】uniDBGrid的使用摘要2024-03-0917.学习unigui【25】关于图标2024-05-3018.学习unigui【24】Echart的使用：多个坐标系2024-04-2019.学习unigui【26】关于Unigui控件的个性化CSS框架2024-05-3120.学习unigui【27】像pg的jsonb一样编辑json。2024-06-0321.unigui的菜单树补习【2】treeview2018-08-0122.unigui的程序编译后自动运行傻傻的手动【7】2021-04-2823.unigui的ServerModule的重要属性【8】2021-04-2924.unigui的错误delphi clientHeight:property clientheight does not exist【10】2021-05-0325.学习unigui【28】UniGUI接收POST/GET2024-10-16

收起

做成下面效果图：

 采用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，填入不同的图案

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