李 海 涛

(商丘师范学院计算机与信息技术学院，476000，河南，商丘)

VOD管理系统服务器端的设计

李 海 涛

(商丘师范学院计算机与信息技术学院，476000，河南，商丘)

“VOD管理系统服务器端”主要是以SQL Server数据库和VB 6.0为主要工具而开发，该系统主要是一服务管理系统，用来管理VOD客户信息，实现开户、查询和修改客户信息，查询和修改服务信息，用户统计，账单查询等电视台内部对VOD电视用户及VOD电视节目的管理功能。另外，系统实现了文件的导出和导入，让操作人员更方便的将数据传入数据库，以及将数据导出整理存档。

VOD；ADODC；系统设计

0 引言

VOD的全称是Video on Demand，意即按需要的视频流播放。它是在我国目前的数字电视中占有很大的比重。当您打开电视，您可以不看广告，不为某个节目赶时间，随时直接点播自己希望收看的内容，就好像播放自己家里录像机或VCD中的一部新片子，但是您又不需要购买录像带或者VCD盘，也不需要录像机或者VCD。同时，人们通过它还可以完成在电脑上才能完成的INTERNET浏览、收发电子邮件、进行网络游戏等活动。

一个完整的VOD系统主要由3个部分组成：服务器端、网络系统、客户端系统。服务端系统主要由视频服务器、档案管理服务器、内部通讯子系统和网络接口组成[1]。网络系统包括主干网络和本地网络两部分。因为它负责视频信息流的实时传输，所以是影响连续媒体网络服务系统性能极为关键的部分。客户端系统，目前，根据不同的功能需求和应用场景，主要有3种VOD系统：NVOD、TVOD和IVOD。本文主要研究VOD系统服务器端系统。因为VOD模式下，也许每个用户点播的套餐都不同，不可能像原来有线电视管理那样只需要统计客户的缴费情况[2-3]。这里还要统计客户选择的套餐，客户的点播情况等。以前用于有线电视客户信息管理的系统已经不能满足现在的管理需求。所以，开发一个完全适合现代VOD模式的客户信息管理软件很有必要。

1 系统功能分析

目前，信息管理系统的发展已经比较成熟。这里根据对现有信息系统的总结，按照数据处理的流程对系统进行分析。

在对系统进行总体分析以后，初步确定了系统的几个功能，并对各功能进一步的挖掘分析。系统的大致功能如图1所示。

图1 系统的基本功能图

2 系统设计

2.1录入模块的设计

在系统的功能模块图中，大致可以确定录入模块应具有的功能。在这里对其进行更加详细的设计。

依照系统的功能模块图可以得出，录入模块包含有服务信息的添加和修改以及客户信息的添加和修改。另外为了方便系统用户对数据的操作，避免数据录入过分复杂，在这里设计了服务信息录入的2种方式。第一种方法就是由管理员在系统页面中根据系统要求输入的内容，一条一条的录入记录。另外一种方法就是根据一定的方法实现批量录入。

这里是批量录入的方法：

//获取文件名

iValue=Dir("d:MAC_Table*.txt")

filename_txt=iValue

Do while iValue<>""

If StrComp(iValue,filename_txt)=1 Then

filename_txt=iValue

End If

iValue=Dir()

Loop

//ADODC获取数据

Adodc3.RecordSource="select MAC_txt from filename_xml"

Adodc3.Refresh

If StrComp(Adodc3.Recordset.Fields("MAC_txt"), filename_txt)=-1 Then

msg=MsgBox("确定要录入这些IPR",vbYesNo,"提示")

If msg=vbYes Then

//将ADODC内容上传

Adodc3.Recordset.Fields("MAC_txt")=filen-

ame_txt

Adodc3.Recordset.Update

//获取文件

filename_xml2="d:MAC_Table” & filename_txt

Set fil=fso.GetFile(filename_xml2)

//打开文件

Set ts=fil.OpenAsTextStream

//读入文件内容

While Not ts.AtEndOfLine

strs=ts.ReadLine

X=Split(strs," ")

//将文件内容传入ADODC

Adodc5.RecordSource="select *from MAC_Table where IPRMAC="+"'"+UCase(X(0))+"'"

Adodc5.Refresh

If Adodc5.Recordset.RecordCount=0 Then

Adodc1.Refresh

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields("IPRMAC")=UCase(X(0))

Adodc1.Recordset.Fields("CMMAC")=UCase(X(1))

Adodc1.Recordset.Update

End If

Wend

//将修改信息添入纪录表

Adodc4.Refresh

Adodc4.Recordset.AddNew

Adodc4.Recordset("adminname")=username

…

Adodc4.Recordset("description")="操作：批量录入"

Adodc4.Recordset.Update

ts.Close

2.2查询模块的设计

根据前面对查询模块的分析，以及基本确定了查询模块具体实现的功能。在对第3章中查询模块数据流图进行复审和细化，并在对数据流图分解后的得出查询模块程序流程(图2)。

基本的程序流程为：读入程序查询命令，判断其类型，然后进行处理，调用相关页面进行操作。

图2 查询模块的基本流程图

2.3导出模块的设计

系统的导出模块分为查询结果的EXCEL导出，系统各种规格文件的生成，以及将数据上传至FTP。基本上都是提供一个调用外部实体的接口。

以EXCEL导出为例，系统实现其功能的方法就是用ADODC控件来获取数据，并使用CreateObject("Excel.Application")获得一个Excel.Application对象，然后在此对象中添加新的工作表，并将此工作表的数据源设为此ADODC[4-5]。

2.4数据库的设计

