1、软件著作权申请书软件著作权申请书冻土远程实时监测软件系统黑龙江省水利科学研究院2010年4月软件著作权申请书冻土远程实时监测软件冻土远程实时监测软件是黑龙江省水利科学研究院独立开发的适用于水利工程野外原位监测和实验室监测的专业软件。其特点在于可使水利行业野外冻土实时监测和数据自动采集实现真正意义上的远程监控，确保通讯数据的可靠性和实时性。一、软件简介“冻土远程实时监测软件” 是基于Microsoft .NET Framework架构进行开发的新一代先进的监测软件，其运行环境为Windows XP / Windows 2003 Server操作系统，软件为全中文环境，运行稳定可靠，可根据具体的自
2、定义要求进行系统配置，为每一用户提供口令及硬件加密，保证数据的安全。该符合国家标准GB/T17544-1998信息技术 软件包 质量要求和测试的规定。该软件采用模块化组织形式，通过模块分区，进行各种功能管理与应用。该软件的核心结构主要包括工程管理模块、通讯模块（数据通信）、编程模块、图形建模模块、数据交互模块（实时监测、分析报表、报警等）、传感器库管理模块和帮助模块。二、软件适用行业和用途本软件是以满足冻土试验监测的需求为目的，将冻胀参数的实时监测曲线、土体温度场分布、X-Y曲线、历史数据查询，以及远程实时监测和数据采集与传输等功能集于一体的专业软件，主要用来满足工程冻土室内试验和野外原位观测
3、的需要，为寒区水工建筑物冻害破坏机理研究提供基础平台，指导寒区水利工程建设。使水利行业野外冻土数据自动采集实现真正意义上的远程监控，确保通讯数据的可靠性和实时性。本软件的主要功能是将寒区水工建筑物冻害防治技术研究作为主要素材，利用计算机编程语言、互联网及其数据库的功能，服务于工程冻土监测、寒区水工建筑物冻害破坏机理研究领域，进行季节冻土区低温环境下的冻土温度场、应力场和变形等冻胀参数的远程实时自动化监测、远程数据传输和数据处理等工作的专业软件。该软件性能稳定、可靠性高，测试精度满足监测要求，在水利工程等领域有广阔的应用前景。三、软件开发的软硬件环境软件环境：Windows2000/Window
4、sXP/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）能对系统中的每一用户进行口令和操作权限的管理，能对不同的用户分配不同的系统访问、操作权限级别，保障运行系统的安全性；7）操作界面清晰直观，工具条与按
6、钮操作。显示界面可分为主界面和各子界面，各界面间切换灵活，界面图案可按客户要求灵活改动；8）具有在线编辑、维护、修改、扩展功能。系统硬件和软件都满足开放性标准的要求，满足今后系统在硬件节点的增加、数据库容量的扩充、系统软件功能的增强等方面的要求。五、软件的先进性“冻土远程实时监测软件”主要用于季节冻土区低温环境下的冻土温度场、应力场和变形等冻胀参数的远程实时自动化监测、数据传输和数据处理等，该技术核心内容经过科技查新，尚未见有相关报道。成果创造性：1）软件采用全中文操作界面，支持所有的通讯模式，能够很好的兼容国内外的仪器设备和传感器，使冻土模型试验和野外原位观测实现了自动化和远程实时在线监测。
7、2）首次开发了季节冻土温度场实时显示技术，实现了寒区冻土温度场的实时可视化功能，使寒区冻土的实时监测更加直观。六、软件源程序代码1. 软件代码说明本软件程序是一个单一的运行软件，各个软件子模块的预定义，程序清单的约定格式如下：文件名 源代码模块名 功能简介（备注） （代码类型） MDIForm1 主窗体（操控软件）（窗体） frmnewProject 新建工程（管理监测计划）（窗体） Dialog_ManageDoc 工程管理（备注无）（窗体） frmdataJH 数据显示（串口，传感器相关信息）（窗体） frmPattern 图形建模（数据模拟显示）（窗体） frmReV_Send 指令发送
8、模块（控制发送硬件指令）（窗体） frmxjybc 巡检编程（监测计划编制）（窗体） frmPro_Edit 编程（监测计划编制）（窗体） Dialog_Dselect 串口连接设置（通信设置）（窗体） FRM80 巡检采集模块（巡检数据显示）（窗体） unloa_Mess 监测通讯（监测硬件通讯）（窗体） frmLine 数据实时曲线显示（实时显示监测信息数据）（窗体） frmLinexy XY数据曲线绘制（历史数据绘线显示）（窗体） frmPattern_Draw 等值线绘制（按数据绘线）（窗体） frmresetQuery_Import 导入数据（数据另外保存）（窗体） Dialog_J
9、D 历史数据查询（查看已经采集回来的数据）（窗体） frmresetTimeQuery 数据按时间导出（数据另外保存）（窗体） frmalarm 报警设置（有效数据范围设置）（窗体） frmhisline 历史趋势曲线（有效显示数据）（窗体） frmSplash 软件简介（启动窗体）（窗体） Dia_SensorAdd 传感器信息编辑（工程操控设置）（窗体） Dialog_Ckdset 等值线便捷参数设置（数据显示设置）（窗体） Dialog_Find 查找（查询数据）（窗体） Dialog_Setshow 点设置显示（传感器设置）（窗体） Form_calendar 日期选择（定位时间）（窗
10、体） frmdataJhalarm 属性设置（报警的属性设置）（窗体） frmGPRS 无线传输设置（传输控制设置）（窗体） frmnewDoc 新建文档（监测计划管理）（窗体） frmPro_Prog 程序指令编写（发送命令操作硬件）（窗体） frmStartshow 启动窗体（显示信息）（窗体） frmunload 数据下载（从硬件内读取数据）（窗体） Seri_1 串口连接设置（通讯设置）（窗体） unloa_Mess_AU 数据辅助下载（数据设置下载）（窗体） mduRAS 工程设置（类模块代码集合，无窗体）（类模块） modAddressOf 工程设置（类模块代码集合，无窗体）（类模
11、块） ModcomAPI 工程设置（串口类模块代码集合，无窗体）（类模块） Moddabase 工程设置（数据库类模块代码集合，无窗体）（类模块） Moddatataker 工程设置（DT类模块代码集合，无窗体）（类模块） modDisPlay 工程设置（显示类模块代码集合，无窗体）（类模块） ModNotifyIcon 工程设置（图标类模块代码集合，无窗体）（类模块） ModSensorMes 工程设置（传感器类模块代码集合，无窗体）（类模块） modSubClass 工程设置（子类模块代码集合，无窗体）（类模块） ModunloadActiveForm 工程设置（下载类模块代码集合，无窗体
12、）（类模块）2. 软件源程序代码1）MDIForm1工程源码分析详解如下：工程名称：寒区冻土实验监测系统窗体源码名称：MDIForm1功能分类：整合管理功能简介：软件操作主窗体。窗体截图：下图窗体截图部分源码如下：Option ExplicitDim Port_SeC As Integer 定义串口接收的参数Dim TmpA(5) As String 分别存储Dim TmpB(5) As String 分别存储Dim strQQ As String 定义全局变量Dim KZsj_inter As Long 控制时间Dim Rev_sendCSJL As Long 接收到的数据容量Dim MDI
13、xzstring(1000) As String 接收到的数据缓冲区域Dim MDIxzLaststring 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
14、, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As LongPrivate Sub Com_DTadress_Click() If Serial_ZWfS Then DT_ZWadress = Else DT_ZWadress = & End If End SubPrivate Sub IDM_CloseProgect_Click() Dim ret If CurProjectpath = And Projectname = Then MsgBox 当前没有激活的工程, vbYes Else r
15、et = MsgBox(将要关闭当前工程，确定点击是，取消否, vbYesNo) If vbYes = ret Then MDIunloadallwindow Formunload End If End If End Sub2）ModunloadActiveForm工程源码分析详解如下：工程名称：寒区冻土实验监测系统窗体源码名称：ModunloadActiveForm功能分类： 软件模块功能简介：工程设置部分源码如下：Dim TotalW As IntegerPublic Move_H As Integer 动态加载菜单APublic Move_Hxj As Integer 巡检仪器加载-工程
16、管理-Public Projectname As StringPublic PrjsaveasPath As StringPublic 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_DrawPub
17、lic DaSet(10) As New Dialog_SetshowPublic Winshowbc(10) As 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_Inde
18、x As Boolean -Public Function Formunload() As BooleanDim i As Integer - Projectname = 工程名为空那么删除当前所有的文档 CurProjectpath = Mainmenucongfig (Projectname) - On Error Resume Next - / Unload MDIForm_Timeset Unload Dialog_Find Unload Dialog_LunXun Unload FRM80 Unload FRM81 Unload FRM82 /Unload frmxjybc Unlo
19、ad frmPattern Unload frmPattern_Draw Unload frmdataJH Unload frmGPRS Unload Dialog_DSelect Unload frmReV_Send Unload frmnewProject Unload DaSet(SStab_Index) Unload frmalarm Unload frmPro_Prog Unload frmresetQuery_Import Unload frmresetTimeQuery Unload Dialog_ManageDoc / / - For i = 1 To Move_H Step
20、1 On Error Resume Next Unload (i) Next i For i = 1 To Move_Hxj Step 1 On Error Resume Next Unload (i) Next i For i = 0 To Qx_Index Step 1 On Error Resume Next Unload Qx(i) Next i For i = 0 To Yx_Index Step 1 On Error Resume Next Unload Yx(i) Next i For i = 0 To Bc_Index Step 1 On Error Resume Next Unload Bc(i) Next i For i = 0 To Dw_Index Step 1 On Error Resume Next Unload Dw(i) Next i For i = 0 To Xjbc_Index Step 1 On Error Resume Next Unload Xjbc(i) Next i Formunload = TrueEnd Function
