u_mp3copy.dfm

delphi写的对学习delphi初级入门的数据编程很有用。是用用来查找硬盘mp3文件

        SmallImageIndex = -1
        Visible = True
      end
      object dxNavBar1Item13: TdxNavBarItem
        Caption = #21487#29992#31354#38388
        Enabled = True
        LargeImageIndex = -1
        SmallImageIndex = -1
        Visible = True
      end
      object dxNavBar1Item14: TdxNavBarItem
        Caption = #32422#23481#27468#26354#39318
        Enabled = True
        LargeImageIndex = -1
        SmallImageIndex = -1
        Visible = True
      end
    end
    object Panel3: TPanel
      Left = 177
      Top = 1
      Width = 838
      Height = 634
      Align = alClient
      TabOrder = 1
      object Panel4: TPanel
        Left = 441
        Top = 1
        Width = 32
        Height = 632
        Align = alLeft
        TabOrder = 0
        object PDJButton3: TPDJButton
          Left = 3
          Top = 108
          Width = 27
          Height = 21
          Cursor = 1
          Hint = 'Copy All Song To Mobily Disk'
          RepeatInterval = 50
          RepeatStartInterval = 50
          Version = 
            'Version 3.06, Copyright ?2000-2001 by Peric, E-mail: pericddn@pt' +
            't.yu'
          NumGlyphs = 1
          Layout = blGlyphTop
          Caption = '>>'
          OnClick = PDJButton3Click
          ShowHint = True
          TabOrder = 0
        end
        object PDJButton4: TPDJButton
          Left = 3
          Top = 76
          Width = 27
          Height = 21
          Cursor = 1
          Hint = 'Copy Selected  Song To Mobily Disk'
          RepeatInterval = 50
          RepeatStartInterval = 50
          Version = 
            'Version 3.06, Copyright ?2000-2001 by Peric, E-mail: pericddn@pt' +
            't.yu'
          NumGlyphs = 1
          Layout = blGlyphTop
          Caption = '>'
          OnClick = PDJButton4Click
          ShowHint = True
          TabOrder = 1
        end
        object PDJButton5: TPDJButton
          Left = 3
          Top = 140
          Width = 27
          Height = 21
          Cursor = 1
          Hint = 'Form Mobily Disk Copy Selected Song'
          RepeatInterval = 50
          RepeatStartInterval = 50
          Version = 
            'Version 3.06, Copyright ?2000-2001 by Peric, E-mail: pericddn@pt' +
            't.yu'
          NumGlyphs = 1
          Layout = blGlyphTop
          Caption = '<'
          OnClick = PDJButton5Click
          ShowHint = True
          TabOrder = 2
        end
        object PDJButton6: TPDJButton
          Left = 3
          Top = 172
          Width = 27
          Height = 21
          Cursor = 1
          Hint = 'Form Mobily Disk Copy All'
          RepeatInterval = 50
          RepeatStartInterval = 50
          Version = 
            'Version 3.06, Copyright ?2000-2001 by Peric, E-mail: pericddn@pt' +
            't.yu'
          NumGlyphs = 1
          Layout = blGlyphTop
          Caption = '<<'
          OnClick = PDJButton6Click
          ShowHint = True
          TabOrder = 3
        end
      end
      object Panel5: TPanel
        Left = 473
        Top = 1
        Width = 364
        Height = 632
        Align = alClient
        TabOrder = 1
        object RzShellList1: TRzShellList
          Left = 1
          Top = 30
          Width = 362
          Height = 601
          Align = alClient
          Folder.Pidl = {0100}
          HideSelection = False
          IconOptions.AutoArrange = True
          MultiSelect = True
          PopupMenu = PopupMenu1
          TabOrder = 0
          ViewStyle = vsReport
          OnCustomDrawItem = RzShellList1CustomDrawItem
        end
        object RzToolbar1: TRzToolbar
          Left = 1
          Top = 1
          Width = 362
          Height = 29
          Images = ImageList2
          ShowDivider = False
          BorderInner = fsNone
          BorderOuter = fsNone
          BorderSides = [sdTop]
          BorderWidth = 0
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          ThemeAware = False
          ToolbarControls = (
            BtnOpen
            BtnSave
            RzSpacer1
            BtnUpOneLevel
            BtnSelectFolder
            RzSpacer2
            BtnViewIcons
            BtnViewList
            BtnViewDetails
            BtnViewReport)
          object BtnOpen: TRzToolButton
            Left = 4
            Top = 2
            Hint = 'Display TRzOpenDialog'
            DisabledIndex = 1
            ImageIndex = 0
            Images = ImageList2
            Caption = 'Open'
            Visible = False
          end
          object BtnSave: TRzToolButton
            Left = 29
            Top = 2
            Hint = 'Display TRzSaveDialog'
            DisabledIndex = 3
            ImageIndex = 2
            Caption = 'Save'
            Visible = False
          end
          object RzSpacer1: TRzSpacer
            Left = 54
            Top = 2
          end
          object BtnUpOneLevel: TRzToolButton
            Left = 62
            Top = 2
            Hint = 'Move Up One Level'
            DisabledIndex = 5
            ImageIndex = 4
            Caption = 'Up One Level'
            OnClick = BtnUpOneLevelClick
          end
          object BtnSelectFolder: TRzToolButton
            Left = 87
            Top = 2
            Hint = 'Jump to a new folder using TRzSelectFolderDialog'
            DisabledIndex = 7
            ImageIndex = 6
            Caption = 'Select Folder'
            Visible = False
          end
          object RzSpacer2: TRzSpacer
            Left = 112
            Top = 2
          end
          object BtnViewIcons: TRzToolButton
            Left = 120
            Top = 2
            Hint = 'Display Files as Icons'
            DisabledIndex = 9
            GroupIndex = 1
            ImageIndex = 8
            Caption = 'View Icons'
            OnClick = N12Click
          end
          object BtnViewList: TRzToolButton
            Left = 145
            Top = 2
            Hint = 'Display Files as List'
            DisabledIndex = 11
            GroupIndex = 1
            ImageIndex = 10
            Caption = 'View List'
            OnClick = N13Click
          end
          object BtnViewDetails: TRzToolButton
            Left = 170
            Top = 2
            Hint = 'Display File Details'
            DisabledIndex = 13
            GroupIndex = 1
            ImageIndex = 12
            Caption = 'View Details'
            OnClick = N14Click
          end
          object BtnViewReport: TRzToolButton
            Left = 195
            Top = 2
            Hint = 'Display File Property'
            GroupIndex = 1
            ImageIndex = 12
            Caption = 'Display File Property'
            OnClick = N15Click
          end
        end
      end
      object Panel6: TPanel
        Left = 1
        Top = 1
        Width = 440
        Height = 632
        Align = alLeft
        TabOrder = 2
        object cxGrid2: TcxGrid
          Left = 1
          Top = 71
          Width = 438
          Height = 560
          Align = alClient
          TabOrder = 0
          LookAndFeel.Kind = lfOffice11
          object cxGridDBTableView1: TcxGridDBTableView
            OnDblClick = cxGridDBTableView1DblClick
            NavigatorButtons.ConfirmDelete = False
            DataController.DataSource = DSQuery
            DataController.Summary.DefaultGroupSummaryItems = <>
            DataController.Summary.FooterSummaryItems = <
              item
                Format = #20849'0'#39318#27468#26354
                Kind = skCount
                Column = cxGridDBColumn1
              end>
            DataController.Summary.SummaryGroups = <>
            OptionsBehavior.GoToNextCellOnEnter = True
            OptionsCustomize.ColumnFiltering = False
            OptionsCustomize.ColumnsQuickCustomization = True
            OptionsData.Appending = True
            OptionsSelection.MultiSelect = True
            OptionsView.Footer = True
            OptionsView.GroupByBox = False
            object cxGridDBColumn7: TcxGridDBColumn
              Caption = #32534#21495
              DataBinding.FieldName = 'ID'
              PropertiesClassName = 'TcxLabelProperties'
              Width = 47
            end
            object cxGridDBColumn1: TcxGridDBColumn
              Caption = #21517#31216