frmmanager.vb

一个用vb开发的档案管理程序

        Me.Line14.TabIndex = 17
        '
        'Line13
        '
        Me.Line13.BackColor = System.Drawing.Color.White
        Me.Line13.Location = New System.Drawing.Point(552, 289)
        Me.Line13.Name = "Line13"
        Me.Line13.Size = New System.Drawing.Size(1, 110)
        Me.Line13.TabIndex = 18
        '
        'Line12
        '
        Me.Line12.BackColor = System.Drawing.Color.White
        Me.Line12.Location = New System.Drawing.Point(120, 398)
        Me.Line12.Name = "Line12"
        Me.Line12.Size = New System.Drawing.Size(432, 1)
        Me.Line12.TabIndex = 19
        '
        'Line11
        '
        Me.Line11.BackColor = System.Drawing.Color.White
        Me.Line11.Location = New System.Drawing.Point(552, 162)
        Me.Line11.Name = "Line11"
        Me.Line11.Size = New System.Drawing.Size(1, 112)
        Me.Line11.TabIndex = 20
        '
        'Line10
        '
        Me.Line10.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(128, Byte))
        Me.Line10.Location = New System.Drawing.Point(120, 163)
        Me.Line10.Name = "Line10"
        Me.Line10.Size = New System.Drawing.Size(432, 1)
        Me.Line10.TabIndex = 21
        '
        'Line9
        '
        Me.Line9.BackColor = System.Drawing.Color.White
        Me.Line9.Location = New System.Drawing.Point(120, 274)
        Me.Line9.Name = "Line9"
        Me.Line9.Size = New System.Drawing.Size(433, 1)
        Me.Line9.TabIndex = 22
        '
        'Line8
        '
        Me.Line8.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(128, Byte))
        Me.Line8.Location = New System.Drawing.Point(120, 133)
        Me.Line8.Name = "Line8"
        Me.Line8.Size = New System.Drawing.Size(430, 1)
        Me.Line8.TabIndex = 23
        '
        'Line7
        '
        Me.Line7.BackColor = System.Drawing.Color.White
        Me.Line7.Location = New System.Drawing.Point(122, 156)
        Me.Line7.Name = "Line7"
        Me.Line7.Size = New System.Drawing.Size(430, 1)
        Me.Line7.TabIndex = 24
        '
        'Line6
        '
        Me.Line6.BackColor = System.Drawing.Color.White
        Me.Line6.Location = New System.Drawing.Point(120, 124)
        Me.Line6.Name = "Line6"
        Me.Line6.Size = New System.Drawing.Size(430, 1)
        Me.Line6.TabIndex = 25
        '
        'Line5
        '
        Me.Line5.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(128, Byte))
        Me.Line5.Location = New System.Drawing.Point(120, 101)
        Me.Line5.Name = "Line5"
        Me.Line5.Size = New System.Drawing.Size(430, 1)
        Me.Line5.TabIndex = 26
        '
        'Line4
        '
        Me.Line4.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(128, Byte))
        Me.Line4.Location = New System.Drawing.Point(120, 290)
        Me.Line4.Name = "Line4"
        Me.Line4.Size = New System.Drawing.Size(2, 109)
        Me.Line4.TabIndex = 27
        '
        'Line3
        '
        Me.Line3.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(128, Byte))
        Me.Line3.Location = New System.Drawing.Point(120, 163)
        Me.Line3.Name = "Line3"
        Me.Line3.Size = New System.Drawing.Size(2, 111)
        Me.Line3.TabIndex = 28
        '
        'Line2
        '
        Me.Line2.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(128, Byte))
        Me.Line2.Location = New System.Drawing.Point(120, 134)
        Me.Line2.Name = "Line2"
        Me.Line2.Size = New System.Drawing.Size(2, 23)
        Me.Line2.TabIndex = 29
        '
        'Line1
        '
        Me.Line1.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(128, Byte))
        Me.Line1.Location = New System.Drawing.Point(120, 102)
        Me.Line1.Name = "Line1"
        Me.Line1.Size = New System.Drawing.Size(2, 22)
        Me.Line1.TabIndex = 30
        '
        'lBottom
        '
        Me.lBottom.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(128, Byte))
        Me.lBottom.Location = New System.Drawing.Point(559, 156)
        Me.lBottom.Name = "lBottom"
        Me.lBottom.Size = New System.Drawing.Size(26, 1)
        Me.lBottom.TabIndex = 31
        Me.lBottom.Visible = False
        '
        'lRight
        '
        Me.lRight.BackColor = System.Drawing.Color.White
        Me.lRight.Location = New System.Drawing.Point(584, 133)
        Me.lRight.Name = "lRight"
        Me.lRight.Size = New System.Drawing.Size(1, 24)
        Me.lRight.TabIndex = 32
        Me.lRight.Visible = False
        '
        'lTop
        '
        Me.lTop.BackColor = System.Drawing.Color.White
        Me.lTop.Location = New System.Drawing.Point(558, 132)
        Me.lTop.Name = "lTop"
        Me.lTop.Size = New System.Drawing.Size(27, 1)
        Me.lTop.TabIndex = 33
        Me.lTop.Visible = False
        '
        'lLeft
        '
        Me.lLeft.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(128, Byte))
        Me.lLeft.Location = New System.Drawing.Point(558, 132)
        Me.lLeft.Name = "lLeft"
        Me.lLeft.Size = New System.Drawing.Size(1, 25)
        Me.lLeft.TabIndex = 34
        Me.lLeft.Visible = False
        '
        '_Label1_3
        '
        Me._Label1_3.AutoSize = True
        Me._Label1_3.BackColor = System.Drawing.Color.Transparent
        Me._Label1_3.Cursor = System.Windows.Forms.Cursors.Default
        Me._Label1_3.ForeColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(0, Byte), CType(128, Byte))
        Me.Label1.SetIndex(Me._Label1_3, CType(3, Short))
        Me._Label1_3.Location = New System.Drawing.Point(38, 294)
        Me._Label1_3.Name = "_Label1_3"
        Me._Label1_3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Label1_3.Size = New System.Drawing.Size(66, 14)
        Me._Label1_3.TabIndex = 12
        Me._Label1_3.Text = "参考说明："
        '
        '_Label1_2
        '
        Me._Label1_2.AutoSize = True
        Me._Label1_2.BackColor = System.Drawing.Color.Transparent
        Me._Label1_2.Cursor = System.Windows.Forms.Cursors.Default
        Me._Label1_2.ForeColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(0, Byte), CType(0, Byte))
        Me.Label1.SetIndex(Me._Label1_2, CType(2, Short))
        Me._Label1_2.Location = New System.Drawing.Point(38, 169)
        Me._Label1_2.Name = "_Label1_2"
        Me._Label1_2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Label1_2.Size = New System.Drawing.Size(66, 14)
        Me._Label1_2.TabIndex = 9
        Me._Label1_2.Text = "档案说明："
        '
        '_Label1_1
        '
        Me._Label1_1.AutoSize = True
        Me._Label1_1.BackColor = System.Drawing.Color.Transparent
        Me._Label1_1.Cursor = System.Windows.Forms.Cursors.Default
        Me._Label1_1.ForeColor = System.Drawing.Color.Black
        Me.Label1.SetIndex(Me._Label1_1, CType(1, Short))
        Me._Label1_1.Location = New System.Drawing.Point(38, 138)
        Me._Label1_1.Name = "_Label1_1"
        Me._Label1_1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Label1_1.Size = New System.Drawing.Size(66, 14)
        Me._Label1_1.TabIndex = 8
        Me._Label1_1.Text = "文件名称："
        '
        '_Label1_0
        '
        Me._Label1_0.AutoSize = True
        Me._Label1_0.BackColor = System.Drawing.Color.Transparent
        Me._Label1_0.Cursor = System.Windows.Forms.Cursors.Default
        Me._Label1_0.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(128, Byte))
        Me.Label1.SetIndex(Me._Label1_0, CType(0, Short))
        Me._Label1_0.Location = New System.Drawing.Point(38, 104)
        Me._Label1_0.Name = "_Label1_0"
        Me._Label1_0.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Label1_0.Size = New System.Drawing.Size(66, 14)
        Me._Label1_0.TabIndex = 7
        Me._Label1_0.Text = "档案类别："
        '
        'lblLine
        '
        Me.lblLine.BackColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(0, Byte))
        Me.lblLine.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblLine.Cursor = System.Windows.Forms.Cursors.Default
        Me.lblLine.ForeColor = System.Drawing.SystemColors.ControlText
        Me.lblLine.Location = New System.Drawing.Point(24, 60)
        Me.lblLine.Name = "lblLine"
        Me.lblLine.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.lblLine.Size = New System.Drawing.Size(293, 4)
        Me.lblLine.TabIndex = 4
        '
        'lblFileCaption
        '
        Me.lblFileCaption.AutoSize = True
        Me.lblFileCaption.BackColor = System.Drawing.Color.Transparent
        Me.lblFileCaption.Cursor = System.Windows.Forms.Cursors.Default
        Me.lblFileCaption.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lblFileCaption.ForeColor = System.Drawing.Color.White
        Me.lblFileCaption.Location = New System.Drawing.Point(131, 25)
        Me.lblFileCaption.Name = "lblFileCaption"
        Me.lblFileCaption.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.lblFileCaption.Size = New System.Drawing.Size(72, 19)
        Me.lblFileCaption.TabIndex = 3
        Me.lblFileCaption.Text = "档案仓库"
        '
        'Label2
        '
        Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(0, Byte), CType(0, Byte))
        Me.Label2.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label2.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label2.Location = New System.Drawing.Point(32, -1)
        Me.Label2.Name = "Label2"
        Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label2.Size = New System.Drawing.Size(179, 63)
        Me.Label2.TabIndex = 13
        '
        'imlSmallIcons
        '
        Me.imlSmallIcons.Enabled = True
        Me.imlSmallIcons.Name = "imlSmallIcons"
        Me.imlSmallIcons.OcxState = CType(resources.GetObject("imlSmallIcons.OcxState"), System.Windows.Forms.AxHost.State)
        Me.imlSmallIcons.Size = New System.Drawing.Size(38, 38)
        Me.imlSmallIcons.TabIndex = 3
        '
        'imgSplit
        '
        Me.imgSplit.Cursor = System.Windows.Forms.Cursors.SizeWE
        Me.imgSplit.Location = New System.Drawing.Point(252, 10)
        Me.imgSplit.Name = "imgSplit"
        Me.imgSplit.Size = New System.Drawing.Size(13, 342)
        Me.imgSplit.TabIndex = 4
        Me.imgSplit.TabStop = False
        '
        'txtFields
        '
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuControl, Me.MnuReturnX})
        '
        'MnuControl
        '
        Me.MnuControl.Index = 0
        Me.MnuControl.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuSearchFile, Me.Line03, Me.MnuRefresh, Me.MLine2, Me.MnuFolder, Me.MLine01, Me.MnuAddFile, Me.MnuModifyFile, Me.MnuDeleteFile, Me.Line502, Me.MnuOpenFile})
        Me.MnuControl.Text = "操作中心^&P)"
        '
        'MnuSearchFile
        '
        Me.MnuSearchFile.Index = 0
        Me.MnuSearchFile.Shortcut = System.Windows.Forms.Shortcut.CtrlS
        Me.MnuSearchFile.Text = "&S 查询档案"
        '
        'Line03
        '
        Me.Line03.Index = 1
        Me.Line03.Text = "-"
        '
        'MnuRefresh
        '
        Me.MnuRefresh.Index = 2
        Me.MnuRefresh.Shortcut = System.Windows.Forms.Shortcut.CtrlF
        Me.MnuRefresh.Text = "&R 刷新仓库"
        '
        'MLine2
        '
        Me.MLine2.Index = 3
        Me.MLine2.Text = "-"
        '
        'MnuFolder
        '
        Me.MnuFolder.Index = 4
        Me.MnuFolder.Shortcut = System.Windows.Forms.Shortcut.CtrlC
        Me.MnuFolder.Text = "&C 目录管理"
        '
        'MLine01
        '
        Me.MLine01.Index = 5
        Me.MLine01.Text = "-"
        '
        'MnuAddFile
        '
        Me.MnuAddFile.Enabled = False
        Me.MnuAddFile.Index = 6
        Me.MnuAddFile.Shortcut = System.Windows.Forms.Shortcut.CtrlN
        Me.MnuAddFile.Text = "&A 添加档案"
        '
        'MnuModifyFile
        '
        Me.MnuModifyFile.Enabled = False
        Me.MnuModifyFile.Index = 7
        Me.MnuModifyFile.Shortcut = System.Windows.Forms.Shortcut.CtrlL
        Me.MnuModifyFile.Text = "&M 修改档案"
        '
        'MnuDeleteFile
        '
        Me.MnuDeleteFile.Enabled = False
        Me.MnuDeleteFile.Index = 8
        Me.MnuDeleteFile.Shortcut = System.Windows.Forms.Shortcut.CtrlD
        Me.MnuDeleteFile.Text = "&D 删除档案"
        '
        'Line502
        '
        Me.Line502.Index = 9
        Me.Line502.Text = "-"
        '