📄 frmmanager.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form frmManager
BackColor = &H00E0E0E0&
Caption = "档案管理中心"
ClientHeight = 5415
ClientLeft = 60
ClientTop = 630
ClientWidth = 10905
Icon = "frmManager.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 5415
ScaleWidth = 10905
WindowState = 2 'Maximized
Begin VB.PictureBox SliptBar
BackColor = &H00C0FFC0&
BorderStyle = 0 'None
DrawStyle = 1 'Dash
FillColor = &H000000FF&
FillStyle = 2 'Horizontal Line
ForeColor = &H000000FF&
Height = 4740
Left = 2355
MouseIcon = "frmManager.frx":030A
ScaleHeight = 4740
ScaleMode = 0 'User
ScaleWidth = 60
TabIndex = 1
Top = 15
Visible = 0 'False
Width = 60
End
Begin ComctlLib.TreeView TreeView
Height = 4410
Left = 75
TabIndex = 0
Top = 165
Width = 2430
_ExtentX = 4286
_ExtentY = 7779
_Version = 327682
Indentation = 317
LabelEdit = 1
LineStyle = 1
Style = 7
ImageList = "imlSmallIcons"
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
OLEDropMode = 1
End
Begin VB.PictureBox ListView
AutoRedraw = -1 'True
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
Height = 5760
Left = 3240
ScaleHeight = 5760
ScaleWidth = 8160
TabIndex = 2
Top = 165
Width = 8160
Begin VB.PictureBox picEditFile
AutoSize = -1 'True
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
Height = 240
Left = 6585
MouseIcon = "frmManager.frx":045C
MousePointer = 99 'Custom
Picture = "frmManager.frx":05AE
ScaleHeight = 240
ScaleWidth = 240
TabIndex = 14
ToolTipText = "查看、编辑、打印文件"
Top = 1755
Visible = 0 'False
Width = 240
End
Begin VB.TextBox txtFields
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
Height = 1350
Index = 3
Left = 1455
Locked = -1 'True
MaxLength = 50
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 11
Top = 3795
Width = 5010
End
Begin VB.TextBox txtFields
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
Height = 1350
Index = 2
Left = 1455
Locked = -1 'True
MaxLength = 100
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 10
Top = 2175
Width = 5010
End
Begin VB.TextBox txtFields
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
Height = 195
Index = 1
Left = 1455
Locked = -1 'True
TabIndex = 6
Top = 1785
Width = 4965
End
Begin VB.TextBox txtFields
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
Height = 195
Index = 0
Left = 1455
Locked = -1 'True
TabIndex = 5
Top = 1365
Width = 4965
End
Begin VB.Line Line16
BorderColor = &H00FFFFFF&
X1 = 6450
X2 = 6450
Y1 = 1725
Y2 = 2025
End
Begin VB.Line Line15
BorderColor = &H00FFFFFF&
X1 = 6450
X2 = 6450
Y1 = 1305
Y2 = 1620
End
Begin VB.Line Line14
BorderColor = &H00808080&
X1 = 1410
X2 = 6465
Y1 = 3750
Y2 = 3750
End
Begin VB.Line Line13
BorderColor = &H00FFFFFF&
X1 = 6465
X2 = 6465
Y1 = 3750
Y2 = 5175
End
Begin VB.Line Line12
BorderColor = &H00FFFFFF&
X1 = 1410
X2 = 6465
Y1 = 5160
Y2 = 5160
End
Begin VB.Line Line11
BorderColor = &H00FFFFFF&
X1 = 6465
X2 = 6465
Y1 = 2100
Y2 = 3555
End
Begin VB.Line Line10
BorderColor = &H00808080&
X1 = 1410
X2 = 6465
Y1 = 2115
Y2 = 2115
End
Begin VB.Line Line9
BorderColor = &H00FFFFFF&
X1 = 1410
X2 = 6480
Y1 = 3555
Y2 = 3555
End
Begin VB.Line Line8
BorderColor = &H00808080&
X1 = 1410
X2 = 6450
Y1 = 1725
Y2 = 1725
End
Begin VB.Line Line7
BorderColor = &H00FFFFFF&
X1 = 1425
X2 = 6465
Y1 = 2025
Y2 = 2025
End
Begin VB.Line Line6
BorderColor = &H00FFFFFF&
X1 = 1410
X2 = 6450
Y1 = 1605
Y2 = 1605
End
Begin VB.Line Line5
BorderColor = &H00808080&
X1 = 1410
X2 = 6450
Y1 = 1305
Y2 = 1305
End
Begin VB.Line Line4
BorderColor = &H00808080&
X1 = 1410
X2 = 1410
Y1 = 3765
Y2 = 5175
End
Begin VB.Line Line3
BorderColor = &H00808080&
X1 = 1410
X2 = 1410
Y1 = 2115
Y2 = 3555
End
Begin VB.Line Line2
BorderColor = &H00808080&
X1 = 1410
X2 = 1410
Y1 = 1740
Y2 = 2040
End
Begin VB.Line Line1
BorderColor = &H00808080&
X1 = 1410
X2 = 1410
Y1 = 1320
Y2 = 1605
End
Begin VB.Line lBottom
BorderColor = &H00808080&
Visible = 0 'False
X1 = 6555
X2 = 6855
Y1 = 2025
Y2 = 2025
End
Begin VB.Line lRight
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 6840
X2 = 6840
Y1 = 1725
Y2 = 2040
End
Begin VB.Line lTop
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 6540
X2 = 6855
Y1 = 1710
Y2 = 1710
End
Begin VB.Line lLeft
BorderColor = &H00808080&
Visible = 0 'False
X1 = 6540
X2 = 6540
Y1 = 1710
Y2 = 2040
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "参考说明："
ForeColor = &H00800080&
Height = 180
Index = 3
Left = 450
TabIndex = 12
Top = 3810
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "档案说明："
ForeColor = &H000000C0&
Height = 180
Index = 2
Left = 450
TabIndex = 9
Top = 2190
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "文件名称："
ForeColor = &H00000000&
Height = 180
Index = 1
Left = 450
TabIndex = 8
Top = 1785
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "档案类别："
ForeColor = &H00800000&
Height = 180
Index = 0
Left = 450
TabIndex = 7
Top = 1350
Width = 900
End
Begin VB.Label lblLine
BackColor = &H0000C000&
BorderStyle = 1 'Fixed Single
Height = 45
Left = 285
TabIndex = 4
Top = 780
Width = 3435
End
Begin VB.Label lblFileCaption
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "档案仓库"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 1530
TabIndex = 3
Top = 330
Width = 960
End
Begin VB.Label Label2
BackColor = &H000000C0&
Height = 825
Left = 375
TabIndex = 13
Top = -15
Width = 2100
End
End
Begin ComctlLib.ImageList imlSmallIcons
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 13
ImageHeight = 13
MaskColor = 12632256
UseMaskColor = 0 'False
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 5
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmManager.frx":06F8
Key = "SClosed"
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmManager.frx":0C1A
Key = "Open"
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmManager.frx":113C
Key = "File"
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmManager.frx":165E
Key = "SOpen"
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmManager.frx":1B80
Key = "Closed"
EndProperty
EndProperty
End
Begin VB.Image imgSplit
Height = 4425
Left = 2955
MousePointer = 9 'Size W E
Top = 135
Width = 150
End
Begin VB.Menu MnuControl
Caption = "操作中心^&P)"
Begin VB.Menu MnuSearchFile
Caption = "&S 查询档案"
Shortcut = ^S
End
Begin VB.Menu Line03
Caption = "-"
End
Begin VB.Menu MnuRefresh
Caption = "&R 刷新仓库"
Shortcut = ^F
End
Begin VB.Menu MLine2
Caption = "-"
End
Begin VB.Menu MnuFolder
Caption = "&C 目录管理"
Shortcut = ^C
End
Begin VB.Menu MLine01
Caption = "-"
End
Begin VB.Menu MnuAddFile
Caption = "&A 添加档案"
Enabled = 0 'False
Shortcut = ^N
End
Begin VB.Menu MnuModifyFile
Caption = "&M 修改档案"
Enabled = 0 'False
Shortcut = ^L
End
Begin VB.Menu MnuDeleteFile
Caption = "&D 删除档案"
Enabled = 0 'False
Shortcut = ^D
End
Begin VB.Menu Line502
Caption = "-"
End
Begin VB.Menu MnuOpenFile
Caption = "&E 打开档案关联的文件"
Enabled = 0 'False
Shortcut = ^O
End
End
Begin VB.Menu MnuReturnX
Caption = "关闭选择^&O)"
Begin VB.Menu MnuReturn
Caption = "返回首页(&R)"
Shortcut = ^R
End
Begin VB.Menu Line601
Caption = "-"
End
Begin VB.Menu MnuExit
Caption = "退出系统(&X)"
Shortcut = ^X
End
End
End
Attribute VB_Name = "frmManager"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim SL As Long
Dim MDown As Boolean, lShow As Boolean
Dim mNode As Node
Dim mdbFile As Database
Dim strHistory As String
Const sglSplitLimit = 500
Public Sub Form_Load()
IT = True
TreeView.Top = 0
TreeView.Left = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -