📄 formview.frm
字号:
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.Label Label1
Height = 255
Left = 5040
TabIndex = 15
Top = 960
Width = 615
VariousPropertyBits= 8388633
Caption = "与"
Size = "1085;450"
FontName = "宋体"
FontEffects = 1073750016
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin VB.Image Image1
Height = 480
Left = 240
Picture = "Formview.frx":050A
Top = 7440
Width = 480
End
Begin VB.Line Line12
X1 = 360
X2 = 9840
Y1 = 7320
Y2 = 7320
End
Begin MSForms.CommandButton CommandButton2
Height = 495
Left = 8580
TabIndex = 14
Top = 7440
Width = 1305
BackColor = 16777152
Caption = "返回"
Size = "2293;873"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton CommandButton1
Height = 495
Left = 6885
TabIndex = 13
Top = 7440
Width = 1305
BackColor = 16777152
Caption = "检索结果"
Size = "2293;873"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin VB.Line Line11
X1 = 360
X2 = 9880
Y1 = 6720
Y2 = 6720
End
Begin VB.Line Line10
X1 = 360
X2 = 9880
Y1 = 6120
Y2 = 6120
End
Begin VB.Line Line9
X1 = 360
X2 = 9880
Y1 = 5520
Y2 = 5520
End
Begin VB.Line Line8
X1 = 360
X2 = 9880
Y1 = 4920
Y2 = 4920
End
Begin VB.Line Line7
X1 = 360
X2 = 9880
Y1 = 4320
Y2 = 4320
End
Begin VB.Line Line6
X1 = 360
X2 = 9880
Y1 = 3720
Y2 = 3720
End
Begin VB.Line Line5
X1 = 360
X2 = 9880
Y1 = 3120
Y2 = 3120
End
Begin VB.Line Line4
X1 = 360
X2 = 9880
Y1 = 2520
Y2 = 2520
End
Begin VB.Line Line3
X1 = 360
X2 = 9880
Y1 = 1920
Y2 = 1920
End
Begin VB.Line Line2
X1 = 360
X2 = 9880
Y1 = 1320
Y2 = 1320
End
Begin VB.Line Line1
X1 = 360
X2 = 9880
Y1 = 720
Y2 = 720
End
End
End
Attribute VB_Name = "Formview"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''
'当用户选择“档案管理”后弹出窗体，从中进行档案的检索，添加，修改，统计删除等操作
'''''''''''''''''''''''''
Dim tiao2, tiao3, tiao4, tiao5, tiao6, tiao7, tiao8, tiao9, tiao10, tiao11, tiao12, tiao13 As String
Private Sub Check1_Click()
'''''''''''''''''''''''''''
'下面IF段用来屏蔽其他选择筐
''''''''''''''''''''''''''''
If Check1.Value = 1 Then
Check2.Enabled = 0
Check3.Enabled = 0
Check4.Enabled = 0
Check5.Enabled = 0
Check6.Enabled = 0
Check7.Enabled = 0
Check8.Enabled = 0
Check9.Enabled = 0
Check10.Enabled = 0
Check11.Enabled = 0
Check12.Enabled = 0
Check2.Value = 0
Check3.Value = 0
Check4.Value = 0
Check5.Value = 0
Check6.Value = 0
Check7.Value = 0
Check8.Value = 0
Check9.Value = 0
Check10.Value = 0
Check11.Value = 0
Check12.Value = 0
Else
Check2.Enabled = 1
Check3.Enabled = 1
Check4.Enabled = 1
Check5.Enabled = 1
Check6.Enabled = 1
Check7.Enabled = 1
Check8.Enabled = 1
Check9.Enabled = 1
Check10.Enabled = 1
Check11.Enabled = 1
Check12.Enabled = 1
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub
Private Sub Check10_Click()
''''''''''''''''''''''''''''
'下面控制CHECK10被选中后的动作
'''''''''''''''''''''''''''''
If Check10.Value = 1 Then
DataCombo3.Enabled = True
Else
DataCombo3.Enabled = False
End If
End Sub
Private Sub Check11_Click()
''''''''''''''''''''''''''''
'下面控制CHECK11被选中后的动作
'''''''''''''''''''''''''''''
If Check11.Value = 1 Then
DataCombo4.Enabled = True
Else
DataCombo4.Enabled = False
End If
End Sub
Private Sub Check12_Click()
''''''''''''''''''''''''''''
'下面控制CHECK12被选中后的动作
'''''''''''''''''''''''''''''
If Check12.Value = 1 Then
DataCombo5.Enabled = True
Else
DataCombo5.Enabled = False
End If
End Sub
Private Sub Check2_Click()
''''''''''''''''''''''''''''
'下面控制CHECK2被选中后的动作
'''''''''''''''''''''''''''''
If Check2.Value = 1 Then
Me.MaskEdBox1.Enabled = True
Me.MaskEdBox2.Enabled = True
Label1.Enabled = True
Label2.Enabled = True
Else
Me.MaskEdBox1.Enabled = False
Me.MaskEdBox2.Enabled = False
Label1.Enabled = False
Label2.Enabled = False
End If
End Sub
Private Sub Check3_Click()
''''''''''''''''''''''''''''
'下面控制CHECK3被选中后的动作
'''''''''''''''''''''''''''''
If Check3.Value = 1 Then
TextBox3.Enabled = True
TextBox3.SetFocus
Else
TextBox3.Enabled = False
End If
End Sub
Private Sub Check4_Click()
''''''''''''''''''''''''''''
'下面控制CHECK4被选中后的动作
'''''''''''''''''''''''''''''
If Check4.Value = 1 Then
TextBox4.Enabled = True
TextBox4.SetFocus
Else
TextBox4.Enabled = False
End If
End Sub
Private Sub Check5_Click()
''''''''''''''''''''''''''''
'下面控制CHECK5被选中后的动作
'''''''''''''''''''''''''''''
If Check5.Value = 1 Then
TextBox5.Enabled = True
TextBox5.SetFocus
Else
TextBox5.Enabled = False
End If
End Sub
Private Sub Check6_Click()
''''''''''''''''''''''''''''
'下面控制CHECK6被选中后的动作
'''''''''''''''''''''''''''''
If Check6.Value = 1 Then
DataCombo1.Enabled = True
Else
DataCombo1.Enabled = False
End If
End Sub
Private Sub Check7_Click()
''''''''''''''''''''''''''''
'下面控制CHECK7被选中后的动作
'''''''''''''''''''''''''''''
If Check7.Value = 1 Then
DataCombo2.Enabled = True
Else
DataCombo2.Enabled = False
End If
End Sub
Private Sub Check8_Click()
''''''''''''''''''''''''''''
'下面控制CHECK8被选中后的动作
'''''''''''''''''''''''''''''
If Check8.Value = 1 Then
TextBox6.Enabled = True
TextBox6.SetFocus
Else
TextBox6.Enabled = False
End If
End Sub
Private Sub Check9_Click()
''''''''''''''''''''''''''''
'下面控制CHECK9被选中后的动作
'''''''''''''''''''''''''''''
If Check9.Value = 1 Then
TextBox7.Enabled = True
TextBox7.SetFocus
Else
TextBox7.Enabled = False
End If
End Sub
Private Sub CommandButton1_Click()
Dim sum As Integer
sum = 0
tiao1 = ""
tiao2 = ""
tiao3 = ""
tiao4 = ""
tiao5 = ""
tiao6 = ""
tiao7 = ""
tiao8 = ""
tiao9 = ""
tiao10 = ""
tiao11 = ""
tiao12 = ""
tiao13 = ""
sum = Check1.Value + Check2.Value + Check3.Value + Check4.Value + Check5.Value + Check6.Value + Check7.Value + Check8.Value + Check9.Value + Check10.Value + Check11.Value + Check12.Value
If sum = 0 Then
MsgBox "你需要做出至少一项选择", , "检索"
Else
If Me.Check1.Value = 1 Then
tiaojian = ""
Formsub.MaskEdBox1.Enabled = True
Formsub.Label1.Enabled = True ''''''''''建档时间：
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.DataCombo1.Enabled = True
Formsub.Label12.Enabled = True '''''''''''''''''档案类型：
'''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.DataCombo2.Enabled = True
Formsub.Label3.Enabled = True ''''''''''''''''''立卷单位：
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.DataCombo3.Enabled = True
Formsub.Label7.Enabled = True ''''''''保密等级：
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -