umainfrm.dfm

来自「很不错的客房管理软件.第9次改版正式开通.每日更新.」· DFM 代码 · 共 1,102 行 · 第 1/5 页

object MainFrm: TMainFrm
  Left = 197
  Top = 288
  Width = 755
  Height = 516
  Caption = #23458#25151#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  WindowState = wsMaximized
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 193
    Top = 56
    Width = 3
    Height = 414
    Cursor = crHSplit
    OnMoved = Splitter1Moved
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 470
    Width = 747
    Height = 19
    Panels = <
      item
        Width = 350
      end
      item
        Text = #31995#32479#26102#38388#65306
        Width = 300
      end
      item
        Text = #38596#39134#36719#20214#24037#20316#23460
        Width = 50
      end>
    SimplePanel = False
  end
  object TV1: TTreeView
    Left = 0
    Top = 56
    Width = 193
    Height = 414
    Align = alLeft
    Color = clSkyBlue
    HideSelection = False
    Images = ImageList1
    Indent = 19
    PopupMenu = PopupMenu1
    ReadOnly = True
    TabOrder = 1
    OnChange = TV1Change
    OnCollapsed = TV1Collapsed
    OnExpanding = TV1Expanding
    OnMouseMove = TV1MouseMove
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 747
    Height = 56
    ButtonHeight = 52
    ButtonWidth = 79
    Caption = 'ToolBar1'
    Flat = True
    Images = ImageList3
    ShowCaptions = True
    TabOrder = 2
    object tb1: TToolButton
      Left = 0
      Top = 0
      Caption = 'F2. '#20462#25913#31867#21035
      ImageIndex = 1
      OnClick = N12Click
    end
    object tb2: TToolButton
      Left = 79
      Top = 0
      Caption = 'F3. '#20462#25913#23458#25151
      ImageIndex = 2
      OnClick = N6Click
    end
    object ToolButton7: TToolButton
      Left = 158
      Top = 0
      Width = 8
      Caption = 'ToolButton7'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object tb3: TToolButton
      Left = 166
      Top = 0
      Caption = 'F4. '#30331#35760#20837#20303
      ImageIndex = 5
      OnClick = N4Click
    end
    object tb4: TToolButton
      Left = 245
      Top = 0
      Caption = 'F5. '#27880#38144#36864#25151
      ImageIndex = 7
      OnClick = N5Click
    end
    object ToolButton8: TToolButton
      Left = 324
      Top = 0
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object tb5: TToolButton
      Left = 332
      Top = 0
      Caption = 'F6. '#31995#32479#35774#32622
      ImageIndex = 0
      OnClick = tb5Click
    end
    object ToolButton9: TToolButton
      Left = 411
      Top = 0
      Width = 8
      Caption = 'ToolButton9'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object tb6: TToolButton
      Left = 419
      Top = 0
      Caption = 'F10. '#20851#38381#31243#24207
      ImageIndex = 3
      OnClick = tb6Click
    end
  end
  object Panel1: TPanel
    Left = 196
    Top = 56
    Width = 551
    Height = 414
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 3
    object Splitter2: TSplitter
      Left = 1
      Top = 293
      Width = 549
      Height = 4
      Cursor = crVSplit
      Align = alBottom
      OnMoved = Splitter1Moved
    end
    object ListView1: TListView
      Left = 1
      Top = 1
      Width = 549
      Height = 292
      Align = alClient
      Color = clInfoBk
      Columns = <>
      HideSelection = False
      LargeImages = ImageList2
      PopupMenu = PopupMenu1
      ShowColumnHeaders = False
      SortType = stText
      TabOrder = 0
      OnMouseMove = ListView1MouseMove
      OnSelectItem = ListView1SelectItem
    end
    object Panel2: TPanel
      Left = 1
      Top = 297
      Width = 549
      Height = 116
      Align = alBottom
      BevelOuter = bvLowered
      TabOrder = 1
      object DBGridEh1: TDBGridEh
        Left = 1
        Top = 1
        Width = 547
        Height = 114
        Align = alClient
        Color = clInfoBk
        DataSource = DataSource2
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        FrozenCols = 1
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 344
    Top = 256
    object N11: TMenuItem
      Caption = #28155#21152#23458#25151#31867#21035
      OnClick = N11Click