auDemo

Option Explicit

Private Const MODULE_NAME = "auDemo.WSC"

Private Const OP_READ_DEMO =

Private Const OP_ADD_DEMO =

Private Const OP_EDIT_DEMO =

Private Const OP_DELETE_DEMO =

Private Const OP_CREATE_DEMO_REPORT =

Dim oEccomOperation,dbDemo

Set oEccomOperation = CreateObject("EccomSystem.Operation")

Set dbDemo = CreateObject("dbDemo.wsc")

Private Function GetContent(idDemo)

    Dim rs,arrContent(,)

    Set rs = dbDemo.GetDemo(idDemo)

    If rs.EOF Then Err.Raise ,MODULE_NAME,"相关信息不存在。"

    arrContent(,) = "ID"       :        arrContent(,) = idDemo

    arrContent(,) = "State"    :        arrContent(,) = rs("State") & ""

    rs.Close

    GetContent = arrContent

End Function

Public Function CanReadDemo(idOperator,idDemo)

    Dim arrContent

    arrContent = GetContent(idDemo)

    CanReadDemo = oEccomOperation.CanHeRead(idOperator,OP_READ_DEMO,arrContent)

End Function

Public Function CanAddDemo(idOperator,bCommit,arrNewContent)

    If Not bCommit Then

        CanAddDemo = oEccomOperation.CanHeBeginAdd(idOperator,OP_ADD_DEMO)

    Else

        CanAddDemo = oEccomOperation.CanHeCommitAdd(idOperator,OP_ADD_DEMO,arrNewContent)

    End If

End Function

Public Function CanEditDemo(idOperator,idDemo,bCommit,arrNewContent)

    Dim rs,arrContent

    CanEditDemo = False

    '内置,状态为(编辑中)才编辑

    Set rs = dbDemo.GetDemo(idDemo)

    If rs.EOF Then Err.Raise ,MODULE_NAME,"相关信息不存在。"

    If Not rs("State") = "编辑中" Then Exit Function

    arrContent = GetContent(idDemo)

    If Not bCommit Then

        CanEditDemo = oEccomOperation.CanHeBeginEdit(idOperator,OP_EDIT_DEMO,arrContent)

    Else

        CanEditDemo = oEccomOperation.CanHeCommitEdit(idOperator,OP_EDIT_DEMO,arrContent,arrNewContent)

    End If

End Function

Public Function CanDeleteDemo(idOperator,idDemo)

    Dim arrContent

    arrContent = GetContent(idDemo)

    CanDeleteDemo = oEccomOperation.CanHeDelete(idOperator,OP_DELETE_DEMO,arrContent)

End Function

Public Function ListWhoCanEdit(idDemo)

    Dim arrContent

    arrContent = GetContent(idDemo)

    ListWhoCanSubmit = oEccomOperation.WhoCanBeginEdit(OP_EDIT_DEMO,arrContent)

End Function

Public Function ListWhoCanRead(idDemo)

    Dim arrContent

    arrContent = GetContent(idDemo)

    ListWhoCanRead = oEccomOperation.WhoCanRead(OP_READ_DEMO,arrContent)

End Function

Function CanCreateDemoReport(idOperator,bCommit,arrNewContent)

    If Not bCommit Then

        CanAddDemo = oEccomOperation.CanHeBeginAdd(idOperator,OP_CREATE_DEMO_REPORT)

    Else

        CanAddDemo = oEccomOperation.CanHeCommitAdd(idOperator,OP_CREATE_DEMO_REPORT,arrNewContent)

    End If

End Function