13518219792
在数据采集监视系统中，数据如何发送、接收、处理和应用是一个系统的关键部分。在系统实施过程中，由于通信方式、通信协议、系统功能的变化，如何能快速简便进行系统实施，又能在需求发生变化时有更强的适用性，是一个产品能否快速应用的关键。本文总结自己在设计方面的经验，阐述了VB通信中数据处理方式的三层结构模式。
为神池等地区用户提供了全套网页设计制作服务，及神池网站建设行业解决方案。主营业务为做网站、成都网站制作、神池网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
系统设计为通信层、数据处理层、应用层。而每一层使用下层提供的服务，并向其上一层提供服务。三层结构分别对应系统通信方式、通信协议、系统功能，当需求发生变化时只用更改对应的层次，而其他的层次则不用，或者只用进行很少的改变。
通信层提供建立连接、接收、发送、误码重发、错误处理等功能，保证通信的双方的数据是可以信任的，正确的。对应OSI模型的表示层以及下层。
数据处理层提供格式化的表示和转换数据服务，对数据进行解析。对应OSI模型的表示层。
应用层提供网络与用户应用软件之间的接口服务，应用数据处理层的解析出来的数据进行应用，并且和用户界面进行交流。对应OSI模型的应用层。
可以考虑使用Cache（缓存）技术，对于不经常变化的数据可以采用静态Cache，对于可能经常被修改的数据可以采用数据库依赖的通知Cache更新技术。
窗体是指由两个列表框（ListBox1、ListBox2）和4个命令按钮（Button1“”按钮，Button2“”按钮，Button3“”按钮，Button4“”按钮）所构成的界面，代码：
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.Text = "选项移动"
ListBox1.SelectionMode = SelectionMode.MultiSimple
ListBox2.SelectionMode = SelectionMode.One
For i = 1 To 10
ListBox1.Items.Add(Chr(Asc("a") + i - 1))
Next
For i = 1 To 10
ListBox2.Items.Add(i.ToString)
Next
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If ListBox1.SelectedItems Is Nothing Then Exit Sub
Dim b As ListBox.ObjectCollection
For i = 0 To Me.ListBox1.SelectedItems.Count - 1
Me.ListBox2.Items.Add(Me.ListBox1.SelectedItems(0))
Me.ListBox1.Items.RemoveAt(Me.ListBox1.SelectedIndices(0))
Next
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
If ListBox2.SelectedItems IsNot Nothing Then
ListBox1.Items.Add(ListBox2.SelectedItem)
ListBox2.Items.Remove(ListBox2.SelectedItem)
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
For Each itm As Object In ListBox1.Items
ListBox2.Items.Add(itm)
Next
ListBox1.Items.Clear()
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
For Each itm As Object In ListBox2.Items
ListBox1.Items.Add(itm)
Next
ListBox2.Items.Clear()
End Sub
End Class
