mdlprocresult.bas

<Visual Basic 数据库开发实例精粹（第二版）>一书首先介绍了Visual Basic(简称VB)开发的技巧和重点技术

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