软件著作权申请书.docx
《软件著作权申请书.docx》由会员分享，可在线阅读，更多相关《软件著作权申请书.docx（17页珍藏版）》请在冰点文库上搜索。
软件著作权申请书
软件著作权申请书
——冻土远程实时监测软件系统
黑龙江省水利科学研究院
2010年4月
软件著作权申请书
——冻土远程实时监测软件
冻土远程实时监测软件是黑龙江省水利科学研究院独立开发的适用于水利工程野
外原位监测和实验室监测的专业软件。
其特点在于可使水利行业野外冻土实时监测和数
据自动采集实现真正意义上的远程监控，确保通讯数据的可靠性和实时性。
一、软件简介
“冻土远程实时监测软件”是基于Microsoft.NETFramework架构进行开发的新一
代先进的监测软件，其运行环境为WindowsXP/Windows2003Server操作系统，软件为
全中文环境，运行稳定可靠，可根据具体的自定义要求进行系统配置，为每一用户提供
口令及硬件加密，保证数据的安全。
该符合国家标准《GB/T17544-1998信息技术软件
包质量要求和测试》的规定。
该软件采用模块化组织形式，通过模块分区，进行各种功能管理与应用。
该软件的
核心结构主要包括工程管理模块、通讯模块（数据通信）、编程模块、图形建模模块、
数据交互模块（实时监测、分析报表、报警等）、传感器库管理模块和帮助模块。
二、软件适用行业和用途
本软件是以满足冻土试验监测的需求为目的，将冻胀参数的实时监测曲线、土体温
度场分布、X-Y曲线、历史数据查询，以及远程实时监测和数据采集与传输等功能集于
一体的专业软件，主要用来满足工程冻土室内试验和野外原位观测的需要，为寒区水工
建筑物冻害破坏机理研究提供基础平台，指导寒区水利工程建设。
使水利行业野外冻土
数据自动采集实现真正意义上的远程监控，确保通讯数据的可靠性和实时性。
本软件的主要功能是将寒区水工建筑物冻害防治技术研究作为主要素材，利用计算
机编程语言、互联网及其数据库的功能，服务于工程冻土监测、寒区水工建筑物冻害破
坏机理研究领域，进行季节冻土区低温环境下的冻土温度场、应力场和变形等冻胀参数
的远程实时自动化监测、远程数据传输和数据处理等工作的专业软件。
该软件性能稳定、
可靠性高，测试精度满足监测要求，在水利工程等领域有广阔的应用前景。
三、软件开发的软硬件环境
软件环境：
Windows2000/WindowsXP/Windows2003/VISTA的简体中文版本，推荐采
用WindowsXP，office2003
硬件环境：
CPU（PⅣ），内存（1GB），硬盘（60GB）
四、软件的技术特点和功能
1.软件的技术特点
1）易维护：
采用模块化设计，在整个项目的进行中，代码的维护只是在局部模块
中，维护起来非常方便；
2）效率高：
全中文界面，菜单式设计，各部分功能一目了然，初学者易于掌握，
提高了使用效率；
3）易扩展：
由于面向对象的特性，设计出高内聚、低耦合的系统结构，使得系统
更灵活、更容易扩展。
2.软件的主要功能
1）可实时远程监测各测点测量参数，可根据需要设定测点数据，对原始数据可进
行滤波、计算，可远程传输数据，并对数据进行分析和处理；
2）监测数据能够以多种方式（数据表、时间历程曲线图、X/Y坐标图、模拟图、直
方图等）显示，并以数据库形式保存，方便进行历史数据查询；
3）可直接生成TXT、EXCEL，或其它形式报表文件；
4）打印监测数据，实现对系统信息打印的管理功能，提供实时打印、定时打印、
随机打印功能。
支持对图形、报表、曲线、报警信息、各种统计计算结果等的打印；
5）具有数据越限报警功能，可现场即时上传报警信息，同时，还具有GSM手机短
信报警管理系统；
6）能对系统中的每一用户进行口令和操作权限的管理，能对不同的用户分配不同
的系统访问、操作权限级别，保障运行系统的安全性；
7）操作界面清晰直观，工具条与按钮操作。
显示界面可分为主界面和各子界面，
各界面间切换灵活，界面图案可按客户要求灵活改动；
8）具有在线编辑、维护、修改、扩展功能。
系统硬件和软件都满足开放性标准的
要求，满足今后系统在硬件节点的增加、数据库容量的扩充、系统软件功能的增强等方
面的要求。
五、软件的先进性
“冻土远程实时监测软件”主要用于季节冻土区低温环境下的冻土温度场、应力场
和变形等冻胀参数的远程实时自动化监测、数据传输和数据处理等，该技术核心内容经
过科技查新，尚未见有相关报道。
成果创造性：
1）软件采用全中文操作界面，支持所有的通讯模式，能够很好的兼容国内外的仪
器设备和传感器，使冻土模型试验和野外原位观测实现了自动化和远程实时在线监测。
2）首次开发了季节冻土温度场实时显示技术，实现了寒区冻土温度场的实时可视
化功能，使寒区冻土的实时监测更加直观。
六、软件源程序代码
1.软件代码说明
本软件程序是一个单一的运行软件，各个软件子模块的预定义，程序清单的约定格
式如下：
文件名
源代码模块名
功能简介（备注）
（代码类型）
MDIForm1
主窗体（操控软件）（窗体）
frmnewProject
新建工程（管理监测计划）（窗体）
Dialog_ManageDoc
工程管理（备注无）（窗体）
frmdataJH
数据显示（串口，传感器相关信息）
（窗体）
frmPattern
图形建模（数据模拟显示）（窗体）
frmReV_Send
指令发送模块（控制发送硬件指令）
（窗体）
frmxjybc
巡检编程（监测计划编制）（窗体）
frmPro_Edit
编程（监测计划编制）（窗体）
Dialog_Dselect
串口连接设置（通信设置）（窗体）
FRM80
巡检采集模块（巡检数据显示）
（窗体）
unloa_Mess
监测通讯（监测硬件通讯）（窗体）
frmLine
数据实时曲线显示（实时显示监测信息数据）
（窗体）
frmLinexy
XY数据曲线绘制（历史数据绘线显示）
（窗体）
frmPattern_Draw
等值线绘制（按数据绘线）（窗体）
frmresetQuery_Import
导入数据（数据另外保存）（窗体）
Dialog_JD
历史数据查询（查看已经采集回来的数据）
（窗体）
frmresetTimeQuery
数据按时间导出（数据另外保存）（窗体）
frmalarm
报警设置（有效数据范围设置）
（窗体）
frmhisline
历史趋势曲线（有效显示数据）
（窗体）
frmSplash
软件简介（启动窗体）（窗体）
Dia_SensorAdd
传感器信息编辑（工程操控设置）（窗体）
Dialog_Ckdset
等值线便捷参数设置（数据显示设置）
（窗体）
Dialog_Find
查找（查询数据）（窗体）
Dialog_Setshow
点设置显示（传感器设置）（窗体）
Form_calendar
日期选择（定位时间）（窗体）
frmdataJhalarm
属性设置（报警的属性设置）（窗体）
frmGPRS
无线传输设置（传输控制设置）
（窗体）
frmnewDoc
新建文档（监测计划管理）（窗体）
frmPro_Prog
程序指令编写（发送命令操作硬件）
（窗体）
frmStartshow
启动窗体（显示信息）（窗体）
frmunload
数据下载（从硬件内读取数据）
（窗体）
Seri_1
串口连接设置（通讯设置）（窗体）
unloa_Mess_AU
数据辅助下载（数据设置下载）（窗体）
mduRAS
工程设置（类模块代码集合，无窗体）
（类模块）
modAddressOf
工程设置（类模块代码集合，无窗体）
（类模块）
ModcomAPI
工程设置（串口类模块代码集合，无窗体）
（类模块）
Moddabase
工程设置（数据库类模块代码集合，无窗体）
（类模块）
Moddatataker
工程设置（DT类模块代码集合，无窗体）（类模块）
modDisPlay
工程设置（显示类模块代码集合，无窗体）
（类模块）
ModNotifyIcon
工程设置（图标类模块代码集合，无窗体）
（类模块）
ModSensorMes
工程设置（传感器类模块代码集合，无窗体）
（类模块）
modSubClass
工程设置（子类模块代码集合，无窗体）
（类模块）
ModunloadActiveForm
工程设置（下载类模块代码集合，无窗体）
（类模块）
2.软件源程序代码
1）MDIForm1工程源码分析详解如下：
工程名称：
寒区冻土实验监测系统
窗体源码名称：
MDIForm1
功能分类：
整合管理
功能简介：
软件操作主窗体。
窗体截图：
下图
窗体截图
部分源码如下：
OptionExplicit
DimPort_SeCAsInteger
DimTmpA（5）AsString
DimTmpB（5）AsString
DimstrQQAsString
'定义串口接收的参数
'分别存储
'分别存储
'定义全局变量
DimKZsj_interAsLong
'控制时间
DimRev_sendCSJLAsLong
'接收到的数据容量
'DimMDIxzstring（1000）AsString
'接收到的数据缓冲区域
DimMDIxzLaststringAsString
'接收到的数据缓冲区域
DimCurxzPortAsInteger
DimMDIxzLongAsLong
'缓冲数据空间
DimMDIformZhCurAsInteger
'当前下载的组号
DimMDIformAdressCurAsLong
'当前下载的地址
'---------------------------------------------------
DimDate_JAsLong
DimTime_JAsLong
'---------------------------------------------------
PrivateDeclareFunctionHtmlHelpALib""（ByValhwndCallerAsLong,ByValpszFileAsString,ByValuCommandAsLong,ByValdwDataAsLong）AsLong
PrivateSubCom_DTadress_Click（）
IfSerial_ZWfSThen
DT_ZWadress=""
Else
DT_ZWadress=&""
EndIf
EndSub
PrivateSubIDM_CloseProgect_Click（）
Dimret
IfCurProjectpath=""AndProjectname=""Then
MsgBox"当前没有激活的工程",vbYes
Else
ret=MsgBox（"将要关闭当前工程，确定点击是，取消否",vbYesNo）
IfvbYes=retThen
MDIunloadallwindow
Formunload
EndIf
EndIf
EndSub
2）ModunloadActiveForm工程源码分析详解如下：
工程名称：
寒区冻土实验监测系统
窗体源码名称：
ModunloadActiveForm
功能分类：
软件模块
功能简介：
工程设置
部分源码如下：
DimTotalWAsInteger
PublicMove_HAsInteger'动态加载菜单A
PublicMove_HxjAsInteger'巡检仪器加载
'------------工程管理---------------
PublicProjectnameAsString
PublicPrjsaveasPathAsString
PublicCurProjectpathAsString'定义当前工程的路径
'-----------------------------------
'-----------新建窗体-start--------------------
'---------------------------------------
PublicXjbc（3）AsNewfrmxjybc
PublicQx（5）AsNewfrmLine
PublicBc（10）AsNewfrmPro_Edit
PublicYx（5）AsNewfrmLinexy
PublicTx（5）AsNewfrmPattern
PublicDw（5）AsNewfrmPattern_Draw
PublicDaSet（10）AsNewDialog_Setshow
PublicWinshowbc（10）AsBoolean
PublicWinshowxjbc（3）AsBoolean
PublicXjbc_IndexAsInteger
PublicXj_IndexAsInteger
PublicBc_IndexAsInteger
PublicQx_IndexAsInteger
PublicYx_IndexAsInteger
PublicDw_IndexAsInteger
PublicZjBc_IndexAsInteger
PublicZbBc_IndexAsBoolean
'-----------------------------------------
PublicFunctionFormunload（）AsBoolean
DimiAsInteger
'------------------------------------------
Projectname=""'工程名为空那么删除当前所有的文档
CurProjectpath=""
Mainmenucongfig（Projectname）
'------------------------------------------
OnErrorResumeNext
'------------------------------------------
'///////////////////////////////////////////
UnloadMDIForm_Timeset
UnloadDialog_Find
UnloadDialog_LunXun
UnloadFRM80
UnloadFRM81
UnloadFRM82
'//Unloadfrmxjybc
UnloadfrmPattern
UnloadfrmPattern_Draw
UnloadfrmdataJH
UnloadfrmGPRS
UnloadDialog_DSelect
UnloadfrmReV_Send
UnloadfrmnewProject
UnloadDaSet（SStab_Index）
Unloadfrmalarm
UnloadfrmPro_Prog
UnloadfrmresetQuery_Import
UnloadfrmresetTimeQuery
UnloadDialog_ManageDoc
'///////////////////////////////////////////////
'///////////////////////////////////////////
'----------------------------
Fori=1ToMove_HStep1
OnErrorResumeNext
Unload（i）
Nexti
Fori=1ToMove_HxjStep1
OnErrorResumeNext
Unload（i）
Nexti
Fori=0ToQx_IndexStep1
OnErrorResumeNext
UnloadQx（i）
Nexti
Fori=0ToYx_IndexStep1
OnErrorResumeNext
UnloadYx（i）
Nexti
Fori=0ToBc_IndexStep1
OnErrorResumeNext
UnloadBc（i）
Nexti
Fori=0ToDw_IndexStep1
OnErrorResumeNext
UnloadDw（i）
Nexti
Fori=0ToXjbc_IndexStep1
OnErrorResumeNext
UnloadXjbc（i）
Nexti
Formunload=True
EndFunction
升级会员 