主题：关于独占式编辑问题

用OpenQQ实现独占式编辑

本节讲述如何避免多人同时编辑同一行，既如何实现独占式编辑。
利用OpenQQ，可以很轻松实现此功能。

要实现此功能，服务器端和客户端都要进行相应的设计，我们学习的时候，也要结合客户端和服务端的代码来理解。

一。服务器端的设计

1、在服务器端项目的全局代码中，加入如下代码：

Public tbrk As new Dictionary(of String,String)

tbrk是一个字典，用于登记每一行是谁在编辑。
我们约定接下来编码的时候：字典的键由表名和行的主键组合成，值则等于编辑者名。

2、在服务端项目的OpenQQ服务端的ReceivedMessage事件加上代码：

Dim msg As String = e.Message
If msg.StartsWith("?#") AndAlso msg.EndsWith("#?") Then '收到请求编辑信号
    Dim Key As String = msg.SubString(2,msg.Length - 4)
    If tbrk.Containskey(Key) = False Then '如果无人编辑此行
        tbrk.Add(Key,e.UserName) '登记申请者为此行的编辑者
        e.ReturnValue = "OK" '通知申请者可以编辑
    ElseIf tbrk(Key) = e.UserName Then '如果申请者就是之前登记的编辑者
        e.ReturnValue = "OK" '通知申请者可以编辑
    Else '如果之前登记的编辑者为其他人
        e.ReturnValue = tbrk(Key) & "正在编辑此行!" '告知申请者是谁在编辑此行
    End If

ElseIf msg.StartsWith("!#") AndAlso msg.EndsWith("#!") Then '收到结束编辑信号
    Dim Key As String = msg.SubString(2,msg.Length - 4)
    If tbrk.Containskey(Key)  Then
        tbrk.Remove(Key) '从集合中移除此行的编辑登记
    End If
End If

上述代码的注释详尽明了，就不做解释了。

3、在服务端项目的OpenQQ服务端的UserLogout事件加上代码：

Dim Keys As New List(of String)
For Each Key As String In tbrk.Keys
   If tbrk(Key) = e.UserName Then
      Keys.Add(Key)
    End If
Next
For Each Key As String In Keys
    tbrk.Remove(Key)
Next

这样当有用户退出登录时，不管他是正常退出还是异常退出，都可以将字典中该用户的编辑登记移除，避免死锁。
客户端用户异常退出时，服务端的编辑登记的移除会有一个延时，时长取决于QQServer的HeartbeatTimeout(心跳超时)属性。
上述编码有一个地方需要注意，我们不能在遍历字典或集合的过程中移除其成员(运行时会报错)，所以我们用一个临时的集合Keys，先将要移除的键值保存在这个集合中，最后遍历这个集合中的键值，从字典tbrk中移除这些键值。

2、在服务端项目的OpenQQ服务端的ReceivedMessage事件加上代码：

Dim msg As String = e.Message
If msg.StartsWith("?#") AndAlso msg.EndsWith("#?") Then '收到请求编辑信号
    Dim Keys As String = msg.SubString(2,msg.Length - 4)

dim v1 as string = "OK"

for each key as string in Keys.split("|")
    If tbrk.Containskey(Key) = False Then '如果无人编辑此行
        tbrk.Add(Key,e.UserName) '登记申请者为此行的编辑者
    ElseIf tbrk(Key) = e.UserName Then '如果申请者就是之前登记的编辑者
    Else '如果之前登记的编辑者为其他人
        e.ReturnValue = tbrk(Key) & "正在编辑此行!" '告知申请者是谁在编辑此行

exit for
    End If

next

e.ReturnValue = v1
ElseIf msg.StartsWith("!#") AndAlso msg.EndsWith("#!") Then '收到结束编辑信号
    Dim Keys As String = msg.SubString(2,msg.Length - 4)

for each key as string in Keys.split("|")
    If tbrk.Containskey(Key)  Then
        tbrk.Remove(Key) '从集合中移除此行的编辑登记
    End If

nezt
End If

然后服务端分析接收的信息的时候也需要改改，先根据“|”筛分2个表的数据，再逐个判断

老师，我理解能力太差，一直问，请您多包含

先理解一下split的用法：http://www.foxtable.com/webhelp/topics/0245.htm

去掉蓝色代码，没有用，多余的。不需要改动