4) 图书信息管理协议
添加图书信息：“Book,01,Respond”，帧头Book，类型号为01，协议内容为Respond表示添加图书是否成功的信息。
查询图书信息：
“Book,02,Book_Num1+Book_Name1+Book_Author1+Book_Press1+Book_PrsNum1+Book_PrsDate1+Book_Type1+Book_Available1+Book_Total1,……..”，帧头Book，类型号为02，协议内容为：Book_Num1是要查询的第一个图书信息的图书号，Book_Name1是要查询的第一个图书信息的书名，Book_Author1是作者名，Book_Press1是出版社名，Book_PrsNum1是版本号，Book_PrsDate1表示出版日期，Book_Type1表示类型号，Book_Avaiable1表示图书是否在库，Book_Total1表示的是图书借阅总次数。
5) 读者信息管理协议
添加读者信息：“Rdr,01,Respond”。
删除读者信息：“Rdr,02,Respond”。
查询读者信息：“Rdr,03,Respond”。
6) 管理员信息管理协议
添加管理员信息：“Usr,01,Respond”。
删除管理员信息：“Usr,02,Respond”。
查询管理员信息：“Usr,03,Usr_ID1+Usr_Name1+Usr_Type1,…….”。
7) 图书借阅统计协议毕业论文
http://www.751com.cn/ 借阅次数排名统计：
“Stat,Book_Num1+Book_Name1+Book_Author1+Book_Press1+Book_PrsNum1+Book+PrsDate1+Book_Type1+Book_Avaiable1+Book_Total1,……”。 第五章 系统界面与代码设计
5.1 服务器端设计
5.1.1 服务器端Winsock控件
Winsock控件是一个在运行中不可见的控件，所以当程序运行时，主界面并不显示它，而只是在后台运作。Winsock控件对Winsock API进行了封装，屏蔽了用Winsock编写TCP/IP应用的细节，使用时不必了解TCP/IP具体内容和如何调用Winsock API，所以使用起来非常方便，只要设置好相应属性，在一些触发事件过程中做好相应的处理，就能实现网络应用程序的编写。
在本系统中服务器会分别给不同的客户端安排不同的Winsock连接，每当有新的客户请求连接时，服务器首先检验是否有空闲的Winsock控件来接受请求，有就用空闲Winsock来接受请求，不然服务器会动态生成新的Winsock控件，然后用新生成的控件请求。当Winsock控件数组接收到数据时，先将数据按间隔的逗号分开，提取帧头和类型，并对数据内容分别做相应的处理。当网络连接关闭时，要找到网络连接列表中相应的记录，将网络连接状态显示为“断开”。另外，在利用sock发送数据之前一定要检验sock连接状态，否则当sock连接不是连接状态时，系统会出错。下面来看一下该控件的一些事件代码。
1. Winsock触发Close事件：
Private Sub SockToCln_Close (index As Integer) '网络连接关闭
Dim i As Integer
Dim FindItm As ListItem
For i = 1 To ClMax
If Client (i). index = index Then '找到该连接
Set FindItm = Me.LvCnn.FindItem (Client (i). UsrID)
FindItm.SubItems(1) = "断开"
FindItm.SubItems (2) = Now
Exit For
End If原文请+QQ32491,14辣.文^论,文'网
Next i
End Sub
2. Winsock触发ConnectionRequest事件：
'接受连接请求毕业论文http://www.751com.cn/
Private Sub SockToCln_ConnectionRequest (index As Integer, ByVal requestID As Long)
Dim i As Integer
For i = 1 To MaxSvrSock '查询是否有关闭的空闲控件
If SockToCln(i).State = sckClosed Then
SockToCln(i).LocalPort = 0
If SockToCln(i).LocalPort = SvrPort Then '不能占用侦听端口
上一页 [1] [2] [3] [4] [5] [6]
VB+access基于c/s模式的图书管理系统论文 第6页下载如图片无法显示或论文不完整，请联系qq752018766
