📄 form3.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form Form3
Caption = "选择折线"
ClientHeight = 4230
ClientLeft = 3405
ClientTop = 3570
ClientWidth = 8895
LinkTopic = "Form3"
LockControls = -1 'True
ScaleHeight = 4230
ScaleWidth = 8895
Begin VB.CommandButton Command2
Caption = "取 消"
Height = 390
Left = 5880
TabIndex = 27
Top = 3630
Width = 1005
End
Begin VB.CommandButton Command1
Caption = "确 定"
Height = 390
Left = 1785
TabIndex = 26
Top = 3630
Width = 1005
End
Begin VB.Frame Frame1
Caption = "请选择"
Height = 3180
Left = 285
TabIndex = 0
Top = 270
Width = 8235
Begin VB.ComboBox Combo7
Enabled = 0 'False
Height = 300
Left = 1425
TabIndex = 25
Top = 2130
Width = 2070
End
Begin VB.ComboBox Combo10
Enabled = 0 'False
Height = 300
Left = 3570
TabIndex = 18
Top = 2625
Width = 2070
End
Begin VB.ComboBox Combo9
Enabled = 0 'False
Height = 300
Left = 1425
TabIndex = 17
Top = 2625
Width = 2070
End
Begin VB.CheckBox Check5
Caption = "Check1"
Enabled = 0 'False
Height = 180
Left = 960
TabIndex = 16
Top = 2685
Width = 150
End
Begin VB.ComboBox Combo8
Enabled = 0 'False
Height = 300
Left = 3570
TabIndex = 14
Top = 2130
Width = 2070
End
Begin VB.CheckBox Check4
Caption = "Check1"
Enabled = 0 'False
Height = 180
Left = 960
TabIndex = 13
Top = 2190
Width = 150
End
Begin VB.ComboBox Combo6
Enabled = 0 'False
Height = 300
Left = 3570
TabIndex = 11
Top = 1560
Width = 2070
End
Begin VB.ComboBox Combo5
Enabled = 0 'False
Height = 300
Left = 1425
TabIndex = 10
Top = 1560
Width = 2070
End
Begin VB.CheckBox Check3
Caption = "Check1"
Enabled = 0 'False
Height = 180
Left = 960
TabIndex = 9
Top = 1620
Width = 150
End
Begin VB.ComboBox Combo4
Enabled = 0 'False
Height = 300
Left = 3570
TabIndex = 7
Top = 945
Width = 2070
End
Begin VB.ComboBox Combo3
Enabled = 0 'False
Height = 300
Left = 1425
TabIndex = 6
Top = 945
Width = 2070
End
Begin VB.CheckBox Check2
Caption = "Check1"
Enabled = 0 'False
Height = 180
Left = 960
TabIndex = 5
Top = 1005
Width = 150
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 270
Left = 5775
TabIndex = 4
Top = 360
Width = 2070
_ExtentX = 3651
_ExtentY = 476
_Version = 393216
Enabled = 0 'False
Format = 131465217
CurrentDate = 39808
End
Begin VB.ComboBox Combo2
Enabled = 0 'False
Height = 300
Left = 3570
TabIndex = 3
Top = 360
Width = 2070
End
Begin VB.ComboBox Combo1
Enabled = 0 'False
Height = 300
Left = 1425
TabIndex = 2
Top = 345
Width = 2070
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 180
Left = 960
TabIndex = 1
Top = 405
Width = 150
End
Begin MSComCtl2.DTPicker DTPicker2
Height = 270
Left = 5775
TabIndex = 8
Top = 960
Width = 2070
_ExtentX = 3651
_ExtentY = 476
_Version = 393216
Enabled = 0 'False
Format = 131465217
CurrentDate = 39808
End
Begin MSComCtl2.DTPicker DTPicker3
Height = 270
Left = 5775
TabIndex = 12
Top = 1575
Width = 2070
_ExtentX = 3651
_ExtentY = 476
_Version = 393216
Enabled = 0 'False
Format = 131465217
CurrentDate = 39808
End
Begin MSComCtl2.DTPicker DTPicker4
Height = 270
Left = 5775
TabIndex = 15
Top = 2145
Width = 2070
_ExtentX = 3651
_ExtentY = 476
_Version = 393216
Enabled = 0 'False
Format = 131465217
CurrentDate = 39808
End
Begin MSComCtl2.DTPicker DTPicker5
Height = 270
Left = 5775
TabIndex = 19
Top = 2640
Width = 2070
_ExtentX = 3651
_ExtentY = 476
_Version = 393216
Enabled = 0 'False
Format = 131465217
CurrentDate = 39808
End
Begin VB.Label Label5
Caption = "第五条："
Height = 270
Left = 90
TabIndex = 24
Top = 2655
Width = 735
End
Begin VB.Label Label4
Caption = "第四条："
Height = 270
Left = 90
TabIndex = 23
Top = 2175
Width = 735
End
Begin VB.Label Label3
Caption = "第三条："
Height = 270
Left = 90
TabIndex = 22
Top = 1605
Width = 735
End
Begin VB.Label Label2
Caption = "第二条："
Height = 270
Left = 90
TabIndex = 21
Top = 1005
Width = 735
End
Begin VB.Label Label1
Caption = "第一条："
Height = 270
Left = 90
TabIndex = 20
Top = 405
Width = 735
End
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim conn As New Connection
Dim rs As New Recordset
Dim c_mkid As String
Private Sub Check1_Click()
If Check1.Value = 1 Then
Combo1.Enabled = True
Combo2.Enabled = True
DTPicker1.Enabled = True
' Check2.Enabled = True
Else
Combo1.Enabled = False
Combo2.Enabled = False
DTPicker1.Enabled = False
Check2.Value = 0
Check3.Value = 0
Check4.Value = 0
Check5.Value = 0
Check2.Enabled = False
Check3.Enabled = False
Check4.Enabled = False
Check5.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Combo3.Enabled = True
Combo4.Enabled = True
DTPicker2.Enabled = True
' Check3.Enabled = True
Else
Combo3.Enabled = False
Combo4.Enabled = False
DTPicker2.Enabled = False
Check3.Value = 0
Check4.Value = 0
Check5.Value = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -