?? 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 = "設(shè)備檔案(&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 = "產(chǎn)品檔案(&4)"
Height = 252
Left = 360
TabIndex = 9
Top = 1920
Width = 1452
End
Begin VB.OptionButton FT_YW
Caption = "業(yè)務(wù)檔案(&3)"
Height = 252
Left = 360
TabIndex = 8
Top = 1560
Width = 1452
End
Begin VB.OptionButton FT_JX
Caption = "教學(xué)檔案(&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 = "繼續(xù)(&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 = "產(chǎn)品"
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 = "教學(xué)"
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 = "設(shè)備"
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 = "業(yè)務(wù)"
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -