u_room.dfm

《Delphi中小型信息管理系统》原书光盘

            '女')
          TabOrder = 3
          Values.Strings = (
            'M'
            'F')
        end
        object ScrollBox1: TScrollBox
          Left = 336
          Top = 40
          Width = 153
          Height = 89
          TabOrder = 4
          object o_id_copy: TDBImage
            Left = 0
            Top = 0
            Width = 400
            Height = 400
            Center = False
            DataField = 'ID_COPY'
            DataSource = DM_main.DS_custom2
            TabOrder = 0
          end
        end
      end
      object GroupBox5: TGroupBox
        Left = 120
        Top = 145
        Width = 384
        Height = 300
        Caption = '入住单'
        TabOrder = 1
        object Label17: TLabel
          Left = 128
          Top = 64
          Width = 76
          Height = 13
          AutoSize = False
          Caption = '入住单编号：'
        end
        object o_sheet_id2: TLabel
          Left = 208
          Top = 64
          Width = 81
          Height = 13
          AutoSize = False
        end
        object Label19: TLabel
          Left = 24
          Top = 64
          Width = 60
          Height = 13
          AutoSize = False
          Caption = '订房列表：'
        end
        object B_new_sheet: TButton
          Left = 112
          Top = 24
          Width = 75
          Height = 25
          Caption = '新建入住单'
          TabOrder = 0
          OnClick = B_new_sheetClick
        end
        object DBG_items: TDBGrid
          Left = 2
          Top = 80
          Width = 380
          Height = 218
          DataSource = DM_main.DS_add_items2
          Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'CUSTOM'
              Title.Caption = '客户'
              Width = 70
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ROOM'
              Title.Caption = '客房'
              Width = 50
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'START_TIME'
              Title.Caption = '开始时间'
              Width = 108
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'END_TIME'
              Title.Caption = '结束时间'
              Width = 104
              Visible = True
            end>
        end
        object B_add_sheet: TButton
          Left = 200
          Top = 24
          Width = 75
          Height = 25
          Caption = '添加'
          TabOrder = 2
          OnClick = B_add_sheetClick
        end
        object B_del_sheet: TButton
          Left = 288
          Top = 24
          Width = 75
          Height = 25
          Caption = '删除'
          TabOrder = 3
          OnClick = B_del_sheetClick
        end
        object B_apply_book: TButton
          Left = 24
          Top = 24
          Width = 75
          Height = 25
          Caption = '应用订单'
          TabOrder = 4
          OnClick = B_apply_bookClick
        end
      end
      object DBG_book_list2: TDBGrid
        Left = 0
        Top = 168
        Width = 113
        Height = 273
        DataSource = DM_main.DS_get_sheet
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ID'
            Title.Caption = '订单号'
            Visible = True
          end>
      end
    end
    object TabSheet3: TTabSheet
      Caption = '调整'
      ImageIndex = 2
      object Label18: TLabel
        Left = 72
        Top = 32
        Width = 36
        Height = 13
        AutoSize = False
        Caption = '客房：'
      end
      object Label21: TLabel
        Left = 256
        Top = 32
        Width = 48
        Height = 13
        Caption = '工作单：'
      end
      object o_worksheet: TDBText
        Left = 312
        Top = 32
        Width = 65
        Height = 17
        DataField = 'WORKSHEET'
        DataSource = DM_main.DS_worksheet
      end
      object i_room: TEdit
        Left = 112
        Top = 28
        Width = 89
        Height = 21
        TabOrder = 0
        OnKeyDown = i_roomKeyDown
      end
      object DBG_items_list: TDBGrid
        Left = 8
        Top = 64
        Width = 481
        Height = 369
        DataSource = DM_main.DS_items_list
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ROOM'
            Title.Caption = '客房'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CUSTOM'
            Title.Caption = '房客'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MODE'
            Title.Caption = '入住模式'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'START_TIME'
            Title.Caption = '起始时间'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'END_TIME'
            Title.Caption = '结束时间'
            Visible = True
          end>
      end
    end
  end
  object GroupBox1: TGroupBox
    Left = 512
    Top = 0
    Width = 180
    Height = 473
    Align = alRight
    Caption = '客房信息'
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 60
      Height = 13
      AutoSize = False
      Caption = '时间范围：'
    end
    object Label2: TLabel
      Left = 56
      Top = 52
      Width = 12
      Height = 13
      Caption = '至'
    end
    object Label3: TLabel
      Left = 16
      Top = 80
      Width = 60
      Height = 13
      AutoSize = False
      Caption = '客房等级：'
    end
    object DBG_room_valid: TDBGrid
      Left = 2
      Top = 184
      Width = 176
      Height = 224
      Align = alBottom
      DataSource = DM_main.DS_room_valid
      Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'ID'
          Title.Caption = '编号'
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PLACE'
          Title.Caption = '位置'
          Width = 100
          Visible = True
        end>
    end
    object RoomLevel: TListBox
      Left = 16
      Top = 96
      Width = 145
      Height = 81
      ItemHeight = 13
      TabOrder = 1
      OnClick = RoomLevelClick
    end
    object DBMemo1: TDBMemo
      Left = 2
      Top = 408
      Width = 176
      Height = 63
      Align = alBottom
      DataField = 'REMARK'
      DataSource = DM_main.DS_room_valid
      TabOrder = 2
    end
    object i_start_time: TDateTimePicker
      Left = 80
      Top = 20
      Width = 81
      Height = 21
      CalAlignment = dtaLeft
      Date = 37273.9391009375
      Time = 37273.9391009375
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 3
      OnChange = RoomLevelClick
    end
    object i_end_time: TDateTimePicker
      Left = 80
      Top = 48
      Width = 81
      Height = 21
      CalAlignment = dtaLeft
      Date = 37273.9391009375
      Time = 37273.9391009375
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 4
      OnChange = RoomLevelClick
    end
  end
end