mainunit.dfm

三层的通用架构

            400080404000FF404000006040004060400080604000FF604000008040004080
            400080804000FF80400000A0400040A0400080A04000FFA0400000C0400040C0
            400080C04000FFC0400000FF400040FF400080FF4000FFFF4000000060004000
            600080006000FF006000002060004020600080206000FF206000004060004040
            600080406000FF406000006060004060600080606000FF606000008060004080
            600080806000FF80600000A0600040A0600080A06000FFA0600000C0600040C0
            600080C06000FFC0600000FF600040FF600080FF6000FFFF6000000080004000
            800080008000FF008000002080004020800080208000FF208000004080004040
            800080408000FF408000006080004060800080608000FF608000008080004080
            800080808000FF80800000A0800040A0800080A08000FFA0800000C0800040C0
            800080C08000FFC0800000FF800040FF800080FF8000FFFF80000000A0004000
            A0008000A000FF00A0000020A0004020A0008020A000FF20A0000040A0004040
            A0008040A000FF40A0000060A0004060A0008060A000FF60A0000080A0004080
            A0008080A000FF80A00000A0A00040A0A00080A0A000FFA0A00000C0A00040C0
            A00080C0A000FFC0A00000FFA00040FFA00080FFA000FFFFA0000000C0004000
            C0008000C000FF00C0000020C0004020C0008020C000FF20C0000040C0004040
            C0008040C000FF40C0000060C0004060C0008060C000FF60C0000080C0004080
            C0008080C000FF80C00000A0C00040A0C00080A0C000FFA0C00000C0C00040C0
            C00080C0C000FFC0C00000FFC00040FFC00080FFC000FFFFC0000000FF004000
            FF008000FF00FF00FF000020FF004020FF008020FF00FF20FF000040FF004040
            FF008040FF00FF40FF000060FF004060FF008060FF00FF60FF000080FF004080
            FF008080FF00FF80FF0000A0FF0040A0FF0080A0FF00FFA0FF0000C0FF0040C0
            FF0080C0FF00FFC0FF0000FFFF0040FFFF0080FFFF00FFFFFF00E3E3E3E3E3E3
            E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3
            E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E30000
            E3E3E3E30000E3E3E3E3E3E3E3E3E30000E3E30000E3E3E3E3E3E3E3E3E3E3E3
            00000000E3E3E3E3E3E3E3E3E3E3E3E3E30000E3E3E3E3E3E3E3E3E3E3E3E3E3
            00000000E3E3E3E3E3E3E3E3E3E3E30000E3E30000E3E3E3E3E3E3E3E3E30000
            E3E3E3E30000E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3
            E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3
            E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3}
          Layout = blGlyphTop
          ParentShowHint = False
          ShowHint = True
          OnClick = GroupActionExecute
        end
      end
    end
    object TreeView1: TTreeView
      Left = 1
      Top = 22
      Width = 199
      Height = 334
      Hint = #25152#26377#21151#33021#32452
      Align = alClient
      BevelInner = bvNone
      BevelOuter = bvNone
      BorderStyle = bsNone
      DragCursor = crDefault
      DragMode = dmAutomatic
      HideSelection = False
      Images = ImageList1
      Indent = 19
      ParentShowHint = False
      RightClickSelect = True
      ShowHint = True
      ShowRoot = False
      TabOrder = 0
      OnChange = TreeView1Change
      OnContextPopup = TreeView1ContextPopup
      OnDragDrop = TreeView1DragDrop
      OnDragOver = ListView1DragOver
      OnEdited = TreeView1Edited
      OnEditing = TreeView1Editing
      OnEndDrag = ListView1EndDrag
      OnKeyDown = TreeView1KeyDown
      OnStartDrag = TreeView1StartDrag
      Items.Data = {
        02000000230000000000000002000000FFFFFFFFFFFFFFFF0000000000000000
        0ACBF9D3D0B9A6C4DCD7E91F0000000400000004000000FFFFFFFFFFFFFFFF00
        0000000000000006BBD8CAD5D5BE}
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 434
    Width = 684
    Height = 20
    Hint = #29366#24577#26639
    AutoHint = True
    Panels = <
      item
        Width = 402
      end
      item
        Width = 78
      end
      item
        Style = psOwnerDraw
        Width = 150
      end>
    SimplePanel = False
    OnDrawPanel = StatusBar1DrawPanel
    OnResize = StatusBar1Resize
  end
  object Panel7: TPanel
    Left = 204
    Top = 77
    Width = 480
    Height = 357
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    object Splitter3: TSplitter
      Left = 0
      Top = 324
      Width = 480
      Height = 2
      Cursor = crSizeNS
      Hint = #19978#19979#25302#21160#25913#21464#20301#32622
      Align = alBottom
      ResizeStyle = rsUpdate
      OnCanResize = Splitter3CanResize
    end
    object ListView1: TListView
      Left = 0
      Top = 0
      Width = 480
      Height = 324
      Hint = '|'#21151#33021#21015#34920
      Align = alClient
      Columns = <
        item
          Caption = #21151#33021#21517#31216
          Width = 236
        end
        item
          Alignment = taRightJustify
          Caption = #24207#21495
          Width = 40
        end
        item
          Alignment = taCenter
          Caption = #31867#22411
        end
        item
          Caption = #35828#26126
          Width = 150
        end
        item
          Alignment = taRightJustify
          Caption = #22270#26631#24207#21495
          Width = 60
        end
        item
          Caption = #22270#26631#25991#20214
          Width = 150
        end
        item
          Caption = #25171#24320#26041#24335
          Width = 60
        end
        item
          Caption = #31383#21475#31867#21517
          Width = 100
        end
        item
          Caption = #21160#24577#38142#25509#24211
          Width = 150
        end
        item
          Caption = #21629#20196#34892
          Width = 150
        end
        item
          Caption = 'PB'#21160#24577#24211
          Width = 150
        end>
      DragCursor = crDefault
      DragMode = dmAutomatic
      HideSelection = False
      LargeImages = ImageList2
      ParentShowHint = False
      ShowHint = True
      SmallImages = ImageList1
      TabOrder = 0
      OnContextPopup = ListView1ContextPopup
      OnDblClick = ListView1DblClick
      OnEdited = ListView1Edited
      OnEditing = ListView1Editing
      OnEndDrag = ListView1EndDrag
      OnDragDrop = ListView1DragDrop
      OnDragOver = ListView1DragOver
      OnInfoTip = ListView1InfoTip
      OnKeyDown = ListView1KeyDown
      OnStartDrag = ListView1StartDrag
    end
    object Panel8: TPanel
      Left = 0
      Top = 326
      Width = 480
      Height = 31
      Hint = '|'#25903#25345#26639
      Align = alBottom
      BevelOuter = bvLowered
      TabOrder = 1
      object Splitter4: TSplitter
        Left = 195
        Top = 1
        Width = 3
        Height = 29
        Cursor = crSizeWE
        Hint = #24038#21491#25302#21160#25913#21464#20301#32622
        Color = clBtnFace
        MinSize = 50
        ParentColor = False
        ResizeStyle = rsUpdate
        OnCanResize = Splitter3CanResize
      end
      object Splitter5: TSplitter
        Left = 258
        Top = 1
        Width = 3
        Height = 29
        Cursor = crSizeWE
        Hint = #24038#21491#25302#21160#25913#21464#20301#32622
        Beveled = True
        Color = clBtnFace
        MinSize = 50
        ParentColor = False
        ResizeStyle = rsUpdate
        OnCanResize = Splitter3CanResize
      end
      object Panel9: TPanel
        Left = 1
        Top = 1
        Width = 194
        Height = 29
        Hint = '|'#38142#25509#32593#31449
        Align = alLeft
        TabOrder = 0
        OnResize = Panel9Resize
        object Label3: TLabel
          Left = 4
          Top = 8
          Width = 186
          Height = 12
          Cursor = crHandPoint
          Caption = #27442#20102#35299#26356#22810#20449#24687','#35831#35775#38382#25105#20204#30340#32593#31449
          Color = clBtnFace
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentColor = False
          ParentFont = False
          ShowAccelChar = False
          OnClick = Label3Click
          OnMouseEnter = Label3MouseEnter
          OnMouseLeave = Label3MouseLeave
        end
      end
      object Panel10: TPanel
        Left = 261
        Top = 1
        Width = 218
        Height = 29
        Hint = '|'#25776#21457#37038#20214
        Align = alClient
        TabOrder = 1
        OnResize = Panel10Resize
        object Label4: TLabel
          Left = 10
          Top = 8
          Width = 198
          Height = 12
          Cursor = crHandPoint
          Caption = #22914#22312#20351#29992#20013#36935#21040#38382#39064','#35831#32473#25105#20204#21457#37038#20214
          Color = clBtnFace
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentColor = False
          ParentFont = False
          ShowAccelChar = False
          OnClick = Label4Click
          OnMouseEnter = Label3MouseEnter
          OnMouseLeave = Label3MouseLeave
        end
      end
      object Animate1: TAnimate
        Left = 198