2011观测QC发布.pptVIP

Tragen Sie hier den Text Ihrer Fu?zeile ein 国投甘肃小三峡水工管理部观测班QC小组 课题简介 小组概况 小组成员组成情况： 现状调查——外部环境 90 年代后大坝安全监测技术飞速发展, 许多老坝完成了自动化监测系统的更新改造, 新建大坝具有功能更全的高水平监测系统。虽然自动化技术日新月易，作为自动化监测强有力保障的人工观测，更是不容忽视。 据调查，目前大坝监测的计算机普及率为100%，很多大坝人工监测也运用了计算机技术。随着计算机办公，无纸化化办公等新兴办公方式的发展，已网络为依托，充分利用网络的便捷，减少员工工作量。 现状调查——内部因素 人工观测数据计算精度要求高，公式复杂多变，需要进行的判别等问题。人员方面，面临任务重，难度大，对培训较繁琐，人工填写环节多，数据可靠性较低。 确定目标 原因分析 部分软件界面 部分代码 Public Sub CheckKeyPress(ByVal TargetTextBox As TextBox, ByVal e As System.Windows.Forms.KeyPressEventArgs, Optional ByVal Minus As Boolean = False, Optional ByVal DecimalCount As Integer = 0) Dim blnHandled As Boolean blnHandled = False Select Case Asc(e.KeyChar) Case Asc(-) 负号：只能在最前头 If Not (TargetTextBox.SelectionStart = 0 And Minus = True) Then blnHandled = True Case Asc(.) 小数点：小数位数大于0；在字符串中没有“.”，且加了“.”后小数位能满足要求 If DecimalCount = 0 Then blnHandled = True Else If Not (InStr(TargetTextBox.Text, .) = 0 And (Len(TargetTextBox.Text) - TargetTextBox.SelectionStart = DecimalCount)) Then blnHandled = True End If Case 8, 13 退格键，回车键 Case Asc(0) To Asc(9) 0-9 If InStr(TargetTextBox.Text, .) 0 Then If TargetTextBox.SelectionStart InStr(TargetTextBox.Text, .) Then 当前字符位置在小数点后，则小数点后的字符数必须小于小数位 If Len(TargetTextBox.Text) - InStr(TargetTextBox.Text, .) = DecimalCount Then blnHandled = True Else 当前字符位置在小数点前，则小数点后的字符数必须不大于小数位 If Len(TargetTextBox.Text) - InStr(TargetTextBox.Text, .) = DecimalCount Then blnHandled = True End If End If Case Else blnHandled = True End Select e.Handled = blnHandled End Sub 部分网站界面