Sub order_orderstatusex2(orderid,status,filled,remaining,price,code,market,ordertype,aspect,kaiping,account,accounttype)
mystatus=LCase(status)
Select Case LCase(status)
Case "submitted"
onsendorder orderid,status,filled,remaining,price,code,market,ordertype,aspect,kaiping,account,accounttype
application.msgout Now&"<下单成功>"&mystatus
'printorderstatus orderid,status,filled,remaining,price,code,market,ordertype,aspect,kaiping,account,accounttype
Case "inactive"
onsendorderfailed orderid,status,filled,remaining,price,code,market,ordertype,aspect,kaiping,account,accounttype
application.msgout Now&"<下单失败>"&mystatus
'printorderstatus orderid,status,filled,remaining,price,code,market,ordertype,aspect,kaiping,account,accounttype
Case "cancelled"
oncancelorder orderid,status,filled,remaining,price,code,market,ordertype,aspect,kaiping,account,accounttype
application.msgout Now&"<撤单成功>"&mystatus
'printorderstatus orderid,status,filled,remaining,price,code,market,ordertype,aspect,kaiping,account,accounttype
Case "tradeing"
ontrade orderid,status,filled,remaining,price,code,market,ordertype,aspect,kaiping,account,accounttype
application.msgout Now&"<成交回报>"&mystatus
'printorderstatus orderid,status,filled,remaining,price,code,market,ordertype,aspect,kaiping,account,accounttype
Case "filled"
application.msgout Now&"<全部成交>"&mystatus
'printorderstatus orderid,status,filled,remaining,price,code,market,ordertype,aspect,kaiping,account,accounttype
Case "connected"
application.msgout Now&"<账号连接>"&mystatus
'printorderstatus orderid,status,filled,remaining,price,code,market,ordertype,aspect,kaiping,account,accounttype
Case "disconnected"
application.msgout Now&"<账号断开>"&mystatus
'printorderstatus orderid,status,filled,remaining,price,code,market,ordertype,aspect,kaiping,account,accounttype
Case Else
application.msgout Now&"<异常情况>"&mystatus
'printorderstatus orderid,status,filled,remaining,price,code,market,ordertype,aspect,kaiping,account,accounttype
End Select
End Sub