ufrmbook.dfm

这也是一个图书管理系统,不过比上一个更加具有价值,是难得的尤物

object Form1: TForm1
  Left = 303
  Top = 151
  Width = 696
  Height = 480
  Caption = #30028#38754#27169#22411
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 209
    Top = 81
    Width = 1
    Height = 372
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 81
    AutoSize = True
    Bands = <
      item
        Control = ActionToolBar1
        ImageIndex = -1
        Width = 686
      end
      item
        Control = ActionToolBar2
        ImageIndex = -1
        Width = 48
      end
      item
        Break = False
        Control = ActionToolBar3
        ImageIndex = -1
        Width = 636
      end
      item
        Control = ActionMainMenuBar1
        ImageIndex = -1
        Width = 686
      end>
    EdgeInner = esNone
    EdgeOuter = esRaised
    Images = ToolbarImages
    object ActionToolBar2: TActionToolBar
      Left = 9
      Top = 27
      Width = 35
      Height = 25
      ActionManager = ActionManager1
      Align = alClient
      Caption = 'ActionToolBar2'
      ColorMap.HighlightColor = 13684944
      ColorMap.BtnSelectedColor = clBtnFace
      ColorMap.UnusedColor = 13684944
      EdgeInner = esNone
      Spacing = 0
    end
    object ActionToolBar3: TActionToolBar
      Left = 59
      Top = 27
      Width = 623
      Height = 25
      ActionManager = ActionManager1
      Align = alClient
      Caption = 'ActionToolBar3'
      ColorMap.HighlightColor = 13684944
      ColorMap.BtnSelectedColor = clBtnFace
      ColorMap.UnusedColor = 13684944
      Spacing = 0
    end
    object ActionToolBar1: TActionToolBar
      Left = 9
      Top = 0
      Width = 673
      Height = 25
      ActionManager = ActionManager1
      Caption = 'ActionToolBar1'
      ColorMap.HighlightColor = 13684944
      ColorMap.BtnSelectedColor = clBtnFace
      ColorMap.UnusedColor = 13684944
      Spacing = 0
    end
    object ActionMainMenuBar1: TActionMainMenuBar
      Left = 9
      Top = 54
      Width = 673
      Height = 25
      ActionManager = ActionManager1
      Caption = 'ActionMainMenuBar1'
      ColorMap.HighlightColor = 13684944
      ColorMap.BtnSelectedColor = clBtnFace
      ColorMap.UnusedColor = 13684944
      Font.Charset = GB2312_CHARSET
      Font.Color = clMenuText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Pitch = fpVariable
      Font.Style = []
      PersistentHotKeys = True
      Spacing = 0
    end
  end
  object Tree: TTreeView
    Left = 0
    Top = 81
    Width = 209
    Height = 372
    Align = alLeft
    Images = imlSmall
    Indent = 35
    TabOrder = 1
    OnClick = TreeClick
  end
  object Panel1: TPanel
    Left = 210
    Top = 81
    Width = 478
    Height = 372
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Splitter2: TSplitter
      Left = 0
      Top = 240
      Width = 478
      Height = 1
      Cursor = crVSplit
      Align = alTop
    end
    object ListView1: TListView
      Left = 0
      Top = 0
      Width = 478
      Height = 240
      Align = alTop
      Columns = <>
      LargeImages = imlLarge
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object DBGrid1: TDBGrid
      Left = 0
      Top = 241
      Width = 478
      Height = 131
      Align = alClient
      DataSource = DataSource1
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object ActionManager1: TActionManager
    ActionBars = <
      item
        Items.HideUnused = False
        Items = <
          item
            Items.HideUnused = False
            Items = <
              item
                Items.HideUnused = False
                Items = <>
                Action = actNew
                ImageIndex = 14
              end
              item
                Items.HideUnused = False
                Items = <>
                Action = actEdit
                Caption = #23646#24615'(&Y)'
                ImageIndex = 6
              end
              item
                Items.HideUnused = False
                Items = <>
                Action = actDelete
                Caption = #21024#38500'(&X)'
                ImageIndex = 7
              end
              item
                Items.HideUnused = False
                Items = <>
                Action = actPrint
                Caption = #25171#21360'(&W)'
                ImageIndex = 12
              end
              item
                Items.HideUnused = False
                Items = <>
                Action = actExit
                Caption = #36864#20986'(&V)'
                ImageIndex = 15
              end>
            Caption = #25991#20214'(&Z)'
          end
          item
            Items.HideUnused = False
            Items = <>
            Caption = #32534#36753
          end>
        ActionBar = ActionMainMenuBar1
        AutoSize = False
      end
      item
        ActionBar = ActionToolBar2
        AutoSize = False
      end
      item
        Items = <
          item
            Action = actView1
            ImageIndex = 1
            ShowCaption = False
          end
          item
            Tag = 1
            Action = actView2
            ImageIndex = 2
            ShowCaption = False
          end
          item
            Tag = 2
            Action = actView3
            ImageIndex = 3
            ShowCaption = False
          end
          item
            Tag = 3
            Action = actView4
            ImageIndex = 4
            ShowCaption = False
          end>
        ActionBar = ActionToolBar3
        AutoSize = False
      end
      item
        ActionBar = ActionToolBar1
      end>
    Images = ToolbarImages
    Left = 528
    Top = 112
    StyleName = 'XP Style'
    object EditCopy1: TEditCopy
      Category = 'Edit'