金字塔VBA常用对象使用范例 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

本周末继续讲解order对象，其中，OrderStatusEx2是重头戏，这个事件威力无穷，值得好好聊聊。

9、OrderStatusEx2事件

Order对象的OrderStatusEx和OrderStatusEx2的区别是，后者返回了交易账户。我个人更喜欢使用后者，可以精确指定对那个帐户的交易情况进行处理。

从帮助文字可以看出，这个事件监控订单的变化情况，从下单、撤单、成交等都可以实时回传给你的，通过这个事件，你可以做很多事件的。

(1)做一个账户跟踪程序，跟踪另一个账户的交易，就要用到这个事件，具体思路是有成交时，判断是哪一个账户成交，如果是你要监控的账户，就同步在另一个账户开同向的仓位。

这个实例等我闲下来整理一下代码，可以奉献给大家，敬请期待。

(2)可以做一个将成交记录实时写到Excel的程序，这样你就可以清楚地看到你当前的交易，盈亏计算也可以在excel中完成。

这个实例，我已经公布在论坛了，有兴趣的可以看看：http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=10234

(3)用在套利策略中，可以用来处理单腿交易等。

(4)其他需要监控账户变动情况，如：下单后多长时间不成交撤单，你需要记录下单的时间，然后比较最新时间与该时间的间隔来确定是否需要撤单。

需要说明一下金字塔返回的订单状态：

1)Submitted:是已经提交订单。

2)Filled:是已经成交的订单。

3)Tradeing:是成交回报，可能filled状态的单成交时分多次成交，那么这个状态的单就会有多个。

4)Cancelled:是已经取消的单

下面是一个将成交情况存入全局变量的实例

Sub ORDER_OrderStatusEx2(OrderID, Status, Filled, Remaining, Price, Code, Market, OrderType, Aspect, Kaiping,Account, AccountType)
'账户类型 0 IB 1 CTP 2 金仕达
    Dim sStatus       '成交状态
If AccountType=0 then
  sAccType="0.IB"
ElseIf AccountType=1 then
  sAccType="1.CTP"
ElseIf AccountType=2 then
  sAccType="2.金士达"
End if

If AccountType=0 then
  sStatus="FILLED"
ElseIf AccountType=1 then
  sStatus="TRADEING"
ElseIf AccountType=2 then
  sStatus="FILLED"
End if

If UCase(Status)="FILLED" then  '只跟踪成交的单
  if Aspect=0 and Kaiping=0 then '买入
   Call Document.SetExtString("Order-Buy-time",time)     '成交时间
   Call Document.SetExtData("Order-B-Price",Price)   '成交价格
   Call Document.SetExtData("Order-B-Vol",Filled)   '成交手数
   Call Document.SetExtData("Order-B-OrderID",OrderID)  '成交单号
  end if
  if Aspect=1 and Kaiping=0 then '卖出
   Call Document.SetExtString("Order-S-time" ,time)     '成交时间
   Call Document.SetExtData("Order-S-Price",Price)   '成交价格
   Call Document.SetExtData("Order-S-Vol",Filled)   '成交手数
   Call Document.SetExtData("Order-S-OrderID",OrderID)  '成交单号
  end if
  if Aspect=1 and Kaiping>0 then '卖平
   Call Document.SetExtString("Order-Sp-time",time)     '成交时间
   Call Document.SetExtData("Order-Sp-Price",Price)  '成交价格
   Call Document.SetExtData("Order-Sp-Vol",Filled)   '成交手数
   Call Document.SetExtData("Order-Sp-OrderID",OrderID) '成交单号
  end if
  if Aspect=0 and Kaiping>0 then '买平
   Call Document.SetExtString("Order-Bp-time",time)    '成交时间
   Call Document.SetExtData("Order-Bp-Price",Price) '成交价格
   Call Document.SetExtData("Order-Bp-Vol",Filled)  '成交手数
  end if
End if
End Sub

把这段代码复制到你的金字塔vba模块中，试着下几个单，然后可以看看全局变量中是否有下单时间、成交价格、成交手数、成交单号这些变量。

[此贴子已经被作者于2012-5-19 14:04:29编辑过]

主题：金字塔VBA常用对象使用范例