📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 495
Left = 1800
TabIndex = 0
Top = 1320
Width = 1215
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
Dim oWFM As clsWorkflowManager
Set oWFM = New clsWorkflowManager
Dim sProcXML As String
' sProcXML = "<Procedure ID='2' WFID='1'>" & _
' "<Name>Request for Approval</Name>" & _
' " <Description>This is a sample XML document</Description>" & _
' "<Status>Open</Status>" & _
' "<Type>Response</Type>" & _
' "<User>" & _
' "<FullName>John Slater</FullName>" & _
' "<UserName>jslater</UserName>" & _
' "<Password>password</Password>" & _
' "</User>" & _
' "<ResponseList>" & _
' "<Response>" & _
' "<ResponseID>001</ResponseID>" & _
' "<ResponseText>Accept</ResponseText>" & _
' "</Response>" & _
' "</ResponseList>" & _
' "<UserResponse><ResponseID>001</ResponseID><ResponseText>Accept</ResponseText>" & _
' " </UserResponse><StartDate>03/19/2000</StartDate><CompleteDate>03/19/2000</CompleteDate><Priority>1</Priority><ExpirationDate/><Message><Body>Please select a response.</Body><Type>Info</Type></Message>" & _
' "<Attactment><Name>Loan Application</Name><FilePath>/attachments/app102.doc</FilePath></Attactment></Procedure>"
sProcXML = "<Procedure ID='6' WFID='1' Name='Loan Officer Review'><Description></Description><Status>Open</Status><Type>Response</Type><User><FullName>Test User</FullName><UserName>tuser</UserName><Password>testuser</Password></User><ResponsePool><Response><ResponseID>1</ResponseID><ResponseText>Accept</ResponseText></Response><Response><ResponseID>2</ResponseID><ResponseText>Reject</ResponseText></Response></ResponsePool><UserResponse><ResponseID>0</ResponseID><ResponseText>Reject</ResponseText></UserResponse><StartDate>05-13-2000</StartDate><CompleteDate></CompleteDate><Priority>1</Priority><ExpirationDate>5/13/00</ExpirationDate><Message><MessageID></MessageID><MessageBody></MessageBody></Message><Attactment> No Attachments</Attactment></Procedure>"
'Debug.Print oWFM.getWorkflowItem("jslater", "password", 1, 6)
Debug.Print oWFM.getWorkflowList("ayoung", "adrian")
Debug.Print oWFM.getWorkflowItem("jslater", "password", "2", "3")
Debug.Print oWFM.executeWorkflow(sProcXML)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -