主题：服务端与客户端有什么区别？

服务端与客户端有什么区别？设计了一款软件，专门用于审计工作的，准备开始使用消息推送等功能，这个软件需要复制两份，一个作为服务端，一个作为客户端吗？

我把自己做的软件作为客户端使用，再用帮助中的例子做为服务端就可以了吗？当然可以需要根据情况修改。

这里需要用的包括网络状态下编号。

以下是帮助中的代码，直接把代码复制到相应事件中时提示错误，例子是编写时发生的了错误还是其他原因？错误发生的原因是标黄色的部分。

Public flbhs As New Dictionary(of String,Integer)

2、在服务端的AfterOpenProjet事件中编写代码：

Dim dt As DataTable
Dim cmd As New SQLCo mmand
cmd.Conne ction Name = "数据源名称"
cmd.Comm andText = "Select 类别, Max(编号) As 编号 Fr om {产品} Group By 类别"
dt = cmd.Execut eReader
gcbhs.Clear()
For Each dr As DataRow In dt.DataRows
    Dim qz As String = dr("类别") '编号前缀
    Dim bh As String =  dr("编号")
    Dim id As Integer
    If bh.Length = 5 Then
        bh = bh.SubString(3)
        If Integer.TryParse(bh,id) Then
            gcbhs.Add(qz, id)
        End If
    End If
Next

上述代码在启动项目后，用SQL语句提取每个类别的最大编号，将其整数部分存储在字典flbhs中。

3、在服务端的OpenQQ服务端事件Receive dMessage中编写代码：

Dim msg As String = e.Message
If msg.StartsWith(":f") AndAlso msg.EndsWith("f:") Then
    msg = msg.SubString(2, msg.Length - 4)
    If pdbhs.Contain sKey(msg) Then '如果存在这个类别的编号
        pdbhs(msg) = pdbhs(msg) + 1 '将该类别最大编号加1
    Else
        pdbhs.Add(msg,1) '如果是这个列表的首次编号,则编号等于1
    End If
    e.ReturnValue = pdbhs(msg) '将编号返回给客户端
End If

cmd.Comm andText = "Select 类别, Max(编号) As 编号 Fr om {产品} Group By 类别"   这句代码是否只针对多产品表呀，如果其他表也需要自动编号就需要把此表名换为相应的表名？

如果有20张表或更多的表，是否5楼的代码就需要编20个，如果是更多的表就需要更多的代码？

里面有订单、客户、产品三个表，怎么能够实现网络环境下自动编号，请求帮助。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自动编号.zip