Attribute VB_Name = "mdlProcResult"
Option Explicit

'============================================================================
'以下三個過程是對添加，刪除和更新三種結果的處理。

'1 刪除完成后只需要刪除列表視圖的對應項目后以消息框提示用戶即可
'2 更新完成后只需要按照修改界面上的新值更新列表視圖并以消息框提示用戶即可
'3 添加完成后，需要對添加界面進行初始化（比如清空已填寫的文本框），再把剛
'  添加的項目查詢并返回，在列表視圖顯示出來，之后再以消息框提示用戶。
'
'比較上述三種不同結果具體的處理過程，容易理解處理添加結果的時候僅以消息框
'提示用戶（其他處理在相應的添加界面的按鈕單擊事件里進行）
'============================================================================

'處理刪除結果
Public Sub ProcDeleteResult(Result As gxcDelete)
  If Result = DeleteOK Then
     DelObjFromLvw
     MsgBox "刪除成功！", vbInformation
  ElseIf Result = DeleteFail Then
     MsgBox "未知原因導致刪除失敗！", vbCritical
  ElseIf Result = RecordNotExist_Delete Then
     MsgBox "您要刪除的項目并不存在，可能已被其他用戶刪除。", vbCritical
  ElseIf Result = DeleteNotAllowed Then
     MsgBox "您要刪除的項目被其他項目引用，系統不允許刪除該項目。", vbCritical
  End If
End Sub

''處理添加結果
Public Sub ProcAddNewResult(Result As gxcAddNew)
  If Result = AddNewFail Then
     MsgBox "未知原因導致添加失敗！", vbCritical
  ElseIf Result = RecordNotExist_AddNew Then
     MsgBox "您添加的項目要引用的某些項目并不存在，這些項目可能已被刪除。", vbCritical
  ElseIf Result = DuplicateName_AddNew Then
     MsgBox "您添加的項目名稱已經存在，請重新指定。", vbCritical
  End If
End Sub

'處理更新結果
Public Sub ProcUpdateResult(Result As gxcUpdate, obj As Object)
  If Result = DeleteOK Then
     ShowObjInLvw obj, False
     MsgBox "修改成功！", vbInformation
  ElseIf Result = UpdateFail Then
     MsgBox "未知原因導致修改失敗！", vbCritical
  ElseIf Result = RecordNotExist_Update Then
     MsgBox "您要修改的項目并不存在，可能已被其他用戶刪除。", vbCritical
  ElseIf Result = DuplicateName_Update Then
     MsgBox "您修改的項目的新名稱已經存在，請重新指定。", vbCritical
  End If
End Sub