【正文】 _Setshow Form_calendar frmdataJhalarm 點(diǎn)設(shè)置顯示（傳感器設(shè)置）（窗體）日期選擇（定位時(shí)間）（窗體）屬性設(shè)置（報(bào)警的屬性設(shè)置）（窗體）frmGPRS無線傳輸設(shè)置（傳輸控制設(shè)置）（窗體）新建文檔（監(jiān)測計(jì)劃管理）（窗體）程序指令編寫（發(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è)置（類模塊代碼集合，無窗體）（類模塊）工程設(shè)置（類模塊代碼集合，無窗體）（類模塊）工程設(shè)置（串口類模塊代碼集合，無窗體）（類模塊）工程設(shè)置（數(shù)據(jù)庫類模塊代碼集合，無窗體）（類模塊）工程設(shè)置（DT類模塊代碼集合，無窗體）（類模塊）工程設(shè)置（顯示類模塊代碼集合，無窗體）（類模塊）工程設(shè)置（圖標(biāo)類模塊代碼集合，無窗體）（類模塊）工程設(shè)置（傳感器類模塊代碼集合，無窗體）（類模塊）工程設(shè)置（子類模塊代碼集合，無窗體）（類模塊）mduRAS modAddressOf ModAPIModdabase ModdatatakermodDisPlayModNotifyIcon ModSensorMes modSubClass ModunloadActiveForm 工程設(shè)置（下載類模塊代碼集合，無窗體）（類模塊）1）MDIForm1工程源碼分析詳解如下：工程名稱： 窗體源碼名稱：MDIForm1 功能分類：整合管理 功能簡介：軟件操作主窗體。窗體截圖：下圖窗體截圖部分源碼如下：Option ExplicitDim Port_SeC As Integer39。定義串口接收的參數(shù) Dim TmpA(5)As String39。分別存儲(chǔ) Dim TmpB(5)As String39。分別存儲(chǔ) Dim str As String39。定義全局變量 Dim KZsj_inter As Long39?？刂茣r(shí)間 Dim Rev_sendCSJL As Long39。接收到的數(shù)據(jù)容量 39。Dim MDIxzstring(1000)As String39。接收到的數(shù)據(jù)緩沖區(qū)域 Dim MDIxzLaststring As String39。接收到的數(shù)據(jù)緩沖區(qū)域 Dim CurxzPort As Integer Dim MDIxzLong As Long39。緩沖數(shù)據(jù)空間 Dim MDIformZhCur As Integer39。當(dāng)前下載的組號(hào) Dim MDIformAdressCur As Long39。當(dāng)前下載的地址 39。Dim Date_J As Long Dim Time_J As Long 39。Private Declare Function HtmlHelpA Lib “”(ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long)As LongPrivate Sub Com_DTadress_Click()If Serial_ZWfS ThenDT_ZWadress = “ElseDT_ZWadress = amp。 ” “End IfEnd SubPrivate Sub IDM_CloseProgect_Click()Dim retIf CurProjectpath = ”“ And Projectname = ”“ ThenMsgBox ”當(dāng)前沒有激活的工程“, vbYesElseret = MsgBox(”將要關(guān)閉當(dāng)前工程，確定點(diǎn)擊是，取消否“, vbYesNo)If vbYes = ret ThenMDIunloadallwindowFormunloadEnd IfEnd IfEnd Sub 2）ModunloadActiveForm工程源碼分析詳解如下：工程名稱： 窗體源碼名稱：ModunloadActiveForm 功能分類： 軟件模塊 功能簡介：工程設(shè)置 部分源碼如下：Dim TotalW As Integer Public Move_H As Integer39。動(dòng)態(tài)加載菜單A Public Move_Hxj As Integer39。巡檢儀器加載39。工程管理Public Projectname As String Public PrjsaveasPath As String Public CurProjectpath As String39。定義當(dāng)前工程的路徑 39。39。新建窗體start39。Public Xjbc(3)As New frmxjybc Public Qx(5)As New frmLine Public Bc(10)As New frmPro_Edit Public Yx(5)As New frmLinexy Public Tx(5)As New frmPattern Public Dw(5)As New frmPattern_Draw Public DaSet(10)As New Dialog_Setshow Public Winshowbc(10)As Boolean Public Winshowxjbc(3)As BooleanPublic Xjbc_Index As Integer Public Xj_Index As Integer Public Bc_Index As Integer Public Qx_Index As Integer Public Yx_Index As Integer Public Dw_Index As Integer Public ZjBc_Index As Integer Public ZbBc_Index As Boolean39。Public Function Formunload()As Boolean Dim i As Integer39。Projectname = ”“39。工程名為空那么刪除當(dāng)前所有的文檔CurProjectpath = ”Mainmenucongfig(Projectname)39。On Error Resume Next39。39。///////////////////////////////////////////Unload MDIForm_TimesetUnload Dialog_FindUnload Dialog_LunXunUnload FRM80Unload FRM81Unload FRM8239。//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。///////////////////////////////////////////39。For i = 1 To Move_H Step 1On Error Resume NextUnload (i)Next iFor i = 1 To Move_Hxj Step 1On Error Resume NextUnload (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 = True End Function