object fmListItems: TfmListItems
  Left = 224
  Top = 106
  Width = 700
  Height = 550
  Caption = 'Организации'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Position = poScreenCenter
  FormStyle = fsMDIChild
  OldCreateOrder = False
  ShowHint = True
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  
  object splButtons: TSplitter
    Left = 129
    Top = 0
    Width = 3
    Height = 486
    Cursor = crHSplit
  end

  object sbxMain: TScrollBox
    Left = 132
    Top = 0
    Width = 530
    Height = 486
    Align = alClient
    TabOrder = 0

    object splDocument: TSplitter
      Left = 240
      Top = 33
      Width = 3
      Height = 449
      Cursor = crHSplit
      Align = alRight
    end

      object cbReestr: TControlBar
          Left = 0
          Top = 0
          Width = 526
          Height = 33
          Align = alTop
          AutoSize = True
          TabOrder = 0
      end
      
      object reDocument: TRichEdit
          Left = 243
          Top = 33
          Width = 283
          Height = 449
          Align = alRight
          Font.Charset = RUSSIAN_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsItalic]
          ParentFont = False
          PopupMenu = pmReestr
          ReadOnly = True
          ScrollBars = ssVertical
          TabOrder = 1
          Visible = false
      end

      object pnGrid: TPanel
          Left = 0
          Top = 33
          Width = 240
          Height = 449
          Align = alClient
          TabOrder = 2

          object dbgReestr: TDeloDBGrid
              Left = 1
              Top = 1
              Width = 238
              Height = 447
              Align = alClient
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = [fsBold]
          end
      end
  end
  
  object lvViewMode: TDeloListView
      Left = 0
      Top = 0
      Width = 150
      Height = 486
      Align = alLeft
      Checkboxes = True
      Color = clAppWorkSpace
      Columns = <
        item
        end>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      IconOptions.WrapText = False
      LargeImages = imViewModeLarge
      ReadOnly = True
      ParentFont = False
      SmallImages = imViewModeSmall
      StateImages = imStateReestr
      TabOrder = 1
      CtrlBar = cbReestr
      DataGrid = dbgReestr
      TextPanel = reDocument
      ReestrCollection = <
          item
              Caption = 'Организации'
              ImageIndex = 0
              StateIndex = -1
              Images = imReestr
              DataSet = dmDaic.cdsOrganization_View
              TBWidth = 320
              TBFlat = true
              TBAutoSize = true
              FunctsDefs =
                  <
                  item
                      Name = 'inf_Find'
                      Caption = 'Фильтр'
                      BtnHint = 'Поиск организации'
                      ImageIndex = 5
                      ButtonStyle = tbsButton
                      FunctionName = 'FilterDataSet'
                      FunctParams =
                          <
                          item
                              ParamType = 7
                          end
                          item
                              ParamValue = 'fmFindOrganization'
                              ParamType = 4
                          end
                          item
                              ParamValue = '$$DELO$$\dfm\Find_Org.dfm'
                              ParamType = 4
                          end
                          >
                  end

                  item
                      Name = 'inf_sep1'
                      ButtonStyle = tbsSeparator
                      BtnWidth = 8
                  end

                  item
                      Name = 'inf_Report'
                      Caption = 'Перечень организаций'
                      BtnHint = 'Перечень организаций'
                      ImageIndex = 9
                      ButtonStyle = tbsButton
                      FunctionName = 'PrintSimpleDataSet'
                      ParentFunction = 'inf_Report'
                      FunctParams =
                          <
                          item
                              ParamType = 7
                          end
                          item
                              ParamValue = 'Перечень организаций'
                              ParamType = 4
                          end
                          >
                  end

                  item
                      Name = 'inf_sep2'
                      ButtonStyle = tbsSeparator
                      BtnWidth = 8
                  end

                  item
                      Name = 'inf_Add'
                      Caption = 'Добавить'
                      BtnHint = 'Добавление новой организации'
                      ImageIndex = 6
                      ButtonStyle = tbsButton
                      FunctionName = 'ModifyMasterRec'
                      FunctParams =
                          <
                          item
                              ParamType = 7
                          end
                          item
                              ParamValue = '0'
                              ParamType = 0
                          end
                          item
                              ParamValue = 'ID'
                              ParamType = 4
                          end
                          item
                              ParamValue = 'ID'
                              ParamType = 4
                          end
                          item
                              ParamValue = 'fmEditOrganization'
                              ParamType = 4
                          end
                          item
                              ParamValue = '$$DELO$$\dfm\Edit_Org.dfm'
                              ParamType = 4
                          end
                          item
                              ParamValue = 'Добавить новую организацию'
                              ParamType = 4
                          end
                          >
                  end

                  item
                      Name = 'inf_Edit'
                      Caption = 'Изменить'
                      BtnHint = 'Редактирование организации'
                      ImageIndex = 7
                      ButtonStyle = tbsButton
                      FunctionName = 'ModifyMasterRec'
                      FunctParams =
                          <
                          item
                              ParamType = 7
                          end
                          item
                              ParamValue = '1'
                              ParamType = 0
                          end
                          item
                              ParamValue = 'ID'
                              ParamType = 4
                          end
                          item
                              ParamValue = 'ID'
                              ParamType = 4
                          end
                          item
                              ParamValue = 'fmEditOrganization'
                              ParamType = 4
                          end
                          item
                              ParamValue = '$$DELO$$\dfm\Edit_Org.dfm'
                              ParamType = 4
                          end
                          item
                              ParamValue = 'Редактирование организации'
                              ParamType = 4
                          end
                          >
                  end

                  item
                      Name = 'st_sep3'
                      ButtonStyle = tbsSeparator
                      BtnWidth = 8
                  end

                  item
                      Name = 'st_First'
                      Caption = 'В начало'
                      BtnHint = 'Перемещение к первой записи'
                      ImageIndex = 0
                      ButtonStyle = tbsButton
                      FunctionName = 'GoRecord'
                      FunctParams =
                          <
                          item
                              ParamType = 7
                          end
                          item
                              ParamValue = '-2'
                              ParamType = 0
                          end
                          >
                  end

                  item
                      Name = 'st_Prev'
                      Caption = 'Назад'
                      BtnHint = 'Перемещение к предыдущей записи'
                      ImageIndex = 1
                      ButtonStyle = tbsButton
                      FunctionName = 'GoRecord'
                      FunctParams =
                          <
                          item
                             ParamType = 7
                          end
                          item
                              ParamValue = '-1'
                              ParamType = 0
                          end
                          >
                  end

                  item
                      Name = 'st_Next'
                      Caption = 'Вперед'
                      BtnHint = 'Перемещение к следующей записи'
                      ImageIndex = 2
                      ButtonStyle = tbsButton
                      FunctionName = 'GoRecord'
                      FunctParams =
                          <
                          item
                             ParamType = 7
                          end
                          item
                              ParamValue = '1'
                              ParamType = 0
                          end
                          >
                  end

                  item
                      Name = 'st_Last'
                      Caption = 'В конец'
                      BtnHint = 'Перемещение к самой последней записи'
                      ImageIndex = 3
                      ButtonStyle = tbsButton
                      FunctionName = 'GoRecord'
                      FunctParams =
                          <
                          item
                             ParamType = 7
                          end
                          item
                              ParamValue = '2'
                              ParamType = 0
                          end
                          >
                  end

                  item
                      Name = 'st_Refresh'
                      Caption = 'Обновить'
                      BtnHint = 'Обновление данных'
                      ImageIndex = 4
                      ButtonStyle = tbsButton
                      FunctionName = 'GoRecord'
                      FunctParams =
                          <
                          item
                              ParamType = 7
                          end
                          item
                              ParamValue = '0'
                              ParamType = 0
                          end
                          >
                  end
                  >
          end

          item
              Caption = 'Статус'
              ImageIndex = 1
              StateIndex = -1
              Images = imReestr
              DataSet = dmDaic.cdsStat_Org
              TBWidth = 310
              TBFlat = true
              TBAutoSize = true
              FunctsDefs =
                  <
                  item
                      Name = 'st_Add'
                      Caption = 'Добавить'
                      BtnHint = 'Добавление нового статуса'
                      ImageIndex = 6
                      ButtonStyle = tbsButton
                      FunctionName = 'ModifySimpleRecord'
                      FunctParams =
                          <
                          item
                              ParamType = 7
                          end
                          item
                              ParamType = 0
                          end
                          item
                              ParamValue = 'ID'
                              ParamType = 4
                          end
                          item
                              ParamValue = 'Stat_Org'
                              ParamType = 4
                          end
                          item
                              ParamValue = 'fmAddStatOrg'
                              ParamType = 4
                          end
                          item
                              ParamValue = '$$DELO$$\dfm\Stat_Org.dfm'
                              ParamType = 4
                          end
                          item
                              ParamValue = 'Добавить новый статус'
                              ParamType = 4
                          end
                          >
                  end

                  item
                      Name = 'st_Edit'
                      Caption = 'Изменить'
                      BtnHint = 'Редактирование статуса'
                      ImageIndex = 7
                      ButtonStyle = tbsButton
                      FunctionName = 'ModifySimpleRecord'
                      FunctParams =
                          <
                          item
                              ParamType = 7
                          end
                          item
                              ParamValue = '1'
                              ParamType = 0
                          end
                          item
                              ParamValue = 'ID'
                              ParamType = 4
                          end
                          item
                              ParamValue = 'Stat_Org'
                              ParamType = 4
                          end
                          item
                              ParamValue = 'fmAddStatOrg'
                              ParamType = 4
                          end
                          item
                              ParamValue = '$$DELO$$\dfm\Stat_Org.dfm'
                              ParamType = 4
                          end
                          item
                              ParamValue = 'Редактирование статуса'
                              ParamType = 4
                          end
                          >
                  end

                  item
                      Name = 'st_Delete'
                      Caption = 'Удалить'
                      BtnHint = 'Удаление статуса'
                      ImageIndex = 8
                      ButtonStyle = tbsButton
                      FunctionName = 'DeleteSimpleRecord'
                      FunctParams =
                          <
                          item
                              ParamType = 7
                          end
                          item
                              ParamValue = 'Вы желаете удалить данный статус?'
                              ParamType = 4
                          end
                          >
                  end

                  item
                      Name = 'st_sep1'
                      ButtonStyle = tbsSeparator
                      BtnWidth = 8
                  end

                  item
                      Name = 'st_Print'
                      Caption = 'Печать'
                      BtnHint = 'Передача данных для печати в Excel'
                      ImageIndex = 9
                      ButtonStyle = tbsButton
                      FunctionName = 'PrintSimpleDataSet'
                      FunctParams =
                          <
                          item
                              ParamType = 7
                          end
                          item
                              ParamValue = 'Статус организации'
                              ParamType = 4
                          end
                          >
                  end

                  item
                      Name = 'st_sep2'
                      ButtonStyle = tbsSeparator
                      BtnWidth = 8
                  end

                  item
                      Name = 'st_First'
                      Caption = 'В начало'
                      BtnHint = 'Перемещение к первой записи'
                      ImageIndex = 0
                      ButtonStyle = tbsButton
                      FunctionName = 'GoRecord'
                      FunctParams =
                          <
                          item
                              ParamType = 7
                          end
                          item
                              ParamValue = '-2'
                              ParamType = 0
                          end
                          >
                  end

                  item
                      Name = 'st_Prev'
                      Caption = 'Назад'
                      BtnHint = 'Перемещение к предыдущей записи'
                      ImageIndex = 1
                      ButtonStyle = tbsButton
                      FunctionName = 'GoRecord'
                      FunctParams =
                          <
                          item
                             ParamType = 7
                          end
                          item
                              ParamValue = '-1'
                              ParamType = 0
                          end
                          >
                  end

                  item
                      Name = 'st_Next'
                      Caption = 'Вперед'
                      BtnHint = 'Перемещение к следующей записи'
                      ImageIndex = 2
                      ButtonStyle = tbsButton
                      FunctionName = 'GoRecord'
                      FunctParams =
                          <
                          item
                             ParamType = 7
                          end
                          item
                              ParamValue = '1'
                              ParamType = 0
                          end
                          >
                  end

                  item
                      Name = 'st_Last'
                      Caption = 'В конец'
                      BtnHint = 'Перемещение к самой последней записи'
                      ImageIndex = 3
                      ButtonStyle = tbsButton
                      FunctionName = 'GoRecord'
                      FunctParams =
                          <
                          item
                             ParamType = 7
                          end
                          item
                              ParamValue = '2'
                              ParamType = 0
                          end
                          >
                  end

                  item
                      Name = 'st_Refresh'
                      Caption = 'Обновить'
                      BtnHint = 'Обновление данных'
                      ImageIndex = 4
                      ButtonStyle = tbsButton
                      FunctionName = 'GoRecord'
                      FunctParams =
                          <
                          item
                              ParamType = 7
                          end
                          item
                              ParamValue = '0'
                              ParamType = 0
                          end
                          >
                  end
                  >
          end

          item
              Caption = 'Виды документов'
              ImageIndex = 2
              StateIndex = -1
              Images = imReestr
              DataSet = dmDaic.cdsKind_Docs
              TBWidth = 310
              TBFlat = true
              TBAutoSize = true
              FunctsDefs =
                  <
                  item
                      Name = 'ev_Add'
                      Caption = 'Добавить'
                      BtnHint = 'Добавление нового вида документов'
                      ImageIndex = 6
                      ButtonStyle = tbsButton
                      FunctionName = 'ModifySimpleRecord'
                      FunctParams =
                          <
                          item
                              ParamType = 7
                          end
                          item
                              ParamType = 0
                          end
                          item
                              ParamValue = 'ID'
                              ParamType = 4
                          end
                          item
                              ParamValue = 'Kind_Docs'
                              ParamType = 4
                          end
                          item
                              ParamValue = 'fmAddKindDocs'
                              ParamType = 4
                          end
                          item
                              ParamValue = '$$DELO$$\dfm\Kind_Docs.dfm'
                              ParamType = 4
                          end
                          item
                              ParamValue = 'Добавить новый вид документов'
                              ParamType = 4
                          end
                          >
                  end

                  item
                      Name = 'ev_Edit'
                      Caption = 'Изменить'
                      BtnHint = 'Редактирование вида документов'
                      ImageIndex = 7
                      ButtonStyle = tbsButton
                      FunctionName = 'ModifySimpleRecord'
                      FunctParams =
                          <
                          item
                              ParamType = 7
                          end
                          item
                              ParamValue = '1'
                              ParamType = 0
                          end
                          item
                              ParamValue = 'ID'
                              ParamType = 4
                          end
                          item
                              ParamValue = 'Kind_Docs'
                              ParamType = 4
                          end
                          item
                              ParamValue = 'fmAddKindDocs'
                              ParamType = 4
                          end
                          item
                              ParamValue = '$$DELO$$\dfm\Kind_Docs.dfm'
                              ParamType = 4
                          end
                          item
                              ParamValue = 'Редактирование вида документов'
                              ParamType = 4
                          end
                          >
                  end

                  item
                      Name = 'ev_Delete'
                      Caption = 'Удалить'
                      BtnHint = 'Удаление вида документов'
                      ImageIndex = 8
                      ButtonStyle = tbsButton
                      FunctionName = 'DeleteSimpleRecord'
                      FunctParams =
                          <
                          item
                              ParamType = 7
                          end
                          item
                              ParamValue = 'Вы желаете удалить данный вид документа?'
                              ParamType = 4
                          end
                          >
                  end

                  item
                      Name = 'ev_sep1'
                      ButtonStyle = tbsSeparator
                      BtnWidth = 8
                  end

                  item
                      Name = 'ev_Print'
                      Caption = 'Печать'
                      BtnHint = 'Передача данных для печати в Excel'
                      ImageIndex = 9
                      ButtonStyle = tbsButton
                      FunctionName = 'PrintSimpleDataSet'
                      FunctParams =
                          <
                          item
                              ParamType = 7
                          end
                          item
                              ParamValue = 'Виды документов организации'
                              ParamType = 4
                          end
                          >
                  end

                  item
                      Name = 'ev_sep2'
                      ButtonStyle = tbsSeparator
                      BtnWidth = 8
                  end

                  item
                      Name = 'ev_First'
                      Caption = 'В начало'
                      BtnHint = 'Перемещение к первой записи'
                      ImageIndex = 0
                      ButtonStyle = tbsButton
                      FunctionName = 'GoRecord'
                      FunctParams =
                          <
                          item
                              ParamType = 7
                          end
                          item
                              ParamValue = '-2'
                              ParamType = 0
                          end
                          >
                  end

                  item
                      Name = 'ev_Prev'
                      Caption = 'Назад'
                      BtnHint = 'Перемещение к предыдущей записи'
                      ImageIndex = 1
                      ButtonStyle = tbsButton
                      FunctionName = 'GoRecord'
                      FunctParams =
                          <
                          item
                             ParamType = 7
                          end
                          item
                              ParamValue = '-1'
                              ParamType = 0
                          end
                          >
                  end

                  item
                      Name = 'ev_Next'
                      Caption = 'Вперед'
                      BtnHint = 'Перемещение к следующей записи'
                      ImageIndex = 2
                      ButtonStyle = tbsButton
                      FunctionName = 'GoRecord'
                      FunctParams =
                          <
                          item
                             ParamType = 7
                          end
                          item
                              ParamValue = '1'
                              ParamType = 0
                          end
                          >
                  end

                  item
                      Name = 'ev_Last'
                      Caption = 'В конец'
                      BtnHint = 'Перемещение к самой последней записи'
                      ImageIndex = 3
                      ButtonStyle = tbsButton
                      FunctionName = 'GoRecord'
                      FunctParams =
                          <
                          item
                             ParamType = 7
                          end
                          item
                              ParamValue = '2'
                              ParamType = 0
                          end
                          >
                  end

                  item
                      Name = 'ev_Refresh'
                      Caption = 'Обновить'
                      BtnHint = 'Обновление данных'
                      ImageIndex = 4
                      ButtonStyle = tbsButton
                      FunctionName = 'GoRecord'
                      FunctParams =
                          <
                          item
                              ParamType = 7
                          end
                          item
                              ParamValue = '0'
                              ParamType = 0
                          end
                          >
                  end
                  >
          end

      item
        Caption = 'Районы'
        ImageIndex = 3
        StateIndex = -1
        Images = imReestr
        DataSet = dmDaic.cdsDistrict_a
        TBWidth = 310
        TBFlat = true
        TBAutoSize = true
        FunctsDefs = <
          item
            Name = 'ot_Add'
            Caption = 'Добавить'
            BtnHint = 'Добавление нового района'
            ImageIndex = 6
            ButtonStyle = tbsButton
            FunctionName = 'ModifySimpleRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamType = 0
            end
            item
              ParamValue = 'ID'
              ParamType = 4
            end
            item
              ParamValue = 'District'
              ParamType = 4
            end
            item
              ParamValue = 'fmAddDistrict'
              ParamType = 4
            end
            item
              ParamValue = '$$DELO$$\dfm\District.dfm'
              ParamType = 4
            end
            item
              ParamValue = 'Добавить новый район'
              ParamType = 4
            end>
          end

          item
            Name = 'ot_Edit'
            Caption = 'Изменить'
            BtnHint = 'Редактирование сведений о районе'
            ImageIndex = 7
            ButtonStyle = tbsButton
            FunctionName = 'ModifySimpleRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = '1'
              ParamType = 0
            end
            item
              ParamValue = 'ID'
              ParamType = 4
            end
            item
              ParamValue = 'District'
              ParamType = 4
            end
            item
              ParamValue = 'fmAddDistrict'
              ParamType = 4
            end
            item
              ParamValue = '$$DELO$$\dfm\District.dfm'
              ParamType = 4
            end
            item
              ParamValue = 'Редактирование сведений о районе'
              ParamType = 4
            end>
          end

          item
            Name = 'ot_Delete'
            Caption = 'Удалить'
            BtnHint = 'Удаление сведений о районе'
            ImageIndex = 8
            ButtonStyle = tbsButton
            FunctionName = 'DeleteSimpleRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = 'Вы желаете удалить данные сведения о районе?'
              ParamType = 4
            end>
          end

          item
            Name = 'ot_sep1'
            ButtonStyle = tbsSeparator
            BtnWidth = 8
          end

          item
            Name = 'ot_Print'
            Caption = 'Печать'
            BtnHint = 'Передача данных для печати в Excel'
            ImageIndex = 9
            ButtonStyle = tbsButton
            FunctionName = 'PrintSimpleDataSet'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = 'Сведения о районах'
              ParamType = 4
            end>
          end

          item
            Name = 'ot_sep2'
            ButtonStyle = tbsSeparator
            BtnWidth = 8
          end

          item
            Name = 'ot_First'
            Caption = 'В начало'
            BtnHint = 'Перемещение к первой записи'
            ImageIndex = 0
            ButtonStyle = tbsButton
            FunctionName = 'GoRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = '-2'
              ParamType = 0
            end>
          end

          item
            Name = 'ot_Prev'
            Caption = 'Назад'
            BtnHint = 'Перемещение к предыдущей записи'
            ImageIndex = 1
            ButtonStyle = tbsButton
            FunctionName = 'GoRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = '-1'
              ParamType = 0
            end>
          end

          item
            Name = 'ot_Next'
            Caption = 'Вперед'
            BtnHint = 'Перемещение к следующей записи'
            ImageIndex = 2
            ButtonStyle = tbsButton
            FunctionName = 'GoRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = '1'
              ParamType = 0
            end>
          end

          item
            Name = 'ot_Last'
            Caption = 'В конец'
            BtnHint = 'Перемещение к самой последней записи'
            ImageIndex = 3
            ButtonStyle = tbsButton
            FunctionName = 'GoRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = '2'
              ParamType = 0
            end>
          end

          item
            Name = 'ot_Refresh'
            Caption = 'Обновить'
            BtnHint = 'Обновление данных'
            ImageIndex = 4
            ButtonStyle = tbsButton
            FunctionName = 'GoRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = '0'
              ParamType = 0
            end>
          end>
      end


      item
        Caption = 'Вид нас.пункта'
        ImageIndex = 4
        StateIndex = -1
        Images = imReestr
        DataSet = dmDaic.cdsPref_Town
        TBWidth = 310
        TBFlat = true
        TBAutoSize = true
        FunctsDefs = <
          item
            Name = 'th_Add'
            Caption = 'Добавить'
            BtnHint = 'Добавление нового вида населенного пункта'
            ImageIndex = 6
            ButtonStyle = tbsButton
            FunctionName = 'ModifySimpleRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamType = 0
            end
            item
              ParamValue = 'ID'
              ParamType = 4
            end
            item
              ParamValue = 'Pref_Town'
              ParamType = 4
            end
            item
              ParamValue = 'fmAddPrefTown'
              ParamType = 4
            end
            item
              ParamValue = '$$DELO$$\dfm\Pref_Town.dfm'
              ParamType = 4
            end
            item
              ParamValue = 'Добавить новый вид населенного пункта'
              ParamType = 4
            end>
          end

          item
            Name = 'th_Edit'
            Caption = 'Изменить'
            BtnHint = 'Редактирование вида населенного пункта'
            ImageIndex = 7
            ButtonStyle = tbsButton
            FunctionName = 'ModifySimpleRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = '1'
              ParamType = 0
            end
            item
              ParamValue = 'ID'
              ParamType = 4
            end
            item
              ParamValue = 'Pref_Town'
              ParamType = 4
            end
            item
              ParamValue = 'fmAddPrefTown'
              ParamType = 4
            end
            item
              ParamValue = '$$DELO$$\dfm\Pref_Town.dfm'
              ParamType = 4
            end
            item
              ParamValue = 'Редактирование вида населенного пункта'
              ParamType = 4
            end>
          end

          item
            Name = 'th_Delete'
            Caption = 'Удалить'
            BtnHint = 'Удаление вида населенного пункта'
            ImageIndex = 8
            ButtonStyle = tbsButton
            FunctionName = 'DeleteSimpleRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = 'Вы желаете удалить данный вид населенного пункта?'
              ParamType = 4
            end>
          end

          item
            Name = 'th_sep1'
            ButtonStyle = tbsSeparator
            BtnWidth = 8
          end

          item
            Name = 'th_Print'
            Caption = 'Печать'
            BtnHint = 'Передача данных для печати в Excel'
            ImageIndex = 9
            ButtonStyle = tbsButton
            FunctionName = 'PrintSimpleDataSet'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = 'Виды населенных пунктов'
              ParamType = 4
            end>
          end

          item
            Name = 'th_sep2'
            ButtonStyle = tbsSeparator
            BtnWidth = 8
          end

          item
            Name = 'th_First'
            Caption = 'В начало'
            BtnHint = 'Перемещение к самой первой записи'
            ImageIndex = 0
            ButtonStyle = tbsButton
            FunctionName = 'GoRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = '-2'
              ParamType = 0
            end>
          end

          item
            Name = 'th_Prev'
            Caption = 'Назад'
            BtnHint = 'Перемещение к предыдущей записи'
            ImageIndex = 1
            ButtonStyle = tbsButton
            FunctionName = 'GoRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = '-1'
              ParamType = 0
            end>
          end

          item
            Name = 'th_Next'
            Caption = 'Вперед'
            BtnHint = 'Перемещение к следующей записи'
            ImageIndex = 2
            ButtonStyle = tbsButton
            FunctionName = 'GoRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = '1'
              ParamType = 0
            end>
          end

          item
            Name = 'th_Last'
            Caption = 'В конец'
            BtnHint = 'Перемещение к самой последней записи'
            ImageIndex = 3
            ButtonStyle = tbsButton
            FunctionName = 'GoRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = '2'
              ParamType = 0
            end>
          end

          item
            Name = 'th_Refresh'
            Caption = 'Обновить'
            BtnHint = 'Обновление данных'
            ImageIndex = 4
            ButtonStyle = tbsButton
            FunctionName = 'GoRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = '0'
              ParamType = 0
            end>
          end
          >
      end

      item
        Caption = 'Населенные пункты'
        ImageIndex = 5
        StateIndex = -1
        Images = imReestr
        DataSet = dmDaic.cdsTown_a
        TBWidth = 310
        TBFlat = true
        TBAutoSize = true
        FunctsDefs = <
          item
            Name = 'tw_Add'
            Caption = 'Добавить'
            BtnHint = 'Добавление нового населенного пункта'
            ImageIndex = 6
            ButtonStyle = tbsButton
            FunctionName = 'ModifySimpleRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamType = 0
            end
            item
              ParamValue = 'ID'
              ParamType = 4
            end
            item
              ParamValue = 'Town'
              ParamType = 4
            end
            item
              ParamValue = 'fmAddTown'
              ParamType = 4
            end
            item
              ParamValue = '$$DELO$$\dfm\Town.dfm'
              ParamType = 4
            end
            item
              ParamValue = 'Добавить новый населенный пункт'
              ParamType = 4
            end>
          end

          item
            Name = 'tw_Edit'
            Caption = 'Изменить'
            BtnHint = 'Редактирование населенного пункта'
            ImageIndex = 7
            ButtonStyle = tbsButton
            FunctionName = 'ModifySimpleRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = '1'
              ParamType = 0
            end
            item
              ParamValue = 'ID'
              ParamType = 4
            end
            item
              ParamValue = 'Town'
              ParamType = 4
            end
            item
              ParamValue = 'fmAddTown'
              ParamType = 4
            end
            item
              ParamValue = '$$DELO$$\dfm\Town.dfm'
              ParamType = 4
            end
            item
              ParamValue = 'Редактирование населенного пункта'
              ParamType = 4
            end>
          end

          item
            Name = 'tw_Delete'
            Caption = 'Удалить'
            BtnHint = 'Удаление населенного пункта'
            ImageIndex = 8
            ButtonStyle = tbsButton
            FunctionName = 'DeleteSimpleRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = 'Вы желаете удалить данный населенный пункт?'
              ParamType = 4
            end>
          end

          item
            Name = 'tw_sep1'
            ButtonStyle = tbsSeparator
            BtnWidth = 8
          end

          item
            Name = 'tw_Print'
            Caption = 'Печать'
            BtnHint = 'Передача данных для печати в Excel'
            ImageIndex = 9
            ButtonStyle = tbsButton
            FunctionName = 'PrintSimpleDataSet'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = 'Перечень населенных пунктов'
              ParamType = 4
            end>
          end

          item
            Name = 'tw_sep2'
            ButtonStyle = tbsSeparator
            BtnWidth = 8
          end

          item
            Name = 'tw_First'
            Caption = 'В начало'
            BtnHint = 'Перемещение к самой первой записи'
            ImageIndex = 0
            ButtonStyle = tbsButton
            FunctionName = 'GoRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = '-2'
              ParamType = 0
            end>
          end

          item
            Name = 'tw_Prev'
            Caption = 'Назад'
            BtnHint = 'Перемещение к предыдущей записи'
            ImageIndex = 1
            ButtonStyle = tbsButton
            FunctionName = 'GoRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = '-1'
              ParamType = 0
            end>
          end

          item
            Name = 'tw_Next'
            Caption = 'Вперед'
            BtnHint = 'Перемещение к следующей записи'
            ImageIndex = 2
            ButtonStyle = tbsButton
            FunctionName = 'GoRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = '1'
              ParamType = 0
            end>
          end

          item
            Name = 'tw_Last'
            Caption = 'В конец'
            BtnHint = 'Перемещение к самой последней записи'
            ImageIndex = 3
            ButtonStyle = tbsButton
            FunctionName = 'GoRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = '2'
              ParamType = 0
            end>
          end

          item
            Name = 'tw_Refresh'
            Caption = 'Обновить'
            BtnHint = 'Обновление данных'
            ImageIndex = 4
            ButtonStyle = tbsButton
            FunctionName = 'GoRecord'
            FunctParams = <
            item
              ParamType = 7
            end
            item
              ParamValue = '0'
              ParamType = 0
            end>
          end
          >
      end
      >

  end

  object pmReestr: TPopupMenu
    Left = 728
    Top = 448
    object mnSelectAllReestr: TMenuItem
      Caption = 'Выделить все'
    end
    object mnCopyReestr: TMenuItem
      Bitmap.Data = {
        26050000424D26050000000000003604000028000000100000000F0000000100
        080000000000F000000000000000000000000001000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000C0DCC000F0C8
        A400000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707
        0707070707070707070707070707070704040404040404040407070707070707
        04FFFFFFFFFFFFFF040707070707070704FF0000000000FF0407000000000000
        04FFFFFFFFFFFFFF040700FFFFFFFFFF04FF0000000000FF040700FF00000000
        04FFFFFFFFFFFFFF040700FFFFFFFFFF04FF0000FF040404040700FF00000000
        04FFFFFFFF04FF04070700FFFFFFFFFF04FFFFFFFF040407070700FF0000FF00
        0404040404040707070700FFFFFFFF00FF00070707070707070700FFFFFFFF00
        0007070707070707070700000000000007070707070707070707070707070707
        07070707070707070707}
      Caption = 'Копировать'
    end
    object mnDel1: TMenuItem
      Caption = '-'
    end
    object mnSendWord: TMenuItem
      Bitmap.Data = {
        36050000424D3605000000000000360400002800000010000000100000000100
        0800000000000001000000000000000000000001000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
        A6000020400000206000002080000020A0000020C0000020E000004000000040
        20000040400000406000004080000040A0000040C0000040E000006000000060
        20000060400000606000006080000060A0000060C0000060E000008000000080
        20000080400000806000008080000080A0000080C0000080E00000A0000000A0
        200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
        200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
        200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
        20004000400040006000400080004000A0004000C0004000E000402000004020
        20004020400040206000402080004020A0004020C0004020E000404000004040
        20004040400040406000404080004040A0004040C0004040E000406000004060
        20004060400040606000406080004060A0004060C0004060E000408000004080
        20004080400040806000408080004080A0004080C0004080E00040A0000040A0
        200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
        200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
        200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
        20008000400080006000800080008000A0008000C0008000E000802000008020
        20008020400080206000802080008020A0008020C0008020E000804000008040
        20008040400080406000804080008040A0008040C0008040E000806000008060
        20008060400080606000806080008060A0008060C0008060E000808000008080
        20008080400080806000808080008080A0008080C0008080E00080A0000080A0
        200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
        200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
        200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
        2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
        2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
        2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
        2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
        2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
        2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
        2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000700FC00FC00
        FC00FC00FC00FC00FC0000FC00FC00FC00FC00FC00FC00FC00FCFC00FFFFFFFF
        FFFFFFFFFFFFFFFFFC0000FCFFFC00FCFFFC00FC00FFFFFF00FCFC00FF00FC00
        FF00FC00FC07FFFFFC0000FCFFFC00FCFFFC00FC00F7FFFF00FCFC00FF00FC00
        FC00FC00FC00FFFFFC0000FCFFFC00FC00FC00FC00FC07FF00FCFC00FF00FCFF
        FC00FCFFFC00F7FFFC0000FCF7FC00FF00FC00FF00FC00FF00FCFC00FC00FCFF
        FC00FCFFFC00FC00FC0000FC00FC00FC00FC00FC00FC00FC00FCFC00FFFFFFFF
        FFFFFFFFFFFFFFFFFC0000FCFFFFFFFFFFFFFFFFFFFFFFFF00FCFC00FC00FC00
        FC00FC00FC00FC00FC0000FC00FC00FC00FC00FC00FC00FC00FC}
      Caption = 'Передать в Word'
    end
  end
  object imReestr: TImageList
    Height = 25
    Width = 25
    Left = 736
    Top = 64
    Bitmap = {
      [encoded data, 104256 characters]
      FFFFFFFFFFFFFFFFFFFFFFFFF0000000}
  end
  object imViewModeLarge: TImageList
    Height = 48
    Width = 48
    Left = 144
    Top = 432
    Bitmap = {
      [encoded data, 228352 characters]
      7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  end
  object imViewModeSmall: TImageList
    DrawingStyle = dsTransparent
    Height = 24
    Width = 48
    Left = 176
    Top = 432
    Bitmap = {
      [encoded data, 114304 characters]
      1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  end
  object imStateReestr: TImageList
    DrawingStyle = dsTransparent
    Height = 24
    Width = 24
    Left = 208
    Top = 432
    Bitmap = {
      [encoded data, 19328 characters]
      000000000000}
  end
end
