📄 frmgroundwater1.frm
字号:
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8520
TabIndex = 53
Top = 1253
Width = 1575
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8520
TabIndex = 52
Top = 1906
Width = 1575
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8520
TabIndex = 51
Top = 2559
Width = 1575
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8520
TabIndex = 50
Top = 3212
Width = 1575
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8520
TabIndex = 49
Top = 3865
Width = 1575
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8520
TabIndex = 48
Top = 4518
Width = 1575
End
Begin VB.Label Label18
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8520
TabIndex = 47
Top = 5171
Width = 1575
End
Begin VB.Label Label19
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8520
TabIndex = 46
Top = 5880
Width = 1575
End
Begin VB.Label Label20
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8520
TabIndex = 45
Top = 6480
Width = 1575
End
End
Begin VB.TextBox Text21
Height = 375
Left = 4560
MaxLength = 50
TabIndex = 0
Top = 480
Width = 2895
End
Begin VB.Frame Frame2
BackColor = &H00FCB370&
Caption = "综合评价结果"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 1080
TabIndex = 21
Top = 8160
Width = 10575
Begin VB.Label Label24
BackStyle = 0 'Transparent
Caption = "地下水质量级别："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1920
TabIndex = 23
Top = 360
Width = 1695
End
Begin VB.Label Label25
BackColor = &H00FCB370&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4080
TabIndex = 22
Top = 360
Width = 2415
End
End
Begin VB.Label Label21
BackStyle = 0 'Transparent
Caption = "请输入地下水监测地点："
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1200
TabIndex = 67
Top = 480
Width = 3015
End
Begin VB.Label Label22
BackStyle = 0 'Transparent
Caption = "当前监测日期:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7800
TabIndex = 66
Top = 480
Width = 1575
End
Begin VB.Label Label23
BackStyle = 0 'Transparent
Caption = "Label23"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 9840
TabIndex = 65
Top = 480
Width = 2295
End
End
Attribute VB_Name = "FrmGroundWater1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim WithEvents rs As Recordset
Attribute rs.VB_VarHelpID = -1
Dim WithEvents rs2 As Recordset
Attribute rs2.VB_VarHelpID = -1
Dim i As Integer
Dim j As Integer
'用t保存当前的时间
Dim t As String
'用整型变量n来保存选择监测项目的个数
Dim n As Integer
'定义20个变量来保存20个监测项目的监测值
Dim f1 As Integer
Dim f2 As Integer
Dim f3 As Integer
Dim f4 As Integer
Dim f5 As Integer
Dim f6 As Integer
Dim f7 As Integer
Dim f8 As Integer
Dim f9 As Integer
Dim f10 As Integer
Dim f11 As Integer
Dim f12 As Integer
Dim f13 As Integer
Dim f14 As Integer
Dim f15 As Integer
Dim f16 As Integer
Dim f17 As Integer
Dim f18 As Integer
Dim f19 As Integer
Dim f20 As Integer
'综合评价分值f
Dim f As Double
'平均值fv
Dim fv As Double
'最大值fm
Dim fm As Integer
'平均值fv和最大值fm的平方0
Dim fv2 As Double
Dim fm2 As Double
Public Sub ClearText() '这是一个清除窗体上所有文本框的过程
Dim x As Object '声明一个对象型变量x
For Each x In Me.Controls '用for each循环可以对所有对象起作用而不必事先知道共有多少对象
If TypeOf x Is TextBox Then '判断对象的类型是不是文本框
x.Text = "" '如果是就把框中内容清空为空字符串
End If
Next x
End Sub
Private Sub Max(a, b, c) '定义一个取最大值的过程，结果存入c
If a >= b Then
c = a
ElseIf b >= a Then
c = b
End If
End Sub
Private Sub BackG(f As Form, pic As PictureBox) '定义一个根据窗体大小变化而变化的显示背景的过程
For i = 0 To (f.ScaleWidth \ pic.Width)
For j = 0 To (f.ScaleHeight \ pic.Height)
PaintPicture pic.Picture, i * pic.Width, j * pic.Height
Next
Next
End Sub
Private Sub Command1_Click()
'以下if条件语句代码功能是判断选中项目的输入值是否合理,不合理则弹出对话框提示并清空文本框.
If Check1.Value = 1 And Val(Text1.Text) = 0 Then
MsgBox "请输入合理的ph值!", vbOKOnly + vbExclamation, "提示"
Text1.Text = ""
Exit Sub
ElseIf Check2.Value = 1 And Val(Text2.Text) = 0 Then
MsgBox "请输入合理的氨氮值!注意所输入数据的单位是(mg/L)!", vbOKOnly + vbExclamation, "提示"
Text2.Text = ""
Exit Sub
ElseIf Check3.Value = 1 And Val(Text3.Text) = 0 Then
MsgBox "请输入合理的硝酸盐值!注意所输入数据的单位是(mg/L)!", vbOKOnly + vbExclamation, "提示"
Text3.Text = ""
Exit Sub
ElseIf Check4.Value = 1 And Val(Text4.Text) = 0 Then
MsgBox "请输入合理的亚硝酸盐值!注意所输入数据的单位是(mg/L)!", vbOKOnly + vbExclamation, "提示"
Text4.Text = ""
Exit Sub
ElseIf Check5.Value = 1 And Val(Text5.Text) = 0 Then
MsgBox "请输入合理的挥发性酚类值!注意所输入数据的单位是(mg/L)!", vbOKOnly + vbExclamation, "提示"
Text5.Text = ""
Exit Sub
ElseIf Check6.Value = 1 And Val(Text6.Text) = 0 Then
MsgBox "请输入合理的氰化物值!注意所输入数据的单位是(mg/L)!", vbOKOnly + vbExclamation, "提示"
Text6.Text = ""
Exit Sub
ElseIf Check7.Value = 1 And Val(Text7.Text) = 0 Then
MsgBox "请输入合理的砷(As)值!注意所输入数据的单位是(mg/L)!", vbOKOnly + vbExclamation, "提示"
Text7.Text = ""
Exit Sub
ElseIf Check8.Value = 1 And Val(Text8.Text) = 0 Then
MsgBox "请输入合理的汞(Hg)值!注意所输入数据的单位是(mg/L)!", vbOKOnly + vbExclamation, "提示"
Text8.Text = ""
Exit Sub
ElseIf Check9.Value = 1 And Val(Text9.Text) = 0 Then
MsgBox "请输入合理的铬(六价)值!注意所输入数据的单位是(mg/L)!", vbOKOnly + vbExclamation, "提示"
Text9.Text = ""
Exit Sub
ElseIf Check10.Value = 1 And Val(Text10.Text) = 0 Then
MsgBox "请输入合理的总硬度(以CaCO3计)值!注意所输入数据的单位是(mg/L)!", vbOKOnly + vbExclamation, "提示"
Text10.Text = ""
Exit Sub
ElseIf Check11.Value = 1 And Val(Text11.Text) = 0 Then
MsgBox "请输入合理的铅(Pb)值!注意所输入数据的单位是(mg/L)!", vbOKOnly + vbExclamation, "提示"
Text11.Text = ""
Exit Sub
ElseIf Check12.Value = 1 And Val(Text12.Text) = 0 Then
MsgBox "请输入合理的氟化物值!注意所输入数据的单位是(mg/L)!", vbOKOnly + vbExclamation, "提示"
Text12.Text = ""
Exit Sub
ElseIf Check13.Value = 1 And Val(Text13.Text) = 0 Then
MsgBox "请输入合理的镉(Cd)值!注意所输入数据的单位是(mg/L)!", vbOKOnly + vbExclamation, "提示"
Text13.Text = ""
Exit Sub
ElseIf Check14.Value = 1 And Val(Text14.Text) = 0 Then
MsgBox "请输入合理的铁(Fe)值!注意所输入数据的单位是(mg/L)!", vbOKOnly + vbExclamation, "提示"
Text14.Text = ""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -