📄 form1.frm

📁 WinCC 污水处理系统源程序.里面包含了许多VB6制作的功能组件.很有参考意义.
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12

End Sub

Private Sub Command2_Click()
Dim strQuery As String
Dim strTemp As String

Set Rs.ActiveConnection = Conn
Rs.LockType = adLockOptimistic
Rs.CursorType = adOpenDynamic

'显示时间和北污泥浓度
strQuery = "SELECT * FROM PDE#HD#Report#BQ_WNND_1"
Rs.Open strQuery
Rs.MoveLast

strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Do While StrComp(strTemp, Text1.Text, vbTextCompare)
    Rs.MovePrevious
    If Rs.BOF Then Rs.MoveFirst
    strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Loop
Rs.MovePrevious
If Rs.BOF Then Rs.MoveFirst

Text1.Text = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Text2.Text = Rs.Fields(1)

Rs.Close

'显示南污泥浓度
strQuery = "SELECT * FROM PDE#HD#Report#BQ_WNND_2"
Rs.Open strQuery
Rs.MoveLast

strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Do While StrComp(strTemp, Text1.Text, vbTextCompare)
    Rs.MovePrevious
    If Rs.BOF Then Rs.MoveFirst
    strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Loop
Rs.MovePrevious
If Rs.BOF Then Rs.MoveFirst

Text3.Text = Rs.Fields(1)

Rs.Close

'显示出水泵房PH
strQuery = "SELECT * FROM PDE#HD#Report#CB_PH_F"
Rs.Open strQuery
Rs.MoveLast

strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Do While StrComp(strTemp, Text1.Text, vbTextCompare)
    Rs.MovePrevious
    If Rs.BOF Then Rs.MoveFirst
    strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Loop
Rs.MovePrevious
If Rs.BOF Then Rs.MoveFirst

Text4.Text = Rs.Fields(1)

Rs.Close


End Sub

Private Sub Command3_Click()
Dim strQuery As String
Dim strTemp As String

Set Rs.ActiveConnection = Conn
Rs.LockType = adLockOptimistic
Rs.CursorType = adOpenDynamic

'显示时间和北污泥浓度
strQuery = "SELECT * FROM PDE#HD#Report#BQ_WNND_1"
Rs.Open strQuery
Rs.MoveLast

strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Do While StrComp(strTemp, Text1.Text, vbTextCompare)
    Rs.MovePrevious
    If Rs.BOF Then Rs.MoveFirst
    strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Loop
Rs.MoveNext
If Rs.EOF Then Rs.MoveLast

Text1.Text = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Text2.Text = Rs.Fields(1)

Rs.Close

'显示南污泥浓度
strQuery = "SELECT * FROM PDE#HD#Report#BQ_WNND_2"
Rs.Open strQuery
Rs.MoveLast

strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Do While StrComp(strTemp, Text1.Text, vbTextCompare)
    Rs.MovePrevious
    If Rs.BOF Then Rs.MoveFirst
    strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Loop
Rs.MoveNext
If Rs.EOF Then Rs.MoveLast

Text3.Text = Rs.Fields(1)

Rs.Close

'显示出水泵房PH
strQuery = "SELECT * FROM PDE#HD#Report#CB_PH_F"
Rs.Open strQuery
Rs.MoveLast

strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Do While StrComp(strTemp, Text1.Text, vbTextCompare)
    Rs.MovePrevious
    If Rs.BOF Then Rs.MoveFirst
    strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Loop
Rs.MoveNext
If Rs.EOF Then Rs.MoveLast

Text4.Text = Rs.Fields(1)

Rs.Close


End Sub

Private Sub Command4_Click()
Dim strQuery As String

Set Rs.ActiveConnection = Conn
Rs.CursorType = adOpenForwardOnly

'显示时间和北污泥浓度
strQuery = "SELECT * FROM PDE#HD#Report#BQ_WNND_1"
Rs.Open strQuery
Rs.MoveLast

Text1.Text = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Text2.Text = Rs.Fields(1)

Rs.Close
'显示南污泥浓度
strQuery = "SELECT * FROM PDE#HD#Report#BQ_WNND_2"
Rs.Open strQuery
Rs.MoveLast

Text3.Text = Rs.Fields(1)
Rs.Close
'显示出水泵房PH
strQuery = "SELECT * FROM PDE#HD#Report#CB_PH_F"
Rs.Open strQuery
Rs.MoveLast

Text4.Text = Rs.Fields(1)
Rs.Close

End Sub

Private Sub Command5_Click()
Dim strTemp As String
Dim strQuery As String

Set Rs.ActiveConnection = Conn
Rs.LockType = adLockOptimistic
Rs.CursorType = adOpenDynamic

'写入北污泥浓度
strQuery = "SELECT * FROM PDE#HD#Report#BQ_WNND_1"
Rs.Open strQuery
Rs.MoveLast

strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Do While StrComp(strTemp, Text1.Text, vbTextCompare)
    Rs.MovePrevious
    If Rs.BOF Then Rs.MoveFirst
    strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Loop
Rs.Fields(1) = Val(Text2.Text)

Rs.Update
Rs.Close

'写入南污泥浓度
strQuery = "SELECT * FROM PDE#HD#Report#BQ_WNND_2"
Rs.Open strQuery
Rs.MoveLast

strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Do While StrComp(strTemp, Text1.Text, vbTextCompare)
    Rs.MovePrevious
    If Rs.BOF Then Rs.MoveFirst
    strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Loop
Rs.Fields(1) = Val(Text3.Text)

Rs.Update
Rs.Close

