软件著作权申请书.docx

1、软件著作权申请书软件著作权申请书冻土远程实时监测软件系统黑龙江省水利科学研究院2010年 4月软件著作权申请书冻土远程实时监测软件冻土远程实时监测软件是黑龙江省水利科学研究院独立开发的适用于水利工程野外原位监测和实验室监测的专业软件。其特点在于可使水利行业野外冻土实时监测和数据自动采集实现真正意义上的远程监控，确保通讯数据的可靠性和实时性。一、软件简介“冻土远程实时监测软件” 是基于 Microsoft .NET Framework 架构进行开发的新一代先进的监测软件， 其运行环境为 Windows XP / Windows 2003 Server操作系统，软件为全中文环境，运行稳定可靠，可根

2、据具体的自定义要求进行系统配置，为每一用户提供口令及硬件加密，保证数据的安全。该符合国家标准 GB/T17544-1998 信息技术 软件包 质量要求和测试的规定。该软件采用模块化组织形式，通过模块分区，进行各种功能管理与应用。该软件的核心结构主要包括工程管理模块、通讯模块（数据通信） 、编程模块、图形建模模块、数据交互模块（实时监测、分析报表、报警等） 、传感器库管理模块和帮助模块。二、软件适用行业和用途本软件是以满足冻土试验监测的需求为目的，将冻胀参数的实时监测曲线、土体温度场分布、 X-Y 曲线、历史数据查询，以及远程实时监测和数据采集与传输等功能集于一体的专业软件，主要用来满足工程冻土

3、室内试验和野外原位观测的需要，为寒区水工建筑物冻害破坏机理研究提供基础平台，指导寒区水利工程建设。使水利行业野外冻土数据自动采集实现真正意义上的远程监控，确保通讯数据的可靠性和实时性。本软件的主要功能是将寒区水工建筑物冻害防治技术研究作为主要素材，利用计算机编程语言、互联网及其数据库的功能，服务于工程冻土监测、寒区水工建筑物冻害破坏机理研究领域，进行季节冻土区低温环境下的冻土温度场、应力场和变形等冻胀参数的远程实时自动化监测、 远程数据传输和数据处理等工作的专业软件。 该软件性能稳定、可靠性高，测试精度满足监测要求，在水利工程等领域有广阔的应用前景。三、软件开发的软硬件环境软件环境： Wind

4、ows2000/WindowsXP/Windows2003/VISTA的简体中文版本，推荐采用 WindowsXP，office2003硬件环境： CPU（P），内存（ 1GB），硬盘（ 60GB）四、软件的技术特点和功能1.软件的技术特点1）易维护：采用模块化设计，在整个项目的进行中，代码的维护只是在局部模块中，维护起来非常方便；2）效率高：全中文界面，菜单式设计，各部分功能一目了然，初学者易于掌握，提高了使用效率；3）易扩展：由于面向对象的特性，设计出高内聚、低耦合的系统结构，使得系统更灵活、更容易扩展。2.软件的主要功能1）可实时远程监测各测点测量参数，可根据需要设定测点数据，对原始数据

5、可进行滤波、计算，可远程传输数据，并对数据进行分析和处理；2）监测数据能够以多种方式（数据表、时间历程曲线图、 X/Y 坐标图、模拟图、直方图等）显示，并以数据库形式保存，方便进行历史数据查询；3）可直接生成 TXT、EXCEL，或其它形式报表文件；4）打印监测数据，实现对系统信息打印的管理功能，提供实时打印、定时打印、随机打印功能。支持对图形、报表、曲线、报警信息、各种统计计算结果等的打印；5）具有数据越限报警功能，可现场即时上传报警信息，同时，还具有 GSM 手机短信报警管理系统；6）能对系统中的每一用户进行口令和操作权限的管理，能对不同的用户分配不同的系统访问、操作权限级别，保障运行系统

6、的安全性；7）操作界面清晰直观，工具条与按钮操作。显示界面可分为主界面和各子界面，各界面间切换灵活，界面图案可按客户要求灵活改动；8）具有在线编辑、维护、修改、扩展功能。系统硬件和软件都满足开放性标准的要求，满足今后系统在硬件节点的增加、数据库容量的扩充、系统软件功能的增强等方面的要求。五、软件的先进性“冻土远程实时监测软件”主要用于季节冻土区低温环境下的冻土温度场、应力场和变形等冻胀参数的远程实时自动化监测、数据传输和数据处理等，该技术核心内容经过科技查新，尚未见有相关报道。成果创造性：1）软件采用全中文操作界面，支持所有的通讯模式，能够很好的兼容国内外的仪器设备和传感器，使冻土模型试验和野

7、外原位观测实现了自动化和远程实时在线监测。2）首次开发了季节冻土温度场实时显示技术，实现了寒区冻土温度场的实时可视化功能，使寒区冻土的实时监测更加直观。六、软件源程序代码1.软件代码说明本软件程序是一个单一的运行软件，各个软件子模块的预定义，程序清单的约定格式如下：文件名源代码模块名功能简介（备注）（代码类型）MDIForm1主窗体（操控软件） （窗体）frmnewProject新建工程（管理监测计划） （窗体）Dialog_ManageDoc工程管理（备注无） （窗体）frmdataJH数据显示（串口，传感器相关信息）（窗体）frmPattern图形建模（数据模拟显示） （窗体）frmReV

8、_Send指令发送模块（控制发送硬件指令）（窗体）frmxjybc巡检编程（监测计划编制） （窗体）frmPro_Edit编程（监测计划编制） （窗体）Dialog_Dselect串口连接设置（通信设置） （窗体）FRM80巡检采集模块（巡检数据显示）（窗体）unloa_Mess监测通讯（监测硬件通讯） （窗体）frmLine数据实时曲线显示（实时显示监测信息数据）（窗体）frmLinexyXY 数据曲线绘制（历史数据绘线显示）（窗体）frmPattern_Draw等值线绘制（按数据绘线） （窗体）frmresetQuery_Import导入数据（数据另外保存） （窗体）Dialog_JD历史

9、数据查询（查看已经采集回来的数据）（窗体）frmresetTimeQuery数据按时间导出（数据另外保存） （窗体）frmalarm报警设置（有效数据范围设置）（窗体）frmhisline历史趋势曲线（有效显示数据）（窗体）frmSplash软件简介（启动窗体） （窗体）Dia_SensorAdd传感器信息编辑（工程操控设置） （窗体）Dialog_Ckdset等值线便捷参数设置（数据显示设置）（窗体）Dialog_Find查找（查询数据） （窗体）Dialog_Setshow点设置显示（传感器设置） （窗体）Form_calendar日期选择（定位时间） （窗体）frmdataJhalarm

10、属性设置（报警的属性设置） （窗体）frmGPRS无线传输设置（传输控制设置）（窗体）frmnewDoc新建文档（监测计划管理） （窗体）frmPro_Prog程序指令编写（发送命令操作硬件）（窗体）frmStartshow启动窗体（显示信息） （窗体）frmunload数据下载（从硬件内读取数据）（窗体）Seri_1串口连接设置（通讯设置） （窗体）unloa_Mess_AU数据辅助下载（数据设置下载） （窗体）mduRAS工程设置（类模块代码集合，无窗体）（类模块）modAddressOf工程设置（类模块代码集合，无窗体）（类模块）ModcomAPI工程设置（串口类模块代码集合，无窗体）（

11、类模块）Moddabase工程设置（数据库类模块代码集合，无窗体）（类模块）Moddatataker工程设置（ DT 类模块代码集合，无窗体） （类模块）modDisPlay工程设置（显示类模块代码集合，无窗体）（类模块）ModNotifyIcon工程设置（图标类模块代码集合，无窗体）（类模块）ModSensorMes工程设置（传感器类模块代码集合，无窗体）（类模块）modSubClass工程设置（子类模块代码集合，无窗体）（类模块）ModunloadActiveForm工程设置（下载类模块代码集合，无窗体）（类模块）2.软件源程序代码1）MDIForm1 工程源码分析详解如下：工程名称：寒区

12、冻土实验监测系统窗体源码名称： MDIForm1功能分类：整合管理功能简介：软件操作主窗体。窗体截图：下图窗体截图部分源码如下：Option ExplicitDim Port_SeC As IntegerDim TmpA(5) As StringDim TmpB(5) As StringDim strQQ As String 定义串口接收的参数分别存储分别存储定义全局变量Dim KZsj_inter As Long控制时间Dim Rev_sendCSJL As Long接收到的数据容量Dim MDIxzstring(1000) As String接收到的数据缓冲区域Dim MDIxzLasts

13、tring As String接收到的数据缓冲区域Dim CurxzPort As IntegerDim MDIxzLong As Long 缓冲数据空间Dim MDIformZhCur As Integer当前下载的组号Dim MDIformAdressCur As Long当前下载的地址-Dim Date_J As LongDim Time_J As Long-Private Declare Function HtmlHelpA Lib (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, B

14、yVal dwData As Long) As LongPrivate Sub Com_DTadress_Click()If Serial_ZWfS ThenDT_ZWadress = ElseDT_ZWadress = & End IfEnd SubPrivate Sub IDM_CloseProgect_Click()Dim retIf CurProjectpath = And Projectname = ThenMsgBox 当前没有激活的工程 , vbYesElseret = MsgBox( 将要关闭当前工程，确定点击是，取消否 , vbYesNo)If vbYes = ret The

15、nMDIunloadallwindowFormunloadEnd IfEnd IfEnd Sub2）ModunloadActiveForm 工程源码分析详解如下：工程名称：寒区冻土实验监测系统窗体源码名称： ModunloadActiveForm功能分类： 软件模块功能简介：工程设置部分源码如下：Dim TotalW As IntegerPublic Move_H As Integer 动态加载菜单 APublic Move_Hxj As Integer 巡检仪器加载- 工程管理 -Public Projectname As StringPublic PrjsaveasPath As Stri

16、ngPublic CurProjectpath As String 定义当前工程的路径- 新建窗体 -start-Public Xjbc(3) As New frmxjybcPublic Qx(5) As New frmLinePublic Bc(10) As New frmPro_EditPublic Yx(5) As New frmLinexyPublic Tx(5) As New frmPatternPublic Dw(5) As New frmPattern_DrawPublic DaSet(10) As New Dialog_SetshowPublic Winshowbc(10) A

17、s BooleanPublic Winshowxjbc(3) As BooleanPublic Xjbc_Index As IntegerPublic Xj_Index As IntegerPublic Bc_Index As IntegerPublic Qx_Index As IntegerPublic Yx_Index As IntegerPublic Dw_Index As IntegerPublic ZjBc_Index As IntegerPublic ZbBc_Index As Boolean-Public Function Formunload() As BooleanDim i

18、 As Integer-Projectname = 工程名为空那么删除当前所有的文档CurProjectpath = Mainmenucongfig (Projectname)-On Error Resume Next-/Unload MDIForm_TimesetUnload Dialog_FindUnload Dialog_LunXunUnload FRM80Unload FRM81Unload FRM82/Unload frmxjybcUnload frmPatternUnload frmPattern_DrawUnload frmdataJHUnload frmGPRSUnload D

19、ialog_DSelectUnload frmReV_SendUnload frmnewProjectUnload DaSet(SStab_Index)Unload frmalarmUnload frmPro_ProgUnload frmresetQuery_ImportUnload frmresetTimeQueryUnload Dialog_ManageDoc/-For i = 1 To Move_H Step 1On Error Resume NextUnload (i)Next iFor i = 1 To Move_Hxj Step 1On Error Resume NextUnloa

20、d (i)Next iFor i = 0 To Qx_Index Step 1On Error Resume NextUnload Qx(i)Next iFor i = 0 To Yx_Index Step 1On Error Resume NextUnload Yx(i)Next iFor i = 0 To Bc_Index Step 1On Error Resume NextUnload Bc(i)Next iFor i = 0 To Dw_Index Step 1On Error Resume NextUnload Dw(i)Next iFor i = 0 To Xjbc_Index Step 1On Error Resume NextUnload Xjbc(i)Next iFormunload = TrueEnd Function