【正文】 ///////////////////////////////////////////39。//Unload frmxjybcUnload frmPatternUnload frmPattern_DrawUnload frmdataJHUnload frmGPRSUnload Dialog_DSelectUnload frmReV_SendUnload frmnewProjectUnload DaSet(SStab_Index)Unload frmalarmUnload frmPro_ProgUnload frmresetQuery_ImportUnload frmresetTimeQueryUnload Dialog_ManageDoc39。39。工程名為空那么刪除當(dāng)前所有的文檔CurProjectpath = ”Mainmenucongfig(Projectname)39。Public Function Formunload()As Boolean Dim i As Integer39。新建窗體start39。定義當(dāng)前工程的路徑 39。巡檢儀器加載39。 ” “End IfEnd SubPrivate Sub IDM_CloseProgect_Click()Dim retIf CurProjectpath = ”“ And Projectname = ”“ ThenMsgBox ”當(dāng)前沒(méi)有激活的工程“, vbYesElseret = MsgBox(”將要關(guān)閉當(dāng)前工程，確定點(diǎn)擊是，取消否“, vbYesNo)If vbYes = ret ThenMDIunloadallwindowFormunloadEnd IfEnd IfEnd Sub 2）ModunloadActiveForm工程源碼分析詳解如下：工程名稱(chēng)： 窗體源碼名稱(chēng)：ModunloadActiveForm 功能分類(lèi)： 軟件模塊 功能簡(jiǎn)介：工程設(shè)置 部分源碼如下：Dim TotalW As Integer Public Move_H As Integer39。Dim Date_J As Long Dim Time_J As Long 39。當(dāng)前下載的組號(hào) Dim MDIformAdressCur As Long39。接收到的數(shù)據(jù)緩沖區(qū)域 Dim CurxzPort As Integer Dim MDIxzLong As Long39。Dim MDIxzstring(1000)As String39?？刂茣r(shí)間 Dim Rev_sendCSJL As Long39。分別存儲(chǔ) Dim str As String39。定義串口接收的參數(shù) Dim TmpA(5)As String39。六、軟件源程序代碼本軟件程序是一個(gè)單一的運(yùn)行軟件，各個(gè)軟件子模塊的預(yù)定義，程序清單的約定格式如下：文件名源代碼模塊名功能簡(jiǎn)介（備注）（代碼類(lèi)型） MDIForm1主窗體（操控軟件）（窗體）frmnewProject新建工程（管理監(jiān)測(cè)計(jì)劃）（窗體） Dialog_ManageDoc 工程管理（備注無(wú)）（窗體）frmdataJHfrmPattern數(shù)據(jù)顯示（串口，傳感器相關(guān)信息）（窗體）圖形建模（數(shù)據(jù)模擬顯示）（窗體）指令發(fā)送模塊（控制發(fā)送硬件指令）（窗體）巡檢編程（監(jiān)測(cè)計(jì)劃編制）（窗體）編程（監(jiān)測(cè)計(jì)劃編制）（窗體）串口連接設(shè)置（通信設(shè)置）（窗體）巡檢采集模塊（巡檢數(shù)據(jù)顯示）（窗體） frmReV_SendfrmxjybcfrmPro_Edit Dialog_Dselect FRM80unloa_Mess 監(jiān)測(cè)通訊（監(jiān)測(cè)硬件通訊）（窗體）數(shù)據(jù)實(shí)時(shí)曲線(xiàn)顯示（實(shí)時(shí)顯示監(jiān)測(cè)信息數(shù)據(jù)）（窗體）XY數(shù)據(jù)曲線(xiàn)繪制（歷史數(shù)據(jù)繪線(xiàn)顯示）（窗體）等值線(xiàn)繪制（按數(shù)據(jù)繪線(xiàn)）（窗體）frmLinefrmLinexy frmPattern_Draw frmresetQuery_Import 導(dǎo)入數(shù)據(jù)（數(shù)據(jù)另外保存）（窗體）歷史數(shù)據(jù)查詢(xún)（查看已經(jīng)采集回來(lái)的數(shù)據(jù)）（窗體）Dialog_JD frmresetTimeQuery 數(shù)據(jù)按時(shí)間導(dǎo)出（數(shù)據(jù)另外保存）（窗體）frmalarm報(bào)警設(shè)置（有效數(shù)據(jù)范圍設(shè)置）（窗體）歷史趨勢(shì)曲線(xiàn)（有效顯示數(shù)據(jù)）（窗體）軟件簡(jiǎn)介（啟動(dòng)窗體）（窗體）傳感器信息編輯（工程操控設(shè)置）（窗體）等值線(xiàn)便捷參數(shù)設(shè)置（數(shù)據(jù)顯示設(shè)置）（窗體）查找（查詢(xún)數(shù)據(jù)）（窗體）frmhisline frmSplash Dia_SensorAdd Dialog_CkdsetDialog_Find Dialog_Setshow Form_calendar frmdataJhalarm 點(diǎn)設(shè)置顯示（傳感器設(shè)置）（窗體）日期選擇（定位時(shí)間）（窗體）屬性設(shè)置（報(bào)警的屬性設(shè)置）（窗體）frmGPRS無(wú)線(xiàn)傳輸設(shè)置（傳輸控制設(shè)置）（窗體）新建文檔（監(jiān)測(cè)計(jì)劃管理）（窗體）程序指令編寫(xiě)（發(fā)送命令操作硬件）（窗體）啟動(dòng)窗體（顯示信息）（窗體）數(shù)據(jù)下載（從硬件內(nèi)讀取數(shù)據(jù)）（窗體）frmnewDocfrmPro_Prog frmStartshowfrmunload Seri_1串口連接設(shè)置（通訊設(shè)置）（窗體） unloa_Mess_AU數(shù)據(jù)輔助下載（數(shù)據(jù)設(shè)置下載）（窗體）工程設(shè)置（類(lèi)模塊代碼集合，無(wú)窗體）（類(lèi)模塊）工程設(shè)置（類(lèi)模塊代碼集合，無(wú)窗體）（類(lèi)模塊）工程設(shè)置（串口類(lèi)模塊代碼集合，無(wú)窗體）（類(lèi)模塊）工程設(shè)置（數(shù)據(jù)庫(kù)類(lèi)模塊代碼集合，無(wú)窗體）（類(lèi)模塊）工程設(shè)置（DT類(lèi)模塊代碼集合，無(wú)窗體）（類(lèi)模塊）工程設(shè)置（顯示類(lèi)模塊代碼集合，無(wú)窗體）（類(lèi)模塊）工程設(shè)置（圖標(biāo)類(lèi)模塊代碼集合，無(wú)窗體）（類(lèi)模塊）工程設(shè)置（傳感器類(lèi)模塊代碼集合，無(wú)窗體）（類(lèi)模塊）工程設(shè)置（子類(lèi)模塊代碼集合，無(wú)窗體）（類(lèi)模塊）mduRAS modAddressOf ModAPIModdabase ModdatatakermodDisPlayModNotifyIcon ModSensorMes modSubClass ModunloadActiveForm 工程設(shè)置（下載類(lèi)模塊代碼集合，無(wú)窗體）（類(lèi)模塊）1）MDIForm1工程源碼分析詳解如下：工程名稱(chēng)： 窗體源碼名稱(chēng)：MDIForm1 功能分類(lèi)：整合管理 功能簡(jiǎn)介：軟件操作主窗體。成果創(chuàng)造性：1）軟件采用全中文操作界面，支持所有的通訊模式，能夠很好的兼容國(guó)內(nèi)外的儀器設(shè)備和傳感器，使凍土模型試驗(yàn)和野外原位觀測(cè)實(shí)現(xiàn)了自動(dòng)化和遠(yuǎn)程實(shí)時(shí)在線(xiàn)監(jiān)測(cè)。系統(tǒng)硬件和軟件都滿(mǎn)足開(kāi)放性標(biāo)準(zhǔn)的要求，滿(mǎn)足今后系統(tǒng)在硬件節(jié)點(diǎn)的增加、數(shù)據(jù)庫(kù)容量的擴(kuò)充、系統(tǒng)軟件功能的增強(qiáng)等方面的要求。支持對(duì)圖形、報(bào)表、曲線(xiàn)、報(bào)警信息、各種統(tǒng)計(jì)計(jì)算結(jié)果等的打印；5）具有數(shù)據(jù)越限報(bào)警功能，可現(xiàn)場(chǎng)即時(shí)上傳報(bào)警信息，同時(shí)，還具有GSM手機(jī)短信報(bào)警管理系統(tǒng)；6）能對(duì)系統(tǒng)中的每一用戶(hù)進(jìn)行口令和操作權(quán)限的管理，能對(duì)不同的用戶(hù)分配不同的系統(tǒng)訪問(wèn)、操作權(quán)限級(jí)別，保障運(yùn)行系統(tǒng)的安全性；7）操作界面清晰直觀，工具條與按鈕操作。三、軟件開(kāi)發(fā)的軟硬件環(huán)境 軟件環(huán)境：Windows2000/WindowsXP/Windows2003/VISTA的簡(jiǎn)體中文版本，推薦采用WindowsXP，office2003 硬件環(huán)境：CPU（PⅣ），內(nèi)存（1GB），硬盤(pán)（60GB）四、軟件的技術(shù)特點(diǎn)和功能1）易維護(hù)：采用模塊化設(shè)計(jì)，在整個(gè)項(xiàng)目的進(jìn)