📄 manualinput.frm
字号:
TabIndex = 41
Top = 1950
Width = 1020
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "平均值："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 8550
TabIndex = 40
Top = 1440
Width = 1020
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "出水泵房SS"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 8550
TabIndex = 39
Top = 960
Width = 1530
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "最小值："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 6000
TabIndex = 38
Top = 2475
Width = 1020
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "最大值："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 6000
TabIndex = 37
Top = 1950
Width = 1020
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "平均值："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 6000
TabIndex = 36
Top = 1440
Width = 1020
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "出水泵房PH"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6000
TabIndex = 35
Top = 960
Width = 1530
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "最小值："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 3015
TabIndex = 34
Top = 2475
Width = 1020
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "最大值："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 3015
TabIndex = 33
Top = 1950
Width = 1020
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "平均值："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 3015
TabIndex = 32
Top = 1440
Width = 1020
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "出水泵房BOD(mg/l)"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 3015
TabIndex = 31
Top = 960
Width = 2685
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "时间："
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 510
TabIndex = 30
Top = 420
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "最小值："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 360
TabIndex = 29
Top = 2475
Width = 1020
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "最大值："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 360
TabIndex = 28
Top = 1950
Width = 1020
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "平均值："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 360
TabIndex = 27
Top = 1440
Width = 1020
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "提升泵房开机台数"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 360
TabIndex = 0
Top = 960
Width = 2400
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hWND As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Conn As ADODB.Connection
Private Rs As ADODB.Recordset
Dim RecordCount As Integer
Dim abc As Long
Dim winHWND As Long
Private Sub Command1_Click()
'清空输入域
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
End Sub
Private Sub Command2_Click()
'增加一条记录
Dim strquery As String
'检查时间段是否为空
If Text1.Text = "" Then
Beep
MsgBox "增加记录的时间值不能为零！", vbOKOnly + vbCritical, "错误"
Exit Sub
End If
Set Rs.ActiveConnection = Conn
Rs.LockType = adLockOptimistic
Rs.CursorType = adOpenKeyset
strquery = "Select * From ManualInput"
Rs.Open strquery
'检查是否会产生日期的冲突
Rs.MoveFirst
Do While Not Rs.EOF
If StrComp(Text1.Text, Rs.Fields("ReportTime"), vbTextCompare) Then
Rs.MoveNext
Else
Beep
MsgBox "不能重复添加同一天的记录", vbOKOnly + vbCritical, "错误"
Rs.Close
Exit Sub
End If
Loop
RecordCount = Rs.RecordCount
If RecordCount <= 732 Then
RecordCount = RecordCount + 1
Rs.AddNew
Rs.Fields("No") = RecordCount
Rs.Fields("ReportTime") = CDate(Text1.Text)
Rs.Fields("Num1_M") = Val(Text2.Text)
Rs.Fields("Num1_H") = Val(Text3.Text)
Rs.Fields("Num1_L") = Val(Text4.Text)
Rs.Fields("BOD_M") = Val(Text5.Text)
Rs.Fields("BOD_H") = Val(Text6.Text)
Rs.Fields("BOD_L") = Val(Text7.Text)
Rs.Fields("PH_M") = Val(Text8.Text)
Rs.Fields("PH_H") = Val(Text9.Text)
Rs.Fields("PH_L") = Val(Text10.Text)
Rs.Fields("SS_M") = Val(Text11.Text)
Rs.Fields("SS_H") = Val(Text12.Text)
Rs.Fields("SS_L") = Val(Text13.Text)
Rs.Fields("Water1") = Val(Text14.Text)
Rs.Fields("Water2") = Val(Text15.Text)
Rs.Fields("WorkTime") = Val(Text16.Text)
Rs.Fields("Mud") = Val(Text17.Text)
Rs.Fields("Num2") = Val(Text18.Text)
Rs.Update
Rs.Close
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -