📄 formbjls.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.1#0"; "COMCT232.OCX"
Begin VB.Form FormBjls
Caption = "历史报警"
ClientHeight = 7545
ClientLeft = 570
ClientTop = 1080
ClientWidth = 11715
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 7545
ScaleWidth = 11715
Begin VB.Frame Frame2
BorderStyle = 0 'None
Caption = "日期选择："
ForeColor = &H8000000D&
Height = 720
Index = 0
Left = 1440
TabIndex = 1
Top = -150
Width = 2400
Begin VB.TextBox Textnyr
BackColor = &H0080FFFF&
BorderStyle = 0 'None
Height = 240
Index = 0
Left = 240
TabIndex = 4
Text = "2002"
Top = 330
Width = 375
End
Begin VB.TextBox Textnyr
BackColor = &H0080FFFF&
BorderStyle = 0 'None
Height = 240
Index = 1
Left = 870
TabIndex = 3
Text = "01"
Top = 330
Width = 210
End
Begin VB.TextBox Textnyr
BackColor = &H0080FFFF&
BorderStyle = 0 'None
Height = 240
Index = 2
Left = 1260
TabIndex = 2
Text = "1"
Top = 330
Width = 210
End
Begin ComCtl2.UpDown UpDownQs
Height = 375
Left = 1560
TabIndex = 5
Top = 240
Width = 270
_ExtentX = 450
_ExtentY = 661
_Version = 327681
Enabled = -1 'True
End
Begin VB.Label Labely
AutoSize = -1 'True
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = "月"
Height = 180
Index = 1
Left = 1080
TabIndex = 6
Top = 360
Width = 180
End
Begin VB.Label Labeln
AutoSize = -1 'True
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = "年"
Height = 180
Index = 0
Left = 645
TabIndex = 7
Top = 360
Width = 180
End
Begin VB.Label Labelnyr
BackColor = &H0000FFFF&
BorderStyle = 1 'Fixed Single
Caption = " "
Height = 375
Left = 120
TabIndex = 8
Top = 240
Width = 1455
End
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 6780
Left = 120
TabIndex = 0
Top = 600
Width = 11415
_ExtentX = 20135
_ExtentY = 11959
_Version = 393216
Rows = 1
Cols = 6
FixedCols = 0
BackColorBkg = 8388608
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 Labelxq
Alignment = 2 'Center
BackColor = &H00FF80FF&
BorderStyle = 1 'Fixed Single
Caption = "星期一"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 3840
TabIndex = 10
Top = 120
Width = 1140
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "日期选择："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 240
Left = 240
TabIndex = 9
Top = 120
Width = 1200
End
Begin VB.Menu exit1
Caption = "关闭(&X)"
End
End
Attribute VB_Name = "FormBjls"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim leix(1), colorzt(1), Sxflag(15), nyrflg
Private Sub exit1_Click()
Unload Me
End Sub
Private Sub Form_Load()
'''On Error Resume Next
Me.Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
leix(0) = "报警解除"
leix(1) = "报警"
colorzt(1) = &HFF& '报警色
colorzt(0) = &H8000& '解除色
Me.Height = 8235
nian$ = Mid$(Date$, 3, 2) '今天日期
yue$ = Mid$(Date$, 6, 2)
ri$ = Mid$(Date$, 9, 2)
Textnyr(0).Text = Mid$(Date$, 1, 4)
Textnyr(1).Text = Mid$(Date$, 6, 2)
Textnyr(2).Text = Mid$(Date$, 9, 2)
nyrflg = 2
datetime = Date$
filena1 = datadir & "\" & "y" & nian$ & yue$ & "\baoj.dat"
'-------------------------------
DispBj
End Sub
Private Sub DispBj()
''On Error Resume Next
aa% = Weekday(datetime)
Labelxq.Caption = Week1(aa%)
MSFlexGrid1.Clear
Dim ddd(10000, 6)
Dim lp3, lp2
MSFlexGrid1.TextMatrix(0, 0) = "序 号"
MSFlexGrid1.TextMatrix(0, 1) = "时 间"
MSFlexGrid1.TextMatrix(0, 2) = "报警类型"
MSFlexGrid1.TextMatrix(0, 3) = " 报警事件"
MSFlexGrid1.TextMatrix(0, 4) = " 临界值"
MSFlexGrid1.TextMatrix(0, 5) = " 单位"
For i% = 0 To 5
MSFlexGrid1.ColAlignment(i%) = 3
MSFlexGrid1.colwidth(i%) = 1600
Next
MSFlexGrid1.colwidth(2) = 3000
MSFlexGrid1.ColAlignment(2) = 1
'--------------------
If Dir$(filena1) <> "" Then
Open filena1 For Input As #1
lp2 = 0
Do While Not EOF(1)
Input #1, zfc$
ddd(lp2, lp3) = zfc$
lp3 = lp3 + 1
If zfc$ = "*" Then
lp3 = 0
If Right(ddd(lp2, 0), 10) = datetime Then
lp2 = lp2 + 1
End If
End If
Loop
Close #1
End If
If lp2 = 0 Then
MSFlexGrid1.Rows = 19
MSFlexGrid1.TextMatrix(2, 2) = "本日无报警纪录！"
MSFlexGrid1.TextMatrix(1, 3) = ""
Exit Sub
End If
MSFlexGrid1.Rows = lp2 + 1
For i% = 0 To lp2 - 1
MSFlexGrid1.TextMatrix(i% + 1, 0) = Format(i% + 1, "00") '序号
MSFlexGrid1.TextMatrix(i% + 1, 1) = ddd(i%, 1) '时间
num1% = Val(ddd(i%, 2)) '报警序号 2002-08-17
MSFlexGrid1.TextMatrix(i% + 1, 2) = DI_Nam(BJsunx(num1%))
MSFlexGrid1.TextMatrix(i% + 1, 3) = leix(Val(ddd(i%, 3))) 'ddd(i%, 4)
MSFlexGrid1.TextMatrix(i% + 1, 4) = Val(ddd(i%, 4))
MSFlexGrid1.TextMatrix(i% + 1, 5) = DanWei(BjXuHao(num1%))
MSFlexGrid1.Row = i% + 1
For j% = 0 To 5
MSFlexGrid1.Col = j%
MSFlexGrid1.CellForeColor = colorzt(Val(ddd(i%, 3)))
Next
Next
If lp2 > 19 Then MSFlexGrid1.TopRow = lp2 - 19
If lp2 < 19 Then MSFlexGrid1.Rows = 19
End Sub
Private Sub UpDownQs_DownClick()
nian1$ = Trim$(Textnyr(0).Text)
yue1$ = Trim$(Textnyr(1).Text)
ri1$ = Trim$(Textnyr(2).Text)
'1999.05.03 于沈阳鹭岛
Select Case nyrflg
Case 0
Date12$ = DateAdd("yyyy", -1, DateSerial(nian1$, yue1$, ri1$)) '以 年("yyyy")为单位
Date12$ = Format$(Date12$, "yyyy/mm/dd") '计算下一天的日期
Case 1
Date12$ = DateAdd("m", -1, DateSerial(nian1$, yue1$, ri1$)) '以年("yyyy")为单位
Date12$ = Format$(Date12$, "yyyy/mm/dd") '计算下一天的日期
Case 2
Date12$ = DateAdd("d", -1, DateSerial(nian1$, yue1$, ri1$)) '以日("d")为单位
Date12$ = Format$(Date12$, "yyyy/mm/dd") '计算下一天的日期
End Select
Textnyr(0) = Mid$(Date12$, 1, 4)
Textnyr(1) = Mid$(Date12$, 6, 2)
Textnyr(2) = Mid$(Date12$, 9, 2)
Datacl
End Sub
Private Sub UpDownQs_UpClick()
nian1$ = Trim$(Textnyr(0).Text)
yue1$ = Trim$(Textnyr(1).Text)
ri1$ = Trim$(Textnyr(2).Text)
'1999.05.03 于沈阳鹭岛
Select Case nyrflg
Case 0
Date12$ = DateAdd("yyyy", 1, DateSerial(nian1$, yue1$, ri1$)) '以 年("yyyy")为单位
Date12$ = Format$(Date12$, "yyyy/mm/dd") '计算下一天的日期
Case 1
Date12$ = DateAdd("m", 1, DateSerial(nian1$, yue1$, ri1$)) '以年("yyyy")为单位
Date12$ = Format$(Date12$, "yyyy/mm/dd") '计算下一天的日期
Case 2
Date12$ = DateAdd("d", 1, DateSerial(nian1$, yue1$, ri1$)) '以日("d")为单位
Date12$ = Format$(Date12$, "yyyy/mm/dd") '计算下一天的日期
End Select
' Starrq$ = Txtnyrnd(0) & "-" & Txtnyrnd(1) & "-" & Txtnyrnd(2)
If Date12$ > Date$ Then
Textnyr(2).SetFocus
nyrflg = 2
Exit Sub
End If
Textnyr(0) = Mid$(Date12$, 1, 4)
Textnyr(1) = Mid$(Date12$, 6, 2)
Textnyr(2) = Mid$(Date12$, 9, 2)
Datacl
End Sub
Private Sub Textnyr_Click(Index As Integer)
nyrflg = Index
End Sub
Private Sub Datacl()
nian$ = Mid$(Textnyr(0).Text, 3, 2)
yue$ = Textnyr(1).Text
ri$ = Textnyr(2).Text
datetime = Textnyr(0).Text & "-" & Textnyr(1).Text & "-" & Textnyr(2).Text
filena1 = datadir & "\" & "y" & nian$ & yue$ & "\baoj.dat"
DispBj
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -