roompriceunit.dfm

来自「很好地delphi书籍源码」· DFM 代码 · 共 838 行 · 第 1/3 页

object FrmRoomPrice: TFrmRoomPrice
  Left = 190
  Top = 92
  Width = 720
  Height = 448
  Caption = #23458#25151#29366#24577#21450#20215#26684
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 45
    Width = 608
    Height = 348
    Align = alClient
    Color = 16711157
    DataSource = DataModule1.RoomPriceDS
    FixedColor = clInfoBk
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    OnDrawColumnCell = DBGrid1DrawColumnCell
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 712
    Height = 45
    ButtonHeight = 36
    ButtonWidth = 54
    Caption = 'ToolBar1'
    Color = 16435887
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    Images = ImageList1
    ParentColor = False
    ParentFont = False
    ShowCaptions = True
    TabOrder = 1
    object AddTButton: TToolButton
      Tag = 1
      Left = 0
      Top = 0
      Caption = ' '#28155#21152'  '
      ImageIndex = 0
      OnClick = AddTButtonClick
    end
    object ModTButton: TToolButton
      Tag = 2
      Left = 54
      Top = 0
      Caption = #20462#25913
      ImageIndex = 2
      OnClick = ModTButtonClick
    end
    object DelTButton: TToolButton
      Tag = 4
      Left = 108
      Top = 0
      Caption = #21024#38500
      ImageIndex = 3
      OnClick = DelTButtonClick
    end
    object ToolButton7: TToolButton
      Left = 162
      Top = 0
      Caption = #39318#39033
      ImageIndex = 9
      OnClick = ToolButton7Click
    end
    object ToolButton3: TToolButton
      Left = 216
      Top = 0
      Caption = #19978#19968#39033
      ImageIndex = 5
      OnClick = ToolButton3Click
    end
    object ToolButton5: TToolButton
      Left = 270
      Top = 0
      Caption = #19979#19968#39033
      ImageIndex = 4
      OnClick = ToolButton5Click
    end
    object ToolButton6: TToolButton
      Left = 324
      Top = 0
      Caption = #23614#39033
      ImageIndex = 8
      OnClick = ToolButton6Click
    end
    object ToolButton2: TToolButton
      Left = 378
      Top = 0
      Caption = #25171#21360
      ImageIndex = 12
      OnClick = ToolButton2Click
    end
    object ToolButton1: TToolButton
      Left = 432
      Top = 0
      Caption = #20851#38381
      ImageIndex = 6
      OnClick = ToolButton1Click
    end
  end
  object AddGB: TGroupBox
    Left = 30
    Top = 76
    Width = 279
    Height = 273
    Caption = #28155#21152#20449#24687
    Color = 16708297
    DragKind = dkDock
    DragMode = dmAutomatic
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 2
    Visible = False
    object Label1: TLabel
      Left = 22
      Top = 28
      Width = 52
      Height = 13
      Caption = #25151#38388#21495#30721
    end
    object Label2: TLabel
      Left = 22
      Top = 54
      Width = 52
      Height = 13
      Caption = #24202#20301#21495#30721
    end
    object Label3: TLabel
      Left = 22
      Top = 80
      Width = 52
      Height = 13
      Caption = #25151#38388#31867#21035
    end
    object Label4: TLabel
      Left = 22
      Top = 106
      Width = 52
      Height = 13
      Caption = #24202#20301#20215#26684
    end
    object Label5: TLabel
      Left = 22
      Top = 132
      Width = 52
      Height = 13
      Caption = #25151#38388#29366#24577
    end
    object Label6: TLabel
      Left = 22
      Top = 156
      Width = 52
      Height = 13
      Caption = #24202#20301#29366#24577
    end
    object Label13: TLabel
      Left = 22
      Top = 182
      Width = 52
      Height = 13
      Caption = #25151#38388#26465#20214
    end
    object RoomEdit: TEdit
      Left = 78
      Top = 24
      Width = 109
      Height = 21
      TabOrder = 0
    end
    object BedEdit: TEdit
      Left = 78
      Top = 50
      Width = 109
      Height = 21
      TabOrder = 1
    end
    object KindCB: TComboBox
      Left = 78
      Top = 76
      Width = 109
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 2
      Text = #26222#36890#19977#20154#38388
      OnChange = KindCBChange
      OnClick = KindCBChange
      Items.Strings = (
        #26222#36890#19977#20154#38388
        #26631#20934#38388
        #35946#21326#21452#20154#38388
        #24635#32479#22871#38388)
    end
    object AddOkButton: TButton
      Tag = 1
      Left = 62
      Top = 228
      Width = 59
      Height = 21
      Caption = #30830#23450
      TabOrder = 3
      OnClick = AddOkButtonClick
    end
    object AddCancelButton: TButton
      Left = 136
      Top = 228
      Width = 59
      Height = 21
      Caption = #21462#28040
      TabOrder = 4
      OnClick = AddCancelButtonClick
    end
    object RoomStateCB: TComboBox
      Left = 78
      Top = 128
      Width = 109
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 5
      Items.Strings = (
        #31354#38386
        #39044#23450
        #20837#20303
        #20303#28385
        #33039#25151)
    end
    object BedStateCB: TComboBox
      Left = 78
      Top = 154
      Width = 109
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 6
      Text = #31354#38386
      Items.Strings = (
        #31354#38386
        #20837#20303)
    end
    object PriceSE: TSpinEdit
      Left = 78
      Top = 102
      Width = 109
      Height = 22
      MaxValue = 2000
      MinValue = 5
      TabOrder = 7
      Value = 50