u_main.dfm

《delphi数据库系统开发实例导航》源代码

object F_main: TF_main
  Left = 181
  Top = 94
  Width = 800
  Height = 600
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  Caption = '客房管理-后台数据库管理'
  Color = clAppWorkSpace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  WindowMenu = M_windows
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 535
    Width = 792
    Height = 19
    AutoHint = True
    Panels = <>
    SimplePanel = False
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 792
    Height = 29
    Caption = 'ToolBar1'
    Color = clActiveBorder
    Images = ImageList
    ParentColor = False
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      Style = tbsSeparator
    end
    object ToolButton2: TToolButton
      Left = 8
      Top = 2
      Action = SystemExit
    end
    object ToolButton3: TToolButton
      Left = 31
      Top = 2
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 0
      Style = tbsSeparator
    end
    object ToolButton4: TToolButton
      Left = 39
      Top = 2
      Action = RoomAdd
    end
    object ToolButton5: TToolButton
      Left = 62
      Top = 2
      Action = RoomModify
    end
    object ToolButton6: TToolButton
      Left = 85
      Top = 2
      Action = RoomStat
    end
    object ToolButton7: TToolButton
      Left = 108
      Top = 2
      Width = 8
      Caption = 'ToolButton7'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton8: TToolButton
      Left = 116
      Top = 2
      Action = OtherOperator
    end
    object ToolButton9: TToolButton
      Left = 139
      Top = 2
      Action = OtherCode
    end
    object ToolButton10: TToolButton
      Left = 162
      Top = 2
      Width = 8
      Caption = 'ToolButton10'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object ToolButton11: TToolButton
      Left = 170
      Top = 2
      Action = WindowCascade
    end
    object ToolButton12: TToolButton
      Left = 193
      Top = 2
      Action = WindowTileHorizontal
    end
    object ToolButton13: TToolButton
      Left = 216
      Top = 2
      Action = WindowTileVertical
    end
    object ToolButton14: TToolButton
      Left = 239
      Top = 2
      Action = WindowMinimizeAll
    end
    object ToolButton15: TToolButton
      Left = 262
      Top = 2
      Width = 8
      Caption = 'ToolButton15'
      ImageIndex = 9
      Style = tbsSeparator
    end
    object ToolButton16: TToolButton
      Left = 270
      Top = 2
      Action = HelpContents
    end
    object ToolButton17: TToolButton
      Left = 293
      Top = 2
      Action = HelpTopicSearch
    end
    object ToolButton18: TToolButton
      Left = 316
      Top = 2
      Action = HelpAbout
    end
  end
  object MainMenu1: TMainMenu
    Left = 24
    Top = 56
    object M_system: TMenuItem
      Caption = '&S系统'
      Hint = '系统菜单'
      object M_exit: TMenuItem
        Action = SystemExit
      end
    end
    object M_room: TMenuItem
      Caption = '&R客房管理'
      Hint = '客房管理菜单'
      object M_add_room: TMenuItem
        Action = RoomAdd
      end
      object M_modify_room: TMenuItem
        Action = RoomModify
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object M_stat: TMenuItem
        Action = RoomStat
      end
    end
    object M_other: TMenuItem
      Caption = '&O辅助管理'
      Hint = '辅助数据表修改'
      object M_operator: TMenuItem
        Action = OtherOperator
      end
      object M_code: TMenuItem
        Action = OtherCode
      end
    end
    object M_windows: TMenuItem
      Caption = '&W窗口'
      object M_cascade: TMenuItem
        Action = WindowCascade
      end
      object M_horizental: TMenuItem
        Action = WindowTileHorizontal
      end
      object M_vertical: TMenuItem
        Action = WindowTileVertical
      end
      object M_minimize: TMenuItem
        Action = WindowMinimizeAll
      end
    end
    object M_help: TMenuItem
      Caption = '&H帮助'
      Hint = '帮助菜单'
      object M_content: TMenuItem
        Action = HelpContents
      end
      object M_search: TMenuItem
        Action = HelpTopicSearch
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object M_about: TMenuItem
        Action = HelpAbout
      end
    end
  end
  object ActionList: TActionList
    Images = ImageList