esms大坝安全监测系统说明书

ESMS 大坝安全监测系统说明书 1:系统功能: ESMS 系统主要用于完成与测量大坝的传感器进行数据采集，计算，分析， 了解大坝 实际运行状态。 2：设计思想 ESMS 系统本者易操作，界面美观的原则进行设计。采用 VB6 进行编制。它与 MCU 之间采用类似研华通信协议来完成数据交流，通讯总线采用 RS-485。它具有远程控制操作 功能，错误自动报警功能，远程控制和错误报警均采用电信交换网络实现。 设计慨要 主 界 面 ,数 据 显示 打 印数 据 采 集 ,定 时测 量 数 据 显 示 ,打 印分 析系 统 设 置 ,用 户设 值 曲 线 分 析 /柱 形图 分 析报 表 打 印 ,数 据备 份测 点 信 息 设 值 ,模 块 设 值 公 式检 测 系 统 结 构 框 图 2 数据采集 选择仪器布置图 采集测点数据(测点群,单个测点,多个测点,全部测点) MCU操作(MCU自诊断,设置模块时间，查看模块剩余空间，模块 零点，幅点) 定时采集时操作(采集定时测量数据,设置定时测量参数) 测点操作(测点自诊断,设置测点定时采集时间,间隔) 数据管理 MCU单元设置 公式库管理 测值换算（把各个仪器的相对位移转换成绝对位移） 测点维护（对新的初值和灵敏度系数的仪器重新换算） 数据备份(修正库,原始库,异常库导入导出) 人工测值录入维护 测值查询(修正库管理查询,异常库查询,原始库查询) 数据分析 测点过程曲线（单只仪器，多只仪器，环境量比对，人工测值 比对，存档） 杨压力方块图（扬压力方块图创建，显示，存档） 分布图（分布图创建，显示，存档） 报表系统 综合日报表 综合月报表 综合年报表 用户特殊报表 系统设置 用户设置（操作人员设置，维护人员设置） 程序控制参数设置（通讯方式、参数设置，数据参数设置） 报警参数设置（自动巡测时间设置，巡测方式设置，报警方式 设置） 测点布置图建立，维护 3 详细设计 3-1:数据库设计 ESMS 大坝安全监测系统软件的数据库采用ACCESS数据库。数据库名字为 UNISYS,UNISYS分为以下几个表: 1:USERSET 用于存放用户档案 字段名：USERNAME（用户名，10），USERPSD（用户密码 ,10），USERLEV（用户级别，6） 本次修改次：0 更改审批表号：湖南紫光测控有限公司 工 作 文 件 页码： 第 3 页，共 28 页 标题：ESMS 软件设计说明书 文件分发号： 文件编号（版本号）：HZ-QW-01-A 编写日期：2001 年 12 月 8 日 湖南紫光测控公司 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欧姆值，振弦为空）. 4 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,存放初初始最大值),CALCPA RA3(计算参数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 用于存放采集模块库的打印数据(临时) 本次修改次：0 更改审批表号：湖南紫光测控有限公司 工 作 文 件 页码： 第 5 页，共 28 页 标题：ESMS 软件设计说明书 文件分发号： 文件编号（版本号）：HZ-QW-01-A 编写日期：2001 年 12 月 8 日 湖南紫光测控公司 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 用于存放系统标准信息代码 字段名:INFOCODE (系统标准信息代码,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,) 6 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 用于存放系统信息 字段名：DAMSNAME(大坝名称,20),BASELEV1(坝址高程,8),BASELEV2(库底高程,8) CALL(系统出错是否呼叫维护人员,1)COMMPORT(通讯端口,1) CALLPORT(呼叫端口,1) 3-2 软件的通讯协议: #MMCC 读MM的CC通到的值 MCU返回“$“+CC通到的值+ “!“ #MMA 读MM的所有值 MCU返回“$“+MM的所有值,每个值之间以,隔开+ “!“ #MMT 读MM的类型 MCU返回“$“+MM的类型,每个值之间以,隔开+ “!“ #MML 校准零点 返回“$“+零点值+ “!“ #MMH 校准幅点 返回“$“+幅点值+ “!“ #MMF 读MM的版本号 MCU返回“$“+MM的版本号,每个值之间以,隔开+ “!“ #MMO 自测试 本次修改次：0 更改审批表号：湖南紫光测控有限公司 工 作 文 件 页码： 第 7 页，共 28 页 标题：ESMS 软件设计说明书 文件分发号： 文件编号（版本号）：HZ-QW-01-A 编写日期：2001 年 12 月 8 日 湖南紫光测控公司 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+“!“ 单位:字节 #MMB 读MM的存储数据 MCU返回“$“XXXXXX(数据快长度 单位:字节)+数据内容“!“ #MMZ+“XX“年“XX“月“XX“日“XX“时“XX“分“XX“秒+ “ 设置MM的日期+时间 MCU返回“$“+“XX“年“XX“月“XX“日“XX“时“XX“分“XX“秒+ “!“ 注:MM是采集模快地址代号,从0-FF CC是采集模快的通道代号,从0-8 所有通信字符采用ASCII码 3-3 程序流程图 Private Sub Form_Load() Me.Refresh End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) For i = 0 To 7 Label114(i).ForeColor = &HC000& Next i Gauge1(g_intGaugeIndex).PointerID = 0 Gauge1(g_intGaugeIndex).PointerStart = 0 8 Gauge1(g_intGaugeIndex).PointerEnd = 3 Gauge1(g_intGaugeIndex).PointerID = 1 Gauge1(g_intGaugeIndex).PointerValue = 3 Gauge1(g_intGaugeIndex).Refresh Timer1.Interval = 0 End Sub Private Sub Gauge1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Timer1.Interval = 250 g_intGaugeIndex = Index n = 0 End Sub Dim Msg, Style, Title, Help, Ctxt, Response, MyString Msg = “确定退出吗？ “ Style = vbYesNo + vbQuestion + vbDefaultButton2 Title = “系统信息提示“ 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 本次修改次：0 更改审批表号：湖南紫光测控有限公司 工 作 文 件 页码： 第 9 页，共 28 页 标题：ESMS 软件设计说明书 文件分发号： 文件编号（版本号）：HZ-QW-01-A 编写日期：2001 年 12 月 8 日 湖南紫光测控公司 Do Me.Height = Me.Height - 190 If Me.Height Screen.Height - 500 End Else Cancel = True End If End Select g_intGaugeIndex = Index Label114(Index).ForeColor = &HFF& End Sub 10 Private Sub Command1_Click() Command1.Enabled = False Command2.Enabled = False Data1.Recordset.AddNew DTPicker1.Value = Date DTPicker2.Value = Time MaskEdBox1.SetFocus End Sub Private Sub Command2_Click() On Error Resume Next Command2.Enabled = False Command1.Enabled = False Data1.Recordset.Edit MaskEdBox1.SetFocus End Sub Private Sub Command3_Click() On Error Resume Next Dim Msg, Style, Title, Help, Ctxt, Response, MyString Msg = “确实删除该记录？ “ Style = vbYesNo + vbQuestion + vbDefaultButton2 Title = “系统信息提示“ Response = MsgBox(Msg, Style, Title, Help, Ctxt) 人工测值录入 本次修改次：0 更改审批表号：湖南紫光测控有限公司 工 作 文 件 页码： 第 11 页，共 28 页 标题：ESMS 软件设计说明书 文件分发号： 文件编号（版本号）：HZ-QW-01-A 编写日期：2001 年 12 月 8 日 湖南紫光测控公司 If Response = vbYes Then Data1.Recordset.Delete Data1.Refresh Else Cancel = True End If Data1.Recordset.MoveLast End Sub 数据采集 人 工 数 据 录 入调 用 人 工 数 据 录 入数 据 库 内 容 是 否 修 改 数 据是 否 添 加 数 据 添 加 数 据 程 序Y是 否 删 除 数 据 删 除 数 据 程 序修 改 数 据 程 序YY 数 据 库 更 新 12 Sub Collect() On Error Resume Next MSComm1.PortOpen = True Command5.Enabled = False Survey_ID = 0 Me.Show Set dr = db.OpenRecordset(“Collectiontemp“) dr.MoveFirst Do While Not dr.EOF 删除测值表 dr.Delete dr.MoveNext Loop Picture3.Visible = False 隐藏 CHART 表 Chart = False Command3.Enabled = False Set dr = db.OpenRecordset(“alarmval“) 删除报警表 dr.MoveFirst Do While Not dr.EOF 本次修改次：0 更改审批表号：湖南紫光测控有限公司 工 作 文 件 页码： 第 13 页，共 28 页 标题：ESMS 软件设计说明书 文件分发号： 文件编号（版本号）：HZ-QW-01-A 编写日期：2001 年 12 月 8 日 湖南紫光测控公司 dr.Delete dr.MoveNext Loop db.Execute “delete * from 正常临时采集数据“ db.Execute “delete * from 异常临时采集数据“ Survey_ID1 = M_intNumber ReDim 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.MoveNext Next i Data1.DatabaseName = App.Path + “mdbsysdata.mdb“ Data1.RecordSource = “正常临时采集数据“ Data1.Refresh Data2.DatabaseName = App.Path + “mdbsysdata.mdb“ Data2.RecordSource = “异常临时采集数据“ Data2.Refresh 14 OdoMeter1.Value = 1 滚动数字赋初值 OdoMeter2.Value = M_intNumber Command1.Enabled = False Command2.Enabled = False Command4.Enabled = False result = False Call yashi(2) 数 据 采 集调 用 测 点 选 择 操 作 标 志 测 点 数 目向 模 块 法 采 集 命 令 判 断 数 否 采 集完 毕 N 测 点 数 目 减 1等 待 模 块 传 值 判 断 是 否 超 时 报 警 程 序Y N转 换 电 测 量 并 确 显示 测 量 值是 否 存 入 数 据库 保 存 数 据 到 数 据 库Y 是 否 打 印 数 据 调 打 印 数 据 程 序Y 本次修改次：0 更改审批表号：湖南紫光测控有限公司 工 作 文 件 页码： 第 15 页，共 28 页 标题：ESMS 软件设计说明书 文件分发号： 文件编号（版本号）：HZ-QW-01-A 编写日期：2001 年 12 月 8 日 湖南紫光测控公司 Timer1.Interval = 2000 Timer1.Enabled = True MSComm1.Output = “#“ + Ascll_Code(M_intNumber - 1) + Chr$(13) Text3.Text = Text3.Text + “#0“ + Ascll_Code(M_intNumber - 1) + Chr$(13) Toggle1.Visible = True Toggle1.Value = True End Sub 曲线显示 Sub Linedraw() Dim PointName As String Dim J As Integer J 用于显示加载过程 Dim strTable() As String 用于装在表名 Dim intNub As Integer 如果某个因子数据为空,不用该参数程序会出错 16 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“) 历 时 曲 线 显 示调 用 测 点 选 择 操 作 标 志 测 点 数 目标 志 起 始 时 间 终 止时 间 判 断 数 否 打 印Y 根 据 以 上 信 息 查 找相 应 记 录根 据 记 录 画 出 曲 线 判 断 是 否 画 完N 保 存 画 面 程 序打 印 程 序判 断 是 否 保 存画 面判 断 是 否 进 行曲 线 操 作 曲 线 操 作 程 序YYY 曲 线 色 彩 更 换 和 粗细 操 作怎 加 减 少 网 格 操 作柱 形 图 线 形 图 操作更 改 背 景 图 操 作 本次修改次：0 更改审批表号：湖南紫光测控有限公司 工 作 文 件 页码： 第 17 页，共 28 页 标题：ESMS 软件设计说明书 文件分发号： 文件编号（版本号）：HZ-QW-01-A 编写日期：2001 年 12 月 8 日 湖南紫光测控公司 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 18 Rs.Close Combo4.AddItem PointName 添加过程线因子名称 intNub = intNub + 1 aa: 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.Refresh Picture3.Visible = False End Sub Private Sub Trend1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu tools End If End Sub Private Sub Y 轴设置_Click() Dim ValueMax, ValueMin Dim Message, Title, Default, Message1 Message = “请输入 Y 轴最大值“ Message1 = “请输入 Y 轴最小值“ Title = “Y 轴设置 “ Default = “1“ ValueMax = InputBox(Message, Title, Default) Do While ValueMax = “ ValueMax = InputBox(Message, Title, Default) Loop ValueMin = InputBox(Message1, Title, Default) Do While ValueMin = “ ValueMin = InputBox(Message1, Title, Default) Loop Do While ValueMax - ValueMin “ 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) 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 24 Data2.Refresh DBGrid1.Refresh Dr1.AddNew Dr1(0) = M_strSurvey(M_intNumber - 1) Dr1(1) = Date Dr1(2) = Time Dr1(3) = RecStr Dr1(4) = Myval Dr1.Update If M_intNumber = 1 Then MSComm1.PortOpen = False 测量完毕 Toggle1.Visible = False Command1.Enabled = True Command5.Enabled = True Timer1.Enabled = False Exit Sub Else RecStr = “ Call yashi(2) Timer1.Interval = 3000 Timer1.Enabled = True M_intNumber = M_intNumber - 1 MSComm1.Output = “#“ + Ascll_Code(M_intNumber - 1) & Chr$(13) Text3.Text = Text3.Text + “#2#“ + Ascll_Code(M_intNumber - 1) + Chr$(13) End If Exit Sub End If End If If CSng(RecStr) - CSng(ValueMax(M_intNumber - 1) = 0 Then 判断是否比最大 值还高 If Survey_ID 7 Then Myval = Left(Myval, 7) 本次修改次：0 更改审批表号：湖南紫光测控有限公司 工 作 文 件 页码： 第 25 页，共 28 页 标题：ESMS 软件设计说明书 文件分发号： 文件编号（版本号）：HZ-QW-01-A 编写日期：2001 年 12 月 8 日 湖南紫光测控公司 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 Dr1.AddNew Dr1(0) = M_strSurvey(M_intNumber - 1) Dr1(1) = Date Dr1(2) = Time Dr1(3) = RecStr Dr1(4) = Myval Dr1.Update Survey_ID = 0 DBGrid1.Refresh If M_intNumber = 1 Then MSComm1.PortOpen = False 测量完毕 Toggle1.Visible = False Call Value_chart Command1.Enabled = True Command4.Enabled = True Command5.Enabled = True Timer1.Enabled = False Exit Sub Else RecStr = “ Call yashi(2) Timer1.Interval = 3000 Timer1.Enabled = True M_intNumber = M_intNumber - 1 MSComm1.Output = “#“ + Ascll_Code(M_intNumber - 1) & Chr$(13) Text3.Text = Text3.Text + “#!#“ + Ascll_Code(M_intNumber - 1) + 26 Chr$(13) End If End If Exit Sub End If Myval = CStr(Formual(M_intNumber - 1) * (CDbl(RecStr) - R1(M_intNumber - 1)