bookroomunit.dfm

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

object FrmBookRoom: TFrmBookRoom
  Left = 37
  Top = 130
  Width = 789
  Height = 498
  Caption = #39044#35746#25151#38388#25805#20316
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 726
    Height = 471
    Align = alClient
    Color = 16711157
    DataSource = DataModule1.BookRoomDS
    FixedColor = clInfoBk
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object ToolBar1: TToolBar
    Left = 726
    Top = 0
    Width = 55
    Height = 471
    Align = alRight
    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
      Wrap = True
      OnClick = AddTButtonClick
    end
    object ModTButton: TToolButton
      Tag = 2
      Left = 0
      Top = 36
      Caption = #20462#25913
      ImageIndex = 2
      Wrap = True
      OnClick = ModTButtonClick
    end
    object DelTButton: TToolButton
      Tag = 4
      Left = 0
      Top = 72
      Caption = #21024#38500
      ImageIndex = 3
      Wrap = True
      OnClick = DelTButtonClick
    end
    object ToolButton7: TToolButton
      Left = 0
      Top = 108
      Action = DataSetFirst1
      Caption = #39318#39033
      ImageIndex = 9
      Wrap = True
    end
    object ToolButton3: TToolButton
      Left = 0
      Top = 144
      Action = DataSetPrior1
      Caption = #21521#21069
      ImageIndex = 5
      Wrap = True
    end
    object ToolButton5: TToolButton
      Left = 0
      Top = 180
      Action = DataSetNext1
      Caption = #19979#19968#39033
      ImageIndex = 4
      Wrap = True
    end
    object ToolButton6: TToolButton
      Left = 0
      Top = 216
      Action = DataSetLast1
      Caption = #23614#39033
      ImageIndex = 8
      Wrap = True
    end
    object ToolButton1: TToolButton
      Left = 0
      Top = 252
      Caption = #20851#38381
      ImageIndex = 6
      Wrap = True
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 0
      Top = 288
      Caption = #25171#21360
      ImageIndex = 10
      OnClick = ToolButton2Click
    end
  end
  object AddGB: TGroupBox
    Left = 26
    Top = 51
    Width = 251
    Height = 322
    Caption = #28155#21152#35746#25151#20449#24687
    Color = 16311245
    DragKind = dkDock
    DragMode = dmAutomatic
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 2
    Visible = False
    object Label3: TLabel
      Left = 22
      Top = 158
      Width = 56
      Height = 14
      Caption = #21487#29992#25151#38388
    end
    object Label4: TLabel
      Left = 22
      Top = 182
      Width = 56
      Height = 14
      Caption = #21487#29992#24202#20301
    end
    object Label9: TLabel
      Left = 22
      Top = 130
      Width = 56
      Height = 14
      Caption = #25151#38388#31867#22411
    end
    object Label1: TLabel
      Left = 20
      Top = 234
      Width = 56
      Height = 14
      Caption = #20837#20303#26102#38388
    end
    object Shape1: TShape
      Left = 6
      Top = 116
      Width = 239
      Height = 3
    end
    object Label2: TLabel
      Left = 52
      Top = 34
      Width = 28
      Height = 14
      Caption = #22995#21517
    end
    object Label7: TLabel
      Left = 26
      Top = 86
      Width = 56
      Height = 14
      Caption = #35777#20214#21495#30721
    end
    object Label5: TLabel
      Left = 26
      Top = 62
      Width = 56
      Height = 14
      Caption = #35777#20214#31867#22411
    end
    object AddOkSB: TSpeedButton
      Left = 64
      Top = 278
      Width = 53
      Height = 22
      Caption = #30830#23450
      OnClick = AddOkSBClick
    end
    object AddNoSB: TSpeedButton
      Left = 130
      Top = 278
      Width = 53
      Height = 22
      Caption = #21462#28040
      OnClick = AddNoSBClick
    end
    object Label16: TLabel
      Left = 22
      Top = 208
      Width = 56
      Height = 14
      Caption = #25311#20303#22825#25968
    end
    object AddRoomCB: TComboBox
      Left = 84
      Top = 154
      Width = 137
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 0
      OnChange = AddRoomCBChange
    end
    object AddBedCB: TComboBox
      Left = 84
      Top = 180
      Width = 137
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 1
    end
    object KindCB: TComboBox
      Left = 84
      Top = 128
      Width = 137
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 2
      OnChange = KindCBChange
    end
    object EnterME: TMaskEdit
      Left = 84
      Top = 232
      Width = 137
      Height = 22
      EditMask = '!0000-90-90 99:99;1;_'
      MaxLength = 16
      TabOrder = 3
      Text = '    -  -     :  '
      OnClick = EnterMEClick
    end
    object NameEdit: TEdit
      Left = 86
      Top = 32
      Width = 101
      Height = 22
      Color = clHighlightText