资源描述：
《vb在电子阅览室管理中的应用》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、VB在电子阅览室管理中的应用第17卷第2期2007年6月中国环境管理干部学院JOURNALOFEMCCVo1.17NO.2Jun.2007VB在电子阅览室管理中的应用赵伦,周淑英,王笑月(中国环境管理干部学院,河北秦皇岛066004)摘要:对计算机开发工具Visualbasic(简称VB)在电子阅览室中的应用作了简单介绍,包括局域网内的通信与控制,数据库的使用以及Word打印排版等方面的使用.关键词:Visualbasic;电子阅览室;应用中图分类号:G251文献标识码:A文章编号:1008—813(2007)02—0119—04ApplyingVBin
2、toElectronicReadingRoomManagementZHAOLun.ZHOUShu—ying.WANGXiao—yue(EnvironmentalManagementCollegeofChina,QinhuangdaoHebei066004)Abstract:Thisarticlehasgiventhesimpleintroductiontocommonlyusedcomputerdevelop—mentkitVisualbasic(i.e.VB)inelectronicreadingroomapplication.Thecontentin
3、cludethelocalareanetworkincorrespondenceandthecontrol,aspectanddatabaseuseaswellasWordprintingtypesetting.Keywords:Visualbasic;electronicreadingroom;application1前言Visualbasic自身除了作为编程工具外,还可作为office(~1word和Exce1)的宏语言和动态网页ASP的脚本语言,即VBA和VBSCRIPT,它们是Visualbasic的两个子集.因此,VB除了专业程序员使用外,更适
4、合大量的非专业程序员使用.目前各个行业都在使用由专业软件公司开发的应用软件,但是,由于工作的差异和变化,这些大型软件在局部领域仍有覆盖不到的地方,很多时候还需要由自己进行补充开发,以弥补其不足.2局域网内的通信与控制在VB中,共有三个ActiveX控件可以用来开发计算机通信应用程序,它们为用户提供了几乎每一层的网络通信协议,这三个控件是win—sock控件(用于开发TCP/IP和UDP协议程序),internettrans~er控件(用于文件传输和执行FTP命令及登录服务器等)和webbrowser控件(用于开发具有独立程序的浏览器)l1].Winsoc
5、k可以使用tcp和udp两种协议.Tcp协议即数据传输协议,它在两个主机之间建立连接,提供双向,有序,无重复的数据流服务,以及流量控制,差错检测和纠错等服务,保证数据的可靠传输.利用tcp协议通讯必须分别建立客户应用程序和服务器应用程序.Udp协议也称为用户数据报协议,是一种双向的无连接报务,它把数据传送出去但不进行差错控制和检查,所以不能保证数据传输的可靠性,因而一般只用于少量数据的传输].在工作中有时需要对电子阅览室某台违规操作的计算机进行重启或关机,在下班时间要对所有电脑关机.通过下面的程序可以开发出局域网内远程重启,关机和注销的应用软件,窗体拖入
6、一个名为sckserver(0)的Winsock控件,它的Index属性设置为0;因此该控件是控件数组的一部分.在声明部分,声明了一个模块级的变量intMax.收稿日期:2006-12-15作者简介:赵伦(1951),男,河北人,毕业于长春地质学院地质专业,副研究馆员.12O中国环境管理干部学院2007年6月在窗体的Load事件中,intMax设置为0,数组中第一个控件的LocalPort属性设置为1001.然后调用控件的Listen方法,使之成为"监听"控件.在连接请求到达时,代码将检测Index是否为0("监听"控件的值).如果为0,监听控件将增加i
7、ntMax的值,并使用该号码来创建新的控件实例.然后,使用新的控件实例接受连接请求.代码如下:DimintmaxAsLong'定义一个模块级变量intMaxPrivateSubForm_Load()intmax==0'tcpserver.RemoteHost一"c7"'如果想通过对方IP连接的话,请把上面一行改为'tcpserv—er.RemoteHostIP="对方IP".tcpserver(0).LocalPort一1001'注意这里的设置一定要和客户端中Winsock1.RemotePort所使用的端口一致,否则将无法使用.tcpserver(O)
8、.Listen'将1001端口状态设为监听状态endsubPrivateSubt
