📄 setform.frm
字号:
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 510
Left = 2100
TabIndex = 16
Top = 9540
Width = 1455
End
Begin VB.Frame Frame3
BackColor = &H00C0FFC0&
Enabled = 0 'False
Height = 2490
Left = 7680
TabIndex = 10
Top = 180
Width = 5055
Begin VB.TextBox fmnumText
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 510
Left = 2025
TabIndex = 13
Top = 1485
Width = 1230
End
Begin VB.TextBox idnumText
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 510
Left = 2025
TabIndex = 12
Top = 465
Width = 1230
End
Begin VB.CommandButton Cmdset1
Caption = "设 置"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 600
Left = 3555
TabIndex = 11
Top = 930
Width = 1215
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "阀门总数："
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 540
TabIndex = 15
Top = 1620
Width = 1455
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "RTU总数："
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 540
TabIndex = 14
Top = 600
Width = 1500
End
End
Begin VB.CommandButton Cclose
Caption = "关 闭"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 510
Left = 9390
TabIndex = 9
Top = 9540
Width = 1455
End
Begin MSFlexGridLib.MSFlexGrid Grid1
Height = 8745
Left = 210
TabIndex = 35
Top = 240
Width = 7290
_ExtentX = 12859
_ExtentY = 15425
_Version = 393216
Cols = 4
BackColorFixed = 12648447
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
End
Begin VB.Frame Frame4
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 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 = 40
Top = 210
Width = 7545
End
End
Attribute VB_Name = "setForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim texttype As Integer
Dim griddata As String
Dim fileaddr0(500, 10) As String
Dim fileaddr(500, 10) As String
Dim getaddr(500, 10) As String
Dim getnum As Integer
Dim idn As Integer
Dim fmn As Integer
Dim kkk As Integer
Dim bk As Integer
Dim idnum(100) As String
Private Sub Form_Load()
kkk = 0: bk = 1
fmn = maxnum: idn = bknum
idnumText.Text = idn
fmnumText.Text = fmn
Call tabinit1
Call fill_addr
Call get_addrnum
End Sub
Public Sub tabinit1()
Grid1.Cols = 5
Grid1.Rows = fmn + 1
For i = 0 To 4
Grid1.Col = i
Grid1.ColWidth(i) = 1380
Next i
Grid1.RowHeight(0) = 300
Grid1.Col = 0
For j = 1 To fmn
Grid1.Row = j
Grid1.RowHeight(j) = 650
Grid1.Text = " " + Str$(j)
Next j
Grid1.Row = 0
Grid1.Col = 0
Grid1.Text = " 阀门序号"
Grid1.Col = 1
Grid1.Text = " RTU号"
Grid1.Col = 2
Grid1.Text = " 端口号"
Grid1.Col = 3
Grid1.Text = " 阀门编号"
Grid1.Col = 4
Grid1.Text = " 承包户名"
End Sub
Sub fill_addr()
For j = 1 To fmn
Grid1.Row = j
For i = 1 To 2
Grid1.Col = i
Grid1.Text = addrdata(j, i + 1)
Next i
Next j
For j = 1 To fmn
Grid1.Row = j
Grid1.Col = 3
Grid1.Text = addrdata(j, 1)
Next j
For j = 1 To fmn
Grid1.Row = j
Grid1.Col = 4
Grid1.Text = addrdata(j, 4)
Next j
kkk = fmn
End Sub
Private Sub idnumText_Click()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -