main.dfm

Delphi7数据库开发教程,包含该书21套实例

object frmMain: TfrmMain
  Left = 60
  Top = 94
  Width = 656
  Height = 332
  ActiveControl = ListView
  Caption = #25991#20214#31649#29702#22120
  Color = clBtnFace
  ParentFont = True
  OldCreateOrder = True
  Position = poScreenCenter
  Visible = True
  WindowState = wsMaximized
  OnClose = Form1Close
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 201
    Top = 58
    Width = 8
    Height = 228
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 23
    Width = 648
    Height = 35
    AutoSize = True
    Bands = <
      item
        Control = ActionToolBar2
        ImageIndex = -1
        MinHeight = 31
        Width = 644
      end>
    object ActionToolBar2: TActionToolBar
      Left = 9
      Top = 0
      Width = 631
      Height = 31
      ActionManager = ActionManager1
      Caption = 'ActionToolBar2'
      ColorMap.HighlightColor = 14410210
      ColorMap.BtnSelectedColor = clBtnFace
      ColorMap.UnusedColor = 14410210
      Spacing = 0
    end
  end
  object TV: TTreeView
    Left = 0
    Top = 58
    Width = 201
    Height = 228
    Align = alLeft
    DragMode = dmAutomatic
    Indent = 19
    SortType = stText
    TabOrder = 1
    OnChange = TVChange
    OnDragDrop = TVDragDrop
    OnDragOver = TVDragOver
    OnEdited = TVEdited
    OnKeyDown = TVKeyDown
  end
  object Panel1: TPanel
    Left = 209
    Top = 58
    Width = 439
    Height = 228
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 2
    object ListView: TListView
      Left = 0
      Top = 0
      Width = 439
      Height = 228
      Align = alClient
      Columns = <
        item
          Caption = #25991#20214#21517
          Width = 180
        end
        item
          Caption = #21407#22987#36335#36827
          Width = 300
        end
        item
          Caption = #21019#24314#26102#38388
          Width = 100
        end
        item
          Caption = #21019#24314#29992#25143
          Width = 70
        end
        item
          Alignment = taRightJustify
          Caption = #25991#20214#22823#23567
          Width = 70
        end
        item
          Caption = #25991#20214#31867#22411
          Width = 70
        end>
      DragMode = dmAutomatic
      LargeImages = MenuImages
      MultiSelect = True
      ReadOnly = True
      SmallImages = MenuImages
      SortType = stText
      StateImages = MenuImages
      TabOrder = 0
      ViewStyle = vsReport
      OnKeyDown = ListViewKeyDown
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 286
    Width = 648
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 200
      end
      item
        Width = 50
      end>
  end
  object ActionMainMenuBar1: TActionMainMenuBar
    Left = 0
    Top = 0
    Width = 648
    Height = 23
    UseSystemFont = False
    ActionManager = ActionManager1
    Caption = 'ActionMainMenuBar1'
    ColorMap.HighlightColor = 14410210
    ColorMap.BtnSelectedColor = clBtnFace
    ColorMap.UnusedColor = 14410210
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    PersistentHotKeys = True
    Spacing = 0
  end
  object ActionManager1: TActionManager
    ActionBars = <
      item
        Items.CaptionOptions = coNone
        Items = <>
      end
      item
        Items.CaptionOptions = coNone
        Items = <
          item
            Items = <
              item
                Caption = '-'
              end
              item
                Action = ActionCheckIn
                ImageIndex = 13
              end
              item
                Action = ActionSave
                ImageIndex = 18
              end
              item
                Action = ActionSaveAs
                Caption = #23548#20986#25991#20214#21040#20854#20182#36335#36827#65288'O'#65289'(&Z)'
                ImageIndex = 24
              end
              item
                Action = ActionDeleteFiles
                ImageIndex = 23
              end
              item
                Caption = '-'
              end
              item
                Action = ActionFileExit
                ImageIndex = 7
              end>
            Caption = #25991#20214#65288'&F'#65289
          end
          item
            Items = <
              item
                Action = ActionNewDir
                ImageIndex = 0
              end
              item
                Action = ActionDeleteDir
                ImageIndex = 5
              end
              item
                Action = ActionUpLevel
                ImageIndex = 22
              end>
            Caption = #30446#24405#65288'&D'#65289
          end
          item
            Items = <
              item
                Action = ActionLargeIcon
                ImageIndex = 8
              end
              item
                Action = ActionSmallIcon
                ImageIndex = 20
              end
              item
                Action = ActionList
                ImageIndex = 11
              end
              item
                Action = ActionReport
                ImageIndex = 6
              end
              item
                Action = CustomizeActionBars1
              end>
            Caption = #26597#30475#65288'&V'#65289