'写入出水泵房PH
strQuery = "SELECT * FROM PDE#HD#Report#CB_PH_F"
Rs.Open strQuery
Rs.MoveLast

strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Do While StrComp(strTemp, Text1.Text, vbTextCompare)
    Rs.MovePrevious
    If Rs.BOF Then Rs.MoveFirst
    strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Loop
Rs.Fields(1) = Val(Text4.Text)

Rs.Update
Rs.Close

End Sub

Private Sub Command6_Click()
Conn.Close

End
End Sub

Private Sub Command7_Click()
Dim strQuery As String
Dim strTemp As String

Set Rs.ActiveConnection = Conn
Rs.LockType = adLockOptimistic
Rs.CursorType = adOpenDynamic

'显示时间和北污泥浓度
strQuery = "SELECT * FROM PDE#HD#Report#BQ_WNND_1"
Rs.Open strQuery
Rs.MoveLast

strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Do While StrComp(strTemp, Text1.Text, vbTextCompare)
    Rs.MovePrevious
    If Rs.BOF Then Rs.MoveFirst
    strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Loop
Rs.Move -Val(Text6.Text)
If Rs.BOF Then Rs.MoveFirst

Text1.Text = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Text2.Text = Rs.Fields(1)

Rs.Close

'显示南污泥浓度
strQuery = "SELECT * FROM PDE#HD#Report#BQ_WNND_2"
Rs.Open strQuery
Rs.MoveLast

strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Do While StrComp(strTemp, Text1.Text, vbTextCompare)
    Rs.MovePrevious
    If Rs.BOF Then Rs.MoveFirst
    strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Loop
Rs.Move -Val(Text6.Text)
If Rs.BOF Then Rs.MoveFirst

Text3.Text = Rs.Fields(1)

Rs.Close

'显示出水泵房PH
strQuery = "SELECT * FROM PDE#HD#Report#CB_PH_F"
Rs.Open strQuery
Rs.MoveLast

strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Do While StrComp(strTemp, Text1.Text, vbTextCompare)
    Rs.MovePrevious
    If Rs.BOF Then Rs.MoveFirst
    strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Loop
Rs.Move -Val(Text6.Text)
If Rs.BOF Then Rs.MoveFirst

Text4.Text = Rs.Fields(1)

Rs.Close

End Sub

Private Sub Command8_Click()
Dim strQuery As String
Dim strTemp As String

Set Rs.ActiveConnection = Conn
Rs.LockType = adLockOptimistic
Rs.CursorType = adOpenDynamic

'显示时间和北污泥浓度
strQuery = "SELECT * FROM PDE#HD#Report#BQ_WNND_1"
Rs.Open strQuery
Rs.MoveLast

strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Do While StrComp(strTemp, Text1.Text, vbTextCompare)
    Rs.MovePrevious
    If Rs.BOF Then Rs.MoveFirst
    strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Loop
Rs.Move Val(Text6.Text)
If Rs.EOF Then Rs.MoveLast

Text1.Text = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Text2.Text = Rs.Fields(1)

Rs.Close

'显示南污泥浓度
strQuery = "SELECT * FROM PDE#HD#Report#BQ_WNND_2"
Rs.Open strQuery
Rs.MoveLast

strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Do While StrComp(strTemp, Text1.Text, vbTextCompare)
    Rs.MovePrevious
    If Rs.BOF Then Rs.MoveFirst
    strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Loop
Rs.Move Val(Text6.Text)
If Rs.EOF Then Rs.MoveLast

Text3.Text = Rs.Fields(1)

Rs.Close

'显示出水泵房PH
strQuery = "SELECT * FROM PDE#HD#Report#CB_PH_F"
Rs.Open strQuery
Rs.MoveLast

strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Do While StrComp(strTemp, Text1.Text, vbTextCompare)
    Rs.MovePrevious
    If Rs.BOF Then Rs.MoveFirst
    strTemp = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Loop
Rs.Move Val(Text6.Text)
If Rs.EOF Then Rs.MoveLast

Text4.Text = Rs.Fields(1)

Rs.Close

End Sub

Private Sub Form_Load()
Set Conn = New ADODB.Connection
Set Rs = New ADODB.Recordset

Conn.CursorLocation = adUseClient
Conn.Open "Water", "DBA", "SQL"

'开始程序运行时，显示最后一条数据
Dim strQuery As String

Set Rs.ActiveConnection = Conn
Rs.CursorType = adOpenForwardOnly

'显示时间和北污泥浓度
strQuery = "SELECT * FROM PDE#HD#Report#BQ_WNND_1"
Rs.Open strQuery
Rs.MoveLast

Text1.Text = Format(Rs.Fields(0), "yyyy-mm-dd hh:mm:ss")
Text2.Text = Rs.Fields(1)

Rs.Close
'显示南污泥浓度
strQuery = "SELECT * FROM PDE#HD#Report#BQ_WNND_2"
Rs.Open strQuery
Rs.MoveLast

Text3.Text = Rs.Fields(1)
Rs.Close
'显示出水泵房PH
strQuery = "SELECT * FROM PDE#HD#Report#CB_PH_F"
Rs.Open strQuery
Rs.MoveLast

Text4.Text = Rs.Fields(1)
Rs.Close

'将窗口置于顶层
winHWND = FindWindow(vbNullString, "人工数据输入")
abc = SetWindowPos(winHWND, -1, 0, 0, 0, 0, &H1 Or &H2)

End Sub



Private Sub Text4_LostFocus()
'PH值输入限定

Dim InputValue
InputValue = Val(Text4.Text)
If InputValue > 14 Then
    Beep
    MsgBox "PH值必须在0到14之间！", vbCritical, "错误"
End If
End Sub
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -