Unit1.dfm - master - dorofeev_denis/Monitoring_objects

Unit1.dfm
800 строк26 KB
dorofeev_denis
create: MONITORING_OBJECTS.dpr, MONITORING_OBJECTS.dproj, Unit1.dfm, Unit1.pas, Unit2.dfm, Unit2.pas, Unit3.dfm, Unit3.pas, Для исправления статусов Росреестра.xlsx, создание схем и таблиц.sql
07 май 2026, 14:24
Верифицирован
07 май 2026, 14:24830bc00
object Form_main: TForm_main
  Left = 0
  Top = 0
  Caption = 
    #1052#1086#1085#1080#1090#1086#1088#1080#1085#1075' '#1088#1072#1085#1077#1077' '#1091#1095#1090#1105#1085#1085#1099#1093' '#1054#1053' '#1076#1083#1103' '#1088#1077#1072#1083#1080#1079#1072#1094#1080#1080' '#1094#1077#1083#1077#1081' '#1079#1072#1082#1086#1085#1072' '#8470'518-'#1060#1047 +
    ' '#1086#1090' 30.12.2020 '#1075#1086#1076#1072' ('#1074#1077#1088#1089#1080#1103' 2.0)'
  ClientHeight = 603
  ClientWidth = 1178
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Panel_DBGrid: TPanel
    Left = 0
    Top = 236
    Width = 1178
    Height = 324
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Padding.Left = 5
    Padding.Top = 5
    Padding.Right = 5
    Padding.Bottom = 5
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 7
      Top = 7
      Width = 1164
      Height = 310
      Align = alClient
      DataSource = UniDataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = 'ID'
          Width = 63
          Visible = True
        end
        item
          Expanded = False
          FieldName = #1050#1072#1076#1072#1089#1090#1088'-'#1081' '#1085#1086#1084#1077#1088
          Width = 137
          Visible = True
        end
        item
          Expanded = False
          FieldName = #1058#1080#1087' '#1086#1073#1098#1077#1082#1090#1072
          Width = 143
          Visible = True
        end
        item
          Expanded = False
          FieldName = #1057#1090#1072#1090#1091#1089' '#1056#1086#1089#1088'-'#1088#1072
          Width = 227
          Visible = True
        end
        item
          Expanded = False
          FieldName = #1057#1090#1072#1090#1091#1089' '#1054#1043#1042', '#1054#1052#1057#1059
          Width = 227
          Visible = True
        end
        item
          Expanded = False
          FieldName = #1040#1076#1088#1077#1089' '#1054#1053
          Width = 124
          Visible = True
        end
        item
          Expanded = False
          FieldName = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1054#1053
          Width = 153
          Visible = True
        end
        item
          Expanded = False
          FieldName = #1055#1083#1086#1097#1072#1076#1100
          Width = 158
          Visible = True
        end
        item
          Expanded = False
          FieldName = #1044#1091#1073#1083#1100' '#1050#1053
          Width = 122
          Visible = True
        end
        item
          Expanded = False
          FieldName = #1050#1086#1084'-'#1081' '#1056#1086#1089#1088#1077#1077#1089#1090#1088#1072
          Width = 250
          Visible = True
        end
        item
          Expanded = False
          FieldName = #1050#1086#1084#1084'-'#1081' '#1054#1043#1042', '#1054#1052#1057#1059
          Width = 250
          Visible = True
        end
        item
          Expanded = False
          FieldName = #1058#1080#1087' '#1087#1077#1088#1077#1095#1085#1103
          Width = 96
          Visible = True
        end>
    end
  end
  object Panel_search: TPanel
    Left = 0
    Top = 41
    Width = 1178
    Height = 195
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Padding.Left = 5
    Padding.Top = 5
    Padding.Right = 5
    Padding.Bottom = 5
    TabOrder = 1
    object Label_district: TLabel
      Left = 7
      Top = 9
      Width = 35
      Height = 16
      Caption = #1056#1072#1081#1086#1085
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label_kn: TLabel
      Left = 176
      Top = 9
      Width = 15
      Height = 16
      Caption = #1050#1053
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label_name: TLabel
      Left = 368
      Top = 9
      Width = 107
      Height = 16
      Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1054#1053
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label_status: TLabel
      Left = 340
      Top = 71
      Width = 110
      Height = 16
      Caption = #1057#1090#1072#1090#1091#1089' '#1056#1086#1089#1088#1077#1077#1089#1090#1088#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label_address: TLabel
      Left = 176
      Top = 39
      Width = 35
      Height = 16
      Caption = #1040#1076#1088#1077#1089
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label_area: TLabel
      Left = 8
      Top = 39
      Width = 54
      Height = 16
      Caption = #1055#1083#1086#1097#1072#1076#1100
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label_object_type: TLabel
      Left = 11
      Top = 71
      Width = 73
      Height = 16
      Caption = #1058#1080#1087' '#1086#1073#1098#1077#1082#1090#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 11
      Top = 101
      Width = 75
      Height = 16
      Caption = #1058#1080#1087' '#1087#1077#1088#1077#1095#1085#1103
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label_remark: TLabel
      Left = 11
      Top = 135
      Width = 149
      Height = 16
      Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081' '#1056#1086#1089#1088#1077#1077#1089#1090#1088#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label_remark_ogv_omsu: TLabel
      Left = 11
      Top = 162
      Width = 147
      Height = 16
      Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081' '#1054#1043#1042', '#1054#1052#1057#1059
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label_double: TLabel
      Left = 477
      Top = 136
      Width = 96
      Height = 14
      Caption = #1055#1086#1083#1077' "'#1044#1091#1073#1083#1100' '#1050#1053'"'
    end
    object Label_status_ogv_omsu: TLabel
      Left = 340
      Top = 102
      Width = 108
      Height = 16
      Caption = #1057#1090#1072#1090#1091#1089' '#1054#1043#1042', '#1054#1052#1057#1059
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object ComboBox_district: TComboBox
      Left = 48
      Top = 6
      Width = 110
      Height = 24
      Style = csDropDownList
      DropDownCount = 20
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ItemIndex = 0
      ParentFont = False
      TabOrder = 0
      Text = #1042#1089#1077' '#1088#1072#1081#1086#1085#1099
      Items.Strings = (
        #1042#1089#1077' '#1088#1072#1081#1086#1085#1099
        '18:01:'
        '18:02:'
        '18:03:'
        '18:04:'
        '18:05:'
        '18:06:'
        '18:07:'
        '18:08:'
        '18:09:'
        '18:10:'
        '18:11:'
        '18:12:'
        '18:13:'
        '18:14:'
        '18:15:'
        '18:16:'
        '18:17:'
        '18:18:'
        '18:19:'
        '18:20:'
        '18:21:'
        '18:22:'
        '18:23:'
        '18:24:'
        '18:25:'
        '18:26:'
        '18:27:'
        '18:28:'
        '18:29:'
        '18:30:')
    end
    object Edit_kn: TEdit
      Left = 197
      Top = 6
      Width = 156
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object Edit_name: TEdit
      Left = 481
      Top = 6
      Width = 360
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object ComboBox_status: TComboBox
      Left = 456
      Top = 68
      Width = 385
      Height = 24
      Style = csDropDownList
      DropDownCount = 20
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ItemIndex = 0
      ParentFont = False
      TabOrder = 3
      Text = #1042#1089#1077' '#1089#1090#1072#1090#1091#1089#1099
      Items.Strings = (
        #1042#1089#1077' '#1089#1090#1072#1090#1091#1089#1099
        #1053#1086#1074#1099#1081
        #1055#1088#1086#1074#1077#1088#1077#1085
        #1055#1088#1072#1074#1072' '#1079#1072#1088#1077#1075#1080#1089#1090#1088#1080#1088#1086#1074#1072#1085#1099
        #1047#1072#1088#1077#1075#1080#1089#1090#1088#1080#1088#1086#1074#1072#1085#1086' '#1087#1088#1072#1074#1086' '#1087#1091#1073#1083#1080#1095#1085#1086#1081' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1086#1089#1090#1080
        #1040#1088#1093#1080#1074#1085#1099#1081
        #1044#1091#1073#1083#1100
        #1053#1077' '#1090#1088#1077#1073#1091#1077#1090' '#1087#1086#1076#1090#1074#1077#1088#1078#1076#1077#1085#1080#1103' '#1087#1088#1072#1074#1072
        #1042#1085#1077#1089#1077#1085#1099' '#1089#1074#1077#1076#1077#1085#1080#1103' '#1086' '#1087#1088#1072#1074#1086#1086#1073#1083#1072#1076#1072#1090#1077#1083#1103#1093' '#1087#1086' 518-'#1060#1047
        #1055#1088#1072#1074#1086#1086#1073#1083#1072#1076#1072#1090#1077#1083#1080' '#1085#1077' '#1091#1089#1090#1072#1085#1086#1074#1083#1077#1085#1099
        #1055#1088#1086#1090#1080#1074#1086#1088#1077#1095#1080#1074#1072#1103' '#1080#1085#1092#1086#1088#1084#1072#1094#1080#1103' '#1086' '#1074#1099#1103#1074#1083#1077#1085#1085#1086#1084' '#1087#1088#1072#1074#1086#1086#1073#1083#1072#1076#1072#1090#1077#1083#1077
        #1042' '#1088#1072#1073#1086#1090#1077
        #1057#1085#1103#1090' '#1087#1086' '#1072#1082#1090#1091' '#1086#1089#1084#1086#1090#1088#1072
        #1055#1088#1072#1074#1072' '#1079#1072#1088#1077#1075#1080#1089#1090#1088#1080#1088#1086#1074#1072#1085#1099' '#1087#1086' 518 '#1060#1047
        #1056#1086#1076#1080#1090#1077#1083#1100#1089#1082#1080#1081' '#1054#1053
        #1051#1080#1095#1085#1086#1089#1090#1100' '#1085#1077' '#1091#1089#1090#1072#1085#1086#1074#1083#1077#1085#1072
        #1042#1086#1079#1088#1072#1078#1077#1085#1080#1103
        #1053#1077#1088#1072#1079#1075#1088#1072#1085#1080#1095#1077#1085#1085#1099#1081' '#1047#1059
        #1055#1088#1072#1074#1086#1086#1073#1083#1072#1076#1072#1090#1077#1083#1100' '#1074#1099#1103#1074#1083#1077#1085', '#1085#1086' '#1089#1074#1077#1076#1077#1085#1080#1103' '#1085#1077' '#1074#1085#1077#1089#1077#1085#1099
        #1041#1077#1089#1093#1086#1079#1103#1081#1085#1099#1081
        #1054#1073#1097#1077#1077' '#1080#1084#1091#1097#1077#1089#1090#1074#1086
        #1054#1053' '#1085#1077' '#1087#1086#1076#1087#1072#1076#1072#1077#1090' '#1087#1086#1076' 518-'#1060#1047', '#1087#1088#1072#1074' '#1085#1077#1090)
    end
    object Edit_address: TEdit
      Left = 217
      Top = 36
      Width = 624
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object Edit_area: TEdit
      Left = 68
      Top = 36
      Width = 91
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object Button_find: TButton
      Left = 766
      Top = 161
      Width = 75
      Height = 25
      Caption = #1053#1072#1081#1090#1080
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = Button_findClick
    end
    object ComboBox_object_type: TComboBox
      Left = 90
      Top = 68
      Width = 236
      Height = 24
      Style = csDropDownList
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ItemIndex = 0
      ParentFont = False
      TabOrder = 7
      Text = #1042#1089#1077' '#1090#1080#1087#1099
      Items.Strings = (
        #1042#1089#1077' '#1090#1080#1087#1099
        #1047#1077#1084#1077#1083#1100#1085#1099#1081' '#1091#1095#1072#1089#1090#1086#1082
        #1047#1076#1072#1085#1080#1077
        #1055#1086#1084#1077#1097#1077#1085#1080#1077
        #1057#1086#1086#1088#1091#1078#1077#1085#1080#1077
        #1054#1073#1098#1077#1082#1090' '#1085#1077#1079#1072#1074#1077#1088#1096#1077#1085#1085#1086#1075#1086' '#1089#1090#1088#1086#1080#1090#1077#1083#1100#1089#1090#1074#1072
        #1052#1072#1096#1080#1085#1086'-'#1084#1077#1089#1090#1086
        #1055#1091#1089#1090#1086#1077' '#1079#1085#1072#1095#1077#1085#1080#1077)
    end
    object ComboBox_object_class: TComboBox
      Left = 90
      Top = 98
      Width = 236
      Height = 24
      Style = csDropDownList
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ItemIndex = 0
      ParentFont = False
      TabOrder = 8
      Text = #1042#1089#1077' '#1087#1077#1088#1077#1095#1085#1080
      Items.Strings = (
        #1042#1089#1077' '#1087#1077#1088#1077#1095#1085#1080
        #1055#1077#1088#1077#1095#1077#1085#1100' 2022'
        #1055#1091#1089#1090#1086#1077' '#1079#1085#1072#1095#1077#1085#1080#1077)
    end
    object Edit_remark: TEdit
      Left = 255
      Top = 134
      Width = 211
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
    end
    object Edit_remark_ogv_omsu: TEdit
      Left = 255
      Top = 164
      Width = 211
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 10
    end
    object ComboBox_remark: TComboBox
      Left = 166
      Top = 134
      Width = 83
      Height = 24
      Style = csDropDownList
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ItemIndex = 0
      ParentFont = False
      TabOrder = 11
      Text = #1089#1086#1076#1077#1088#1078#1080#1090
      OnChange = ComboBox_remarkChange
      Items.Strings = (
        #1089#1086#1076#1077#1088#1078#1080#1090
        '('#1087#1091#1089#1090#1086')'
        '('#1085#1077' '#1087#1091#1089#1090#1086')')
    end
    object ComboBox_remark_ogv_omsu: TComboBox
      Left = 166
      Top = 162
      Width = 83
      Height = 24
      Style = csDropDownList
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ItemIndex = 0
      ParentFont = False
      TabOrder = 12
      Text = #1089#1086#1076#1077#1088#1078#1080#1090
      OnChange = ComboBox_remark_ogv_omsuChange
      Items.Strings = (
        #1089#1086#1076#1077#1088#1078#1080#1090
        '('#1087#1091#1089#1090#1086')'
        '('#1085#1077' '#1087#1091#1089#1090#1086')')
    end
    object Edit_double: TEdit
      Left = 671
      Top = 133
      Width = 170
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 13
    end
    object ComboBox_double: TComboBox
      Left = 579
      Top = 133
      Width = 86
      Height = 24
      Style = csDropDownList
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ItemIndex = 0
      ParentFont = False
      TabOrder = 14
      Text = #1089#1086#1076#1077#1088#1078#1080#1090
      OnChange = ComboBox_doubleChange
      Items.Strings = (
        #1089#1086#1076#1077#1088#1078#1080#1090
        '('#1087#1091#1089#1090#1086')'
        '('#1085#1077' '#1087#1091#1089#1090#1086')')
    end
    object Button_upload_script_result: TButton
      Left = 862
      Top = 132
      Width = 208
      Height = 25
      Caption = #1042#1099#1075#1088#1091#1079#1080#1090#1100' '#1088#1077#1079#1091#1083#1100#1090#1072#1090#1099' '#1087#1086#1080#1089#1082#1072
      TabOrder = 15
      OnClick = Button_upload_script_resultClick
    end
    object Main_ProgressBar: TProgressBar
      Left = 862
      Top = 163
      Width = 208
      Height = 19
      TabOrder = 16
    end
    object ComboBox_status_ogv_omsu: TComboBox
      Left = 456
      Top = 98
      Width = 385
      Height = 24
      Style = csDropDownList
      DropDownCount = 20
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ItemIndex = 0
      ParentFont = False
      TabOrder = 17
      Text = #1042#1089#1077' '#1089#1090#1072#1090#1091#1089#1099
      Items.Strings = (
        #1042#1089#1077' '#1089#1090#1072#1090#1091#1089#1099
        #1053#1086#1074#1099#1081
        #1055#1088#1086#1074#1077#1088#1077#1085
        #1055#1088#1072#1074#1072' '#1079#1072#1088#1077#1075#1080#1089#1090#1088#1080#1088#1086#1074#1072#1085#1099
        #1047#1072#1088#1077#1075#1080#1089#1090#1088#1080#1088#1086#1074#1072#1085#1086' '#1087#1088#1072#1074#1086' '#1087#1091#1073#1083#1080#1095#1085#1086#1081' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1086#1089#1090#1080
        #1040#1088#1093#1080#1074#1085#1099#1081
        #1044#1091#1073#1083#1100
        #1053#1077' '#1090#1088#1077#1073#1091#1077#1090' '#1087#1086#1076#1090#1074#1077#1088#1078#1076#1077#1085#1080#1103' '#1087#1088#1072#1074#1072
        #1042#1085#1077#1089#1077#1085#1099' '#1089#1074#1077#1076#1077#1085#1080#1103' '#1086' '#1087#1088#1072#1074#1086#1086#1073#1083#1072#1076#1072#1090#1077#1083#1103#1093' '#1087#1086' 518-'#1060#1047
        #1055#1088#1072#1074#1086#1086#1073#1083#1072#1076#1072#1090#1077#1083#1080' '#1085#1077' '#1091#1089#1090#1072#1085#1086#1074#1083#1077#1085#1099
        #1055#1088#1086#1090#1080#1074#1086#1088#1077#1095#1080#1074#1072#1103' '#1080#1085#1092#1086#1088#1084#1072#1094#1080#1103' '#1086' '#1074#1099#1103#1074#1083#1077#1085#1085#1086#1084' '#1087#1088#1072#1074#1086#1086#1073#1083#1072#1076#1072#1090#1077#1083#1077
        #1042' '#1088#1072#1073#1086#1090#1077
        #1057#1085#1103#1090' '#1087#1086' '#1072#1082#1090#1091' '#1086#1089#1084#1086#1090#1088#1072
        #1055#1088#1072#1074#1072' '#1079#1072#1088#1077#1075#1080#1089#1090#1088#1080#1088#1086#1074#1072#1085#1099' '#1087#1086' 518 '#1060#1047
        #1056#1086#1076#1080#1090#1077#1083#1100#1089#1082#1080#1081' '#1054#1053
        #1051#1080#1095#1085#1086#1089#1090#1100' '#1085#1077' '#1091#1089#1090#1072#1085#1086#1074#1083#1077#1085#1072
        #1042#1086#1079#1088#1072#1078#1077#1085#1080#1103
        #1053#1077#1088#1072#1079#1075#1088#1072#1085#1080#1095#1077#1085#1085#1099#1081' '#1047#1059
        #1055#1088#1072#1074#1086#1086#1073#1083#1072#1076#1072#1090#1077#1083#1100' '#1074#1099#1103#1074#1083#1077#1085', '#1085#1086' '#1089#1074#1077#1076#1077#1085#1080#1103' '#1085#1077' '#1074#1085#1077#1089#1077#1085#1099
        #1041#1077#1089#1093#1086#1079#1103#1081#1085#1099#1081
        #1054#1073#1097#1077#1077' '#1080#1084#1091#1097#1077#1089#1090#1074#1086
        #1054#1053' '#1085#1077' '#1087#1086#1076#1087#1072#1076#1072#1077#1090' '#1087#1086#1076' 518-'#1060#1047', '#1087#1088#1072#1074' '#1085#1077#1090)
    end
  end
  object Panel_connect: TPanel
    Left = 0
    Top = 0
    Width = 1178
    Height = 41
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object Button_connect: TButton
      Left = 8
      Top = 8
      Width = 137
      Height = 25
      Caption = #1055#1086#1076#1082#1083#1102#1095#1080#1090#1100#1089#1103' '#1082' '#1041#1044
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = Button_connectClick
    end
    object Button_disconnect: TButton
      Left = 151
      Top = 8
      Width = 98
      Height = 25
      Caption = #1054#1090#1082#1083#1102#1095#1080#1090#1100#1089#1103
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button_disconnectClick
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 560
    Width = 1178
    Height = 43
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 3
    object Label2: TLabel
      Left = 7
      Top = 9
      Width = 87
      Height = 14
      Caption = #1050#1086#1083'-'#1074#1086' '#1079#1072#1087#1080#1089#1077#1081
    end
    object Edit1: TEdit
      Left = 579
      Top = 6
      Width = 121
      Height = 24
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Button_change: TButton
      Left = 712
      Top = 6
      Width = 129
      Height = 25
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button_changeClick
    end
    object Main_search_num_rows: TEdit
      Left = 100
      Top = 6
      Width = 91
      Height = 22
      TabOrder = 2
    end
  end
  object UniConnectDialog1: TUniConnectDialog
    DatabaseLabel = #1041#1072#1079#1072' '#1076#1072#1085#1085#1099#1093
    PortLabel = #1055#1086#1088#1090
    ProviderLabel = #1055#1088#1086#1074#1072#1081#1076#1077#1088
    Caption = #1057#1086#1077#1076#1080#1085#1077#1085#1080#1077
    UsernameLabel = #1048#1084#1103
    PasswordLabel = #1055#1072#1088#1086#1083#1100
    ServerLabel = #1057#1077#1088#1074#1077#1088
    ConnectButton = #1057#1086#1077#1076#1080#1085#1080#1090#1100
    CancelButton = #1054#1090#1084#1077#1085#1072
    LabelSet = lsRussian
    Left = 736
  end
  object UniDataSource1: TUniDataSource
    DataSet = UniQuery1
    Left = 496
  end
  object UniConnection1: TUniConnection
    AutoCommit = False
    ProviderName = 'Oracle'
    SpecificOptions.Strings = (
      'Oracle.Direct=True')
    Server = '127.0.0.1::xe'
    OnError = UniConnection1Error
    Left = 312
  end
  object UniQuery1: TUniQuery
    Connection = UniConnection1
    SpecificOptions.Strings = (
      'Oracle.FetchAll=True')
    Left = 408
  end
  object OracleUniProvider1: TOracleUniProvider
    Left = 608
  end
  object MainMenu1: TMainMenu
    Left = 968
    Top = 1
    object N1: TMenuItem
      Caption = #1060#1072#1081#1083
      object N4: TMenuItem
        Caption = #1042#1099#1093#1086#1076
        OnClick = N4Click
      end
    end
    object N2: TMenuItem
      Caption = #1048#1085#1089#1090#1088#1091#1084#1077#1085#1090#1099
      object N_upd_exp: TMenuItem
        Caption = #1054#1073#1085#1086#1074#1083#1077#1085#1080#1103' '#1080' '#1074#1099#1075#1088#1091#1079#1082#1080
        OnClick = N_upd_expClick
      end
    end
  end
end