uRoomRates.dfm

object frmRoomRates: TfrmRoomRates
  Left = 0
  Top = 0
  Caption = 'Room Rates'
  ClientHeight = 573
  ClientWidth = 922
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object sPanel1: TsPanel
    Left = 0
    Top = 0
    Width = 922
    Height = 129
    Align = alTop
    Constraints.MinWidth = 830
    TabOrder = 0
    SkinData.SkinSection = 'PANEL'
    DesignSize = (
      922
      129)
    object cLabFilter: TsLabel
      Left = 19
      Top = 41
      Width = 31
      Height = 13
      Alignment = taRightJustify
      Caption = 'Filter :'
      ParentFont = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
    end
    object btnClear: TsSpeedButton
      Left = 271
      Top = 39
      Width = 66
      Height = 20
      Caption = 'Clear'
      OnClick = btnClearClick
      SkinData.SkinSection = 'SPEEDBUTTON'
      Images = DImages.PngImageList1
      ImageIndex = 10
    end
    object btnDelete: TsButton
      Left = 199
      Top = 7
      Width = 90
      Height = 26
      Caption = 'Delete'
      ImageIndex = 24
      Images = DImages.PngImageList1
      TabOrder = 0
      OnClick = btnDeleteClick
      SkinData.SkinSection = 'BUTTON'
    end
    object btnOther: TsButton
      Left = 295
      Top = 7
      Width = 134
      Height = 26
      Caption = 'Other actions'
      DropDownMenu = mnuOther
      ImageIndex = 76
      Images = DImages.PngImageList1
      Style = bsSplitButton
      TabOrder = 1
      OnClick = btnOtherClick
      SkinData.SkinSection = 'BUTTON'
    end
    object edFilter: TsEdit
      Left = 56
      Top = 39
      Width = 214
      Height = 21
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnChange = edFilterChange
      SkinData.SkinSection = 'EDIT'
    end
    object gbxFilter: TsGroupBox
      Left = 466
      Top = 1
      Width = 361
      Height = 118
      TabOrder = 3
      SkinData.SkinSection = 'GROUPBOX'
      object sSpeedButton1: TsSpeedButton
        Left = 312
        Top = 67
        Width = 33
        Height = 22
        OnClick = sSpeedButton1Click
        SkinData.SkinSection = 'SPEEDBUTTON'
        Images = DImages.PngImageList1
        ImageIndex = 8
      end
      object lblSeasonText: TsLabel
        Left = 127
        Top = 94
        Width = 50
        Height = 13
        Caption = '<season>'
        ParentFont = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
      end
      object sLabel1: TsLabel
        Left = 32
        Top = 44
        Width = 85
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Currency : '
        ParentFont = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
      end
      object sLabel2: TsLabel
        Left = 22
        Top = 19
        Width = 95
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Price Code : '
        ParentFont = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
      end
      object sLabel3: TsLabel
        Left = 32
        Top = 70
        Width = 85
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Date range : '
        ParentFont = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
      end
      object lblSeason: TsLabel
        Left = 32
        Top = 94
        Width = 85
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Season : '
        ParentFont = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
      end
      object cbxPriceCodes: TColumnComboBox
        Left = 127
        Top = 16
        Width = 218
        Height = 21
        Color = clWindow
        Version = '1.5.1.0'
        Visible = True
        Ctl3D = True
        Columns = <
          item
            Color = clWindow
            ColumnType = ctText
            Width = 30
            Alignment = taLeftJustify
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
          end
          item
            Color = clSilver
            ColumnType = ctText
            Width = 100
            Alignment = taLeftJustify
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
          end>
        ComboItems = <>
        EditColumn = -1
        EditHeight = 15
        EmptyText = ''
        EmptyTextStyle = []
        DropWidth = 145
        DropHeight = 200
        Enabled = True
        FocusBorder = True
        GridLines = True
        ItemIndex = -1
        LookupColumn = 0
        LabelCaption = ''
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'Tahoma'
        LabelFont.Style = []
        ParentCtl3D = False
        SortColumn = 0
        TabOrder = 0
        OnCloseUp = cbxPriceCodesCloseUp
      end
      object cbxCurrencies: TColumnComboBox
        Left = 127
        Top = 41
        Width = 218
        Height = 21
        Color = clWindow
        Version = '1.5.1.0'
        Visible = True
        Ctl3D = True
        Columns = <
          item
            Color = clWindow
            ColumnType = ctText
            Width = 30
            Alignment = taLeftJustify
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
          end
          item
            Color = clSilver
            ColumnType = ctText
            Width = 100
            Alignment = taLeftJustify
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
          end>
        ComboItems = <>
        EditColumn = -1
        EditHeight = 15
        EmptyText = ''
        EmptyTextStyle = []
        DropWidth = 145
        DropHeight = 200
        Enabled = True
        FocusBorder = True
        GridLines = True
        ItemIndex = -1
        LookupColumn = 0
        LabelCaption = ''
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWindowText
        LabelFont.Height = -11
        LabelFont.Name = 'Tahoma'
        LabelFont.Style = []
        ParentCtl3D = False
        SortColumn = 0
        TabOrder = 1
        OnCloseUp = cbxCurrenciesCloseUp
      end
      object dtFrom: TsDateEdit
        Left = 127
        Top = 67
        Width = 86
        Height = 21
        AutoSize = False
        Color = clWhite
        EditMask = '!99/99/9999;1; '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        MaxLength = 10
        ParentFont = False
        TabOrder = 2
        OnChange = dtFromChange
        SkinData.SkinSection = 'EDIT'
        GlyphMode.Blend = 0
        GlyphMode.Grayed = False
        DirectInput = False
        OnCloseUp = dtFromCloseUp
        DefaultToday = True
      end
      object dtTo: TsDateEdit
        Left = 219
        Top = 67
        Width = 86
        Height = 21
        AutoSize = False
        Color = clWhite
        EditMask = '!99/99/9999;1; '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        MaxLength = 10
        ParentFont = False
        TabOrder = 3
        Text = '  -  -    '
        OnChange = dtToChange
        SkinData.SkinSection = 'EDIT'
        GlyphMode.Blend = 0
        GlyphMode.Grayed = False
        DirectInput = False
        OnCloseUp = dtToCloseUp
      end
    end
    object btnInsert: TsButton
      Left = 7
      Top = 7
      Width = 90
      Height = 26
      Hint = 'Add new record'
      Caption = 'New'
      ImageIndex = 23
      Images = DImages.PngImageList1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = btnInsertClick
      SkinData.SkinSection = 'BUTTON'
    end
    object btnEdit: TsButton
      Left = 103
      Top = 7
      Width = 90
      Height = 26
      Hint = 'Edit current record'
      Caption = 'Edit'
      ImageIndex = 25
      Images = DImages.PngImageList1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnClick = btnEditClick
      SkinData.SkinSection = 'BUTTON'
    end
    object chkActive: TsCheckBox
      Left = 56
      Top = 67
      Width = 238
      Height = 20
      Caption = 'Active (if checked then just active are visible)'
      Checked = True
      State = cbChecked
      TabOrder = 6
      Visible = False
      OnClick = chkActiveClick
      SkinData.SkinSection = 'CHECKBOX'
      ImgChecked = 0
      ImgUnchecked = 0
    end
    object btnRefresh: TsButton
      Left = 833
      Top = 8
      Width = 80
      Height = 37
      Hint = 'Refresh'
      Anchors = [akTop, akRight]
      Caption = 'Refresh'
      ImageIndex = 28
      Images = DImages.PngImageList1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnClick = btnRefreshClick
      SkinData.SkinSection = 'BUTTON'
    end
  end
  object sbMain: TsStatusBar
    Left = 0
    Top = 554
    Width = 922
    Height = 19
    Panels = <>
    SkinData.SkinSection = 'STATUSBAR'
  end
  object panBtn: TsPanel
    Left = 0
    Top = 521
    Width = 922
    Height = 33
    Align = alBottom
    TabOrder = 2
    SkinData.SkinSection = 'PANEL'
    DesignSize = (
      922
      33)
    object btnCancel: TsButton
      Left = 833
      Top = 4
      Width = 85
      Height = 25
      Hint = 'Cancel and close'
      Anchors = [akTop, akRight]
      Cancel = True
      Caption = 'Cancel'
      ImageIndex = 4
      Images = DImages.PngImageList1
      ModalResult = 2
      TabOrder = 0
      OnClick = btnCancelClick
      SkinData.SkinSection = 'BUTTON'
    end
    object BtnOk: TsButton
      Left = 745
      Top = 4
      Width = 85
      Height = 25
      Hint = 'Apply and close'
      Anchors = [akTop, akRight]
      Caption = 'OK'
      ImageIndex = 82
      Images = DImages.PngImageList1
      ModalResult = 1
      TabOrder = 1
      OnClick = BtnOkClick
      SkinData.SkinSection = 'BUTTON'
    end
  end
  object grData: TcxGrid
    Left = 0
    Top = 129
    Width = 922
    Height = 392
    Align = alClient
    TabOrder = 3
    LookAndFeel.NativeStyle = False
    object tvData: TcxGridDBTableView
      OnDblClick = tvDataDblClick
      Navigator.Buttons.CustomButtons = <>
      Navigator.Buttons.First.Visible = True
      Navigator.Buttons.PriorPage.Hint = 'Prior page'
      Navigator.Buttons.PriorPage.Visible = True
      Navigator.Buttons.Prior.Hint = 'Prior'
      Navigator.Buttons.Prior.Visible = True
      Navigator.Buttons.Next.Hint = 'Next'
      Navigator.Buttons.Next.Visible = True
      Navigator.Buttons.NextPage.Hint = 'Next page'
      Navigator.Buttons.NextPage.Visible = True
      Navigator.Buttons.Last.Hint = 'Last'
      Navigator.Buttons.Last.Visible = True
      Navigator.Buttons.Insert.Hint = 'Insert'
      Navigator.Buttons.Insert.Visible = True
      Navigator.Buttons.Append.Enabled = False
      Navigator.Buttons.Append.Hint = 'Append'
      Navigator.Buttons.Append.Visible = False
      Navigator.Buttons.Delete.Hint = 'Delete'
      Navigator.Buttons.Delete.Visible = True
      Navigator.Buttons.Edit.Enabled = False
      Navigator.Buttons.Edit.Hint = 'Edit'
      Navigator.Buttons.Edit.Visible = False
      Navigator.Buttons.Post.Hint = 'Post'
      Navigator.Buttons.Post.Visible = True
      Navigator.Buttons.Cancel.Hint = 'Cancel'
      Navigator.Buttons.Cancel.Visible = True
      Navigator.Buttons.Refresh.Enabled = False
      Navigator.Buttons.Refresh.Hint = 'Refresh'
      Navigator.Buttons.Refresh.Visible = False
      Navigator.Buttons.SaveBookmark.Enabled = False
      Navigator.Buttons.SaveBookmark.Hint = 'Save bookmark'
      Navigator.Buttons.SaveBookmark.Visible = False
      Navigator.Buttons.GotoBookmark.Enabled = False
      Navigator.Buttons.GotoBookmark.Hint = 'Goto bookmark'
      Navigator.Buttons.GotoBookmark.Visible = False
      Navigator.Buttons.Filter.Hint = 'Filter'
      Navigator.Buttons.Filter.Visible = True
      Navigator.InfoPanel.Visible = True
      Navigator.Visible = True
      OnFocusedRecordChanged = tvDataFocusedRecordChanged
      DataController.DataSource = DS
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      DataController.OnSortingChanged = tvDataDataControllerSortingChanged
      OptionsBehavior.AlwaysShowEditor = True
      OptionsBehavior.IncSearch = True
      OptionsData.Appending = True
      OptionsData.CancelOnExit = False
      OptionsData.DeletingConfirmation = False
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      object tvDataRecId: TcxGridDBColumn
        DataBinding.FieldName = 'RecId'
        Visible = False
      end
      object tvDatapcCode: TcxGridDBColumn
        Caption = 'Price code'
        DataBinding.FieldName = 'pcCode'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
            ImageIndex = 8
            Kind = bkGlyph
          end>
        Properties.Images = DImages.PngImageList1
        Properties.ViewStyle = vsHideCursor
        Properties.OnButtonClick = tvDatapcCodePropertiesButtonClick
        Options.ShowEditButtons = isebAlways
        Width = 66
      end
      object tvDataCurrency: TcxGridDBColumn
        DataBinding.FieldName = 'Currency'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
            ImageIndex = 8
            Kind = bkGlyph
          end>
        Properties.Images = DImages.PngImageList1
        Properties.OnButtonClick = tvDataCurrencyPropertiesButtonClick
        Options.ShowEditButtons = isebAlways
        Width = 66
      end
      object tvDataseDescription: TcxGridDBColumn
        Caption = 'Season'
        DataBinding.FieldName = 'seDescription'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
            ImageIndex = 89
            Kind = bkGlyph
          end>
        Properties.Images = DImages.PngImageList1
        Properties.ViewStyle = vsHideCursor
        Properties.OnButtonClick = tvDataseDescriptionPropertiesButtonClick
        Options.ShowEditButtons = isebAlways
        Width = 104
      end
      object tvDataDateFrom: TcxGridDBColumn
        Caption = 'From'
        DataBinding.FieldName = 'DateFrom'
        PropertiesClassName = 'TcxDateEditProperties'
        Properties.InputKind = ikRegExpr
        Options.ShowEditButtons = isebAlways
        Width = 85
      end
      object tvDataDateTo: TcxGridDBColumn
        Caption = 'To'
        DataBinding.FieldName = 'DateTo'
        PropertiesClassName = 'TcxDateEditProperties'
        Options.ShowEditButtons = isebAlways
        Width = 80
      end
      object tvDatapcRack: TcxGridDBColumn
        Caption = 'is Rack'
        DataBinding.FieldName = 'pcRack'
        Visible = False
        Width = 50
      end
      object tvDataNumberGuests: TcxGridDBColumn
        Caption = 'No guests'
        DataBinding.FieldName = 'NumberGuests'
        Visible = False
        Width = 63
      end
      object tvDataseEndDate: TcxGridDBColumn
        DataBinding.FieldName = 'seEndDate'
        Visible = False
      end
      object tvDataseStartDate: TcxGridDBColumn
        DataBinding.FieldName = 'seStartDate'
        Visible = False
      end
      object tvDataRateCurrency: TcxGridDBColumn
        DataBinding.FieldName = 'RateCurrency'
        Visible = False
      end
      object tvDataRoomType: TcxGridDBColumn
        Caption = 'Room Type'
        DataBinding.FieldName = 'RoomType'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
            ImageIndex = 8
            Kind = bkGlyph
          end>
        Properties.Images = DImages.PngImageList1
        Properties.ViewStyle = vsHideCursor
        Properties.OnButtonClick = tvDataRoomTypePropertiesButtonClick
        Options.ShowEditButtons = isebAlways
        Width = 68
      end
      object tvDataDescription: TcxGridDBColumn
        DataBinding.FieldName = 'Description'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
            ImageIndex = 59
            Hint = 'Get rate'
            Kind = bkGlyph
          end>
        Properties.Images = DImages.PngImageList1
        Properties.OnButtonClick = tvDataDescriptionPropertiesButtonClick
        Options.ShowEditButtons = isebAlways
        Width = 141
      end
      object tvDataRate1Person: TcxGridDBColumn
        Caption = '1 Pers.'
        DataBinding.FieldName = 'Rate1Person'
        PropertiesClassName = 'TcxLabelProperties'
        Options.Editing = False
        Width = 58
      end
      object tvDataRate2Persons: TcxGridDBColumn
        Caption = '2 Pers.'
        DataBinding.FieldName = 'Rate2Persons'
        PropertiesClassName = 'TcxLabelProperties'
        Options.Editing = False
        Width = 58
      end
      object tvDataRate3Persons: TcxGridDBColumn
        Caption = '3 Pers.'
        DataBinding.FieldName = 'Rate3Persons'
        PropertiesClassName = 'TcxLabelProperties'
        Options.Editing = False
        Width = 58
      end
      object tvDataRate4Persons: TcxGridDBColumn
        Caption = '4 Pers.'
        DataBinding.FieldName = 'Rate4Persons'
        PropertiesClassName = 'TcxLabelProperties'
        Options.Editing = False
        Width = 58
      end
      object tvDataRate5Persons: TcxGridDBColumn
        Caption = '5 Pers.'
        DataBinding.FieldName = 'Rate5Persons'
        PropertiesClassName = 'TcxLabelProperties'
        Options.Editing = False
        Width = 58
      end
      object tvDataRate6Persons: TcxGridDBColumn
        Caption = '6 Perr.'
        DataBinding.FieldName = 'Rate6Persons'
        PropertiesClassName = 'TcxLabelProperties'
        Options.Editing = False
        Width = 58
      end
      object tvDataRateExtraPerson: TcxGridDBColumn
        Caption = 'Extra Pers.'
        DataBinding.FieldName = 'RateExtraPerson'
        PropertiesClassName = 'TcxLabelProperties'
        Options.Editing = False
        Width = 58
      end
      object tvDataRateExtraChildren: TcxGridDBColumn
        Caption = 'Extra Child'
        DataBinding.FieldName = 'RateExtraChildren'
        PropertiesClassName = 'TcxLabelProperties'
        Options.Editing = False
        Width = 58
      end
      object tvDataRateExtraInfant: TcxGridDBColumn
        Caption = 'Extra Infant'
        DataBinding.FieldName = 'RateExtraInfant'
        PropertiesClassName = 'TcxLabelProperties'
        Options.Editing = False
        Width = 58
      end
      object tvDataID: TcxGridDBColumn
        DataBinding.FieldName = 'ID'
        Visible = False
      end
      object tvDataSeasonID: TcxGridDBColumn
        DataBinding.FieldName = 'SeasonID'
        Visible = False
      end
      object tvDataCurrencyID: TcxGridDBColumn
        DataBinding.FieldName = 'CurrencyID'
        Visible = False
      end
      object tvDataRateID: TcxGridDBColumn
        DataBinding.FieldName = 'RateID'
        Visible = False
      end
      object tvDataPriceCodeID: TcxGridDBColumn
        DataBinding.FieldName = 'PriceCodeID'
        Visible = False
      end
      object tvDataRoomTypeID: TcxGridDBColumn
        DataBinding.FieldName = 'RoomTypeID'
        Visible = False
      end
      object tvDataActive: TcxGridDBColumn
        DataBinding.FieldName = 'Active'
        Width = 40
      end
    end
    object lvData: TcxGridLevel
      GridView = tvData
    end
  end
  object mnuOther: TPopupMenu
    Images = DImages.PngImageList1
    Left = 46
    Top = 272
    object mnuiPrint: TMenuItem
      Caption = 'Print'
      ImageIndex = 3
      OnClick = mnuiPrintClick
    end
    object mnuiAllowGridEdit: TMenuItem
      Caption = 'Allow grid edit'
      Checked = True
      OnClick = mnuiAllowGridEditClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object Export1: TMenuItem
      Caption = 'Export'
      ImageIndex = 98
      object mnuiGridToExcel: TMenuItem
        Caption = 'Grid to Excel'
        ImageIndex = 132
        OnClick = mnuiGridToExcelClick
      end
      object mnuiGridToHtml: TMenuItem
        Caption = 'Grid to HTML'
        ImageIndex = 99
        OnClick = mnuiGridToHtmlClick
      end
      object mnuiGridToText: TMenuItem
        Caption = 'Grid to text'
        ImageIndex = 0
        OnClick = mnuiGridToTextClick
      end
      object mnuiGridToXml: TMenuItem
        Caption = 'Grid to XML'
        ImageIndex = 0
        OnClick = mnuiGridToXmlClick
      end
    end
  end
  object DS: TDataSource
    DataSet = m_
    Left = 152
    Top = 272
  end
  object grPrinter: TdxComponentPrinter
    CurrentLink = prLink_grData
    Version = 0
    Left = 48
    Top = 176
    object prLink_grData: TdxGridReportLink
      PrinterPage.DMPaper = 9
      PrinterPage.Footer = 6350
      PrinterPage.GrayShading = True
      PrinterPage.Header = 6350
      PrinterPage.Margins.Bottom = 12700
      PrinterPage.Margins.Left = 12700
      PrinterPage.Margins.Right = 12700
      PrinterPage.Margins.Top = 12700
      PrinterPage.PageSize.X = 210000
      PrinterPage.PageSize.Y = 297000
      PrinterPage._dxMeasurementUnits_ = 0
      PrinterPage._dxLastMU_ = 2
      ReportDocument.CreationDate = 41334.495374884260000000
      BuiltInReportLink = True
    end
  end
  object m_: TdxMemData
    Indexes = <>
    SortOptions = []
    BeforeInsert = m_BeforeInsert
    BeforePost = m_BeforePost
    BeforeDelete = m_BeforeDelete
    OnNewRecord = m_NewRecord
    Left = 104
    Top = 272
    object m_ID: TIntegerField
      FieldName = 'ID'
    end
    object m_PriceCodeID: TIntegerField
      FieldName = 'PriceCodeID'
    end
    object m_pcCode: TWideStringField
      FieldName = 'pcCode'
      Size = 10
    end
    object m_pcRack: TBooleanField
      FieldName = 'pcRack'
    end
    object m_CurrencyID: TIntegerField
      FieldName = 'CurrencyID'
    end
    object m_Currency: TWideStringField
      FieldName = 'Currency'
      Size = 5
    end
    object m_SeasonID: TIntegerField
      FieldName = 'SeasonID'
    end
    object m_seStartDate: TDateTimeField
      FieldName = 'seStartDate'
    end
    object m_seEndDate: TDateTimeField
      FieldName = 'seEndDate'
    end
    object m_seDescription: TWideStringField
      FieldName = 'seDescription'
      Size = 50
    end
    object m_RoomTypeID: TIntegerField
      FieldName = 'RoomTypeID'
    end
    object m_RoomType: TWideStringField
      FieldName = 'RoomType'
      Size = 10
    end
    object m_NumberGuests: TIntegerField
      FieldName = 'NumberGuests'
    end
    object m_RateID: TIntegerField
      FieldName = 'RateID'
    end
    object m_RateCurrency: TWideStringField
      FieldName = 'RateCurrency'
      Size = 5
    end
    object m_Rate1Person: TFloatField
      FieldName = 'Rate1Person'
    end
    object m_Rate2Person: TFloatField
      FieldName = 'Rate2Persons'
    end
    object m_Rate3Persons: TFloatField
      FieldName = 'Rate3Persons'
    end
    object m_Rate4Persons: TFloatField
      FieldName = 'Rate4Persons'
    end
    object m_Rate5Persons: TFloatField
      FieldName = 'Rate5Persons'
    end
    object m_Rate6Persons: TFloatField
      FieldName = 'Rate6Persons'
    end
    object m_RateExtraPerson: TFloatField
      FieldName = 'RateExtraPerson'
    end
    object m_RateExtraChildren: TFloatField
      FieldName = 'RateExtraChildren'
    end
    object m_RateExtraInfant: TFloatField
      FieldName = 'RateExtraInfant'
    end
    object m_Active: TBooleanField
      FieldName = 'Active'
    end
    object m_DateFrom: TDateTimeField
      FieldName = 'DateFrom'
    end
    object m_DateTo: TDateTimeField
      FieldName = 'DateTo'
    end
    object m_Description: TWideStringField
      FieldName = 'Description'
      Size = 50
    end
  end
  object FormStore: TcxPropertiesStore
    Components = <
      item
        Component = Owner
        Properties.Strings = (
          'Height'
          'Left'
          'Position'
          'Top'
          'Width')
      end>
    StorageName = 'Software\Roomer\FormStatus\RoomRates'
    StorageType = stRegistry
    Left = 286
    Top = 288
  end
end