📄 teamform.frm
字号:
Width = 4575
_ExtentX = 8070
_ExtentY = 12303
_Version = 393216
Rows = 20
BackColorFixed = 12640511
BackColorBkg = 12640511
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSFlexGridLib.MSFlexGrid Grid1
Height = 6975
Left = 90
TabIndex = 33
Top = 1200
Width = 8295
_ExtentX = 14631
_ExtentY = 12303
_Version = 393216
Rows = 16
Cols = 16
BackColorFixed = 12640511
BackColorBkg = 12640511
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "分钟"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 12180
TabIndex = 35
Top = 600
Width = 615
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "输入灌溉编组号:"
Height = 285
Left = 3870
TabIndex = 34
Top = 660
Width = 1425
End
End
Begin VB.Frame Frame3
BackColor = &H00FFFFC0&
Height = 10620
Left = 13140
TabIndex = 0
Top = 840
Width = 2175
Begin VB.CommandButton Cmdquit
Caption = "退 出"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 300
TabIndex = 7
Top = 9315
Width = 1545
End
Begin VB.CommandButton Cmdbz
Caption = "阀门编组"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 300
TabIndex = 6
Top = 750
Width = 1545
End
Begin VB.CommandButton Cmdzt
Caption = "阀门状态"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 300
TabIndex = 5
Top = 2177
Width = 1545
End
Begin VB.CommandButton Cmdxx
Caption = "环境信息"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 300
TabIndex = 4
Top = 5040
Width = 1545
End
Begin VB.CommandButton Cmdzn
Caption = "应用指南"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 315
TabIndex = 3
Top = 7875
Width = 1545
End
Begin VB.CommandButton Cmdset
Caption = "系统设置"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 300
TabIndex = 2
Top = 6480
Width = 1545
End
Begin VB.CommandButton Cdata
Caption = "灌溉记录"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 300
TabIndex = 1
Top = 3600
Width = 1545
End
End
Begin VB.Label Label18
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 13320
TabIndex = 38
Top = 390
Width = 2025
End
Begin VB.Label Label19
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 11340
TabIndex = 37
Top = 390
Width = 1845
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "节水灌溉智能监控系统"
BeginProperty Font
Name = "宋体"
Size = 26.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 540
Left = 4320
TabIndex = 36
Top = 210
Width = 7545
End
End
Attribute VB_Name = "TeamForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ggtype As Integer
Dim gridtype As Integer
Dim griddata As String
Dim datacol As Integer
Dim datarow As Integer
Dim timerow As Integer
Dim pdnum As Integer
Dim timenum As Integer
Dim timeadd As Single
Dim dout1 As Byte '继电器参数值
Dim dout2 As Byte '继电器参数值
Dim dout3 As Byte '继电器参数值
Dim dout4 As Byte '继电器参数值
Dim dout5 As Byte '继电器参数值
Dim dout6 As Byte '继电器参数值
Dim dout7 As Byte '继电器参数值
Private Sub Form_Load()
hnum = 1
ppp = 1
Call tabinit1
Call tabinit2
End Sub
Private Sub Cmddl_Click()
commandbz = 1
PassForm.Show
End Sub
Public Sub tabinit1()
Grid1.Cols = 16
Grid1.Rows = 51
Grid1.Col = 0
Grid1.Row = 0
Grid1.ColWidth(0) = 900
Grid1.Text = "轮灌组"
For j = 1 To 50
Grid1.Row = j
Grid1.Text = "第" + Str$(j) + "组"
Next j
Grid1.Row = 0
For i = 1 To 15
Grid1.Col = i
Grid1.Text = " " + Str$(i)
Grid1.ColWidth(i) = 700
Next i
For j = 0 To 50
Grid1.RowHeight(j) = 650
Next j
End Sub
Public Sub tabinit2()
Grid2.Cols = 5
Grid2.Rows = 51
Grid2.ColWidth(0) = 500
Grid2.ColWidth(1) = 900
Grid2.ColWidth(2) = 800
Grid2.ColWidth(3) = 1500
Grid2.ColWidth(4) = 1500
Grid2.Col = 0
For j = 0 To 50
Grid2.RowHeight(j) = 650
Next j
For j = 1 To 50
Grid2.Row = j
Grid2.Text = " " + Str$(j)
Next j
Grid2.Col = 0: Grid2.Row = 0
Grid2.Text = "编号"
Grid2.Col = 1: Grid2.Row = 0
Grid2.Text = "灌溉时间"
Grid2.Col = 2: Grid2.Row = 0
Grid2.Text = "倒计时"
Grid2.Col = 3: Grid2.Row = 0
Grid2.Text = "打开时刻"
Grid2.Col = 4: Grid2.Row = 0
Grid2.Text = "关闭时刻"
End Sub
Private Sub Grid1_Click()
If (Frame1.Enabled = True) Then
gridtype = 1
griddata = ""
datacol = Grid1.Col
datarow = Grid1.Row
Grid1.Text = ""
filedata(datarow, datacol) = ""
data(datarow, datacol) = 0
End If
End Sub
Private Sub Grid2_Click()
If (Frame1.Enabled = True) Then
gridtype = 2
griddata = ""
timerow = Grid2.Row
Grid2.Text = ""
lgsettime(timerow) = 0
End If
End Sub
Private Sub timeText_Click()
If (Frame1.Enabled = True) Then
gridtype = 3
griddata = ""
timeText.Text = ""
End If
End Sub
Private Sub timeText_change()
If Not IsNumeric(timeText.Text) Then
timeText.Text = ""
End If
End Sub
Private Sub numText_Click()
If (Frame1.Enabled = True) Then
gridtype = 4
griddata = ""
numText.Text = ""
End If
End Sub
Private Sub numText_change()
If Not IsNumeric(numText.Text) Then
numText.Text = ""
End If
End Sub
Private Sub Cauto_Click()
hnum = 1
End Sub
Private Sub Option1_Click()
hnum = 1
numText.Enabled = False
End Sub
Private Sub Option2_Click()
numText.Enabled = True
hnum = 1
numText.Text = hnum
End Sub
Private Sub C0_Click()
griddata = griddata + "0"
Call fill_grid
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -