摘要：if CDSUserFunc.Locate('mod_id;res_id', VarArrayOf([UserFunc.MOD_ID, UserFunc.RES_ID]), [loCaseInsensitive]) then begin CDSUserFunc.Delete; end; if not 阅读全文

摘要：procedure ExPortNodeQuantifyComponent1(aCDS: TClientDataSet; aCurrNode: TXMLNode); var mStream: TMemoryStream; I: Integer; vNode: TcxTreeListNode; Nat 阅读全文

摘要：Delphi 为TClientdataset定义结果集，并增加记录procedure addDefsFieldsForCDS(aDataSet: TClientDataSet);begin aDataSet.Data := null; aDataSet.FieldDefs.Clear; aDataSet.FieldDefs.Add('ID', ftString, 100); aDataSet.FieldDefs.Add('CODE', ftString, 100); aDataSet.FieldDefs.Add('NEW_L_CODE', ftS 阅读全文