📄 sel24.frm
字号:
VERSION 5.00
Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.1#0"; "COMCT232.OCX"
Begin VB.Form sel24
Caption = "历史曲线选项"
ClientHeight = 4755
ClientLeft = 1380
ClientTop = 1905
ClientWidth = 4635
ControlBox = 0 'False
LinkTopic = "Form1"
ScaleHeight = 4755
ScaleWidth = 4635
Begin VB.CommandButton Comlsjlok
BackColor = &H0000FF00&
Caption = "确认(&O)"
Default = -1 'True
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 430
Left = 3000
Style = 1 'Graphical
TabIndex = 12
Top = 3480
Width = 1530
End
Begin VB.CommandButton Comlsjlexit
BackColor = &H008080FF&
Caption = "取消(&X)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 430
Left = 2940
Style = 1 'Graphical
TabIndex = 11
Top = 4080
Width = 1530
End
Begin VB.Frame Frame1
Caption = "查阅日期:"
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 2760
Left = 2865
TabIndex = 1
Top = 240
Width = 1680
Begin VB.TextBox Textrq
Alignment = 2 'Center
BackColor = &H00FFFF80&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 430
Index = 1
Left = 480
TabIndex = 5
Text = "1"
Top = 1207
Width = 735
End
Begin VB.TextBox Textrq
Alignment = 2 'Center
BackColor = &H00FFFF80&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 430
Index = 2
Left = 480
TabIndex = 4
Text = "1"
Top = 1935
Width = 735
End
Begin VB.TextBox Textrq
Alignment = 2 'Center
BackColor = &H00FFFF80&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 430
Index = 0
Left = 480
TabIndex = 2
Text = "1999"
Top = 480
Width = 735
End
Begin ComCtl2.UpDown UpDown1
Height = 450
Index = 0
Left = 1200
TabIndex = 3
Top = 480
Width = 270
_ExtentX = 450
_ExtentY = 794
_Version = 327681
Enabled = -1 'True
End
Begin ComCtl2.UpDown UpDown1
Height = 450
Index = 1
Left = 1200
TabIndex = 6
Top = 1185
Width = 270
_ExtentX = 450
_ExtentY = 794
_Version = 327681
Enabled = -1 'True
End
Begin ComCtl2.UpDown UpDown1
Height = 450
Index = 2
Left = 1200
TabIndex = 7
Top = 1925
Width = 270
_ExtentX = 450
_ExtentY = 794
_Version = 327681
Enabled = -1 'True
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "月:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 210
Left = 105
TabIndex = 10
Top = 1317
Width = 375
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "日:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 210
Left = 105
TabIndex = 9
Top = 2045
Width = 375
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
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 = 105
TabIndex = 8
Top = 575
Width = 360
End
End
Begin VB.ListBox Listzm
BackColor = &H00808000&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 4380
Left = 120
MultiSelect = 2 'Extended
TabIndex = 0
Top = 240
Width = 2640
End
End
Attribute VB_Name = "sel24"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Comlsjlexit_Click()
Unload Me
End Sub
Private Sub Comlsjlok_Click()
''''On Error Resume Next
For i% = 0 To 7 '变量序号
blxuhao(i%) = 99
Next
For i% = 0 To Listzm.ListCount - 1
If Listzm.Selected(i%) Then
blxuhao(coun%) = i%
bianl = Listzm.Text
coun% = coun% + 1
If coun% >= 8 Then Exit For
End If
Next
If coun% = 0 Then blxuhao(coun%) = 0
'=================='日（24）曲线选择
nia$ = Mid$(Textrq(0), 3, 2) '生成数据文件名
yu$ = Format$(Val(Textrq(1)), "00")
rii$ = Format$(Val(Textrq(2)), "00")
filena3 = datadir + "\" + "y" + nia$ + yu$ + "\"
filena3 = filena3 + sydwjc + nia$ + yu$ + rii$ + ".dat" '当天文件名
filena1 = Textrq(0) + "年" + Textrq(1) + "月" + Textrq(2) + "日"
'==============================检查文件存在否------
' If Dir$(filena3) = "" Then '当天
' aaa$ = "日期输入错误或 " + Textrq(0) + "-" + yu$ + "-" + rii$ + "记录不存在,!"
' rel = MsgBox(aaa$, 1, SysTitle) '东基水处理计算机控制系统
' Exit Sub
' End If
' FormQxls.Show
' Me.Hide
' Exit Sub
'跳过多窗口操作'2001-12-10
Set myquxian = New FormQxls
formnum = formnum + 1
yue12% = Textrq(1).Text
ri12% = Textrq(2).Text
DATE13 = Textrq(0).Text & "-" & yue12 & "-" & ri12
myquxian.Show
End Sub
Private Sub Form_Load()
Me.Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
Me.Height = 5160
Textrq(0).Text = Mid$(datetime, 1, 4)
Textrq(1).Text = Mid$(datetime, 6, 2)
Textrq(2).Text = Mid$(datetime, 9, 2)
'------------------------------------
For j% = 0 To BlnumZA(0)
Listzm.AddItem AI_Nam(j%)
Next
For i% = 0 To 7
If blxuhao(i%) = 99 Then Exit For
sel24.Listzm.Selected(blxuhao(i%)) = True
Next
End Sub
Private Sub Textlsri_GotFocus()
''''On Error Resume Next
Textlsri.SelStart = 0
Textlsri.SelLength = Len(Textlsri.Text)
End Sub
Private Sub Textlsri_LostFocus()
''''On Error Resume Next
If Val(Textlsri.Text) < 1 Or Val(Textlsri.Text) > 31 Then
MsgBox "日输入错误!"
Textlsri.SetFocus
End If
End Sub
Private Sub Textlsyue_LostFocus()
''''On Error Resume Next
If Val(Textlsyue.Text) > 12 Or Val(Textlsyue.Text) < 1 Then
MsgBox "月份输入错误!"
Textlsyue.SetFocus
End If
End Sub
Private Sub Listzm_Click()
Comlsjlok.Enabled = True
End Sub
Private Sub Textrq_GotFocus(Index As Integer)
''''On Error Resume Next
Textrq(Index).SelStart = 0
Textrq(Index).SelLength = Len(Textrq(Index).Text)
End Sub
Private Sub UpDown1_DownClick(Index As Integer)
nian1$ = Trim$(Textrq(0).Text)
yue1$ = Trim$(Textrq(1).Text)
ri1$ = Trim$(Textrq(2).Text)
Select Case Index
Case 0
date1$ = DateAdd("yyyy", -1, DateSerial(nian1$, yue1$, ri1$))
Case 1
date1$ = DateAdd("m", -1, DateSerial(nian1$, yue1$, ri1$))
Case 2
date1$ = DateAdd("d", -1, DateSerial(nian1$, yue1$, ri1$))
End Select
datetime = Format$(date1$, "yyyy/mm/dd")
Textrq(0) = Mid$(datetime, 1, 4)
Textrq(1) = Mid$(datetime, 6, 2)
Textrq(2) = Mid$(datetime, 9, 2)
End Sub
Private Sub UpDown1_UpClick(Index As Integer)
nian1$ = Trim$(Textrq(0).Text)
yue1$ = Trim$(Textrq(1).Text)
ri1$ = Trim$(Textrq(2).Text)
Select Case Index
Case 0
date1$ = DateAdd("yyyy", 1, DateSerial(nian1$, yue1$, ri1$)) '以 年("yyyy")为单位
Case 1
date1$ = DateAdd("m", 1, DateSerial(nian1$, yue1$, ri1$)) '以年("yyyy")为单位
Case 2
date1$ = DateAdd("d", 1, DateSerial(nian1$, yue1$, ri1$)) '以日("d")为单位
End Select
datetime = Format$(date1$, "yyyy/mm/dd") '计算下一天的日期
If datetime > Date$ Then Exit Sub
Textrq(0) = Mid$(datetime, 1, 4)
Textrq(1) = Mid$(datetime, 6, 2)
Textrq(2) = Mid$(datetime, 9, 2)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -