软件著作权申请书Word格式.docx

软件著作权申请书Word格式.docx

《软件著作权申请书Word格式.docx》由会员分享，可在线阅读，更多相关《软件著作权申请书Word格式.docx（17页珍藏版）》请在冰点文库上搜索。

该软件性能稳定、

可靠性高，测试精度满足监测要求，在水利工程等领域有广阔的应用前景。

三、软件开发的软硬件环境

软件环境：

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

ret=MsgBox（"

将要关闭当前工程，确定点击是，取消否"

vbYesNo）

IfvbYes=retThen

MDIunloadallwindow

Formunload

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

Unload（i）

Nexti

Fori=1ToMove_HxjStep1

Fori=0ToQx_IndexStep1

UnloadQx（i）

Fori=0ToYx_IndexStep1

UnloadYx（i）

Fori=0ToBc_IndexStep1

UnloadBc（i）

Fori=0ToDw_IndexStep1

UnloadDw（i）

Fori=0ToXjbc_IndexStep1

UnloadXjbc（i）

Formunload=True

EndFunction