server错误事件不知道在哪 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

userlogging事件

Dim dls() As String = e.UserName.Split(".") '获取登陆(渠道,客户,用户组,代码和名称),共3项

Dim dt1 As DataTable

Dim cmd1 As new SQLCommand

cmd1.C

cmd1.CommandText="select * f rom yonghu where yhdm='" & dls(3) & "'"

dt1=cmd1.ExecuteReader

Dim dr1 As DataRow = dt1.DataRows(0)

If dr1 Is Nothing Then '判断此用户不存在

e.Message = "用户名错误!" '返回给登录者的提示信息

Return

End If

If dr1("mima") <> e.Password Then '如果密码错误

e.Message = "登录密码错误!" '返回给登录者的提示信息

Return

End If

If dr1("tzsy") =True Then '如果密码错误

e.Message = "您的账号已经停止使用!" '返回给登录者的提示信息

Return

End If

For Each User As QQUser In QQserver.Users '检查用户是否已登录过

If user.Name = e.UserName Then '如果账号已经登录过

e.Message = "您的账号已经登录,不允许重复登录!" '返回给登录者的提示信息

QQServer.Send(e.UserName,"tuichu") '发送信息到客户端,要求下线

Return

End If

e.Success = True '允许用户登录

'添加所有同事为好友

Dim sql1 As String ="Select a.*,b.yhzmc,c.khmc,d.qdmc F rom yonghu as a "

Dim sql2 As String =" left outer join yhz as b on a.yhzdm=b.yhzdm "

Dim sql3 As String =" left outer join kehu as c on b.khdm=c.khdm"

Dim sql4 As String =" left outer join qudao as d on c.qddm=d.qddm"

Dim sqltext=sql1+sql2+sql3+sql4

Dim cmd As New SQLCommand

cmd.C

Dim dt As DataTable

cmd.CommandText = sqltext

dt = cmd.ExecuteReader()

For Each dr As DataRow In dt.Select("", "yhdm")

Dim nm As String = dr("qdmc") & "." & dr("khmc") & "." & dr("yhzmc") & "." & dr("yhdm") & "." & dr("yhmc")

If nm <> e.UserName Then '如果不是登录者本人

e.Buddies.Add(nm)

End If

userlogout事件

Dim Keys As New List(of String)

For Each Key As String In _duzhan.Keys

If _duzhan(Key) = e.UserName Then

Keys.Add(Key)

End If

For Each Key As String In Keys

_duzhan.Remove(Key)

'这样当有用户退出登录时,不管他是正常退出还是异常退出,都可以将字典中该用户的编辑登记移除,避免死锁.

'客户端用户异常退出时,服务端的编辑登记的移除会有一个延时,时长取决于QQServer的HeartbeatTimeout(心跳超时)属性.

'上述编码有一个地方需要注意,我们不能在遍历字典或集合的过程中移除其成员(运行时会报错),

'所以我们用一个临时的集合Keys,先将要移除的键值保存在这个集合中,最后遍历这个集合中的键值,从字典_duzhan中移除这些键值.

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 _duzhan.Containskey(Key) = False Then '如果无人编辑此行

_duzhan.Add(Key,e.UserName) '登记申请者为此行的编辑者

e.ReturnValue = "OK" '通知申请者可以编辑

ElseIf _duzhan(Key) = e.UserName Then '如果申请者就是之前登记的编辑者

e.ReturnValue = "OK" '通知申请者可以编辑

Else '如果之前登记的编辑者为其他人

e.ReturnValue = _duzhan(Key) & "正在编辑此行!" '告知申请者是谁在编辑此行

End If

ElseIf msg.StartsWith("!#") AndAlso msg.EndsWith("#!") Then '收到结束编辑信号

Dim Key As String = msg.SubString(2,msg.Length - 4)

If _duzhan.Containskey(Key) Then

_duzhan.Remove(Key) '从集合中移除此行的编辑登记

End If

If e.Message="ean13" Then '国标码(厂商识别代码)

e.ReturnValue=GetConfigValue("ean13","000")

End If

If e.Message="wymlsh" Then '唯一码流水号长度(默认为4)

e.ReturnValue=GetConfigValue("wymlsh","4")

End If

主题：server错误事件不知道在哪