Function TDConnection(status,summary,desc,severity,deteDate,project,priority,assignTo,
detectedBy)
Dim TDConn
'链接QC
Set TDConn=CreateObject("TDApiole80.TDConnection")
TDConn.InitConnectionEx "http://192.168.4.112:8080/qcbin" 'QC的地址
TDConn.Login "admin","111111" 'QC管理员账号
TDConn.Connect "DEFAULT","MEG" 'DEFAULT为domain的名称，MEG为项目的名称
'提交BUG到QC
Set bugFactory=TDConn.BugFactory
Set bug=bugFactory.ADDItem(Nothing)
bug.Field("BG_STATUS")=status
bug.Field("BG_SUMMARY")=summary
bug.Field("BG_DESCRIPTION")=desc
bug.Field("BG_SEVERITY")=severity
bug.Field("BG_DETECTION_DATE")=deteDate
bug.Field("BG_PROJECT")=project
bug.Field("BG_PRIORITY")=priority
bug.Field("BG_ASSIGNTO")=assignTo
bug.Field("BG_DETECTED_BY")=detectedBy
bug.Post
Set bug=Nothing
Set TDConn=Nothing
End Function
