ESMS大壩安全監(jiān)測系統(tǒng)說明書.doc

ESMS大壩安全監(jiān)測系統(tǒng)說明書1:系統(tǒng)功能:ESMS系統(tǒng)主要用于完成與測量大壩的傳感器進行數據采集，計算，分析， 了解大壩實際運行狀態(tài)。2：設計思想ESMS系統(tǒng)本者易操作，界面美觀的原則進行設計。采用VB6進行編制。它與MCU之間采用類似研華通信協(xié)議來完成數據交流，通訊總線采用RS-485。它具有遠程控制操作功能，錯誤自動報警功能，遠程控制和錯誤報警均采用電信交換網絡實現。設計慨要數據采集選擇儀器布置圖采集測點數據(測點群,單個測點,多個測點,全部測點)MCU操作(MCU自診斷,設置模塊時間，查看模塊剩余空間，模塊零點，幅點)定時采集時操作(采集定時測量數據,設置定時測量參數)測點操作(測點自診斷,設置測點定時采集時間,間隔)數據管理MCU單元設置公式庫管理測值換算（把各個儀器的相對位移轉換成絕對位移）測點維護（對新的初值和靈敏度系數的儀器重新?lián)Q算）數據備份(修正庫,原始庫,異常庫導入導出)人工測值錄入維護測值查詢(修正庫管理查詢,異常庫查詢,原始庫查詢)數據分析測點過程曲線（單只儀器，多只儀器，環(huán)境量比對，人工測值比對，存檔）楊壓力方塊圖（揚壓力方塊圖創(chuàng)建，顯示，存檔）分布圖（分布圖創(chuàng)建，顯示，存檔）綜合日報表報表系統(tǒng)綜合月報表綜合年報表用戶特殊報表系統(tǒng)設置用戶設置（操作人員設置，維護人員設置）程序控制參數設置（通訊方式、參數設置，數據參數設置）報警參數設置（自動巡測時間設置，巡測方式設置，報警方式設置）測點布置圖建立，維護3詳細設計3-1:數據庫設計ESMS 大壩安全監(jiān)測系統(tǒng)軟件的數據庫采用ACCESS數據庫。數據庫名字為UNISYS,UNISYS分為以下幾個表:1:USERSET 用于存放用戶檔案字段名：USERNAME（用戶名，10），USERPSD（用戶密碼 ,10），USERLEV（用戶級別，6）2:COLLECTION_TMP用于存放臨時采集數據字段名：SURVEYNAME（測點名稱，12），COLLECTTIME（采集時間，8），COLLECTDATE（采集日期，8），RAWVALUE1（初值1，8，對于差動電阻為R1，振弦為頻率）RAWVALUE2（初值2，8對于差動電阻為R2，振弦為溫度）RAWVALUE3（初值3，8，對于差動電阻為R和，振弦為空），RAWVALUE4（初值4，8,對于差動電阻為100歐姆值，振弦為空）.MIDVALUE(計算值,8,相對位移).REMAKE(備注,20,)3:COLLECTION_OK用于存放臨時采集數據正常值同上4:COLLECTION_ALARM用于存放臨時采集數據異常值字段名：SURVEYNAME（測點名稱，12），COLLECTTIME（采集時間，8），COLLECTDATE（采集日期，8），RAWVALUE1（初值1，8，對于差動電阻為R1，振弦為頻率）RAWVALUE2（初值2，8對于差動電阻為R2，振弦為溫度）RAWVALUE3（初值3，8，對于差動電阻為R和，振弦為空），RAWVALUE4（初值4，8,對于差動電阻為100歐姆值，振弦為空）.MIDVALUE(計算值,8,相對位移). REMAKE(備注,20,出錯原因)5:CHANGE_DATA用于存放修正后的采集數據同上6:CHANGE_DATA_BCK用于存放修正后數據的備份同上7:ALARM_DATA用于存放采集數據異常值字段名：SURVEYNAME（測點名稱，12），COLLECTTIME（采集時間，8），COLLECTDATE（采集日期，8），RAWVALUE1（初值1，8，對于差動電阻為R1，振弦為頻率）RAWVALUE2（初值2，8對于差動電阻為R2，振弦為溫度）RAWVALUE3（初值3，8，對于差動電阻為R和，振弦為空），RAWVALUE4（初值4，8,對于差動電阻為100歐姆值，振弦為空）.MIDVALUE(計算值,8,相對位移),REMAKE(備注,20,出錯原因)8:CHANGE_DATA_BCK用于存放修正后數據的備份字段名：SURVEYNAME（測點名稱，12），COLLECTTIME（采集時間，8），COLLECTDATE（采集日期，8），RAWVALUE1（初值1，8，對于差動電阻為R1，振弦為頻率）RAWVALUE2（初值2，8對于差動電阻為R2，振弦為溫度）RAWVALUE3（初值3，8，對于差動電阻為R和，振弦為空），RAWVALUE4（初值4，8,對于差動電阻為100歐姆值，振弦為空）.MIDVALUE(計算值,8,相對位移),FINALVALUE(絕對位移,8),REMAKE(備注,20,)9:ALARM_DATA_BCK用于存放采集數據異常值的備份字段名：SURVEYNAME（測點名稱，12），COLLECTTIME（采集時間，8），COLLECTDATE（采集日期，8），RAWVALUE1（初值1，8，對于差動電阻為R1，振弦為頻率）RAWVALUE2（初值2，8對于差動電阻為R2，振弦為溫度）RAWVALUE3（初值3，8，對于差動電阻為R和，振弦為空），RAWVALUE4（初值4，8,對于差動電阻為100歐姆值，振弦為空）.MIDVALUE(計算值,8,相對位移),REMAKE(備注,20,出錯原因)10:HISTORY_DATA用于存放采集歷史數據,包含異常值,正常值同上11:PRT_SURVEY_DATA用于存放的打印數據(包含人工，歷史，修正，異常)同上12:HISTORY_DATA_BCK用于存放采集歷史數據的備份,包含異常值,正常值同上13:UNIT用于存放大壩各部位的有關信息字段名：UNITNID(各部位的ID號,2)UNITNAME(各部位的名稱,20)14:COLLOBJICT用于存放測量對象的有關信息字段名：COLLOBJICTID(測量對象的ID號,2)COLLOBJICTNAME(測量對象的名稱,20)15:SURVEY_INFO用于存放每個測點的所有信息字段名：SURVEYNO(測點號,12), APPARATUSTYPE(儀器類型,2),MCUTYPE(MCU號碼,2),LOCATION(埋設位置,3相對于DAMS_INFO的UNITNMB字段),LOCATIONLEV(埋設高程置,3)SETDATE(安裝日期,8),COLLECTTYPE（采集類型，8）FORMULA(計算公式,2相對于FORMULA的UNITNMB字段), CALCPARA1(計算參數1,8,存放初始最小值),CALCPARA2(計算參數2,8,存放初初始最大值),CALCPARA3(計算參數3,8,存放初初始位移值),CALCPARA4(計算參數4,8,存放靈敏度系數),CALCPARA5(計算參數5,8,),CALCPARA6(計算參數6,8,),CALCPARA7(計算參數7,8,),MCUNUMBER(MCU號碼,3) SCOPE0(最大正變化幅度)SCOPE0(最大負變化幅度)16:PRT_SURVEY_INFO用于存放測點庫的打印數據(臨時)同上17:MCU_INFO用于存放每個采集模塊的所有信息字段名:MCUTYPE(MCU類型,20),MCUMAX(MCU初始最大值,8),MCUMIN(MCU初始最小值,8)MCUADD(MCU地址),MCUVER(MCU版本號).18:PRT_MCU_INFO用于存放采集模塊庫的打印數據(臨時)19:CONTROL_INFO用于存放控制信息(測點定時測量的起始,終止時間等)字段名:SURVEYNO(測點號,12),SURVEYB_DATE(測量起始日期,8),SURVEYB_TIME(測量起始時間,8),SURVEYE_DATE(測量終止日期,8),SURVEYE_TIME(測量終止時間,8),INTERVAL(測量間隔,5,單位分鐘),MODE(測量方式,1,計算機測量或是模塊測量)20:FBT_INFO用于存放分布圖信息字段名:FBTNAME(分布圖名稱,20),SURVEYNO(測點號,12)21:PRT_FBT_INFO用于存放分布圖信息庫的打印數據(臨時)同上22:YYL_INFO用于存放揚壓力方塊圖信息字段名:FBTNAME(揚壓力方塊圖名稱,20),SURVEYNO(測點號,12)23:SURVEY_LOCATION用于存放測點布置字段名:LOCATIONNAME(測點布置名稱,20),SURVEYNO(測點號,12)24:TELCODE用于存放報警維護人員信息及BB機,手機號碼字段名:WORKNAME(維護人員姓名,10) TELEPHONE(維護人員姓名手機,12),BB(維護人員姓名 BB機,12)26:INFOCODE用于存放系統(tǒng)標準信息代碼字段名:INFOCODE (系統(tǒng)標準信息代碼,60)25:SURVEY_GROUP用于存放測點組信息字段名:GROUPNAME(測點組名,20),SURVEYNO(測點號,12)26:PRT_SURVEY_GROUP用于存放測點組信息庫的打印數據(臨時)同上27:HANDWORK_REC用于存放測點人工測量數據字段名:SURVEYNAME（測點名稱，12），COLLECTTIME（采集時間，8），COLLECTDATE（采集日期，8），RAWVALUE1（初值1，8，對于差動電阻為R1，振弦為頻率）RAWVALUE2（初值2，8對于差動電阻為R2，振弦為溫度）RAWVALUE3（初值3，8，對于差動電阻為R和，振弦為空），RAWVALUE4（初值4，8,對于差動電阻為100歐姆值，振弦為空）MIDVALUE(計算值,8,相對位移).REMAKE(備注,20,)28:WORK_REC用于存放用戶工作記錄字段名:USERNAME(用戶姓名,10),INDATE(進入日期,8),INTIME(進入時間,8),OUTDATE(退出日期,8),OUTTIME(退出時間,8),29:PRT_WORK_REC用于存放用戶工作記錄庫的打印數據(臨時)同上30:FORMULA用于存放測點計算公式字段名:FORMULATYPE(公式類型,20),FORMULA(公式,30)31:PRT_FORMULA用于存放測點計算公式庫的打印數據(臨時)同上32:SYSTEM_INFO用于存放系統(tǒng)信息字段名：DAMSNAME(大壩名稱,20),BASELEV1(壩址高程,8),BASELEV2(庫底高程,8)CALL(系統(tǒng)出錯是否呼叫維護人員,1)COMMPORT(通訊端口,1) CALLPORT(呼叫端口,1)3-2 軟件的通訊協(xié)議:#MMCC 讀MM的CC通到的值MCU返回$+CC通到的值+ !#MMA 讀MM的所有值MCU返回$+MM的所有值,每個值之間以,隔開+ !#MMT 讀MM的類型MCU返回$+MM的類型,每個值之間以,隔開+ !#MML校準零點返回$+零點值+ !#MMH校準幅點返回$+幅點值+ !#MMF 讀MM的版本號MCU返回$+MM的版本號,每個值之間以,隔開+ !#MMO 自測試MCU返回$+MM的自測試值+ !#MMD 讀MM的日期+時間MCU返回$+XX年XX月XX日XX時XX分XX秒+ !#MMUXXXXXX 設置MM定時采集時間間隔,單位分鐘 如果XXXXXX為000000則取消定時測量MCU返回$+CC通到的值+ !#MMS 讀MM定時采集時間間隔MCU返回$XXXXXX+! 單位:分鐘#MMR 讀MM剩余存儲空間MCU返回$XXXXXX+! 單位:字節(jié)#MMB讀MM的存儲數據MCU返回$XXXXXX(數據快長度 單位:字節(jié))+數據內容!#MMZ+XX年XX月XX日XX時XX分XX秒+ 設置MM的日期+時間MCU返回$+XX年XX月XX日XX時XX分XX秒+ !注:MM是采集模快地址代號,從0-FFCC是采集模快的通道代號,從0-8所有通信字符采用ASCII碼3-3程序流程圖Private Sub Form_Load()Me.RefreshEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)For i = 0 To 7Label114(i).ForeColor = &HC000&Next i Gauge1(g_intGaugeIndex).PointerID = 0 Gauge1(g_intGaugeIndex).PointerStart = 0 Gauge1(g_intGaugeIndex).PointerEnd = 3 Gauge1(g_intGaugeIndex).PointerID = 1 Gauge1(g_intGaugeIndex).PointerValue = 3 Gauge1(g_intGaugeIndex).Refresh Timer1.Interval = 0End SubPrivate Sub Gauge1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)Timer1.Interval = 250g_intGaugeIndex = Indexn = 0End SubDim Msg, Style, Title, Help, Ctxt, Response, MyStringMsg = 確定退出嗎？Style = vbYesNo + vbQuestion + vbDefaultButton2Title = 系統(tǒng)信息提示Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then Set db = OpenDatabase(App.Path + mdbsysdata.mdb) Set dr = db.OpenRecordset(工作日志) dr.MoveLast dr.Edit dr(4) = Date dr(5) = Time dr.Update dr.Close db.Close Do Me.Height = Me.Height - 190 If Me.Height Screen.Height - 500 EndElse Cancel = True End IfEnd Selectg_intGaugeIndex = IndexLabel114(Index).ForeColor = &HFF&End Sub人工測值錄入Private Sub Command1_Click()Command1.Enabled = FalseCommand2.Enabled = FalseData1.Recordset.AddNewDTPicker1.Value = DateDTPicker2.Value = TimeMaskEdBox1.SetFocusEnd SubPrivate Sub Command2_Click()On Error Resume NextCommand2.Enabled = FalseCommand1.Enabled = FalseData1.Recordset.EditMaskEdBox1.SetFocusEnd SubPrivate Sub Command3_Click()On Error Resume NextDim Msg, Style, Title, Help, Ctxt, Response, MyStringMsg = 確實刪除該記錄？Style = vbYesNo + vbQuestion + vbDefaultButton2Title = 系統(tǒng)信息提示Response = MsgBox(Msg, Style, Title, Help, Ctxt)If Response = vbYes Then Data1.Recordset.Delete Data1.Refresh Else Cancel = TrueEnd If Data1.Recordset.MoveLastEnd Sub數據采集Sub Collect()On Error Resume NextMSComm1.PortOpen = TrueCommand5.Enabled = FalseSurvey_ID = 0Me.ShowSet dr = db.OpenRecordset(Collectiontemp)dr.MoveFirstDo While Not dr.EOF 刪除測值表 dr.Delete dr.MoveNextLoop Picture3.Visible = False 隱藏CHART表 Chart = False Command3.Enabled = FalseSet dr = db.OpenRecordset(alarmval) 刪除報警表dr.MoveFirstDo While Not dr.EOF dr.Delete dr.MoveNextLoopdb.Execute delete * from 正常臨時采集數據db.Execute delete * from 異常臨時采集數據Survey_ID1 = M_intNumberReDim Surveyinfo(M_intNumber)ReDim Ascll_Code(M_intNumber)ReDim ValueMin(M_intNumber)ReDim ValueMax(M_intNumber)ReDim R1(M_intNumber)ReDim Formual(M_intNumber)For i = 0 To M_intNumber - 1 Set dr = db.OpenRecordset(select * from 測點信息 where 測點編號= & M_strSurvey(i) & ) Surveyinfo(i) = dr(1) ValueMin(i) = dr(11) ValueMax(i) = dr(10) R1(i) = dr(8) Formual(i) = dr(16) Ascll_Code(i) = dr(4) + dr(3) dr.MoveNextNext iData1.DatabaseName = App.Path + mdbsysdata.mdbData1.RecordSource = 正常臨時采集數據Data1.RefreshData2.DatabaseName = App.Path + mdbsysdata.mdbData2.RecordSource = 異常臨時采集數據Data2.RefreshOdoMeter1.Value = 1 滾動數字賦初值OdoMeter2.Value = M_intNumberCommand1.Enabled = FalseCommand2.Enabled = FalseCommand4.Enabled = Falseresult = FalseCall yashi(2)Timer1.Interval = 2000Timer1.Enabled = TrueMSComm1.Output = # + Ascll_Code(M_intNumber - 1) + Chr$(13)Text3.Text = Text3.Text + #0 + Ascll_Code(M_intNumber - 1) + Chr$(13)Toggle1.Visible = TrueToggle1.Value = TrueEnd Sub曲線顯示Sub Linedraw()Dim PointName As StringDim J As Integer J用于顯示加載過程Dim strTable() As String 用于裝在表名Dim intNub As Integer 如果某個因子數據為空,不用該參數程序會出錯On Error Resume Next intNub = 0 Picture3.Visible = True Text3.Text = DTPicker1.Value Text4.Text = DTPicker2.Value Trend1.ClearAll Time1 = DTPicker2.Value Trend1.XMax = CDbl(Time1 + 12:00:00) Time1 = DTPicker1.Value Trend1.XMin = CDbl(Time1 + 12:00:00) Trend1.SetXDisplay Trend1.XMin, Trend1.XMax Combo4.Clear ReDim strTable(M_intDrawline - 1) For i = 0 To M_intDrawline - 1 用于裝在表名 Set dr = ds.OpenRecordset(select * from surveypoint where SurveyPointNo= + M_strDrawline(i) + ) strTable(i) = dr(9) Next i For i = 0 To M_intDrawline - 1 PointName = M_strDrawline(i) Set Rs = ds.OpenRecordset(select * from + strTable(i) + where SurveyPointNo= + PointName + AND ( SURVEYDATE BETWEEN # + Text3.Text + # AND # + Text4.Text + # ) ORDER BY SurveyDate ) , dbOpenDynaset) If Rs.RecordCount = 0 Then 判斷這個時段內有沒有數據 MsgBox PointName + 在這個時段內沒有數據! GoTo aa 開始下一個因子 End If J = 0 Gauge10.PanelMax = Rs.RecordCount Gauge10.PanelMin = 0 Gauge10.Refresh Rs.MoveFirst Do While Not Rs.EOF Gauge10.BandID = 1 Gauge10.BandEnd = J Gauge10.Refresh J = J + 1 Value = Rs.Fields(PointWay) Time1 = Rs.Fields(surveydate) Trend1.AddXY intNub, CDbl(Time1 + Rs.Fields(surveyTime), Value Rs.MoveNext Loop Rs.Close Combo4.AddItem PointName 添加過程線因子名稱 intNub = intNub + 1aa:Next i Trend1.Refresh Call ledsend NumberLed2.Value = Format$(Trend1.VarMax) NumberLed2.Refresh NumberLed3.Value = Format$(Trend1.VarMin) NumberLed3.Refresh NumberLed4.Value = Format$(Trend1.VarAvg) NumberLed4.RefreshPicture3.Visible = FalseEnd SubPrivate Sub Trend1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu toolsEnd IfEnd SubPrivate Sub Y軸設置_Click()Dim ValueMax, ValueMinDim Message, Title, Default, Message1Message = 請輸入Y軸最大值Message1 = 請輸入Y軸最小值Title = Y軸設置Default = 1ValueMax = InputBox(Message, Title, Default)Do While ValueMax = ValueMax = InputBox(Message, Title, Default)LoopValueMin = InputBox(Message1, Title, Default)Do While ValueMin = ValueMin = InputBox(Message1, Title, Default)LoopDo While ValueMax - ValueMin = 0ValueMin = InputBox(Message1, Title, Default)Loop Trend1.TrackYDisplayMax = ValueMax Trend1.TrackYMax = ValueMax Trend1.TrackYDisplayMin = ValueMin Trend1.TrackYMin = ValueMine 設置Y軸顯示數值的范圍 Trend1.RefreshEnd SubPrivate Sub 背景色彩_Click()On Error GoTo Feil With CommonDialog1 .Flags = cdlCCFullOpen .ShowColor End With Trend1.TrackID = 1 Trend1.TrackBackColor = CommonDialog1.Color Trend1.RefreshFeil: Exit SubEnd SubPrivate Sub 邊框色彩_Click()On Error GoTo Feil With CommonDialog1 .Flags = cdlCCFullOpen .ShowColor End With Trend1.BackColor = CommonDialog1.Color Trend1.RefreshFeil: Exit SubEnd Sub分布圖制作程序Sub Fbt_draw()Dim progress_name As StringDim sql As String On Error Resume Nextsqlstr = DELETE * FROM fbttemp 刪除數據庫的值 Data3數據庫綁定到DBGRIG1表Data3.Database.Execute sqlstrFor i = 0 To J - 1Set ds = db.OpenRecordset(select * from yyl where SurveyPointNo= & Fbt_point(i) & AND ( SURVEYDATE BETWEEN # & DTPicker2.Value & # AND # & DTPicker1.Value & # ) ORDER BY SurveyDate )ds.MoveLast If ds.RecordCount = 0 Then 判斷數據是否為空 MsgBox 沒有數據!, vbOKOnly, 警告! Exit Sub End Ifds.MoveFirstFbt_value(i) = ds(6)Next iPercent1.Max = ds.RecordCount 百分比設置Percent1.PortionID = 0Percent1.PortionValue = 0For i = 0 To J - 1 添加值到數據庫arr(i, 1) = Fbt_point(i)arr(i, 2) = Fbt_value(i)Data3.Recordset.AddNewData3.Recordset(0) = Fbt_point(i)Data3.Recordset(1) = Fbt_value(i)If IsNull(ds(3) = True Then MsgBox 沒有數據Data3.Recordset.Updateds.MoveNextNext i LoopMSChart1.ChartData = arr 添加值到表MSChart1.RefreshData3.RefreshDBGrid1.RefreshDBGrid1.Visible = TrueEnd Sub定時測量程序Private Sub MSComm1_OnComm()Dim RecStr As StringDim strLen As IntegerDim Value As StringDim Myval As StringSelect Case MSComm1.CommEvent Case comEvSend Case comEvReceive RecStr = MSComm1.Input Text1.Text = Text1.Text + RecStr If RecStr = Then Exit Sub End If If Left(RecStr, 1) Then RecStr = Exit Sub End If strLen = Len(RecStr) RecStr = Right(RecStr, strLen - 1) Timer1.Enabled = False If CSng(RecStr) - CSng(ValueMin(M_intNumber - 1) = 0 Then 判斷是否比最小值還低 If Survey_ID 7 Then Myval = Left(Myval, 7) End If Survey_ID = 0 Data2.Recordset.AddNew Data2.Recordset(0) = M_strSurvey(M_intNumber - 1) Data2.Recordset(1) = Date Data2.Recordset(2) = Time Data2.Recordset(3) = RecStr Text1.Text Value Data2.Recordset(4) = Myval Data2.Recordset(9) = Surveyinfo(M_intNumber - 1) Data2.Recordset(7) = 數值超過最低限制 Data2.Recordset(10) = 數值超過最低限制 Data2.Recordset.Update Data2.Refresh DBGrid1.Refresh Dr1.AddNew Dr1(0) = M_strSurvey(M_intNumber - 1) Dr1(1) = Da