SendMessage 向文本框发送内容和回车事件
摘要：var Ret: LongInt; mText: PChar; Buf: Integer; sCode:string; begin sCode:='123213123'; GetMem(mText, Length(sCode)); StrCopy(mText, PChar(sCode)); Buf
阅读全文
posted @
2020-04-22 16:06
EEEEEEEEEEEEEEEEEEE
阅读(4338)
推荐(0) 编辑
ClientDataset 实现分组求和(Group By)的功能
摘要：ClientDataset 实现分组求和(Group By)的功能 调用用方法 按商品ID分组累加数量try List.Clear; List.Delimiter:='='; List:=SumOfField(PosCDS,PosCDS.FieldByName('SPID'),PosCDS.Fiel
阅读全文
posted @
2020-04-21 10:56
EEEEEEEEEEEEEEEEEEE
阅读(472)
推荐(0) 编辑
