在vb.net中使用委托：经理 和 员工

现在开发的一个 vb.net系统，其中有两个窗体：alert窗体和 case窗体。

在alert窗体中列出了当前可以操作的若干个alert（可以理解为数据记录），用户可以选择将其中一个或几个alert加入一个case（可以理解为若干条记录的集合）中。

加入case的这个操作要调用case窗体来完成，由于同时要输入一些相关信息，所以完成时间未知；由于在case窗体中也可能删除某些alert，所以哪些alert最后能够成功加入case也是未知的。

这些alert加入case以后，在alert窗体中要以彩色显示。

上面这个功能，可以使用委托来实现。下面对此进行介绍。

用拟人化的方式来解释：alert窗体，相当于公司的经理，经理手里有若干条工作任务需要完成，但经理自己不会做，只能让公司员工去做；case窗体，相当于公司员工，要去完成经理交代的任务；经理和员工之间，需要有一个沟通的渠道（比如：电话、电报、电邮、小黑板、对讲机，等等），这个渠道既不属于经理，也不属于员工，而是与经理和员工平等的，这个沟通渠道就是委托机制。经理通过这个渠道安排员工去完成某几项工作任务，员工何时能够完成不知道，能够完成几项也不知道，但是员工做完的时候，会返回给经理已经完成的工作清单，经理根据这份工作清单刷新自己手里的任务列表。

下面是相关的代码：

'   在类定义的外面，定义了一个委托,以便在不同的类之间传递信息，这就是沟通渠道

'       具体来说，经理类( frmSuspiciousAlert )调用了 员工类(_frmSuspiciousAlert_case)

'       经理让员工干活（把几笔交易加入到case中），但是什么时候能干完，经理不知道；员工具体添加了哪几笔交易，经理也不知道

'       因此让员工在干完活之后告诉经理一声，并返回所添加的交易的行号

'   这就是这个委托的功能

Public Delegate Sub CallBackManager_saveCase(ByVal rowIDs As List(Of String), ByVal caseID As Integer)    '  委托1，沟通渠道

--------------------------------------------------------------------------------------------------------------------------------------------------------------

Public Class _frmSuspiciousAlert_case     ‘   case窗体，公司员工

Dim myCallBack_saveCase As CallBackManager_saveCase       ' 委托2： 作为员工，要有能够通知经理的基本能力（不论具体方式：打电话，发短信，发电邮...）

'  注意： 有这个能力不代表一定会去做，具体做不做，取决于经理有没有交待员工这样做

'   委托3： 这里是个供经理调用的接口，经理通过这个接口交待员工（注册一个委托，表示干这个活是经理委派的）

Public Sub registerDelegate_saveCase(ByVal _callBack As CallBackManager_saveCase)

myCallBack_saveCase = _callBack

End Sub

'   构造函数，参数为一个 dataTable ，一个 caseID  和 一个可以操作的caseID列表 ； add to case

'        此时的操作是将这个dataTable中的若干笔交易添加到这个已有的Case中;  若_caseID为0 则添加到新的case

Sub New(_dataTable As DataTable, _caseID As Integer, _enabledCaseIDs As List(Of Integer))

InitializeComponent()

enabledCaseIDs = _enabledCaseIDs

lbl_caseID.Text = _caseID.ToString   ' 添加到case

'  注意，由于查看case时 tb_caseID.Text不为0        '  所以，当 tb_caseID.Text = 0 时，表示添加交易到新的case

newDataTable = _dataTable

End Sub

'  员工干活： 当点击此按钮时，把界面上显示的这些case信息保存到数据库中

Private Sub btn_save_Click(sender As Object, e As EventArgs) Handles btn_save.Click

'  准备返回给经理（frmSuspiciousAlert）的字符串列表： 添加成功的各个rowID

Dim listRowID_added As List(Of String) = New List(Of String)

conn.BeginTrans()  '  开始事务处理

If saveDatasOK(listRowID_added) Then  '  如果存盘成功（listRowID_added，完成的工作清单）

conn.CommitTrans()    ' 提交更改

