摘要:
无论是发布消息,注册订阅方法等,都用到GlobalEventBus这个全局接口对象。接下来我们看看他是怎么来的? function GlobalEventBus: IEventBus; begin Result := TEventBusFactory.GlobalEventBus; end; 原来, 阅读全文
摘要:
有个OpenRecordItem方法,代码如下: procedure TCRecordInfo.OpenRecordItem; var sqlstr: string; begin sqlstr := 'Select * from cr_recorditem where FID=' + qrecord 阅读全文