📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
BackColor = &H00F4CDAA&
BorderStyle = 1 'Fixed Single
Caption = "人工数据输入"
ClientHeight = 5565
ClientLeft = 45
ClientTop = 330
ClientWidth = 7770
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5565
ScaleWidth = 7770
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command8
BackColor = &H80000018&
Caption = "后退"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 540
Left = 4515
Style = 1 'Graphical
TabIndex = 18
Top = 4830
Width = 1065
End
Begin VB.CommandButton Command7
BackColor = &H80000018&
Caption = "前进"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 540
Left = 2100
Style = 1 'Graphical
TabIndex = 17
Top = 4830
Width = 1065
End
Begin VB.TextBox Text6
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 3465
TabIndex = 16
Top = 4935
Width = 750
End
Begin VB.CommandButton Command6
BackColor = &H80000018&
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 540
Left = 3990
Style = 1 'Graphical
TabIndex = 10
Top = 3345
Width = 1590
End
Begin VB.CommandButton Command5
BackColor = &H80000018&
Caption = "输入"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 540
Left = 2100
Style = 1 'Graphical
TabIndex = 9
Top = 3360
Width = 1590
End
Begin VB.CommandButton Command4
BackColor = &H80000018&
Caption = "最近"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 540
Left = 5775
Style = 1 'Graphical
TabIndex = 8
Top = 4095
Width = 1590
End
Begin VB.CommandButton Command3
BackColor = &H80000018&
Caption = "后一条"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 540
Left = 3990
Style = 1 'Graphical
TabIndex = 7
Top = 4095
Width = 1590
End
Begin VB.CommandButton Command2
BackColor = &H80000018&
Caption = "前一条"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 540
Left = 2100
Style = 1 'Graphical
TabIndex = 6
Top = 4095
Width = 1590
End
Begin VB.CommandButton Command1
BackColor = &H80000018&
Caption = "最前"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 540
Left = 315
Style = 1 'Graphical
TabIndex = 5
Top = 4095
Width = 1590
End
Begin VB.TextBox Text4
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 2625
TabIndex = 4
Text = "Text4"
Top = 2355
Width = 1485
End
Begin VB.TextBox Text3
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 3255
TabIndex = 3
Text = "Text3"
Top = 1725
Width = 1695
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 3255
TabIndex = 2
Text = "Text2"
Top = 1110
Width = 1695
End
Begin VB.TextBox Text1
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 1260
TabIndex = 1
Text = "Text1"
Top = 315
Width = 5055
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "mg/l"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 5040
TabIndex = 15
Top = 1830
Width = 720
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "mg/l"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 5040
TabIndex = 14
Top = 1200
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "出水泵房PH值:"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 420
TabIndex = 13
Top = 2385
Width = 2190
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "南曝气池污泥浓度:"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 420
TabIndex = 12
Top = 1800
Width = 2820
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "北曝气池污泥浓度:"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 420
TabIndex = 11
Top = 1200
Width = 2820
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "时间:"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 420
TabIndex = 0
Top = 420
Width = 840
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 winHWND As Long
Dim abc As Long
Private Sub Command1_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.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.MoveFirst
Text3.Text = Rs.Fields(1)
Rs.Close
'显示出水泵房PH
strQuery = "SELECT * FROM PDE#HD#Report#CB_PH_F"
Rs.Open strQuery
Rs.MoveFirst
Text4.Text = Rs.Fields(1)
Rs.Close
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -