📄 frmftype.frm
字号:
VERSION 5.00
Begin VB.Form frmFtype
Caption = "选择档案"
ClientHeight = 4545
ClientLeft = 45
ClientTop = 330
ClientWidth = 6885
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4545
ScaleWidth = 6885
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton CmdReturn
Caption = "返回(&R)"
Height = 372
Left = 720
TabIndex = 22
Top = 3720
Width = 1092
End
Begin VB.Frame FileType
Caption = "档案类别"
Height = 3732
Left = 2640
TabIndex = 4
Top = 360
Width = 3732
Begin VB.TextBox OtherText
Enabled = 0 'False
Height = 264
Left = 1680
MaxLength = 4
TabIndex = 20
Top = 3120
Width = 972
End
Begin VB.OptionButton FT_Other
Caption = "其它(&O)："
Height = 252
Left = 360
TabIndex = 19
Top = 3120
Width = 1332
End
Begin VB.OptionButton FT_ZL
Caption = "资料档案(&L)"
Height = 252
Left = 2040
TabIndex = 18
Top = 2640
Width = 1452
End
Begin VB.OptionButton FT_SW
Caption = "实物档案(&S)"
Height = 252
Left = 2040
TabIndex = 17
Top = 2280
Width = 1452
End
Begin VB.OptionButton FT_RY
Caption = "人员档案(&P)"
Height = 252
Left = 2040
TabIndex = 16
Top = 1920
Width = 1452
End
Begin VB.OptionButton FT_ZP
Caption = "照片档案(&Z)"
Height = 252
Left = 2040
TabIndex = 15
Top = 1560
Width = 1452
End
Begin VB.OptionButton FT_SX
Caption = "声像档案(&9)"
Height = 252
Left = 2040
TabIndex = 14
Top = 1200
Width = 1452
End
Begin VB.OptionButton FT_CK
Caption = "财会档案(&8)"
Height = 252
Left = 2040
TabIndex = 13
Top = 840
Width = 1452
End
Begin VB.OptionButton FT_SB
Caption = "设备档案(&7)"
Height = 252
Left = 2040
TabIndex = 12
Top = 480
Width = 1452
End
Begin VB.OptionButton FT_JJ
Caption = "基建档案(&6)"
Height = 252
Left = 360
TabIndex = 11
Top = 2640
Width = 1572
End
Begin VB.OptionButton FT_KY
Caption = "科研档案(&5)"
Height = 252
Left = 360
TabIndex = 10
Top = 2280
Width = 1452
End
Begin VB.OptionButton FT_CP
Caption = "产品档案(&4)"
Height = 252
Left = 360
TabIndex = 9
Top = 1920
Width = 1452
End
Begin VB.OptionButton FT_YW
Caption = "业务档案(&3)"
Height = 252
Left = 360
TabIndex = 8
Top = 1560
Width = 1452
End
Begin VB.OptionButton FT_JX
Caption = "教学档案(&2)"
Height = 252
Left = 360
TabIndex = 7
Top = 1200
Width = 1452
End
Begin VB.OptionButton FT_XZ
Caption = "行政档案(&1)"
Height = 252
Left = 360
TabIndex = 6
Top = 840
Width = 1452
End
Begin VB.OptionButton FT_DQ
Caption = "党群档案(&0)"
Height = 252
Left = 360
TabIndex = 5
Top = 480
Width = 1452
End
End
Begin VB.Frame FileLevel
Caption = "档案级别"
Height = 1932
Left = 480
TabIndex = 0
Top = 360
Width = 1812
Begin VB.OptionButton LeverGD
Caption = "归档文件(&D)"
Height = 252
Left = 240
TabIndex = 3
Top = 1440
Width = 1452
End
Begin VB.OptionButton LevelAj
Caption = "案卷档案(&A)"
Height = 252
Left = 240
TabIndex = 2
Top = 960
Width = 1452
End
Begin VB.OptionButton LevelWj
Caption = "文件档案(&W)"
Height = 252
Left = 240
TabIndex = 1
Top = 480
Width = 1452
End
End
Begin VB.CommandButton CmdContinue
Caption = "继续(&C)"
Enabled = 0 'False
Height = 372
Left = 720
TabIndex = 21
Top = 3120
Width = 1092
End
End
Attribute VB_Name = "frmFtype"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public FilterText As String
Private Sub CmdContinue_Click()
frmFtype.Hide
Unload frmFtype
With frmMain
If .FileManage = 1 Then '选定输入档案
Select Case .FileLevel
Case Is = 1
If frmMain.FileType = "照片" Then '选择照片档案
Load frmInputP
frmInputP.Show
Else
Load frmInputW
frmInputW.Show
End If
Case Is = 2
Load frmInputA
frmInputA.Show
Case Is = 3
Load frmInputG
frmInputG.Show
End Select
Else
Select Case .FileLevel
Case Is = 1
If frmMain.FileType = "照片" Then
Load frmFilterP
frmFilterP.Show
Else
Load frmFilterW
frmFilterW.Show
End If
Case Is = 2
Load frmFilterA
frmFilterA.Show
Case Is = 3
Load frmFilterG
frmFilterG.Show
End Select
End If
End With
End Sub
Private Sub CmdReturn_Click()
frmFtype.Hide
Unload frmFtype
End Sub
Private Sub FT_CK_Click()
frmMain.FileType = "财会"
CmdContinue.Enabled = True
End Sub
Private Sub FT_CP_Click()
frmMain.FileType = "产品"
CmdContinue.Enabled = True
End Sub
Private Sub FT_DQ_Click()
frmMain.FileType = "党群"
CmdContinue.Enabled = True
End Sub
Private Sub FT_JJ_Click()
frmMain.FileType = "基建"
CmdContinue.Enabled = True
End Sub
Private Sub FT_JX_Click()
frmMain.FileType = "教学"
CmdContinue.Enabled = True
End Sub
Private Sub FT_KY_Click()
frmMain.FileType = "科研"
CmdContinue.Enabled = True
End Sub
Private Sub FT_Other_Click()
OtherText.Enabled = True
If OtherText.Text = "" Then
CmdContinue.Enabled = False
Else
frmMain.FileType = OtherText
CmdContinue.Enabled = True
End If
End Sub
Private Sub FT_RY_Click()
frmMain.FileType = "人员"
CmdContinue.Enabled = True
End Sub
Private Sub FT_SB_Click()
frmMain.FileType = "设备"
CmdContinue.Enabled = True
End Sub
Private Sub FT_SW_Click()
frmMain.FileType = "实物"
CmdContinue.Enabled = True
End Sub
Private Sub FT_SX_Click()
frmMain.FileType = "声像"
CmdContinue.Enabled = True
End Sub
Private Sub FT_XZ_Click()
frmMain.FileType = "行政"
CmdContinue.Enabled = True
End Sub
Private Sub FT_YW_Click()
frmMain.FileType = "业务"
CmdContinue.Enabled = True
End Sub
Private Sub FT_ZL_Click()
frmMain.FileType = "资料"
CmdContinue.Enabled = True
End Sub
Private Sub FT_ZP_Click()
frmMain.FileType = "照片"
CmdContinue.Enabled = True
End Sub
Private Sub LevelAj_Click()
frmMain.FileLevel = 2
End Sub
Private Sub LevelWj_Click()
frmMain.FileLevel = 1
End Sub
Private Sub LeverGD_Click()
frmMain.FileLevel = 3
End Sub
Private Sub OtherText_Change()
If OtherText.Text = "" Then
CmdContinue.Enabled = False
Else
CmdContinue.Enabled = True
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -