摘要：一个老项目中，使用软数字录入数据，编译时出现n个：frxpngimage left side cannot be assigned to 原因是使用了frxpngimage单元，在D11中编译出现若干frxpngimage left side cannot be assigned to。 经网查查找
阅读全文
摘要：var I: Integer; CurrentObject: TJSONObject; FieldName: string; Pair: TJSONPair;function CreateJSONValueForVariant(const aValue: Variant): TJSONValue;b
阅读全文
摘要：第一步：在TuniStringGrid的ClientEvents.ExtEvents中定义Ext.grid.Panel的reconfigure事件: function reconfigure(sender, store, columns, oldStore, oldColumns, eOpts) {
阅读全文
摘要：var Column: TUniGridColumn; begin Column := TUniGridColumn(unstrngrd_summary.Columns.Add); Column.Title.Caption := DateToStr(currentDate); end 要清楚标题栏和
阅读全文
摘要：做成下面效果图： 采用unistringGrid控件。 问题： 1、不同的日期区间如何得到。如： 项目 开始时间时间 -- 终止使用时间 呼吸机 yyyy-mm-dd yyyy-mm-dd 呼吸机 yyyy-mm-dd yyyy-mm-dd 插管 yyyy-mm-dd yyyy-mm-dd SELE
阅读全文
摘要：折腾二天，你不按照demo里的代码来，就是没有效果。功力不够导致的。学习学习再学习！努力努力再努力！ procedure TUniGridsGroupingSorting.UniDBGrid1MultiColumnSort( Columns: TUniDBGridColumnArr; Directi
阅读全文
摘要：uniTreeVviewc创建一个tree，显示患者姓名（PatientName）。因为需要用到患者ID（PatientID），所以使用help： TPatientTreeNode = class(TUniTreeNode) //strict private FPatientID: string;
阅读全文
摘要：通常我们这样设计： MyForm ：TXXXXForm； 然后 MyForm := TXXXXForm.Create(Self); 如果其他Form调用MyForm方法： MyForm .mothed; 采用窗口融合方法后，一般不会采用指定变量MyForm了，那么后来的其他单元执行MyForm的方法
阅读全文
摘要：1、我们会想要能够对一个数据型别进行扩充，而不想继承类别。 2、如果我们想为一个组件类别加入新的方法，为它提供新的功能，而且不想通过继承来做。(如对TFDMEMTable增加方法等，你就得继承做处理，or做成控件进行安装...很繁琐） 那就使用class或者Record助手： 这些特殊用途的数据型别
阅读全文
摘要：TcxDataSummaryItem.OnGetTextprocedure TApportionDeptCost.cxgrdbndtblvwDBBandedTableView1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems0GetTex
阅读全文
摘要：ou can add text in TfrxReport.OnEndDoc event procedure TForm1.frxReport1EndDoc(Sender: TObject); var p: TfrxReportPage; m: TfrxMemoView; i: integer; b
阅读全文
摘要：fastreport的语言包，是通过不同的xml实现的。它是UTF8编码。可是我们D的IDE默认的是ansi。希望设定成默认UTF8.怎么做： Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Embarcadero\B
阅读全文
摘要：引用 System.Diagnostics 单元 属性： Elapsed 获取当前实例测量得出的总运行时间。 ElapsedMilliseconds 获取当前实例测量得出的总运行时间（以毫秒为单位）。 ElapsedTicks 获取当前实例测量得出的总运行时间（用计时器计时周期表示）。 IsRunn
阅读全文
摘要：//增加一行；焦点到当前指定cell。 frm.cxgrd1.SetFocus; frm.cxgrdbtblvwGrid1DBTableView1.DataController.AppendRecord;//or FDMemTable.Applend; frm.cxgrdbtblvwGrid1DBT
阅读全文
摘要：PG的sql语句的组织，由于特殊有点小麻烦。掌握方法就简单了 函数:"fn_BillsCharge2Account"("aSQlConditionStr" varchar)调用： SELECT "public"."fn_BillsCharge2Account"('("科室代码" = ''101001
阅读全文
摘要：cxgrid的换肤有时有点绕人。贴图依葫芦画瓢即可。
阅读全文
摘要：procedure TFrame_Bill.CopyARecord; var lAFDmemtable : TFDMemTable; begin {$REGION '增加一条复制的记录'} try lAFDmemtable := TFDMemTable.Create(nil); lAFDmemtab
阅读全文
摘要：这个问题有点老。但是有点烦人。 一般流程是 RegisterClass后通过getclass or findclass就会成功。 可是莫名其妙出现总是返回nil。咱也不清楚，网上找了好久，一个久远的帖子解决了问题。为什么？不知道。 RTTI据说可以解决同样的问题，待有时间熟悉。 找到了一个办法，随便
阅读全文
摘要：TMS WEB Core的思路就是把你界面设计转换成js。这个打通了，将会使生产效率呈几何级数提高。 说如何让其demo的能跑起来： 1、看图。增加参数（TMSHttpConfig.exe）。 2、运行：TMSWebServer.exe 3、运行demo，将会生成js文件的目录： 这个就是自动生成的
阅读全文