If IsNothing(myCallBack_saveCase) = False Then   '  如果 事先有个委托（这个委托不是空的，表示干这个活是受经理委派的）

myCallBack_saveCase.Invoke(listRowID_added, CInt(lbl_caseID.Text))    '   委托4： 告知经理，活干完了，并且交上一份工作清单；

‘  注意： 如果经理(frmSuspiciousAlert)那里有个公共操作(ddd)，这里也可以直接对其操作，  'frmSuspiciousAlert.ddd(listRowID)     ’ 看上去效果似乎差不多；但是其有弊端（只有在知道经理是谁的情况下，才能这样做； 而且这样直接操作其他页面, 也是不安全的，耦合性也很高），所以如果不知道谁是经理（不知道哪个页面调用了本页面），就只能用委托了   所以，尽量不要使用这种方式

' 由于这里有个委托，所以经理(frmSuspiciousAlert)那里会有个操作（刷新界面），此时活动界面（焦点）会转移到经理那边

Me.Focus()    ' 这里重新获取焦点，本界面又成为活动界面

End If

Else   '  如果存盘失败

conn.RollbackTrans()    '  回滚

End If

End Sub

Private Function saveDatasOK(ByRef listRowID_added As List(Of String)) As Boolean

Dim strTableName As String = "  AT2_SSIS_SUS_ALERTS  "

Dim oReturnNonQuery As QueryReturnReader

Dim commitsuccess As Boolean = True

For Each _row As DataGridViewRow In dgv_alerts.Rows    '  对于 dgv 中的每一行（一行就是一个alert）

Dim strCmd As String = "update " & strTableName & " set "    '   所要更新的表

strCmd &= " CASE_ID = " & CInt(lbl_caseID.Text)  '_caseID     '  case ID

Dim rowID As String = _row.Cells("rowid").Value().ToString.Trim

listRowID_added.Add(rowID)    '  完成了一项工作，加入清单中

strCmd &= " where rowid = '" & rowID & "'"       '  所要更新的位置

End Function

End Class

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Public Class frmSuspiciousAlert       ‘  alert窗体，公司经理

'  当鼠标右键点击进入菜单 Add To New Case 时，将当前选中的这几笔交易加入到某个 可疑Case中

Private Sub clickTSM_addToCase(ByVal sender As Object, ByVal e As System.EventArgs) Handles TSMI_AddToCase.Click

Dim _dt As DataTable = getDataTableFromDgv(dtgAML, True)  '   获取当前dgv的选中的那些行组成的 dataTable（所需要完成的工作清单）

'   首先实例化对象(安排一个员工去干活)，将这几笔交易加入到 新的(caseID 为 0) 或者 已有的 case 中

Dim frm As _frmSuspiciousAlert_case = New _frmSuspiciousAlert_case(_dt, caseID, dgvCaseIDs)

'   这里加了个委托，当操作成功时（成功将若干笔交易加入case），返回一个信号，以便改变 dgv的显示状态（行的颜色，行头，等等）

'   委托5： 对员工(_frm2)交待(registerDelegate)：你干完活要通知经理(CallBackManager)，以便经理这里收尾工作(doThingWhenCallBack)

frm.registerDelegate_saveCase(New CallBackManager_saveCase(AddressOf changeDGV_bySaveCaseResults))

frm.Show()   ' 员工干活去了，何时能够干完？不知道

End Sub

‘  当员工干完时，根据员工返回的清单，经理刷新已经完成的工作清单

Private Sub changeDGV_bySaveCaseResults(ByVal listRowID As List(Of String), ByVal caseID As Integer)

'MessageBox.Show("经理我知道了，这些交易已经成功保存到case " & listRowID.Count)

For Each _rowID As String In listRowID

For Each _row As DataGridViewRow In dtgAML.Rows  '   对于 dgv中一些行    ，如果改变了某个交易的case状态，则改变其底色

If _row.Cells("rowid").Value().ToString.Trim = _rowID Then

_row.DefaultCellStyle.BackColor = color_inCase      '  底色变色

_row.HeaderCell.Value = caseID.ToString             '   caseID

_row.ReadOnly = True                        '   只可读

End If

Next

Next

End Sub

End Class