金蝶KFO的新特性介紹.docVIP

KFO的新特性的应用 优化KFO的Dictionary对象，提高数据打包性能 问题的提出： 以前KFO的对象Dictionary在打包数据在20000个以内时，人的感觉是能够接受的，但超过20000个时，明显的感觉很慢，数据越大，所需要的时间成指数函数的方式迅速递增，特别是在记录集转化为KFO的Dictionary对象时。为了解决上述的性能问题，从而添加Repeated属性和InitMaxCount方法。 方法属性： Property Repeated As Boolean 功能： 指明关键字是否允许重复，True表示允许重复，False表示不允许，默认值为False，与以 前版本兼容。如果将Repeated设置为True，调用者需自己处理关键字不重复的问题。 Sub InitMaxCount(nMaxCount As Long) 功能： 指明在进行数据打包前一次性分配一定数量的打包数据个数。 参数： nMaxCount 指明打包数据个数 说明： 对于此方法，如果需要打包的数据个数超过50000个，最好先调用此方法，以提高内存分 配的速度。在结合应用Repeated属性，大包的数据速度成几十上百乃上千的倍数提高， 具体倍数与打包的数据量有关，数据量越大，倍数越大。 应用样例： Dim lIndex as Long Dim dict as KFO.Dictionary Set dict = New KFO.Dictionary Dict.InitMax(100000) Dict. Repeated = True For lIndex = 1 to 100000 Dict(lIndex) = lIndex Next 支持KFO的Vector、Dictionary以及LinkedList对象对系列化 问题的提出： 我们在用金蝶核心对象KFO进行编程过程中，碰到以下两个现象： 当用KFO.Vector、KFO.Dictionary及KFO.LinkedList对象进行数据打包时，在VB及.NET中的变量查看中均无法看到内部的数据及其结构，只能看到最上一级的对象所包含的元素个数 在用MSMQ消息对象MSMQMessage、VB的PropertyBag对象时，直接使用KFO.Vector、KFO.Dictionary及KFO.LinkedList对象进行处理时提示错误 分析原因，主要是因为原有KFO的Vector、Dictionary及LinkedList对象没有支持系列化。解决的办法是让KFO的Vector、Dictionary及LinkedList支持系列化处理。 应用样例： 查看KFO对象结构： 支持VB.PropertyBag Dim bag As PropertyBag Dim dict As KFO.Dictionary Set dict = New KFO.Dictionary dict(aaaa) = 1000 Set bag = New PropertyBag bag.WriteProperty Test, dict …… Set dict = Nothing Set dict = bag.ReadProperty(Test) MsgBox dict(aaaa) 支持MSMQ Dim oMessage As MSMQMessage Dim dict As KFO.Dictionary Set oMessage = New MSMQMessage Set dict = New KFO.Dictionary dict(aaaa) = 1000 oMessage.Body = dict …… Set dict = Nothing Set dict = oMessage.Body MsgBox dict(aaaa) ‘为1000 其他任何需要系列化的地方 支持KFO的Vector、Dictionary以及LinkedList对象的嵌套克隆 问题的提出： 以前的KFO的Vector、Dictionary以及LinkedList对象的Clone方法，只对本身一级内数据进行复制，对Vector、Dictionary以及LinkedList对象的三个进行多层次嵌套时，只对嵌套的Vector、Dictionary以及LinkedList进行简单引用，不是完全意义上的数据复制克隆，因此添加CloneAll方法，进行完全意义上的数据复制克隆，生成全新的副本。 方法属性： Function CloneAll() as KFO.Vector