首先，分析本系统所需要的数据。仍然根据服务管理和客户信息管理来确定所需要的数据。在服务管理中，需要制定一个服务的服务号、服务名以及他所属的套餐号、套餐名等，需要设置提供服务的FTP地址。并且要进行内部管理，设置不同的用户和权限。客户信息管理方面，需要纪录每个客户的资料，统计每次点播。

2.4.1 系统的基本表 通过对系统数据流的分析，确定了系统的一部分基本表(表1～表4)。

表1 系统登录表

表2 客户表

表3 IPR信息表

表4 记录表

2.4.2 使用ADODC对数据操作 下面这段代码是Adodc1获取用户输入的客户信息并将其上传至数据库的过程。

Adodc1.Recordset.AddNew//ADODC1读入新数据

//ADODC获得界面输入的用户信息

Adodc1.Recordset("ClientID")=Trim(Text1.Text)

Adodc1.Recordset("Clientname")=Text2.Text

Adodc1.Recordset("addressid")=Trim(Text3.Text)

Adodc1.Recordset("teleph")=Trim(Text4.Text)

Adodc1.Recordset("address")=Text5.Text

Adodc1.Recordset("type")=Combo1.Text

Adodc1.Recordset("exp")=s_text

Adodc1.Refresh//执行上面操作

Adodc1.Recordset.Update//将ADODC控件暂存的内容上传

3 系统实现

总结以上的分析和设计，有必要进行系统总体的架构，实现系统各模块的整合，来对系统总体进行实现。比如说录入模块有客户信息的录入查询等功能，也有服务信息的录入查询等功能。所以说，要综合考虑这些有交互的内容来设计系统的整体布局。

3.1录入模块的界面实现

鉴于录入模块含有添加和修改，并且分成为服务的添加和修改以及客户信息的添加和修改。所以，从系统模块的高内聚和低耦合来考虑，在界面实现时将关系比较紧密的服务的添加和修改放到一起实现。服务的添加和修改也是如此。

根据录入数据的业务流程，应该是服务录入——套餐录入，一个新套餐的录入，需要从现有的服务中选择部分服务作为套餐内容。所以，决定将服务及套餐的录入和修改都放在同一个页面进行。

根据以上安排，设计出如下服务及套餐录入界面(图3)。

图3 服务及套餐的添加和修改页面

3.2查询模块的布局实现

另外，因为ADODC在系统中的广泛使用，系统的大部分页面都有Data Grid控件。为了界面的美观，整个系统页面都采用了Data Grid占据页面大比例面积的样式。

3.3导出模块的代码实现

在前面已经分析了导出模块中数据导出的基本方法，但是还没有涉及具体的实现。因为EXCEL导出是系统中最常用的数据导出方式，通过命令新建一个工作表并将ADODC中的数据传输给它。具体的实现方法如下：

//创建一个EXCEL工作表

Set xlApplication=GetObject("Excel.Application")

Then Set xlApplication=CreateObject("Excel.Application")

Set xlWorkbook=xlApplication.Workbooks.Add

Set xlSheet=xlWorkbook.ActiveSheet

For i=0 To Adodc2.Recordset.RecordCount

//如果是EXCEL表的第一行，就填入字段名

If i=0 Then

xlSheet.Cells(1,1)="用户ID"

DataGrid1.Columns(0).Caption

xlSheet.Cells(1,2)="用户姓名"

DataGrid1.Columns(1).Caption

GoTo err

End If

//向表中填数据

xlSheet.Cells(i+1,1)=Adodc2.Recordset.Fields("ClientID")

xlSheet.Cells(i+1,2)=Adodc2.Recordset.Fields("Clientname")

Adodc2.Recordset.MoveNext

Next

//ADODC读入下个记录

Adodc2.Recordset.MoveFirst

End for

4 结束语

目前我国数字电视正处在飞速发展的浪潮下，VOD管理系统的开发前景可观，将有助于数字电视的进一步发展。

[1]塞奎春.Visual Basic信息系统开发实例精选[M].北京:机械工业出版社,2005.

[2]寿建霞.数据库原理及应用安全教程[M].北京:机械工业出版社,2005.

[3]杨得新.SQL Server2000开发与应用[M].北京:机械工业出版社,2005.

[4]汪明,王宏远,杨建.机顶盒中NVOD功能的二叉树实现[J].有线电视技术,2006,13(6):41-44.

[5]刘艳梅,张国军.基于多播技术的NVOD信道调度策略[J].有线电视技术,2006(6):115-117.

[6]董玫,孙锋.浅谈数字视频点播(VOD)技术发展现状[J].西部广播电视,2002(12):37-39.

[7]张爱芹.视频点播系统VOD技术原理和应用[J].现代电视技术,2003(10):95-97.

TheDesignofVODManagementSystemServer

LI Haitao

(Computer and Information Department,Shangqiu Normal University,476000,Shangqiu,Henan,PRC)

"VOD management system server" is mainly based on SQL Server database and VB 6 as the main development tools,the system is mainly a service management system,used to manage customer information in VOD,open an account,query and update customer information,query and modify user service information,statistics,billing inquiries TV internal management function VOD TV and VOD TV show.In addition,the system realizes the file export and import,let the operator more convenient data into the database,and to export the data archive.

VOD;ADODC;system design

2014-06-06;

2014-07-01

李海涛(1978-)，男，河南长垣人，硕士，讲师，主要从事视频编解码、物联网、云计算及安全的应用研究。

河南省科技厅基础与前沿技术研究计划项目(编号：132300410385)。

10.13990/j.issn1001-3679.2014.04.026

TN948.64

A

1001-3679(2014)04-0531-05